Andreas Flückiger: (ZU DIESEM FORUM) FORUM archiv - offline suchen

Beitrag lesen

Hallo Michael

Ich hab' mal ein Perl-Script geschrieben, dass diese Datei automatisch *Updatet*. Aber einmal vollständig herunterladen muss man sie halt trotzdem.

Irgendwie klingt das nach einem Widerspruch.
Kann Dein Skript den Index inkrementell erweitern?
Wenn ja, wieso kannst Du dann nicht mit einem leeren Index anfangen und dann ein Archiv-Verzeichnis nach dem anderen hinzufügen?

Mit Updaten meine ich, dass mein Script die Datei sfa_idx.txt vom teamone-Server holt, und nicht, dass aus den Archivdateien der Index erweitert wird. Am besten poste ich mal das Script.

Gruss
Andreas

--------------------
#!/usr/bin/perl

$idxDatei = "../selfhtml/sfarchiv/sfa_idx.txt";
$url      = "http://www.teamone.de/selfhtml/sfarchiv/sfa_idx.txt";
$filelock = 0;

open(IDX, ">>$idxDatei") or die "Can't open $idxDatei: $!";
if($filelock) { flock(IDX, 2) or die "Can't lock $idxDatei: $!" }

$bytes = -s IDX;

use LWP::Simple;
if($bytes < (head($url))[1])
{
use HTTP::Headers;
$header = new HTTP::Headers;
$header->header(Range => "bytes=$bytes-");

use LWP::UserAgent;
$ua = new LWP::UserAgent;
$request = HTTP::Request->new(GET, $url, $header);

binmode IDX;
$response = $ua->request($request, sub { print IDX $_[0] });
}

close(IDX) or die "Can't close $idxDatei: $!";