Visit our newest sister site!
Hundreds of free aircraft flight manuals
Civilian • Historical • Military • Declassified • FREE!

TUCoPS :: Web :: Apps :: dbman1.htm

DBMan (db.cgi) Script - view environment variables & other info

    DBMan (db.cgi)


    DBMan (db.cgi) Script


    Following is based  on Black Watch  Labs Vulnerability Alert.   It
    is  estimated  that  there  are  more  than 2,000 pages containing
    links to  db.cgi.   The Gossamer  Threads site  contains a list of
    some sites that use DBMan:

    The script allows  several environment variables  to be viewed  by
    the attacker, who can gain useful information on the site,  making
    further attacks more feasible.

    DBMan dumps useful information  (e.g. script location, HTTP  root,
    version of Perl, server_admin,  server_name, path) to the  browser
    when the database  file provided is  incorrect.  The  demo site of
    DBMan does not contain a database named no-db, thus the  following
    URL displays the environment dump:


    To fix, replace cgierr in db.cgi with:

    sub cgierr {
    # --------------------------------------------------------
    # Displays any errors and prints out FORM and ENVIRONMENT
    # information. Useful for debugging.
        if (!$html_headers_printed) {
            print "Content-type: text/html\n\n";
            $html_headers_printed = 1;
        print "DBMan encountered an internal error. ";
        if ($db_debug) {
            print "<PRE>\n\nCGI
            $_[0]      and print "Error Message       : $_[0]\n";
            $0         and print "Script Location     : $0\n";
            $]         and print "Perl Version        : $]\n";
            $db_setup  and print "Setup File          : $db_setup.cfg\n";
            $db_userid and print "User ID             : $db_userid\n";
            $db_uid    and print "Session ID          : $db_uid\n";
            print "\nForm
            foreach $key (sort keys %in) {
                my $space = " " x (20 - length($key));
                print "$key$space: $in{$key}\n";
            print "\nEnvironment
            foreach $env (sort keys %ENV) {
                my $space = " " x (20 - length($env));
                print "$env$space: $ENV{$env}\n";
            print "\n</PRE>";
        else {
            print "Please enable debugging to view.";
        exit -1;

    This will only enable  the displaying of environment  variables if
    $db_debug is  turned on  in the  config file.   Users should  turn
    this off when they are done testing.

TUCoPS is optimized to look best in Firefox® on a widescreen monitor (1440x900 or better).
Site design & layout copyright © 1986-2015 AOH