FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.HUSKY


	Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

Введите FGHI ссылку:

Присутствуют сообщения из эхоконференции RU.HUSKY с датами от 16 Jul 13 10:00:06 до 03 May 24 13:56:51, всего сообщений: 5322

Ответить на сообщение

К списку сообщений

Предыдущее сообщение

Следующее сообщение

= Сообщение: 3517 из 5322 ========================================= RU.HUSKY =
От   : Brother Rabbit                   2:460/5858         08 Dec 18 12:02:00
Кому : Michael Dukelsky                                    08 Dec 18 12:02:00
Тема : perl
FGHI : area://RU.HUSKY?msgid=2:460/5858+5c0b89c3
На   : area://RU.HUSKY?msgid=2:5020/1042+5c0abd22
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.HUSKY?msgid=2:5020/1042+5c0b9470
==============================================================================
Hi, Michael!

07 дек 18 21:23, Michael Dukelsky -> Brother Rabbit:

MD> my @args = ("/path/to/uudecode", "-o", "$ofile", "$ofile\.uue");
MD> system(@args);

Я пошел другим путем. ;)

=== Import Windows Clipboard Start ===
        my $uudecoded_data = "";
        if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r(.*\r)end\r/i ){
                $ofile = "$uuedir\\$1";
                $uuelines = $2;
                open(F, ">>$ofile");
                binmode(F);
                while( $uuelines =~ /^([^ \r]+\r)/ ){
                        $uudecoded_data = unpack("u", $1);
                        print(F $uudecoded_data);
                        $uuelines =~ s/^[^\r]+\r//;
                }
                close(F);
        }
=== Import Windows Clipboard End ===

Здесь, видимо, нужно еще проверять $ofile на наличие и если он уже есть, выбирать другое имя или удалять старый.

Have nice nights.
       Brother Rabbit.

--- Если ложка не стоит в сметане, очевидно, виновата не ложка!
* Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)

К главной странице гейта