#!/usr/bin/perl -w
#
# Fast-Slow very much code stolen from:
# 
# wmsensors.pl-0.1 by Karsten Eiser <k.eiser@web.de> ©2003
# 
# 
# 

use strict;
use Wharf::JDockApp;
use Getopt::Long;

#___________________ setup ________________________________#

my $help = 0;
my $seconds = 10;
my $speed_set = 1;
my $speed_val = 0;
my $slow_script = "/root/slow.sh";
my $fast_script = "/root/fast.sh";
my $slow_val = "612MHz";
my $fast_val = "999MHz";
GetOptions( 
    "delay=i" => \$seconds,
    "slow=s"  => \$slow_script,
    "fast=s"  => \$fast_script,
    "slowval=s" => \$slow_val,
    "fastval=s" => \$fast_val,
	"help"    => \$help
) or exit &usage;

#_________________________ the program ____________________#

exit &usage if $help == 1;

# $speed = 1: slow ; $speed = 2: fast
my $speed = 1;
SetSetup(  sub { SetDelay($seconds) } );
SetUpdate( \&update );
SetExpose( \&update );
# Switch between the two speed
SetButton( sub { $speed++; $speed = 1 if $speed > 2; $speed_set = 0; &update; } );

StartApp;

#_____________________________________ subs _______________#

sub usage {
print <<HELP;
    Usage: $0 --delay [seconds]
              --slow <script for slow down>
              --fast <script for boost CPU>
              --slowval <value for slow (612MHz)>
              --fastval <value for fast (999MHz)>
           $0 --help	shows this message
    whithout the option "--delay" the default-value
    of 10 seconds will be used.
HELP
}

sub update {
    # slow
    if ($speed == 1 && $speed_set == 0) {
        system("sudo", $slow_script);
        $speed_set = 1;
    }

    # fast
    if ($speed == 2 && $speed_set == 0) {
        system("sudo", $fast_script);
        $speed_set = 1;
    }

   	ClearWindow;
    
	open(PROC,"<","/proc/cpuinfo") ; 
    while(<PROC>) {
        if(/clock[ |\t]*:[ |\t]*([0-9]*MHz)/) {
            $speed_val = $1;
        }
    }
    close(PROC);
    
    # slow
    if ($speed_val eq $slow_val) {
	   	jpprint(0, 0, BLUE, "CPU-Speed");
   		jpprint(0, 1, GREEN, "Scaling:");
        jpprint(4, 2, GREEN, "Slow");
        jpprint(2, 4, GREEN, $speed_val);
	# fast
    } elsif ($speed_val eq  $fast_val) {
	   	jpprint(0, 0, BLUE, "CPU-Speed");
   		jpprint(0, 1, GREEN, "Scaling:");
        jpprint(4, 2, GREEN, "Fast");
        jpprint(2, 4, GREEN, $speed_val);
	} else {
        jpprint(0, 0, BLUE, "CPU-Speed");
        jpprint(0, 1, GREEN, "Scaling:");
        jpprint(1, 2, GREEN, "Unknown");
        jpprint(2, 4, GREEN, $speed_val);
    }
}