· connect(NNTP, sockaddr_in(119,inet_aton($server))) || die;

· print "ok!\n";

·

· recv(NNTP,$rc,200,0); # Приглашение сервеа

· print "$rc\n";

·

· send(NNTP,"GROUP $group\r\n",0); # Выбор группы

· $group_res=«NNTP»;

· if(substr($group_res,0,3)-411)

· {

· print "$group_res\n";

· die;

·}

· print "$group_res\n";

·

· open(FH,"»$msgfile"); # Открыть файл сообщений

· print FH "$group_res\n";

· $cmdcount=0;

·

· $reader=1; # цикл

· $msgdone=0; # Сообщений прочитано

·

· while($reader)

· {

· send(NNTP,"ARTICLE\r\n",0); # Новая статья

·

· while(substr(($rc=«NNTP»),0,3)!~/\.\r\n/)

· {# Чтение статьи

·

· if (!$rc) {print "Close connection\n";die;}

· print FH $rc;

·}

· print FH $rc;

· $msgdone++; # Следующее сообщение

· print "=$msgdone;\r"; # Протокол на экран

·

· send(NNTP,"NEXT\r\n",0); # Следующее сообщение

· $nx=«NNTP»;

·

· $add=1;

· while($add)

· {

· if (substr($nx,0,1)!~/\./){$add=0;}

· if (substr($nx,0,1)=~/\./){$nx=«NNTP»;}

·

·}

· $nx++;

·

· if ($nx-422) {$reader=0;} # Выход из цикла

·}

·

· close (FH);

·

· if (open(CF,"$msgfile.gz")) # Удалить файл если он уже есть!

· {

· close(CF);

· unlink("$msgfile.gz");

·}

·

· open(FG,"|gzip $msgfile"); # Сжать!

· print "Done\n";

· close(NNTP);

·}

·

· sub LIST

· {

· print "Connect to $server…";

· socket(NNTP, PF_INET, SOCK_STREAM, getprotobyname("tcp") || 6);

· connect(NNTP, sockaddr_in(119,inet_aton($server))) || die;

· print "ok\n";

·

· recv(NNTP,$rc,200,0);

· print $rc;

·

· print "»LIST\n";

· send(NNTP,"LIST\r\n",0);

·

· open(FH,"»$listfile");

· print FH "Server: $server \nLIST:\n";

·

· $cmdcount=0;

·

· while(substr(($rc=«NNTP»),0,1)!~/\./)

· {

· $cmdcount++;

· #if ($debug) {print "$rc«BR»\n";}

· print "=$cmdcount\r";

·

· print FH $rc;

·}

· close (FH);

·

·

· if (open(CF,"$listfile.gz"))

· {

· close(CF);

· unlink("$listfile.gz");

·}

·

· print "Done\n";

· open(FG,"|gzip $listfile");

·

· close(NNTP);

· print "«HR»\n";