Hallo,
weiß jemand welche Besonderheiten es gibt wenn man von einer Windows Workstation eine Datei auf einen Unix-Server auf dem ein Share ingerichtet ist?
Beim Formular z.B. oder beim Uploadskript?
Mein Uploadskript schaut so aus.
#!/usr/bin/perl
use CGI;
use Cwd qw(cwd);
use WebCenter;
my $timestamp = time();
my $scriptname = "checkin1.pl";
my ($dir) = ($ENV{SCRIPT_FILENAME} =~ q#(.*)/#);
sub form {
use Apache::Request;
my $r = Apache->request();
my $apr = Apache::Request->new($r);
my @keys = $apr->param;
my %form;
foreach my $key(@keys) {
my @value = $apr->param($key);
next unless scalar @value;
if ( @value > 1 ) {
$form{$key} = \@value;
} else {
$form{$key} = $value[0];
}
}
my $upload = $apr->upload;
if ($upload) {
$form{UPLOAD} = $upload;
}
return \%form;
}
my $form = form(); # Wherever you put this function
my $msgID = $form->{msgID};
my $saveDir="files";
if (my $file = $form->{UPLOAD}) {
($filename) = $file->filename =~ m/[\\\/]([^\\\/]+)$/; # If you need the name
# Save the file at $filelocation
if ( open(F, ">\\ural\icd\$saveDir\${filename}") ) {
my $filehandle = $file->fh;
while (my $d = <$filehandle>) {
print F $d;
}
close F;
} else {
$r->log()->error("Ich hab ein Problem(...chen):\n$!\n");
}
}
#-------------------------
print "Location: done.html\n\n";
Vielleicht kann mir ja jemand helfen weil ich weiß nicht wo das Problem liegt.
hab auch beim formular method auf "post" gesetzt funktioniert ja auch wenn ich auf einen anderen Server hochlade. Bloß auf den Unix-Share lässt sich die Datei nicht ablegen. Hab auch alle Rechte d.h. r,w und x.
Gruß
ledzep