X-Git-Url: https://secure.softndesign.org/git/?a=blobdiff_plain;f=simple-cdd%2Fadditional_scripts%2Fcpumon_lite;fp=simple-cdd%2Fadditional_scripts%2Fcpumon_lite;h=0000000000000000000000000000000000000000;hb=7cf8d4b77c1be839986f26cbd946ba28ae6a464e;hp=ae9937197ab403576a21f2539310cff5fd74a9b3;hpb=1a388d7d89aa3e2b3333b71829e02c68003c886b;p=debian6500.git

diff --git a/simple-cdd/additional_scripts/cpumon_lite b/simple-cdd/additional_scripts/cpumon_lite
deleted file mode 100644
index ae99371..0000000
--- a/simple-cdd/additional_scripts/cpumon_lite
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-open PROC_STAT, "</proc/stat";
-my @proc_stat=<PROC_STAT>;
-close PROC_STAT;
-my @cpu_stat_t0 = grep {s/^cpu\d+\s//} (@proc_stat);
-sleep 1;
-open PROC_STAT, "</proc/stat";
-my @proc_stat=<PROC_STAT>;
-close PROC_STAT;
-my @cpu_stat_t1 = grep {s/^cpu\d+\s//} (@proc_stat);
-
-my $total = 0;
-for (my $cpu_i=0; $cpu_i<(scalar @cpu_stat_t0); $cpu_i++) {
-    my @stat_t0 = split /\s+/, $cpu_stat_t0[$cpu_i];
-    my @stat_t1 = split /\s+/, $cpu_stat_t1[$cpu_i];
-    my ($t0_idle, $t1_idle) = ($stat_t0[3], $stat_t1[3]);
-    my ($t0_total, $t1_total) = (0, 0);
-    $t0_total += $_ foreach @stat_t0;
-    $t1_total += $_ foreach @stat_t1;
-
-    my $load = ($t1_total - $t0_total == 0) ? 100: int((100 * (($t1_total - $t0_total) - ($t1_idle - $t0_idle))/($t1_total - $t0_total)) + 0.5);
-    print " +" unless ($cpu_i == 0);
-    printf "% 5.1f%% ", $load;
-    $total += $load;
-}
-printf " = % 6.1f%%\n", $total;