Програма для автозакачки

APOSTOL · Отправлено: **22:52, 01-01-2003** | #2

Цитата:

выходиш из сети

а качать-то как?

Но вообще-то ReGet Delux -у назначаешь путь, куда сваливать то, что укажешь сваливать - сам разберётся.

Ginger · Отправлено: **04:08, 02-01-2003** | #3

точно.... ReGet Delux рульная вещь....

SIM · Отправлено: **11:25, 02-01-2003** | #4

Ginger
APOSTOL
Вы не поняли.Она будет на серваке лежать.

[s]Исправлено: SIM, 23:07 2-01-2003[/s]

APOSTOL · Отправлено: **22:50, 02-01-2003** | #5

То есть это не И-нет, а локальщина?

То есть хочется задать внешним управлением серваку программу (пусть работает) и отключиться от него?

SIM · Отправлено: **23:06, 02-01-2003** | #6

APOSTOL
Да, типа того.

APOSTOL · Отправлено: **23:26, 02-01-2003** | #7

А-а... Это программы удалённого управления. Это к Maxvell-у.

Lexa veider · Отправлено: **22:11, 05-01-2003** | #8

StarDownloader отличнейшая штука высасывает из модема все что можно!!!!

SIM · Отправлено: **23:47, 05-01-2003** | #9

Lexa veider
Ты читал, что тут до этого писали?

[s]Исправлено: SIM, 23:55 5-01-2003[/s]

mar · Отправлено: **00:16, 06-01-2003** | #10

ну, в принципе это должна быть программа автономной закачки. Если найдутся желающие посоучаствовать, можно такое собрать.
У меня есть работающий Perl-овый кусок, который скачивает указанную страницу с сервера и кладет в указанный каталог.
Это программка-робот, она у меня живет на сервере, и работает по крону (crond)
Легко превратить ее в cgi c web-управлением

Если нужно скачивать не файл, а сайты целиком, то не отзовется ли кто-нибудь, кто *писал функции обхода сайта со сбором ссылок?

Код:

#!/usr/local/bin/perl 
use IO::Socket;

$informer="место, куда кладем на нашем сервере";
$doc="адрес документа на удаленном сервере, например /qq.txt";
$remote = IO::Socket::INET->new (Proto=> "tcp",
 * * * * * * * * * * * * * * * * PeerAddr => "адрес их сервера",
 * * * * * * * * * * * * * * * * PeerPort => "порт их сервера",
 * * * * * * * * * * * * * * * *) or die "cannot connect to http port at localhost";
print $remote "GET $doc HTTP/1.0\n\n"; # запрос

#открываем файл на запись
open(QQ, ">$informer")|| die("cannot print to data's file $fname");
while (<$remote>) 
 {
 if($_ eq "\n") {$start=1;}
 if($start==1) {#chomp(); #$m=$_;}
 *$m=$_;
 *# ну, я там дальше на ходу редактирую файл, 
 *# у меня это все получает погодный информер, 
 *# переделывает и пишет себе
 *# а то можно обойтись $_
 * print QQ $m || die("cannot write to file"); * 
 *}#fi
 }
close (QQ); # закрыли наш файл
close $remote; # закрыли соединение

[s]Исправлено: mar, 0:36 6-01-2003[/s]