From 12499a35529c7098fe53aa6601190d81f01dbb85 Mon Sep 17 00:00:00 2001 From: stderr64 Date: Tue, 26 Dec 2023 00:06:46 +0200 Subject: First commit --- osstat.pl | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100755 osstat.pl diff --git a/osstat.pl b/osstat.pl new file mode 100755 index 0000000..1a0df42 --- /dev/null +++ b/osstat.pl @@ -0,0 +1,46 @@ +#!/usr/bin/perl +use POSIX; +use IO::File; + +print( "Content-Type: text/html; charset=utf-8\r\n\r\n" ); + +my $full_output = "\n\n\nStats
\n\n\n

Stats

"; + +my $ver = IO::File->new( "/proc/version", "r" ) or die "Failed to open /proc/version"; +$full_output .= <$ver>."
"; +undef $ver; +my $utime = IO::File->new( "/proc/uptime", "r" ) or die "Failed to open /proc/uptime"; +my @tdata = split( m/ /, <$utime> ); +my $thours = int($tdata[0]) / 60 / 60; +my $tmins = int($tdata[1]) / 60 / 60; +undef $utime; +undef $tdata; +$full_output .= "Uptime: ".int($thours)." hours ".int($tmins)." minutes
"; +undef $thours; +undef $tmins; +my $cpu = IO::File->new( "/proc/cpuinfo", "r" ) or die "Failed to open /proc/cpuinfo"; +my $fline = ""; +my @spl_speed = ""; +my $ccount = 1; +while ( $fline = <$cpu> ){ + if ( $fline =~ m/cpu mhz/i ){ + @spl_speed = split( m/: /, $fline ); + $full_output .= "Core ".$ccount. " speed: ".$spl_speed[1]."
"; + $ccount++; + } +} +undef $cpu; +undef $fline; +undef $ccount; +undef @spl_speed; +my $minfo = IO::File->new( "/proc/meminfo", "r" ) or die "Failed to open /proc/meminfo"; +my $minfoline = ""; +while ( $minfoline = <$minfo> ){ + $full_output .= $minfoline."
"; +} +undef $minfoline; +undef $minfo; +$full_output .= "
\n
\n\n"; +print( $full_output ); +undef $full_output; +exit( 0 ); -- cgit v1.2.3-86-g962b