#!/usr/bin/perl
use LWP::Simple;

$elem1 = "http://www.test.de/subfolder/";
$elem3 = "http://www.test.de/subfolder/de/";

# --------- Logfile ----------------------------
my $delimiter = "\t";

my $logfile = "errorlog.txt";
my $datum = localtime();
my $logmsg = "$datum $ENV{USER} Broken Links";
open LOGFILE, ">$logfile" or die $!;
print LOGFILE $logmsg, "\n";

# --------- Open File -----------------------
open(READ,"Linkfile.csv") or die $!;
while (my $line = <READ>){
	if($line=~/\d+\t/){
		my @liste = split($delimiter,$line);
		push(@urls,$liste[2]);
	}
}
close READ;
# ----------------------------------------------
foreach (@urls) {
	chomp($_);
    if (head($_)) {	
     print $_." is working.\n\n";
    	
    } else {
    
    print $_." is broken.\n\n";
    	open LOGFILE, ">>$logfile" or die $!;
		print LOGFILE "\n".$_." is broken.";
		close LOGFILE;
    
    $tmp_url = "$_.";
    @array=split(/\?/,$_);
	$myString = $array[0];
	
	if ($myString =~ m#http:\/\/www.test.de\/subfolder\/de\/#) {
		$myString =~ s#http:\/\/www.test.de\/subfolder\/de\/##;	
			$newUrl = $elem1.$myString;
	} else {
		$myString =~ s#http:\/\/www.test.de\/subfolder\/##;
		$newUrl = $elem3.$myString;	
	
	print $newUrl." generated \n\n";
	
	} 
	if (head($newUrl)) {
		
     print $newUrl." is working.\n\n";     
        open LOGFILE, ">>$logfile" or die $!;
		print LOGFILE "\n".$newUrl." is working.\n";
		close LOGFILE;
     
    } else {
    
    print $newUrl." isn't working, too.\n\n ";
		open LOGFILE, ">>$logfile" or die $!;
		print LOGFILE "\n".$newUrl." isn't working, too.\n";
		close LOGFILE;
     }
    }	
}