Help for this page

Select Code to Download

Select or download this

$file =~ m/^.*(\\|\/)(.*)/;
my $file_name = $2;

open (FILE, "$name") or die "unable to open file";

Select or download this

my %allowed_files = (
    file1  => '/path/to/file1', 
...
# $file already processed from CGI params
my $file_name = defined($allowed_files{$file}) ? 
    $allowed_files{$file} : die "Bad file name\n";