!C99Shell v. 1.0 pre-release build #16!

Software: Apache/2.0.54 (Fedora). PHP/5.0.4 

uname -a: Linux mina-info.me 2.6.17-1.2142_FC4smp #1 SMP Tue Jul 11 22:57:02 EDT 2006 i686 

uid=48(apache) gid=48(apache) groups=48(apache)
context=system_u:system_r:httpd_sys_script_t
 

Safe-mode: OFF (not secure)

/usr/libexec/webmin/usermin/   drwxr-xr-x
Free 3.83 GB of 27.03 GB (14.17%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     copycert.cgi (1.58 KB)      -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl
# Copy Webmin's SSL settings

require './usermin-lib.pl';
&ReadParse();
&error_setup($text{'copycert_err'});

&get_miniserv_config(\%wminiserv);
$wminiserv{'ssl'} || &error($text{'copycert_essl'});
$wminiserv{'keyfile'} || &error($text{'copycert_ekeyfile'});

&lock_file($usermin_miniserv_config);
&get_usermin_miniserv_config(\%miniserv);

# Copy across the key file
$miniserv{'keyfile'} ||= $config{'usermin_dir'}."/miniserv.pem";
if ($miniserv{'keyfile'} ne $wminiserv{'keyfile'}) {
    &lock_file($miniserv{'keyfile'});
    &copy_source_dest($wminiserv{'keyfile'},
              $miniserv{'keyfile'});
    &unlock_file($miniserv{'keyfile'});
    }
if ($wminiserv{'certfile'}) {
    $miniserv{'certfile'} ||= $config{'usermin_dir'}."/miniserv.cert";
    if ($miniserv{'certfile'} ne $wminiserv{'certfile'}) {
        &lock_file($miniserv{'certfile'});
        &copy_source_dest($wminiserv{'certfile'},
                  $miniserv{'certfile'});
        &unlock_file($miniserv{'certfile'});
        }
    }
else {
    delete($miniserv{'certfile'});
    }

# Copy other settings
$miniserv{'ssl'} = $wminiserv{'ssl'};
$miniserv{'ssl_redirect'} = $wminiserv{'ssl_redirect'};
$miniserv{'ssl_version'} = $wminiserv{'ssl_version'};
$miniserv{'ssl_cipher_list'} = $wminiserv{'ssl_cipher_list'};
$miniserv{'extracas'} = $wminiserv{'extracas'};

# Copy per-IP certs
@ipkeys = &webmin::get_ipkeys(\%wminiserv);
&webmin::save_ipkeys(\%miniserv, \@ipkeys);

&put_usermin_miniserv_config(\%miniserv);
&unlock_file($usermin_miniserv_config);

$SIG{'TERM'} = 'IGNORE';    # stop process from being killed by restart
&restart_usermin_miniserv();
&webmin_log("copycert");

&redirect("");

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 

:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 1.0 pre-release build #16 powered by Captain Crunch Security Team | http://ccteam.ru | Generation time: 0.0037 ]--