Новый спам от ALC
Jul. 28th, 2003 05:54 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
beldmitAMERICAN LANGUAGE CENTER ЦЕНТР РАЗГОВОРНОГО АНГЛИЙСКОГО
К сожалению наши телефоны сейчас заблокированы, поэтому просьба обращатся по
ICQ -
ICQ# 6846665 консультант
ICQ# 6448516 консультант
ICQ# 1001118 консультант
ICQ# 2275557 менеджер
ICQ# 10363 рекламный отдел
Ни у кого нет робота, который шлет мессаги по аське?
К сожалению наши телефоны сейчас заблокированы, поэтому просьба обращатся по
ICQ -
ICQ# 6846665 консультант
ICQ# 6448516 консультант
ICQ# 1001118 консультант
ICQ# 2275557 менеджер
ICQ# 10363 рекламный отдел
Ни у кого нет робота, который шлет мессаги по аське?
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, потому что пользоваться игнор-листом они научатся быстро. Опять же, вопросы можно и разнообразить, чтобы они иногда тратили время на прочтение. :)