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;
}

------------------
MVH / Coercri

[Redigerat av Coercri den 10 sep 2000]

Det vore ju bra om man kunde tillåta "uploads" till 6 olika dir. fast göra någon form av inlogning där man väljer vilket dir innan man börjar ladda upp.

Det är nog bäst för annars blir det en massa arbete för mig med redigering av felaktigt skickade filer.

------------------
MVH / Coercri

[Redigerat av Coercri den 10 sep 2000]

Någon som använder Perl fortfarande ??

------------------
MVH / Coercri

Någon som använder Perl fortfarande ??

Jajamensam!
Har dock inte kunskapen att ge dig ett korrekt svar på din fråga. Tyvärr!

//demo