Стыдно, боярин, ой стыдно... У vicq есть ключ для "запуска ради отправки одной мессаги". Что тебе не хватает?
#/usr/bin/perl use strict; use warnings; my @uins=qw/6846665 6448516 1001118 2275557 10363/; while (1) { sleep(1); if ( open (PIPE, '|/usr/local/bin/vicq -c /home/beldmit/.special_UIN_config -bo')) { print PIPE "msg $_/Скажите пожалуйста, у вас есть скидки для ветеранов Великой Отечественной войны?\n" for @uins; close PIPE; } } # Я не отлаживал и не запускал этот скрипт. # По идее еёщ потребуется скрипт для регистрации новых UIN, потому что пользоваться игнор-листом они научатся быстро. Опять же, вопросы можно и разнообразить, чтобы они иногда тратили время на прочтение. :)
no subject
Date: 2003-07-28 01:24 pm (UTC)У vicq есть ключ для "запуска ради отправки одной мессаги".
Что тебе не хватает?
#/usr/bin/perl
use strict;
use warnings;
my @uins=qw/6846665 6448516 1001118 2275557 10363/;
while (1)
{
sleep(1);
if ( open (PIPE, '|/usr/local/bin/vicq -c /home/beldmit/.special_UIN_config -bo'))
{
print PIPE "msg $_/Скажите пожалуйста, у вас есть скидки для ветеранов Великой Отечественной войны?\n" for @uins;
close PIPE;
}
}
# Я не отлаживал и не запускал этот скрипт.
# По идее еёщ потребуется скрипт для регистрации новых UIN, потому что пользоваться игнор-листом они научатся быстро. Опять же, вопросы можно и разнообразить, чтобы они иногда тратили время на прочтение. :)