#!/usr/bin/perl -w

# 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 <invio>

# 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 <= 16) {
	my $file_to_download = "";
	if ($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");
}

#Ricompongo il video
print "Ricreo il video, plz stand by";
system ("rar e radunoweb.part01.rar");