Month: September 2006

# Utilizza il perl e wget.
# Cose che si trovano normalmente su ogni distribuzione decente.

# Disclaimer. Usate a vostro rischio e pericolo.
# Se nell'utilizzare questo script la vostro moto si impennera',
# Se prendera' fuoco il computer, o qualcosa di molto vicino,
# o se plutone ridiventerà un pianeta io non ne ho nessuna colpa,
# e credo nemmeno voi.

# Licenza : Public Domain

# USAGE
# 1. Rendetelo eseguibile
# % chmod 755 scarica_video.pl

# 2. lanciatelo con una connessione attiva.
# % ./scarica_video.pl

# Poi s'arrangia :)

use strict;

my $i = 1;
my $url = "http://xt600.altervista.org/video/";
# pag generale http://xt600.altervista.org/video.php
while ($i = 10) {
# Scarico dal 10 al 16
$file_to_download = "radunoweb.part$i.rar";
}
else {
# Scarico dal 01 al 09
$file_to_download = "radunoweb.part0$i.rar";
}
if (!-e($file_to_download)){
system ("wget $url$file_to_download");
}
$i++;
}

#Scarico l'ultimo pezzo
if (!-e "definitivompg1.mpg") {
exec ("wget http://xt600.altervista.org/video/definitivompg1.mpg");
}