The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
my %parameter = (
                 path   => $m_hrSettings->{cgi}{bin} . '/templates',
                 style  => $m_sStyle,
                 title  => "",
                 server => $m_hrSettings->{serverName},
                 id     => 'exploit',
                 class  => 'min',
);
my $window = new HTML::Window(\%parameter);
$window->set_closeable(0);
$window->set_moveable(0);
$window->set_resizeable(1);
$m_sContent .= br();
$m_sContent .= $window->windowHeader();
my $remote_addr      = CGI::remote_addr()  ? CGI::remote_addr()  : 'none';
my $m_hrQuery_string = CGI::query_string() ? CGI::query_string() : 'none';
my $referer          = CGI::referer()      ? CGI::referer()      : 'none';
$m_sContent .= translate("Permissiondenied") . br() . "remote_addr: $remote_addr" . br() . "query_string: $m_hrQuery_string" . br() . "referer: $referer" . br();
$m_oDatabase->void("INSERT INTO exploit(referer,remote_addr,query_string) VALUES (?,?,?)", $referer, $remote_addr, $m_hrQuery_string);
$m_sContent .= $@ if $@;
$m_sContent .= $window->windowFooter();