Update AcpiBatt script to work with kernels without /proc/acpi (like 2.6.32 in Debian)

diff --git a/fvwm/components/scripts/FvwmScript-AcpiBatt b/fvwm/components/scripts/FvwmScript-AcpiBatt
index f71ee06..796288a 100644
--- a/fvwm/components/scripts/FvwmScript-AcpiBatt
+++ b/fvwm/components/scripts/FvwmScript-AcpiBatt
@@ -9,15 +9,15 @@ Colorset 1
 
 Init
 Begin
-  Set $last = (GetOutput {cat /proc/acpi/battery/BAT?/info} 3 4)
-  Set $remaining = (GetOutput {cat /proc/acpi/battery/BAT?/state} 5 3)
-  Set $acstate = (GetOutput {cat /proc/acpi/ac_adapter/AC*/state} 1 2)
-  Set $batt = (Mult 100 $remaining)
-  Set $batt = (Div $batt $last)
+  Set $last = (GetOutput {cat /sys/bus/acpi/drivers/battery/*/power_supply/BAT*/energy_full} 1 -1)
+  Set $remaining = (GetOutput {cat /sys/bus/acpi/drivers/battery/*/power_supply/BAT*/energy_now} 1 -1)
+  Set $acstate = (GetOutput {cat /sys/bus/acpi/drivers/battery/*/power_supply/BAT*/status} 1 -1)
+  Set $batt = (Div $last 100)
+  Set $batt = (Div $remaining $batt)
   Set $batt = $batt %
   Set $batt_prev = -1
 
-  If $acstate==off-line Then
+  If $acstate==Discharging Then
     Set $batt = * $batt 
   ChangeTitle 1 $batt
 End
@@ -33,12 +33,12 @@ Begin
    Else
    Begin
 
-    Set $last = (GetOutput {cat /proc/acpi/battery/BAT?/info} 3 4)
-    Set $remaining = (GetOutput {cat /proc/acpi/battery/BAT?/state} 5 3)
-    Set $batt = (Mult 100 $remaining)
-    Set $batt = (Div $batt $last)
+    Set $last = (GetOutput {cat /sys/bus/acpi/drivers/battery/*/power_supply/BAT*/energy_full} 1 -1)
+    Set $remaining = (GetOutput {cat /sys/bus/acpi/drivers/battery/*/power_supply/BAT*/energy_now} 1 -1)
+    Set $batt = (Div $last 100)
+    Set $batt = (Div $remaining $batt)
     Set $batt_prev = $batt
-    Set $acstate = (GetOutput {cat /proc/acpi/ac_adapter/AC*/state} 1 2)
+    Set $acstate = (GetOutput {cat /sys/bus/acpi/drivers/battery/*/power_supply/BAT*/status} 1 -1)
 
     If $batt>99 Then
       ChangeColorset 1 1
@@ -67,7 +67,7 @@ Begin
     
       Set $batt = $batt %
 
-      If $acstate==off-line Then
+      If $acstate==Discharging Then
         Set $batt = * $batt 
 
       ChangeTitle 1 $batt