Sigx

#!/usr/bin/perl

# Credits     : This script was created by and is currently maintained
#               by Victor Igumnov [lamer0@lamer0.com].
#
# Legal Info  : Copyright (C) 2003, Victor Igumnov [lamer0@lamer0.com]
#
#               This program is free software. You may redistribute it
#               and/or modify it under the terms of the GNU General
#               Public License as published by the Free Software
#               Foundation; either version 2 of the License, or
#               (at your option) any later version.
#
#               This program is distributed in the hope that it will be
#               useful, but WITHOUT ANY WARRANTY; without even the
#               implied warranty of MERCHANTABILITY or FITNESS FOR A
#               PARTICULAR PURPOSE.  See the GNU General Public License
#               for more details.
#
$|=1;
## --added code -- ##

#Config

$LIMIT            = 3000;         #// When should it change from Bytes to K ?
$MULTIPLIER   = 1024;         #// Divide by 1000 or 1024? Eternally mysterious

#$CAT = "ssh 127.0.0.1 cat /proc/net/dev";      #// Command to acces /proc/net/dev - I ssh in to get it!
#DEV = "eth0";                        #// Device to be read

$DEV = "eth0";                        #// Workstations has fewer netcards :)
$CAT = "cat /proc/net/dev";               #// A local version

$DOWNSTREAM   = 52000;               #// Max downstream in bytes;
$UPSTREAM      = 52000;               #// Max upstream in bytes;


####################################################################################
####################################################################################

#DO leave this part alone :)

$FirstTime      = time();
($FirstNetIn,  $FirstNetOut) = getNetTraffic();

sub getNetTraffic
{
   $str = `$CAT | grep $DEV`;
   ($in, $out) = ($str =~ m/^\s\s$DEV:(\S+)\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+) .*/);
   return ($in, $out);
}

sub display_net
{
   ($netIn, $netOut) = getNetTraffic();
#   $LastTime = time();
#   $Time   = $LastTime - $FirstTime;
#   $in      = int( ($netIn - $FirstNetIn) /$Time);
#   $out   = int( ($netOut - $FirstNetOut) /$Time);
   $in      = int( $netIn );
   $out   = int( $netOut );
   $strOut = ($out > $LIMIT)? sprintf("%.2fMB", (($out/$MULTIPLIER)/$MULTIPLIER)) : "".$out." Bytes";
   $strIn = ($in > $LIMIT)? sprintf("%.2fMb", (($in/$MULTIPLIER)/$MULTIPLIER)) : "".$in." Bytes";

   $FINALNET = "Uploaded: " . $strOut . " Downloaded: " . $strIn;

#   $FirstTime = $LastTime;
#   $FirstNetIn = $netIn;
#   $FirstNetOut = $netOut;

   return $FINALNET;
}

$imitiator = display_net;

##--end added code --##

############### START XMMS CODE ###############

sub escapecode {
  my $string = shift;

  $string =~ s/&/&/gi;
  $string =~ s/</&lt;/gi;
  $string =~ s/>/&gt;/gi;

  return $string;
}

my $XMMSFILE = "/tmp/xmms-info";

open(XMMSINFO,$XMMSFILE);

while(<XMMSINFO>) {
  chomp;
  if(/^Title: (.*)$/) {
    $XMMSSONG = escapecode($1);
  }
  if(/^Position: (.*)$/) {
    $XMMSPOSITION = escapecode($1);
  }
  if(/^Time: (.*)$/) {
    $XMMSTIME = escapecode($1);
  }
}

close XMMSINFO;
################ END XMMS CODE ################


use CGI;
use URI::URL;
use LWP::UserAgent;

#Set These
my $CPU='temp3';
my $MOBO='temp2';
my $FAN='fan2';

$MYUPTIME = `/usr/bin/uptime`;

$CPUNAME=`cat /proc/cpuinfo | grep '^model name' | head -1 | sed -e 's/^.*: //'`;
($CPUNAME)=$CPUNAME=~/^\s*(.*?)\s*$/;  # trim head/tail at same time

$CPUSPEED=`cat /proc/cpuinfo | grep 'cpu MHz' | head -1 | sed -e 's/^.*: //'`;
$BOGOMIPS=`cat /proc/cpuinfo  | grep 'bogomips' |  head -1 | sed -e 's/^.*: //'`;
$UNAME = `uname -ms`;

#--PERCENTAGE OF MEMORY FREE--#
$MEMPERCENT = `free | grep Mem | awk '{print (( \$3 -(\$6 + \$7) )/\$2)*100}'`;
chop ($MEMPERCENT);
$MEMPERCENT = sprintf('%.2f', $MEMPERCENT);


#--MEMORY FREE--#
$MEMFREE = `free | grep Mem | awk '{printf (\"%.0fg\", ( \$3 -(\$6 + \$7) )/1000)}'`;
chop ($MEMFREE);

#--TOTAL MEMORY--#
$MEMTOTAL = `free | grep Mem | awk '{printf (\"%dMb\", \$2/1000 )}'`;
chop ($MEMTOTAL);

#--SCREEN RESOLUTION--#
$RES = `xdpyinfo | grep dimensions | awk '{print \$2}'`;
chop ($RES);

#--DISKSPACE--#
$HDD = `df | awk '{ sum+=\$2/1024^2 }; END { printf (\"%dGb\", sum )}'`;
chop ($HDD);

#--DISKSPACE FREE--#
$HDDFREE = `df | awk '{ sum+=\$4/1024^2 }; END { printf (\"%dGb\", sum )}'`;
chop ($HDDFREE);

#--SCREEN RESOLUTION--#
$RES = `xdpyinfo | grep dimensions | awk '{print \$2}'`;
chop ($RES);

chop($UNAME);
chop($CPUNAME);
chop($CPUSPEED);
chop($BOGOMIPS);
$RAMLEFT=$MEMTOTAL-$MEMFREE;

$query = new CGI;
$query->import_names('webform');

my $username = "yourusername";
my $password = "yourpassword";

$DATA_2_SEND = "Uptime: $MYUPTIME *<*";
$DATA_2_SEND .= "CPU: $CPUNAME | MHZ: $CPUSPEED *<*";
#$DATA_2_SEND .= "IRC: irc.street-creed.com | NET: $FINALNET *<*";
$DATA_2_SEND .= "OS: SuSE 9.0 $UNAME *<*";
$DATA_2_SEND .= "$MEMPERCENT% Ram Used | Total RAM = $MEMTOTAL | Diskspace: $HDD Free: $HDDFREE *<*";
$DATA_2_SEND .= "Screen Res: $RES *<*";
$DATA_2_SEND .= "Currently Listening to: $XMMSSONG at $XMMSPOSITION/$XMMSTIME.";





my %form = ();

%form =('username' => $username,
   'password' => $password,
   'data'      => $DATA_2_SEND,
   'Submit'   => '');

my $ua = new LWP::UserAgent;
my $curl = url("http:");
my $req = new HTTP::Request 'POST','http://sigx.yuriy.net/update.php';
$req->content_type('application/x-www-form-urlencoded');
$req->content($curl->equery);
$curl->query_form(%form);
$req->content($curl->equery);
my $response= $ua->request($req)->as_string;

./configure
make
su
(enter root password)
make install

############### START XMMS CODE ###############

sub escapecode {
  my $string = shift;

  $string =~ s/&/&amp;/gi;
  $string =~ s/</&lt;/gi;
  $string =~ s/>/&gt;/gi;

  return $string;
}

my $XMMSFILE = "/tmp/xmms-info";

open(XMMSINFO,$XMMSFILE);

while(<XMMSINFO>) {
  chomp;
  if(/^Title: (.*)$/) {
    $XMMSSONG = escapecode($1);
  }
  if(/^Position: (.*)$/) {
    $XMMSPOSITION = escapecode($1);
  }
  if(/^Time: (.*)$/) {
    $XMMSTIME = escapecode($1);
  }
}

close XMMSINFO;
################ END XMMS CODE ################

$DATA_2_SEND="Uptime: $MYUPTIME *<*";
$DATA_2_SEND .= "CPU: $CPUNAME *<*";
$DATA_2_SEND .= "MHZ: $CPUSPEED *<*";
# $DATA_2_SEND .= "BOGOMIPS: $BOGOMIPS *<*";
$DATA_2_SEND .= "OS: $UNAME *<*$MEMPERCENT% Ram Used | Total RAM = $MEMTOTAL | $
$DATA_2_SEND .= "Diskspace: $HDD Free: $HDDFREE *<*";
# $DATA_2_SEND .= "Screen Res: $RES";
#print $DATA_2_SEND;

$DATA_2_SEND="Uptime: $MYUPTIME *<*";
$DATA_2_SEND .= "CPU: $CPUNAME *<*";
$DATA_2_SEND .= "MHZ: $CPUSPEED *<*";
# $DATA_2_SEND .= "BOGOMIPS: $BOGOMIPS *<*";
$DATA_2_SEND .= "OS: $UNAME *<*$MEMPERCENT% Ram Used | Total RAM = $MEMTOTAL | $
$DATA_2_SEND .= "Diskspace: $HDD Free: $HDDFREE *<*";
# $DATA_2_SEND .= "Screen Res: $RES *<*";
$DATA_2_SEND .= "Currently Listening to: $XMMSSONG at $XMMSPOSITION/$XMMSTIME.";

#!/usr/bin/perl

# Credits     : This script was created by and is currently maintained
#               by Victor Igumnov [lamer0@lamer0.com].
# Legal Info  : Copyright (C) 2003, Victor Igumnov [lamer0@lamer0.com]
#
#               This program is free software. You may redistribute it
#               and/or modify it under the terms of the GNU General
#               Public License as published by the Free Software
#               Foundation; either version 2 of the License, or
#               (at your option) any later version.
#
#               This program is distributed in the hope that it will be
#               useful, but WITHOUT ANY WARRANTY; without even the
#               implied warranty of MERCHANTABILITY or FITNESS FOR A
#               PARTICULAR PURPOSE.  See the GNU General Public License
#               for more details.
#
$|=1;

use CGI;
use URI::URL;
use LWP::UserAgent;

use Mac::Apps::Launch;
use Mac::Glue ':all';
use Socket;

my $itunes = Mac::Glue->new('iTunes');

$nowPlaying = "iTunes isn't running";

if (IsRunning($itunes->{ID})) {
    $nowPlaying = "iTunes isn't playing anything at the moment";
    my $status = $itunes->get( $itunes->prop('player state') );
    if ($status eq 'playing') {
        my $track = $itunes->prop('current track');

        my %info;
        for my $prop (qw(name artist album)) {
             $info{$prop} = $itunes->get($itunes->prop($prop => $track) );
        }
        $nowPlaying = "Now Playing: $info{name} - $info{artist}";
    }
}

#Set These
my $CPU='temp3';
my $MOBO='temp2';
my $FAN='fan2';


$UNAME = `uname -sr`;
chop($UNAME);
$MACHINE = `machine`;
$UPTIME = `uptime`;
chop ($UPTIME);
#--DISKSPACE--#
$HDD = `df -k | awk '{ sum+=\$2/1024^2 }; END { printf (\"%dGb\", sum )}'`;
#chop ($HDD);

#--DISKSPACE FREE--#
$HDDFREE = `df -k | awk '{ sum+=\$4/1024^2 }; END { printf (\"%dGb\", sum )}'`;
#chop ($HDDFREE);


$query = new CGI;
$query->import_names('webform');

my $username = "yourusername";
my $password = "yourpassworkd";
$DATA_2_SEND="CPU: $MACHINE | OS: $UNAME *<*Uptime: $UPTIME*<*Diskspace: $HDD Free: $HDDFREE*<*$nowPlaying";
#print $DATA_2_SEND;

my %form = ();

%form =('username' => $username,
   'password' => $password,
   'data'      => $DATA_2_SEND,
   'Submit'   => '');

my $ua = new LWP::UserAgent;
my $curl = url("http:"); 
my $req = new HTTP::Request 'POST','http://sigx.yuriy.net/update.php';
$req->content_type('application/x-www-form-urlencoded');
$req->content($curl->equery);
$curl->query_form(%form);
$req->content($curl->equery);
my $response= $ua->request($req)->as_string;

!/usr/bin/perl -w
# Credits     : This script was created by and is currently maintained
#               by Victor Igumnov [lamer0@lamer0.com].
#
# Legal Info  : Copyright (C) 2003, Victor Igumnov [lamer0@lamer0.com]
#
#               This program is free software. You may redistribute it
#               and/or modify it under the terms of the GNU General
#               Public License as published by the Free Software
#               Foundation; either version 2 of the License, or
#               (at your option) any later version.
#
#               This program is distributed in the hope that it will be
#               useful, but WITHOUT ANY WARRANTY; without even the
#               implied warranty of MERCHANTABILITY or FITNESS FOR A
#               PARTICULAR PURPOSE.  See the GNU General Public License
#               for more details.
#
#   This version had been modified by Chris Case <cc2382@columbia.edu>
$|=1;
use strict;
use CGI;
use URI::URL;
use LWP::UserAgent;
use Text::Wrap;

################ MODIFY THESE SETTINGS FOR YOUR SYSTEM ######################

# set username and password here
my $username = "foo";
my $password = "foo";

# set to 0 if you want to test the script w/o uploading. It will output to
# stdout instead
my $UPLOAD = "1";

# wrap text at 80 columns
$Text::Wrap::columns = 80;

# Set Distro Version
my $DISTRO = "Gentoo";

# Locations to various binaries for queries, use full paths for "better"
#security leave blank to not execute that query
my $UPTIMEBIN = "/usr/bin/uptime";
my $HOSTNAMEBIN = "/bin/hostname";
my $UNAMEBIN = "/bin/uname";
my $SENSORSBIN = "/usr/bin/sensors";
my @SENSORSTEMP = "temp2"; # array of temps for each cpu 0,1,2,3...etc
my @SENSORSFAN = "fan1";
my $FREEBIN = "/usr/bin/free";
#my $XDPYINFOBIN = "/usr/X11R6/bin/xdpyinfo";
my $XDPYINFOBIN;
#my $DFBIN = "/bin/df";
my $DFBIN;

# location to cpu info in proc
my $CPUINFOFILE = "/proc/cpuinfo";
my $XMMSINFOFILE="/tmp/xmms-info";

# other various binaries, you shouldn't need to change these unless yours are
# located somwhere else
my $GREP = "/bin/grep";
my $AWK  = "/bin/awk";
my $HEAD = "/bin/head";


#############################################################################
# Get uptime
my $UPTIME;
if ($UPTIMEBIN) {
  $UPTIME = `$UPTIMEBIN`;
  chomp ($UPTIME);
}

# Get hostname
my $HOSTNAME;
if ($HOSTNAMEBIN) {
  $HOSTNAME = `$HOSTNAMEBIN`;
  chomp ($HOSTNAME);
}

# Get OS and Version
my $UNAME;
if ($UNAMEBIN) {
  $UNAME = `$UNAMEBIN -sr`;
  chomp ($UNAME);
}


#Get cpu info
my @CPUINFO;    #cpuinfo is an array of hashes
if ( -r $CPUINFOFILE ) {
  open(CPUINFO_IN, $CPUINFOFILE) || warn("Warning: $!");
  my $proc_no = -1;

  #process all the lines
  while (<CPUINFO_IN>) {
    chomp;

    # index array by processor number
    if (/^processor\s*:\s*(\d+)$/) {
      $proc_no = $1;
    }
    # only parse lines with data!
    elsif (/\S+/){
      # split keys and values and clean them up then store into hash
      my @fields = split(/:/);
      my $key = shift(@fields);
      $key =~ s/^\s*(.+?)\s*$/$1/;
      my $value = join(":", @fields);
      $value =~ s/^\s*(.+?)\s*$/$1/;
      $CPUINFO[$proc_no]{$key}=$value;

      #print "CPU" . $proc_no . ": " . $key ."=" . $value . "\n";
    }
  }
  close CPUINFO_IN;
}

if ($SENSORSBIN) {
  for (my $i = 0; $i < scalar(@CPUINFO); $i++){
    $CPUINFO[$i]{'temp'} = `$SENSORSBIN| $GREP $SENSORSTEMP[$i]| $HEAD -n1|$AWK '{print \$2}'`;
    $CPUINFO[$i]{'fan'} = `$SENSORSBIN| $GREP $SENSORSFAN[$i]| $HEAD -n1| $AWK '{print \$2}'`;
    chomp $CPUINFO[$i]{'temp'};
    chomp $CPUINFO[$i]{'fan'};
  }
}

# Get Memory info
my %MEMINFO;
if ($FREEBIN) {
  #--PERCENTAGE OF MEMORY FREE--#
  $MEMINFO{'percent'} = `$FREEBIN|$GREP Mem|$AWK '{print (( \$3 -(\$6 + \$7) )/\$2)*100}'`;
  chomp ($MEMINFO{'percent'});
  $MEMINFO{'percent'} = sprintf('%.2f', $MEMINFO{'percent'});

  #--MEMORY FREE--#
  $MEMINFO{'free'} = `$FREEBIN|$GREP Mem |$AWK '{printf (\"%.0f\", ( \$3 -(\$6 + \$7) )/1000)}'`;
  chomp ($MEMINFO{'free'});

  #--TOTAL MEMORY--#
  $MEMINFO{'total'} = `$FREEBIN |$GREP Mem |$AWK '{printf (\"%d\", \$2/1000 )}'`;
  chomp ($MEMINFO{'total'});

  #--MEMORY USED?--#
  $MEMINFO{'used'}=$MEMINFO{'total'}-$MEMINFO{'free'};
}
#--SCREEN RESOLUTION--#
my $RES;
if ($XDPYINFOBIN) {
  $RES = `$XDPYINFOBIN| $GREP dimensions| $AWK '{print \$2}'`;
  chomp ($RES);
}


#--DISKSPACE--#
my %HDDINFO;
if ($DFBIN) {
  $HDDINFO{'total'} = `$DFBIN| $AWK '{ sum+=\$2/1024^2 }; END { printf (\"%d\", sum )}'`;
  chomp ($HDDINFO{'total'});

#--DISKSPACE FREE--#
  $HDDINFO{'free'} = `$DFBIN| $AWK '{ sum+=\$4/1024^2 }; END { printf (\"%d\", sum )}'`;
  chomp ($HDDINFO{'free'});
}

# let's get xmms info
my %XMMSINFO;    #xmmsinfo is a hash

# Make sure we can read the file
if ( -r $XMMSINFOFILE ) {
  open(XMMSINFO_IN, $XMMSINFOFILE) || warn("Warning: $!");

  #process all the lines
  while (<XMMSINFO_IN>) {
    chomp;

    # only parse lines with data!
    if (/\S+/){
      # split keys and values and clean them up then store into hash
      my @fields = split(/:/);
      my $key = shift(@fields);
      $key =~ s/^\s*(.+?)\s*$/$1/;
      my $value = join(":", @fields);
      $value =~ s/^\s*(.+?)\s*$/$1/;
      $XMMSINFO{$key}=$value;

    }
  }
  close XMMSINFO_IN;
}




my $DATA_2_SEND ="";

$DATA_2_SEND .= "Host: $HOSTNAME is " if ($HOSTNAMEBIN);
$DATA_2_SEND .= "$DISTRO $UNAME" if ($UNAMEBIN);
$DATA_2_SEND .= ", $RES resolution" if ($XDPYINFOBIN);
$DATA_2_SEND .= "\nUptime:$UPTIME" if $UPTIMEBIN;

for (my $i = 0; $i < scalar(@CPUINFO); $i++){
  $DATA_2_SEND .= "\nCPU$i: " . $CPUINFO[$i]{'model name'};
  $DATA_2_SEND .= " @ " .  $CPUINFO[$i]{'cpu MHz'} . "MHz";
  if ($CPUINFO[$i]{'temp'}){
    $DATA_2_SEND .=", temp: " . $CPUINFO[$i]{'temp'};
    $DATA_2_SEND .=" @ " .  $CPUINFO[$i]{'fan'} . "RPMs";
  }
}

if ($FREEBIN) {
  $DATA_2_SEND .= "\nMem: $MEMINFO{'total'}MB total";
  $DATA_2_SEND .= ", $MEMINFO{'used'}MB used";
  $DATA_2_SEND .= ", $MEMINFO{'free'}MB free";
}

if ($DFBIN) {
  $DATA_2_SEND .= ", Diskspace: $HDDINFO{'total'}GB total";
  $DATA_2_SEND .= ", $HDDINFO{'free'}GB free";
}

if (%XMMSINFO) {
  $DATA_2_SEND .= "\nNow " . $XMMSINFO{'Status'} . ": ";
  $DATA_2_SEND .= $XMMSINFO{'Title'};
}
else {
  $DATA_2_SEND .= "\nIt's quiet in here.";
}

# this wraps anything that may have gone too far across (like xmms info)
my @lines = wrap("","",$DATA_2_SEND);
$DATA_2_SEND = join('', @lines);
print $DATA_2_SEND . "\n" unless $UPLOAD;
$DATA_2_SEND =~ s/\n/\*\<\*/g;

if ($UPLOAD) {
  my $query = new CGI;
  $query->import_names('webform');
  my %form = ();
  %form =('username' => $username,
          'password' => $password,
    'data'         => $DATA_2_SEND,
          'Submit'   => '');

  my $ua = new LWP::UserAgent;
  my $curl = url("http:");
  my $req = new HTTP::Request 'POST','http://sigx.yuriy.net/update.php';
  $req->content_type('application/x-www-form-urlencoded');
  $req->content($curl->equery);
  $curl->query_form(%form);
  $req->content($curl->equery);
  my $response= $ua->request($req)->as_string;
}