Title: И, собственно, небольшой фикс
Date: 2014-08-14 12:18:22
#!/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-ы бьются по группам, называнных именем аккаунта.