File Manager

Hackfut Security File Manager

Current Path: /usr/share/perl5/CGI/examples

📁 ..
📁 WORLD_WRITABLE
📄 caution.xbm(741 B)
📄 clickable_image.cgi(808 B)
📄 cookie.cgi(2.21 KB)
📄 crash.cgi(131 B)
📄 customize.cgi(2.4 KB)
📄 diff_upload.cgi(1.56 KB)
📄 file_upload.cgi(1.95 KB)
📄 frameset.cgi(2.03 KB)
📄 index.html(3.41 KB)
📄 internal_links.cgi(1019 B)
📄 javascript.cgi(2.98 KB)
📄 make_links.pl(196 B)
📄 monty.cgi(2.04 KB)
📄 multiple_forms.cgi(1.56 KB)
📄 nph-clock.cgi(359 B)
📄 nph-multipart.cgi(263 B)
📄 popup.cgi(1 KB)
📄 save_state.cgi(2.26 KB)
📄 tryit.cgi(780 B)

Editing: file_upload.cgi

#!/usr/local/bin/perl -w

use strict 'refs';
use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

print header();
print start_html("File Upload Example");
print strong("Version "),$CGI::VERSION,p;

print h1("File Upload Example"),
    'This example demonstrates how to prompt the remote user to
    select a remote file for uploading. ',
    strong("This feature only works with Netscape 2.0 or greater, or IE 4.0 or greater."),
    p,
    'Select the ',cite('browser'),' button to choose a text file
    to upload.  When you press the submit button, this script
    will count the number of lines, words, and characters in
    the file.';

my @types = ('count lines','count words','count characters');

# Start a multipart form.
print start_multipart_form(),
    "Enter the file to process:",
    filefield('filename','',45),
    br,
    checkbox_group('count',\@types,\@types),
    p,
    reset,submit('submit','Process File'),
    endform;

# Process the form if there is a file name entered
if (my $file = param('filename')) {
    my %stats;
    my $tmpfile=tmpFileName($file);
    my $mimetype = uploadInfo($file)->{'Content-Type'} || '';
    print hr(),
          h2($file),
          h3($tmpfile),
          h4("MIME Type:",em($mimetype));

my($lines,$words,$characters,@words) = (0,0,0,0);
    while (<$file>) {
	$lines++;
	$words += @words=split(/\s+/);
	$characters += length($_);
    }
    close $file;
    grep($stats{$_}++,param('count'));
    if (%stats) {
	print strong("Lines: "),$lines,br if $stats{'count lines'};
	print strong("Words: "),$words,br if $stats{'count words'};
	print strong("Characters: "),$characters,br if $stats{'count characters'};
    } else {
	print strong("No statistics selected.");
    }
}

# print cite("URL parameters: "),url_param();

print hr(),
    a({href=>"../cgi_docs.html"},"CGI documentation"),
    hr,
    address(
	    a({href=>'/~lstein'},"Lincoln D. Stein")),
    br,
    'Last modified July 17, 1996',
    end_html;

Hackfut Security File Manager

Editing: file_upload.cgi

Upload File

Create Folder