############################################################ # This script displays all scripts containing certain params ############################################################ # Author: Monica Lewinski # Date: 09/32/2031 ############################################################ use strict; use CGI; use File::Find; require "VLO_NTlib.pl"; my $cgi = CGI->new; my $dirs = [ $cgi->param('dirs') ]; if ($dirs->[0] eq "ALL") { @$dirs = qw("Admin", "Backuprequests", "Magic", "Network", "NewServer", "PatchManagement", "Security", "Serverlist", "ServerRetire"); } find(\&wanted, @$dirs); exit (0); ############################################################ sub wanted ############################################################ { my @wanted; my $i=0; if ($cgi->param('c_strict')){ $wanted[$i] = "use strict\;"; ++$i; } if ($cgi->param('c_warnings)){ $wanted[$i] = "use warnings\;"; ++$i; } if ($cgi->param('c_vlontlib')){ $wanted[$i] = "require \"VLO_NTlib.pl\"\;"; ++$i; } if ($cgi->param('c_cgi')){ $wanted[$i] = "use CGI"; ++$i; } if ($cgi->param('c_dbi')){ $wanted[$i] = "use DBI"; ++$i; } if ($cgi->param('c_tabs')){ $wanted[$i] = "PAGE1CLEAN"; ++$i; } if ($cgi->param('c_heredocs')){ $wanted[$i] = "END_OF_PRINT"; ++$i; } if ($cgi->param('contains')){ $wanted[$i] = $cgi->param('contains'); ++$i } }