Re: ickle packages
On Mon, 19 Nov 2001, Serge Matveev wrote:
> Угу. Ещё бы шашечек пару дописать (типа completition) - цены бы ей не
> было.
Похоже, надо работу делить. Лично я беру на себя взаимодействие с
окружением (вызов внешних программ, заголовки xterm, автоопределение
кодировки консоли). А интерфейсом пользователя (completion), импортом из
micq/licq и собственно протоколом (info, file transfer, sms)предлагаю
заняться кому-нибудь еще.
Кстати, вот патч для shell-escape
--- vicq/vicq Thu Nov 15 16:44:56 2001
+++ /usr/local/bin/vicq Mon Nov 19 11:26:47 2001
@@ -1716,7 +1716,7 @@
%helps = (
- '' => "Command list:\nmsg\nadd\nsubmit\ntogvis\ninv\nna\ndnd\nonline\naway\nocc\nauth\nw\ne\nquit\n?\nhelp",
+ '' => "Command list:\nmsg\nadd\nsubmit\ntogvis\ninv\nna\ndnd\nonline\naway\nocc\nauth\nw\ne\nquit\n?\nhelp\n!",
'msg' => "Format: msg [UIN | nickname][/message]",
'add' => "Format: add UIN nickname",
'submit' => "debug command",
@@ -1732,7 +1732,8 @@
'e' => "Format: e\nPrints contactlist, but not \"Offline\"",
'quit' => "Format: quit\nThis command allows you to do something else\nbehind ICQ",
'?' => "Format: help [cmd]\nShow help on command",
- 'help' => "Format: help [cmd]\nShow help on command"
+ 'help' => "Format: help [cmd]\nShow help on command",
+ '!' => "Format: ! OS command",
);
@@ -1986,7 +1987,11 @@
my $cmd = shift;
help($cmd);
return '';
- }
+ },
+ '!' => sub {
+ system(join(" ",@_));
+ return '';
+ }
);
--
Victor Wagner vitus@ice.ru
Chief Technical Officer Office:7-(095)-748-53-88
Communiware.Net Home: 7-(095)-135-46-61
http://www.communiware.net http://www.ice.ru/~vitus
Reply to: