Help for this page

Select Code to Download

Select or download this

 my $file= param(UPLOAD_FILE);
    if (!$file) { graceful_exit("No File!");}
...
    open FILE, "<".FILESHARE_DIR or graceful_exit("Can't read director
+y file");
    chomp(my $directory = <FILE>);
    sysopen (OUTFILE, "$directory/$file", O_WRONLY | O_CREAT) or grace
+ful_exit("Can't create file!");