#!/usr/bin/perl # # This program demonstrates directory listing. # It is often used for File Managers, or simply browsing server files. # # Features: Sort lexically, and seperate folders from files. # use CGI qw/:standard/; ## Defining variables: ## $dirpath retrieve its value from the input called "path". ## @FolderContent, @Folders, @Files are array variables to be used later on. ##$dirbase = "/home/homepages/stevenschoir/Notes/"; $dirbase = "/opt/apache/htdocs/stevenschoir/Notes/"; $dirend = param('path') if param('path'); ## Fix for browsing sub folders if (index($dirend,"..") > -1){ $dirend=""; } $dirpath = "$dirbase/$dirend"; use vars qw/@FolderContent, @Folders, @Files/; ## Change current path/folder to $dirpath. chdir $dirpath; ## Open folder, preparing it for reading. unless (opendir DIR,'./') { print "Cannot open directory $dirpath: $!\n"; exit; } ## Collect all objects in the folder into an array variable. ## Also sort them lexically. @FolderContent = sort readdir DIR; closedir DIR; ## Go through each objects collected. foreach $FolderContent(@FolderContent) { ## If this object is a folder... if (-d $FolderContent) { ## Put it in the @Folders array variable. push(@Folders, $FolderContent); ## If it is not a folder (so it is a file). } else { ## Put it in the @Files array variable. push(@Files, $FolderContent); } } @dirlist = split("/",$dirpath); $lastdir = ""; foreach $dirlist(@dirlist){ $lastdir=$dirlist; } @headerdata; $headerfile = "/opt/apache/htdocs/stevenschoir/header.shtml"; open(HEADERDATAFILE, $headerfile) || die &error_file; @headerdata = ; close(HEADERDATAFILE); ## Print header and HTML title (to be viewable in browser). print "Content-type: text/html\n\n"; foreach $headerdata(@headerdata){ print "$headerdata"; } print "\n

\n"; print "\n

\n"; print "\nBack to the Main Notes Folder\n"; print"\n\n"; ## Go through each Folders Objects. print "

$lastdir

"; foreach $Folders(@Folders) { ## Print out the folders first. ## Check to Omit . and .. if($Folders ne "." && $Folders ne ".."){ if($dirend ne ""){ print "\n$Folders
\n"; }else { print "\n$Folders
\n"; } } } ## Then go through each Files Objects. foreach $Files(@Files) { ## Print out the files. print " -1){ print " type=\"application/pdf\" "; } if(index(lc($Files),".mus") > -1){ print " type=\"application/finale\" "; } if(index(lc($Files),".mid") > -1){ print " type=\"audio/midi\" "; } if(index(lc($Files),".mp3") > -1){ print " type=\"audio/mp3\" "; } print ">$Files
\n"; } print "

"; sub error_file { print " 404 File not found

404 File not found

"; }