From 8e1679b00825aee0f208ce363734769dd93c5ac1 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 6 May 2013 18:04:16 +0100
Subject: gui

---
 battery.pl | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100644 battery.pl

(limited to 'battery.pl')

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};
-- 
cgit v1.2.3