Dashboard
PHP:
8.5.9
OS:
Linux
User:
tdcdesarrollorural
/
/
var
/
www
/
vhosts
/
tierrasdelciddesarrollorural.es
/
httpdocs
/
cgi-bin
/
test
📤 Upload
📝 New File
📁 New Folder
Close
Editing: test.cgi
#!/usr/bin/perl print <<HTML; Content-type: text/html <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html"> <link rel="stylesheet" type="text/css" href="../../css/style.css"> </head> <body> <table cellspacing="0" cellpadding="0" border="0"> <tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr> HTML my $class; foreach (sort keys %ENV) { next unless /^HTTP_|^REQUEST_/; $class = ($class ne 'normal')? 'normal': 'alt'; print <<HTML; <tr class="$class"><td valign="top">$_</td><td>$ENV{$_}</td></tr> HTML } print <<HTML; </table> </body> </html> HTML
Save
Cancel