ACPI ac_adapter event handler script

ac_adapter.pl (text/plain), 146 bytes, created by Geoff Mishkin on 2004-08-11 10:19:26 UTC

#!/usr/bin/perl

if ($ARGV[3] eq "00000000") {
    `speedfreq -p powersave`;
}
elsif ($ARGV[3] eq "00000001") {
    `speedfreq -p performance`;
}