add a load function

1 files changed, 5 insertions, 2 deletions

diff --git a/bin/drakguard b/bin/drakguard
index ffc4066..e7aae28 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -40,8 +40,7 @@ my $blacklist = Gtk2::SimpleList->new(N("Forbidden addresses") => 'text');
 $blacklist->get_selection->set_mode('multiple');
 
 my ($enable, $level, $time_control, $allow_time_change);
-$level ||= "Normal";
-
+load();
 
 sub update_time_change() {
     gtkval_modify(\$allow_time_change, $enable && $time_control);
@@ -165,6 +164,10 @@ sub unwhitelist {
 
 sub quit_gui() { Gtk2->main_quit }
 
+sub load() {
+    $level ||= "Normal";
+}
+
 sub save() {
     my $proxy_port = 3128;
     my $proxy_user = 'squid';