Hilfe passwort wird nicht geklärt... [Archiv]

klaus100000

23-10-2002, 16:15

Ich habe ein script gemacht welches ein upload macht

das macht es auch aber das übernommen Passwort führt zu keiner reagieton
wir immer uploadet :confused:

#!/usr/bin/perl -w

use strict;
use CGI; # Modul fuer CGI-Programme

my $cgi = new CGI; # neues Objekt erstellen

# Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');

# die datei-daten holen
my $file = $cgi->param("myfile");
my $file1=$file;
if ($file1 =~ /(.*)\\(.*)/) {
print "$2";
}
my $sicher = $cgi->param("sicher");
my $sicher1="uwe";

if ($sicher == $sicher1) {
# dateinamen erstellen und die datei auf dem server speichern
my $fname = '/home/uwe/public_html/uploads/Tools/susi/'.$2;
open DAT,'>'.$fname or die 'Error processing file: ',$!;

# Dateien in den Binaer-Modus schalten
binmode $file;
binmode DAT;
my $i=0;
my $data;
while(read $file,$data,1024) {
print DAT $data;
$i++;
}
close DAT;

print <<HTML;
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFF00">
<h1>Die Datei $2 wurde erfolgreich hochgeladen.</h1>
<p>
Die Datei $fname wurde erfolgreich auf dem Server gespeichert.
<br>
$sicher
</p>
</body>
</html>
HTML
} else {
print <<HTML;
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFF00">
<center><h1>PASSWORT FALSCH</h1>
</body>
</html>
HTML
}

der aufruf kommt von hier

<form action="http://klaus100000.dynip.de/cgi-bin/testupload.cgi" method="post" enctype="multipart/form-data" >
<input type="file" name="myfile" accept="text/*" maxlength="2097152"><BR>
Ihr Passwort bitte <BR>
<input type="password" name="sicher" size=""><BR>
 <BR>
<input type="submit"><input type="reset">
</form>

ich hoffe ihr seht den Fehler

ich breche mir gerage die ohren daran.

Gruss Uwe