Upload script

Ok!!
Jag har skrivit ner ett enkelt upload script som efter att jag skickat upp ett dokument lägger en länk till det uppskickade dokumentet.

Men jag skulle vilja skriva om scriptet till något MYCKET mer avancerat. Jag har typ 6 olika kategorier som jag skulle vilja ladda upp till och det vore ju väldigt smidigt om man kunde sköta lltihop genom samma script.

Som det är nu så har jag 6 olika script på 6 olika ställen och det hela blir ju en aning rörigt

Scriptet ser ut som följer:

#!/usr/bin/perl

$basedir = "";
$htmldir = "";
$resurl = "";
$back = "";
$allowall = "no";
$theext = ".htm";
$followup = "0";

use CGI;
$onnum = 1;
while ($onnum != 11) {
my $req = new CGI; 
my $file = $req->param("FILE$onnum"); 
$tavling = $req->param("tavling");
$datum = $req->param("datum");
$klubbnamn = $req->param("klubbnamn");
$klubbmail = $req->param("klubbmail");
if ($file ne "") {
my $fileName = $file; 
$fileName =~ s!^.*(\\|\/)!!; 
$newmain = $fileName;
if ($allowall ne "yes") {
if (lc(substr($newmain,length($newmain) - 4,4)) ne $theext){
$filenotgood = "yes";
}
}
if ($filenotgood ne "yes") { 
open (OUTFILE, ">$basedir/$fileName"); 
print "$basedir/$fileName<br>";
while (my $bytesread = read($file, my $buffer, 1024)) { 
print OUTFILE $buffer; 
} 
close (OUTFILE); 
}
}
$onnum++;
}

   open(MAIN,"$htmldir") &#0124;&#0124; die $!;
   @main = <MAIN>;
   close(MAIN);

   open(MAIN,">$htmldir") &#0124;&#0124; die $!;
   if ($followup == 0) {
      foreach $main_line (@main) {
         if ($main_line =~ /<!--begin-->/) {
            print MAIN "<!--begin-->\n";
            print MAIN "<table width=500 border=0 cellspacing=1 cellpadding=2>\n";
            print MAIN " <tr>\n";
            print MAIN "  <td width=15% height=15 bgcolor=#999999><div align=center font face=verdana size=1 color=black alink=black vlink=black link=black>$datum</font></div></td>\n";
            print MAIN "  <td width=58% height=15 bgcolor=#9999CC><div align=center font face=verdana size=1 color=black alink=white vlink=white link=white><a href=$resurl/$newmain>$tavling</a></font></div></td>\n";
            print MAIN "  <td width=27% height=15 bgcolor=#999999><div align=center font face=verdana size=1 color=black alink=black vlink=black link=black><a href=mailto:$klubbmail>$klubbnamn</a></font></div></td>\n";
            print MAIN " </tr>\n";
            print MAIN "</table>\n";

         }
         else {
            print MAIN "$main_line";
         }
      }
      close(MAIN);
   }

print "Content-type: text/html\n";
print "Location:$back\n\n";

if ($FORM{'tavling'} =~ /.*\@.*\..*/) {
   $tavling = "$FORM{'tavling'}";
   $tavling =~ s/\&/\&\;/g;
   $tavling =~ s/"/\"\;/g;
}