CGI/Perl Upload Script

[willy96]

Hi

Danke nochmal habe es jetzt hiermit hinbekommen:
Also von mir aus als Gelöst markieren ;)

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(-utf8);
use File::Copy;
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;
$CGI::POST_MAX = 300_000_000;

my $c = CGI->new;

if($c->param)
{
        print $c->header(-charset => 'utf-8'), $c->h2('Result');

my $fh = $c->param('upfile');      # Get the FileHandle from temp-File
        my $source = $c->tmpFileName($fh); # get the source filename
        my $dest = $fh;                    # scalar context, origin filename from UserAgent
        my $ref = [fileparse($dest)];      # Dateiname in [0]
        print "Der Upload war Erfolgreich";
        copy $source, "/var/www/user/$ref->[0]";
        print   $c->h2('Navigation'),
                $c->start_form( -enctype => 'multipart/form-data'),
                $c->button(-name => 'back', -value => 'back', -onclick => 'javascript:history.go(-1)');
                $c->button(-name => 'back2', -value => 'user', -onclick => "location.href = 'http://hierlink'";
                $c->end_form;

}

else{ # Erzeuge das Upload-Formular
        print $c->header(-charset => 'utf-8'),
                $c->h2('send a file'),
                $c->start_form( -enctype => 'multipart/form-data'),
                $c->filefield(-name => 'upfile'),
                $c->submit(-name => 'upload', -value => 'Datei hochladen'),
                $c->reset(-name => 'clear', -value => 'Feld löschen'),
                $c->button(-name => 'back', -value => 'Zurück zu user', -onclick => "location.href = 'http://hierlink'";
                $c->end_form;
        }