OpenForum RSS: �� : �� micq �� ICQ �� (icq fifo perl)

�� micq �� ICQ �� (icq fifo perl) (Alexey)

Wed, 25 Nov 2009 16:33:32 GMT

>� �� . �� climm �� , �� , ��
>�� ? �� screen �� ,
>�� , �� , � ��
>��, �� , ��, �� :(

� �� - /usr/local/bin/screen -d -m /usr/local/bin/climm
�� - �� 1. �� screen 2. �� climm 3. "��" screen �� (detach) 4. �� exit
�� screen � �� .
�� , ��-�� -�� icq-�� climm.
PS �� ! �� (+- �� ), �� http://slimy-cat.blogspot.com/

�� micq �� ICQ �� (icq fifo perl) (GoodOkk)

Wed, 25 Nov 2009 14:38:57 GMT

� �� . �� climm �� , �� , �� ? �� screen �� , �� , �� , � �� , �� , ��, �� :(

�� micq �� ICQ �� (icq fifo perl) (Alexey)

Tue, 21 Jul 2009 08:12:55 GMT

>�� ... �� .
>MICQ �� , PIPE �� tail
>
>�� ....
>
>�� PHP ��?
>� �� MICQ �� ?

�� , �� .
� �� tail, � �� (pipes).
�� climm (�� , PHP-�� .)
�� (�� ).
�� - ��, screen �� , �� .

�� micq �� ICQ �� (icq fifo perl) (��)

Tue, 14 Jul 2009 20:26:09 GMT

�� ... �� .
MICQ �� , PIPE �� tail

�� ....

�� PHP ��?
� �� MICQ �� ?

�� micq �� ICQ �� (icq fifo perl) (Slimy Cat)

Tue, 05 Feb 2008 18:18:21 GMT

� �� , �� "��" �� (� �� micq, � climm)?
� �� :
nohup /usr/local/bin/climm 2>&1 > /dev/null &
��, �� RUN � �� ... idle = 0.00%
�� , �� , �� select, WCPU ~ 0.5%

virtual:~# top -n
19 processes: 2 running, 17 sleeping
PID USERNAME THR PRI NICE SIZE RES STATE TIME WCPU COMMAND
7709 root 1 132 0 3856K 2252K RUN 1:14 92.25% climm
753 root 1 96 0 1400K 832K select 0:22 0.00% syslogd

��, �� "��" �� stdin �� stdin, �� , �� .
�� ?
Screen �� , �.�. �� *.tbz ��, � �� (�� ).

�� : �� micq �� ICQ ��... (ForeverYoung)

Mon, 02 Jul 2007 12:15:19 GMT

� �� :
foreveryoung ~ # cat ~icqbot/script
#!/usr/bin/perl
$_ = 1;
exit if( $#ARGV < 0 );
use File::Tail;
$name = "/home/icqbot/.micq/history/${ARGV[0]}.log";
my $ref=tie *FH,"File::Tail",(name=>$name, maxinterval=>1, interval=>1);
open LOG, ">${ARGV[0]}_bot.log";
$skip = 0;
$cmd = 0;
while( <FH> )
{
if( $skip > 0 )
{
$skip--;
next;
}
if( $_ =~ /# \d+\/ \[[^]]+\]\S+ -> [^[]*\[[^]]+\] [+](\d+)/ )
{
$skip = $1;
$cmd = 0;
next;
}
if( $_ =~ /# \d+\/ \[[^]]+\]\S+ <- [^[]*\[[^]]+\] [+](\d+)/ )
{
$cmd = 1;
next;
}
if( !$cmd )
{
next;
}
if( $_ =~ /^ping (.+)$/ )
{
print LOG "Pinging $1\n";
$ping = `ping -c 10 $1 2>&1`;
open OUT, ">.micq/scripting";
print OUT "/msg ${ARGV[0]}\n";
print OUT $ping;
print OUT ".\n";
close OUT;
next;
}
}

� micq �� screen:

�� micq �� ICQ �� (icq fifo perl) (��)

Thu, 28 Jun 2007 08:22:11 GMT

� �� `micq ... < /dev/null` ��?
�� tail -f /dev/null | micq ...?
�� 2.

�� micq �� ICQ �� (icq fifo perl) (etz)

Wed, 28 Feb 2007 03:16:05 GMT

��-�� ? �� "You're sending data too fast - stop typing now, or the server will disconnect!"
�� micq'� ? �� ۣ�..

�� micq �� ICQ �� (icq fifo perl) (Timka)

Wed, 08 Nov 2006 19:37:12 GMT

�� micq 0.5.2, � �� .
��.

OpenForum RSS: ������������ �������: ������������� micq ��� �������� ICQ ����� (icq fifo perl)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (Alexey)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (GoodOkk)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (Alexey)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (�������)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (Slimy Cat)

������������ �������: ������������� micq ��� �������� ICQ ��... (ForeverYoung)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (���������)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (etz)

������������� micq ��� �������� ICQ ����� (icq fifo perl) (Timka)

OpenForum RSS: �� : �� micq �� ICQ �� (icq fifo perl)

�� micq �� ICQ �� (icq fifo perl) (Alexey)

�� micq �� ICQ �� (icq fifo perl) (GoodOkk)

�� micq �� ICQ �� (icq fifo perl) (Alexey)

�� micq �� ICQ �� (icq fifo perl) (��)

�� micq �� ICQ �� (icq fifo perl) (Slimy Cat)

�� : �� micq �� ICQ ��... (ForeverYoung)

�� micq �� ICQ �� (icq fifo perl) (��)

�� micq �� ICQ �� (icq fifo perl) (etz)

�� micq �� ICQ �� (icq fifo perl) (Timka)