#!/usr/bin/perl # Copyright Andrew Gavin 2009-2012 # # This file is part of OpenDLP. # # OpenDLP is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # # OpenDLP is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with OpenDLP. If not, see . use CGI qw/:standard/; use DBI; my $version = get_version(); my $db_admin_file = "../etc/db_admin"; open( DB, $db_admin_file ); my $db_line = ; close( DB ); chomp $db_line; my ($db_username, $db_password) = split( ":", $db_line ); header(); print qq { Start a New Scan

}; print "
Scan name
Profile\n"; print qq { (or create a new profile)
Notes
  • For Windows Share scans, enter systems in this format:
    \\\\1.2.3.4\\Share
  • For MS SQL scans with different instances, enter systems in this format:
    server\\instance
  • For Oracle scans enter systems in this format:
    //server/instance
  • Otherwise, just list IP addresses
Systems to scan
(newline-delimited)




}; footer(); sub header { print "Content-type: text/html\n\n"; print "\n\n"; print "OpenDLP $version\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print qq { }; print "\n"; print "\n"; print '
' . "\n"; } sub footer { print "
\n"; } sub get_version { open( V, "<../etc/version" ); my $v = ; close( V ); chomp $v; return $v; }