Записки шизанутого кота

примерно тут
link

#!/usr/bin/env perl
use strict;
use warnings;
use Mail::IMAPClient;
use IO::Socket::SSL;
use Net::SMTP::SSL;

#list of ignored usernames
my @inames = qw/isage mahou_shoujo_ai agat_chibi/;

sub send_mail {
        my $to = $_[0];
        my $subject = $_[1];
        my $body = $_[2];

        my $from = '****@gmail.com';
        my $password = '***';

        my $smtp;

        if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                            Port => 465,
                            Debug => 0)) {
           die "Could not connect to server\n";
        }

$smtp->auth("****", $password)
   || die "Authentication failed! $@\n";

        $smtp->mail($from . "\n");
        my @recepients = split(/,/, $to);
        foreach my $recp (@recepients) {
                $smtp->to($recp . "\n");
        }
        $smtp->data();
        $smtp->datasend("From: " . $from . "\n");
        $smtp->datasend("To: " . $to . "\n");
        $smtp->datasend("Subject: " . $subject . "\n");
        $smtp->datasend("Content-Type: text/plain; charset=UTF-8\n");
        $smtp->datasend("\n");
        $smtp->datasend($body . "\n");
        $smtp->dataend();
        $smtp->quit;
}

# Connect to the IMAP server via SSL
my $socket = IO::Socket::SSL->new(
   PeerAddr => 'imap.gmail.com',
   PeerPort => 993,
  )
  or die "socket(): $@";

# Build up a client attached to the SSL socket.
# Login is automatic as usual when we provide User and Password
my $client = Mail::IMAPClient->new(
   Socket   => $socket,
   User     => '***',
   Password => '***',
   #Debug => 1
  )
  or die "new(): $@";

print "I'm authenticated\n" if $client->IsAuthenticated();
$client->select("lj");

my $header;
my $adress;
my $fname;
my $ljid;
my $line;
my $i;
my @msgbody;
my $mcnt=$client->message_count();
print $mcnt, "\n";
my @messages=$client->messages;
my $bso;
foreach $i (@messages) {
        $header=$client->get_header($i,"From") or $header="";

        #$msgbody=$client->body_string($i) or $msgbody="";

        $bso = $client->get_bodystructure($i);
        @msgbody=$bso->textlines;
        print $header, "\n ";
        print join("\n* ", 'Body:', @msgbody), "\n";
        print $i, "\n";
        $adress = $1 if ($header =~ m/[<"]?([^\s@]+@[^\s@>"]+)"?>?/);
        $fname = $1 if ($header =~ m/"?([a-zA-Z0-9\s_-]+)"?/);
        $ljid = $1 if ($fname =~ m/([a-zA-Z0-9_-]+) /);
        #$ljid = $1 if ($fname =~ m/ in ([a-zA-Z0-9_-]+)/);
        if ($fname =~ m/ in isage/) {
                if(grep $_ eq $ljid, @inames) {}
                else {
                        print $adress, "\n";
                        print $ljid, "\n";
                        open (FILE,"base.isage.txt") or die $!;
                        srand;
                        rand($.) < 1 && ($line = $_) while <FILE>;
                        close (FILE);
                        print $line, "\n";
                        &send_mail($adress, "", $line);
                }
        }
        $client->delete_message($i);
}


# cleanup folder and say bye
$client->expunge("lj");
$client->logout();

и немного о том как оно работает.
работает оно через 4lj
все письма оттуда получают лейбл lj (настроено в фильтрах гмыла)
остальное я думаю понятно и так.

1) рост: 193
2) вес: в районе 60-65
3) да, у меня дистрофия (наверное)
4) глаза серо-голубые, по настроению
5) волосы темные с переменным блондинистым окрасом
6) пиво: темное. крушовице или василеостровское. за неимением - килкени.
7) пиво я пью с солью и черным перцем.
8) что покрепче: лонг айленд. текила -> абсент.
9) курево: легкий лм, вишневый кэптен блек. кальян.
10) нет, я не добрый, чуткий и заботливый. я озлобленный, эгоистичный и жестокий. не стоит себя обманывать.
11) леньтяй до мозга костей, 2-3 раза в год впадаю в тотальную апатию и могу днями спать.
12) чтобы выспаться мне хватает 3 часа в сутки
13) черный кофе. натуральный. без молока, сливок и сахара.
14) я никогда в жизни не пробовал наркотики. никакие. и не хочу.
15) я не люблю высоких длинноногих блондинок, за редким исключением. миниатюрные брюнетки лучше.
16) у меня мания величия и как минимум растроение личности. справки нет, боюсь что с ней меня просто не выпустят
17) и маниакально-депрессивный психоз, да.
18) я очень много курю
19) я могу думать несколько мыслей одновременно и не думать вообще ни о чем
20) я почти не вижу снов
21) у меня либо рассеяное внимание либо легкий склероз. я практически не запоминаю происходящие события.
22) я люблю всех девушек, которых когда то любил. до сих пор. неважно как мы расстались и в каких отношениях. я просто неумею забывать
23) несмотря на то, что я с легкой руки Зуу - кот, люблю я собак и волков. и крыс.
24) у меня живут кролик, крыса и мамин попугай. попугай мерзкий, кролик злобный, а крыса уже пятая или шестая.
25) я люблю спорить о сферических конях в вакууме.
26) больше всего я люблю спорить с пьяным быдлом.
27) я, пожалуй, никогда в жизни не дрался. так чтоб по-настоящему.
28) я люблю привлекать внимание
29) у меня боязнь толпы.
30) и куча других комплексов, на которые, как вы знаете, мне похуй.
31) дома у меня жуткий бардак, убирающийся раз в пару месяцев, либо по приезду гостей.
32) мне нравится отдыхать в москве, но я никогда бы не согласился там жить.
33) терпеть не могу спать на спине
34) мне плевать на моду, на стили, плевать на диффиренциацию по направлениям музыки.
35) ВЫ НЕ ХОТИТЕ ВИДЕТЬ МЕНЯ РАЗОЗЛЕННЫМ
36) я постоянно притворяюсь. у меня тысячи лиц. и где-то среди них я давно потерялся.
37) я обычно пишу стихи когда влюбляюсь или расстаюсь. но бывают исключения.
38) с тремя лучшими друзьями детства я не общаюсь уж много лет как.
39) мне плевать на прошлое, плевать на будущее. есть только сегодня, на которое, субьективно, тоже плевать.
40) я люблю и ненавижу весь мир.
41) незамечен, не привлекался, не обвинялся.
42) в армии не служил и не буду.
43) за день я выпиваю около 3х литров чая. либо кофе в будни.
44) у меня непереносимость к йогуртам и прочим кефирам.
45) я люблю очень соленое и острое. китайскую кухню например.
46) я не видел отца с 3х лет. и ненавидел отчима до 7ми.
47) у меня две сестры(младшие) и вроде как умерший при родах старший брат. их я тоже никогда не видел.
48) я всего один раз летал на самолете. но этого я не помню.
49) сейчас я уйду спать. и это тоже неоспоримый факт.
50) я заебался пока это писал.

осенняя депрессия и апатия. ничего не хочется
---
завтра будет хардсаб на casshern sins
---
двач все еще переодически доставляет, надо же
---
на аюми скоро будет много вкусного, обещаю.
---
по результатам недавнего поста - никто из френдов мне не дал бы. отлично.
впрочем это, пожалуй, взаимно. за 1-2 исключениями.
---
зато я снова вижу сны.
---
philips xenium 9@9q black get
---
я потихоньку продолжаю писать ирк-бота с ядром на с++ и скриптами на перле. осталось всего-ничего — прикрутить перл.
---
писать нехочется. наблюдать за окружающим миром тоже.

как жаль что это лишь сон.
странный, в котором я знал что это сон, и который видел уже в пятый раз, но все же просто сон.
все будет хорошо...

— чем я могу Вас отблагодарить, добрый человек?
— да бросьте, ничем.
— хм, и действительно, нечем.

ой, а давайте я вам немного расскажу о махе.
т.к. все уже по сути знают что она бот.

так вот, перво-наперво, маха - бот в ирц. на основе эггдропа с приметивнейшим поведением. но это было начало.

вторая инкарнация - маха в жж. построена она по тому же принципу что описывал apazhe и на котором основана дурка Юки , т.е. на сервисе http://4lj.mivlad.net//за той лишь разницей что она имеет отдельный аккаунт и написана на православном перле (feel da powah of regexp). самое интересное что второй раз фокус с отдельным акком неполучился)

еще один скриптик на перле дергает картинки с коначана , реаплоадит на имейджшак, постит через xml-rpc в жежешечку и, наконец, через свою ирц-инкарнацию выдает ссылочку на канал.

у меня еще лежит недописаный текстогенератор для нее, so stay tuned.

вот любопытно. есть фантомные боли. есть наркотические флешбеки.
а с похмельем есть подобное?

если вокруг все пидорасы, то понятна демографическая ситуация в стране.

сочинил дурацкое стихотворение (точнее переделал свое же старое), вся его прелесть в многосмысленности. (искать смыслы оставлю вам и дедушке Фрейду.):

тихое озеро где-то в лесу,
все уже в жопу, а я все сосу.

я впервые испугался своих глаз в зеркале. значит все в порядке, значит последний кирпичик на месте.