Sigx

my $username = "a";
my $password = "a";

#!/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 --##
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 = "nihaopaul";
my $password = "mypassword";

$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";





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;

0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58 * * * * /dir/to/sigx.pl >/dev/null 2>&1

#!/usr/bin/perl

use Mac::Apps::Launch;
use Mac::Glue ':all';
use Socket;
 
my $itunes = new Mac::Glue 'iTunes';
 
if (IsRunning($itunes->{ID})) {
    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}";
    }
}

XMMS protocol version: 2467
InfoPipe Plugin version: 1.3
Status: Playing
Tunes in playlist: 112
Currently playing: 12
uSecPosition: 153752
Position: 2:33
uSecTime: 299676
Time: 4:59
Current bitrate: 192000
Samping Frequency: 44100
Channels: 2
Title: Bloodhound Gang - Hell Yeah
File: /home/honkeykong/files/Bloodhound Gang - Hell Yeah.mp3