#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use strict;
use warnings;

open(my $fh_titel,"<titel.txt") or die $!;
my @titel=<$fh_titel>;
close($fh_titel);

open(my $fh_url,"<urls.txt") or die $!;
my @urls=<$fh_url>;
close($fh_url);

open (my $fh_sql,">sql.txt") or die $!;

my $subkat = 6;

for my $i(0..scalar(@titel)-1){
   if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
       my $zahl=substr($titel[$i],0,4);
       if($zahl =~ /^\d+$/){
           if   ($zahl<=500){$subkat=5;}
           elsif ($zahl<=1000){$subkat=4;}
           elsif ($zahl<=1500){$subkat=3;}
           elsif ($zahl<=2000){$subkat=2;}
           elsif ($zahl<=2500){$subkat=1;}
           #if($zahl ne ($altezahl+1)){print ($altezahl+1)." fehlt \n";}

           my $romname=$titel[$i];
           $romname =~ s/\n*?$//;
           $romname=~s/'/\\'/g;

           my $romurl=$urls[$i];
           $romurl =~ s/\n*?$//;
           $romurl=~s/'/\\'/g;

           my $romscreen="http://www.rom-stuff.de/screens/".$zahl."b.jpg";
           print $fh_sql "INSERT INTO `files`(`kat_id`,`sub_kat_id`,`filename`,`downloadfile`,`screen`) VALUES (1, $subkat, '$romname', '$romurl', '$romscreen');\n"
       }
   }
}
   
close $fh_sql or die $!;

[Sat Jul 15 17:37:20 2006] [error] [client 217.228.39.7] Premature end of script headers: /kunden/pages/e7/f4/d0005511/home/htdocs/cgi-bin/makesql.pl