Löschliste bereitstellen

[willy96]

Achso hier mal mein Script:

#!/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_000;

my $c = CGI->new;

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

my $fh = $c->param('delfile');      # 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 Delete war Erfolgreich";
        unlink $source, "/var/www/Fileserver/$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 => 'zum Fileserver', -onclick => "location....")
                $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->textfield(-name => 'delfile'),
                $c->submit(-name => 'remove', -value => 'Datei löschen'),
                $c->reset(-name => 'clear', -value => 'Feld löschen'),
                $c->button(-name => 'back', -value => 'Zurück zum Fileserver', -onclick => "location....")
                $c->end_form;
        }