Title: И, собственно, небольшой фикс
Author: Viva Calman
Date: 2014-08-14 12:18:22
Correction code: 165191879300576
#!/usr/bin/perl -w
my $file="FvwmURLSMenu";
my $menu;
my @accounts=('acc1','acc2','acc3');
foreach $arg (@accounts)
{
    $ofile="/home/username/.mcabber/".$arg."/FvwmURLS";
    open (MENUFILE,"$ofile") or die $!;
    print "AddToMenu ".$file." \"---".$arg.":\" Nop\n"; 
    while(<MENUFILE>)
    {
        print "AddToMenu ".$file." ".$_;
    }
    close(MENUFILE);
}

Вот так вот переделан скриптик, генерирующий менюшку с URL-ами.

теперь mcabber складывает результат работы скриптов в каталоге профиля (я сделал отдельные каталоги для каждого аккаунта, где лежат конфиг, история и скрипты), а этот перлоскрипт просматривает указанные в массиве accounts учетные записи, парсит файлики URL-ов и генерирует менюшку.

заодно и избавился от некрасивых префиксов. теперь URL-ы бьются по группам,  называнных именем аккаунта.

Метки:
^HOME