Настройка почтового клиента

Хорошее руководство по настройке почтового IMAP клиента  для работы с любимым Google Mail: родное руководство

БОМЖЕВАНИЮ.NET

Все вы, наверное, когда-нибудь встречали на улицах бомжей. По разным причинам оказываются люди на улицах, но главное не это, а главное то, что каждый из них это тоже ЧЕЛОВЕК, которому холодно и голодно. И не зря мы с вами платим налоги – для бездомных людей предусмотрены ночлежки, где они могут поесть и поспать в тепле. Они там могут жить, пока у них в жизни все не нормализуется. Многие обездоленные люди про это не знают. Даже если и знают, у них нет телефона, чтобы связаться с этой службой. Так давайте же не будем равнодушными и, когда увидим бездомного, расскажем ему о ночлежках, и если он не неисправимый бродяга и попрошайка, то он, конечно же, согласится туда поехать. В таком случае можно вызвать «Социальный патруль» по телефону 8 (495) 720-15-08, который приедет круглосуточно из Москвы и заберет в ночлежку бедолагу, где ему будет хорошо.

Централизованная служба по Москве по оказанию социальной помощи бездомным гражданам (08.00—16.45 по раб. дн.): 8 (495) 607-26-89, 8 (499) 488-63-60.

ЗЫ: В Москве работают бригады мобильной службы помощи бездомным «Социальный патруль». Функции этой структуры ориентированы на оказание социальной и медицинской помощи бездомным гражданам. Помочь восстановить документы, оказать медицинскую помощь, предоставить ночлег и горячую пищу, а в некоторых случаях вызволить из рабства инвалидов-колясочников, которых заставляют заниматься попрошайничеством, – прямая задача «Социального патруля».


ЗЗЫ: А еще есть телефоны Зеленоградской соцзащиты, которые тоже должны курировать эти вопросы. НО они даже на телефоны не отвечают. Несколько дней подряд туда звонил безрезультатно. Итак, телефоны: 8 (499) 735-05-71, 8 (499) 735-09-61 (корпус 1821).
Куратор: Клюквина Ирина Валентиновна. Как мне объяснили (по телефону 8 (499) 488-63-60), ее служба должна чуть ли не каждую автобусную остановку проверять на наличие бездомных. Но как многие из нас знают, один ½ года обитал себе на остановке “Электрон” и грелся в прилегающих магазинах, откуда охранники его гоняли.

Perl vs Shell

1) Make a new directory (mkdir):
mkdir FILENAME,MASK;

MASK defaults to 0777 if omitted, and FILENAME defaults to $_ if omitted. 

2) To recursively create a directory structure (mkdir -p):
use File::Path;

mkpath('/foo/bar/baz');
mkpath('/foo/bar/baz', 1, 0711);
mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
mkpath('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 });

3) Change a directory (cd):
chdir DIRNAME;

4) Delete the directory if that directory is empty (rm):
rmdir DIRNAME;

5) Delete a list of files (rm):
unlink FILENAME;
my $unlinked = unlink 'a', 'b', 'c';
unlink @goners;
unlink glob "*.bak";
foreach my $file (@goners) {
    unlink $file or warn "Could not unlink $file: $!";
}

6) Remove a directory tree recursively (rm -rf):
use File::Path;

rmtree('foo/bar/baz', 1, 1);
rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
rmtree('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 });

7) Copy or move files (cp, mv):
use File::Copy;

copy("file1","file2") or die "Copy failed: $!";
copy("Copy.pm",\*STDOUT);
move("/dev1/fileA","/dev2/fileB");

Perl:
http://alvinalexander.com/perl/edu/articles/pl020002
http://www.unix.com/shell-programming-scripting/173319-perl-shell-scrript-search-directories-taking-line-line-text-file.html
http://www.unix.com/shell-programming-scripting/173319-perl-shell-scrript-search-directories-taking-line-line-text-file.html

http://perl5maven.com/how-to-change-inc-to-find-perl-modules-in-non-standard-locations

Южный парк ДС

Общая ссылка:

http://www.youtube.com/user/VadimSPark

А вот частности:

Подлинная История Желтой Калины N1

http://www.youtube.com/watch?v=YabdzkIGjI0 

Крест Картмэна (N2) 

 

http://www.youtube.com/watch?v=XKFkjlFNrfA&feature=relmfu

Pussy Riot удаленные сцены 

http://www.youtube.com/watch?v=7o2jDrMFp9A

Бумер в Саус Парке 

http://www.youtube.com/watch?v=n-M6jUVpQGg&feature=related

Мама Кайла Сука

http://www.youtube.com/watch?v=7o2jDrMFp9A

 

 

 

Марк Цукенберг в гостях у Урганта

На днях Марк Цукенберг, создатель Фейсбука, приходил к Урганту в гости.
Подарил традиционную футболку-длиннорукаву. Несколькими часами ранее Медведеву он подарил футболку с личной Медведевской страничкой в Фейсбуке. Почему Фейсбук голубой, потому что я дальтоник, голубой цвет я вижу лучше всего. Ну очевидно в другой части света у Павла Дурова такая же проблема предположил Ваня. Почему он до сих пор жив?! Цукенберг по просьбе Вани помог настроить Ванину страничку в Фейсбуке. Ваня переодически спрашивал самого Марка Цукенберга что у того написано в той или иной графе. и сам относительно этого делал у себе соответствующим образом. Например если у Марка о себе написано: человек делающий мир лучше то Ваня попросил себе написать Человек6 знающий человека делающего мир лучше. Поговорили о личной страничке собаке Цукенберга, на которой хранятся фотки псины. Ну и в конце концов Ваня поблагодарил Марка за то что тот ему подарил футболку и настроил Фейсбук, в свою очередь предложив сообщить код домофона Павла Дурова и его адрес. А потом исправился сказав, что да наверное вы и так все это знаете. Вот как то так!

How to make alarm in Perl

o> У меня есть скрипт. Я хочу, что бы если он допустим работает больше минуты я
o> хочу его прибить. Можно ли как нить это реализовать ?

  $SIG{ALRM} = sub { die "alarm\n" };

  eval {
    alarm ($TIMEOUT);
    . . .
    alarm(0);
  };

  if ($@ && $@ ne "alarm\n") {
   print "Unknow error $@" ;
  } elsif ($@) {
   print "TimeOut";
  } else {
   print "Ok";
  }

Reference: http://www.opennet.ru/base/dev/alarm_timeout.txt.html 

======================================================================================

eval {
        local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n обязателен
        alarm $timeout;
        $nread = sysread SOCKET, $buffer, $size;
        alarm 0;
    };
    
    # если вышли по тайм-ауту $timeout
    if ($@) {
        die unless $@ eq "alarm\n";   # обработка неожиданных ошибок
    }
    # все в порядке, сработали пределах установленного времени $timeout
    else {
            #...
    }

Reference: http://blog.perl5doc.ru/perlfunc/2011/03/perlfunc-alarm.html 
======================================================================================

Есть функция solve которая в 0.001% случаях может зависнуть.  Ее
нужно прервать по таймауту.

Пишу:

      warn "started solve\n";
      my $solution;
      eval {
        local $SIG{ALRM} = sub { die };
        alarm 5;
        $solution = solve($lp);
        alarm 0;
      };
      my $is_timeout = $@;
      delete_lp($lp);
      if ($is_timeout) {
        warn "time out\n";
      } else
      {
        warn "sol $solution\n";
        if ($solution == $INFEASIBLE)
        {
          # INCONSISTENCIES DETECTED
          return 0;
        }
      }

Пишет в stderr "started solve" и все, по таймауту не выходит,
висит в 100% CPU.  В чем проблема?  как решить?

Reference: http://www.linux.org.ru/forum/development/2431784 

How to make revert in SVN

1) Method through the ass((((((((((((((((((((((

%svn info f.txt
curr rev: 3
URL

%svn copy f.txt@2 f.txt__COPY
 %svn ci f.txt__COPY -m "Comment1"

%svn del f.txt
%svn ci f.txt -m "Comment2"

%svn copy f.txt__COPY f.txt
%svn ci f.txt -m "Comment3"

2) More beautyful method:
%svn merge -r HEAD:<REV> file.txt
%svn ci file.txt -m "Comment"

3) maybe svn mv --force -r <REV>

References:
http://kharchuk.ru/svn.html#svn.ref.svn.c.merge
http://www.gnuman.ru/stuff/svn/

http://phpsuxx.blogspot.com/2011/04/svn.html
http://rmcreative.ru/blog/post/svn--otkatitsja-do-versii-x
http://rubyclub.com.ua/messages/show/6381-%D0%96%D0%B5%D1%81%D1%82%D0%BA%D0%B8%D0%B9-%D0%BE%D1%82%D0%BA%D0%B0%D1%82-%D1%80%D0%B5%D0%B2%D0%B8%D0%B7%D0%B8%D0%B9-%D0%B2-Subversion
https://www.google.ru/search?q=%D0%BA%D0%B0%D0%BA+%D0%B2%D0%B5%D1%80%D0%BD%D1%83%D1%82%D1%8C+%D0%B2%D0%B5%D1%80%D1%81%D0%B8%D1%8E+%D1%80%D0%B5%D0%B2%D0%B8%D0%B7%D0%B8%D0%B8+%D0%B2+svn&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a
http://svnbook.red-bean.com/en/1.2/svn.branchmerge.commonuses.html#svn.branchmerge.commonuses.undo
http://svnbook.red-bean.com/nightly/en/svn.branchmerge.advanced.html#svn.branchmerge.advanced.undo
http://www.gnuman.ru/stuff/svn/