gui

1 files changed, 0 insertions, 20 deletions

diff --git a/battery.pl b/battery.pl
deleted file mode 100644
index e14fe80..0000000
--- a/battery.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.016;
-
-sub get_battery_stats {
-    open my $fh,'<','/sys/class/power_supply/BAT1/uevent';
-    my %ret;
-    while (my $line=<$fh>) {
-        chomp $line;
-        my ($name,$value) = $line =~ m{\A POWER_SUPPLY_(.*?) = (.*) \z}x;
-        $ret{lc($name)}=$value;
-    }
-    return \%ret;
-}
-
-my $bs=get_battery_stats;
-printf "Energy: %.2f%%\n",100*$bs->{energy_now}/$bs->{energy_full};
-printf "Time: %.2f / %.2f\n",$bs->{energy_now}/$bs->{power_now},
-    $bs->{energy_full}/$bs->{power_now};