diff options
| -rwxr-xr-x | perl-install/standalone/drakups | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups new file mode 100755 index 000000000..3ae1bb2bd --- /dev/null +++ b/perl-install/standalone/drakups @@ -0,0 +1,66 @@ +#!/usr/bin/perl + +use strict; +use lib qw(/usr/lib/libDrakX); +use common; +use detect_devices; + +#------------------------------------------------------------------ +# to be moved in MDK::Common as a generalisation of (read|update)_gnomekderc +# once cooker is unfrozen and major releases are allowed again. +# +# but there's a "bug" that prevent factorization: current +# (read|update)_gnomekderc keep comments ... and minimize intrusions + +sub read_all_gnomekderc { + my ($file) = @_; + my (@a, %h); + my ($section, @section); + foreach (MDK::Common::File::cat_($file)) { + s/#.*//; + if (/^\s*\[(.*)\]/) { + # remove all "if $section" tests if options out of sections is needed + push @a, [ $section, [ @section ] ] if $section; + $section = $1; + $h{$section} = { }; + @section = (); + } elsif (/^\s*(.*?)=(.*)/) { + push @section, $1; + $h{$section}{$1} = $2; + } + } + push @a, [ $section, [ @section ] ] if $section; + \@a, \%h; +} + +# lost comment but keep sections & options order: +sub update_all_gnomekderc { + my ($file, $list, $hvalues) = @_; + output($file, map { + my ($section, $items) = @$_; + "\n[$section]\n", map { $_ . "=" . $hvalues->{$section}{$_} . "\n" } @$items; + } @$list); +} +#------------------------------------------------------------------ + +#------------------------------------------------------------------ +# UPS autoconfig: + +my $file = "/etc/ups/ups.conf"; +my ($sections, $sec_contents) = read_all_gnomekderc($file); + +my @ups_devices = map { $_->[0] } @$sections; #sort values %$sec_contents + +foreach my $ups_device (detect_devices::getUPS()) { + if (!member($ups_device, @ups_devices)) { + my $str = $ups_device->{description}; + $str =~ s/ /_/g; + push @$sections, [ $str, [ qw(driver port) ] ]; + $sec_contents->{$str} = { + port => 1, + driver => $ups_device->{bus} eq 'USB' ? "/dev/usb/hid/hiddev0" : $ups_device->{device}, + }; + } +} + +update_all_gnomekderc($file, $sections, $sec_contents); |