#! perl -wT use CGI; use strict; my $cgi = new CGI; my $dir = $cgi->param("server"); print $cgi->header(); print < Logs END # ADD SERVER NAMES AND PATHS TO THIS CONIDTION BLOCK if($dir eq 'server1') { $dir = 'z:/logfiles/monitor'; } elsif($dir eq 'server2') { $dir = 'y:/logfiles/monitor'; } print "", $cgi->param("server"), " logfiles at $dir
"; # GET ALL CONTENTS OF THE DIRECTORY opendir(DIR, $dir) || print "Problem: $!"; while(my $file = readdir(DIR)) { # IF NOT A DIRECTORY, PRINT FILENAME if(!-d "$dir/$file") { print "$file
"; } } closedir(DIR); print ""; print $cgi->end_html();