PERL   22

status

Guest on 20th June 2022 04:34:13 PM

  1. #!/usr/bin/perl
  2.  
  3. print "Content-type: text/html\n\n";
  4.  
  5. $host = `hostname`; chop $host;
  6. print "<HTML>\n<HEAD>\n<TITLE>Status of ", $host,
  7.       "</TITLE>\n</HEAD>\n<BODY>\n";
  8. print "<H1>", $host, "</H1>\n";
  9. print "<PRE>\n", `uptime`, "\n", `who`;
  10. print "</PRE>\n</BODY>\n</HTML>\n";

Raw Paste


Login or Register to edit or fork this paste. It's free.