#!/usr/bin/perl

use strict;
use warnings;
#use LWP::Simple;

# Variablendefinition
my $url='';

# Verzeichnis in welchem ich mich befinden muss 
my $pfad='C:/Perl/eg/';
# Definition des Bereiches in GRAD:   -6,36.2,-2,37.5
# Liste mit den Defintionen für den Kachel-Download
my $liste='Garmin-Images-4-ES-Andalusien.txt';
# URL zum Verezeichnis mit den Image-Dateien - endet auf BACKSLASH !!!
my $url4image='http://osm.ammit.de/osm/latest/img/';
#Prefix für die Pack-Datei
my $bz_prefix='.bz';


# Programm zum entpaken der bzip2-komprimierten Dateien
# sollteste du installieren, oder etwas anders nutzen.
#quelle: http://www.digistar.com/bzip2/v100/bzip2-100-x86-win32.exe
my $unzip='C:/Perl/eg/gzip -d'; # < Das ist ein Programm, ich glaube nicht, dass es so gefunden wird

# öffnen der Liste mit den Image-Dateien
open(my $fh, '<', $liste) or die "Fehler bei open $liste ($!)\n"; # < immer den Fehlergrund mit ausgeben

# Auslesen der Dateinamen
while(my $kachelname=<$fh>){
   chomp($kachelname);
   $url=$url4image.$kachelname.$bz_prefix;
   print $url;
   my ($file)=$url=~m|/([^/]+?)$|;
   # etwas ausfuerlichere Ausgabe der Fehler beim Download
   # zudem wird jetzt nur entpackt wenn wirklich was herunter geladen wurde.
   my $rc=getstore($url, "$pfad$file");
   if( is_success($rc)){
     system("$unzip $pfad$file") ==0 or warn "Fehler bei $unzip $pfad$file ($@)\n"; # < Fehlergund ausgeben
   }else{
     warn "Fehler bei download $url nach $pfad$file (".status_message($rc).")\n"; # < Fehlergrund mit ausgeben
   }
 }
 close($fh);