Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
#!/usr/bin/perl -w # Load - current server load print "Content-type: text/html\n\n"; require ''; $Now=time; @Now=localtime(time); $Now=&timelocal(@Now); if ($ENV{PATH_INFO} eq "") { $Log = "/usr/local/apache/access_log"; } else { $Log=$ENV{PATH_INFO}; } $Last=500; $Steps=10; open (h,"$Log") || die "Could not open access log ($!)\n"; print <<EOM; <META HTTP-EQUIV="Refresh" CONTENT=15> <TITLE> $ENV{SERVER_NAME} HTTPD Load </TITLE> <H1> Current HTTPD Load of <A HREF=/>$ENV{SERVER_NAME}</A><HR></H1> EOM # print "Logfile: $Log\n"; $from=0; LINE: while (<h>) { $line=$_; ($host, $rfc931, $authuser, $timestamp, $request, $status, $by +tes) = /^(\S+) (\S+) (\S+) \[(.+)\] \"(.+)\" (\S+) (\S+)\s/; if (!($host && $rfc931 && $authuser && $timestamp && $request && $status)) { # print(STDERR "$.:$line"); $bad++; next LINE; } $TotalReq++; $TotalBytes+=$bytes; $_ = $timestamp; ($d,$m,$y,$hh,$mm,$ss) = m|(\d+)/(\w\w\w)/(\d+):(\d+):(\d+):(\ +d+).*|; $m=index("JanFebMarAprMayJunJulAugSepOctNovDec",$m)/3; $iTime= &timelocal($ss,$mm,$hh,$d,$m,$y-1900); if ($from == 0) { $from=$iTime; $diff=$Now-$iTime; $Resolution=int($diff/$Steps); } $diff=$Now-$iTime; $iDiff=int((1.0*$diff/$Resolution)+.5); $req[$iDiff]++; $bytes[$iDiff]+=$bytes; } close h; # print $bad . "-". $TotalReq; print "<TABLE BORDER=0>\n"; print "<TR><TH>seconds</TH><TH>reqests</TH><TH>Kbytes</TH><TH>requ +ests chart</TH></TR>\n"; for ($i=0; $i<=$#req; $i++) { $r = $i*$Resolution; $q = $req[$i]; $w = $q*200.*$Steps/$TotalReq; $b = int ($bytes[$i]/1024); print "<TR ALIGN=RIGHT><TD>$r</TD><TD>$q</TD><TD>$b</TD><TD AL +IGN=LEFT><HR WIDTH=$w SIZE=14 ALIGN=LEFT></TD></TR>\n"; A } print "</TABLE><PRE>\n"; $fullDiff=($Now-$from); $fullDiffMin=$fullDiff/60; $fullRPH=$TotalReq/$fullDiff*3600.; $fullCPS=$TotalBytes/$fullDiff*11./1024.; $lastRPH=$req[0]/$Resolution*3600; $lastCPS=$bytes[0]/$Resolution*11./1024.; $lastDiffMin=$Resolution/60.; print "<B>"; printf "Load in the last %4.1f minutes: %5.0f requests/day, %5.2f +kbps.\n", $fullDiffMin,$fullRPH*24,$fullCPS; printf "Load in the last %4.1f minutes: %5.0f requests/day, %5.2f +kbps.\n", $lastDiffMin, $lastRPH*24, $lastCPS; print `uptime`; #print "\nTail of server log:\n</B>"; #print `tail $Log`; print <<EOM; </B></PRE> <HR> EOM

In reply to by JSchmitz

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    [Discipulus]: good morning nuns and monks!

    How do I use this? | Other CB clients
    Other Users?
    Others having an uproarious good time at the Monastery: (7)
    As of 2018-05-22 06:37 GMT
    Find Nodes?
      Voting Booth?