extract variables (for next commit)

1 files changed, 4 insertions, 5 deletions

diff --git a/bin/drakguard b/bin/drakguard
index 132347b..517f72b 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -56,6 +56,10 @@ my $blacklist_url_file = "/etc/dansguardian/lists/blacklists/drakguard/urls";
 my $whitelist_url_file = "/etc/dansguardian/lists/whitelists/drakguard/urls";
 my ($enable, $level, $time_control, $allow_time_change);
 my $shorewall = network::shorewall::read();
+my $proxy_port = 3128;
+my $proxy_user = 'squid';
+my $guardian_port = 8080;
+my $guardian_user = 'dansguardian';
 load();
 
 
@@ -236,11 +240,6 @@ sub load() {
 }
 
 sub save() {
-    my $proxy_port = 3128;
-    my $proxy_user = 'squid';
-    my $guardian_port = 8080;
-    my $guardian_user = 'dansguardian';
-
     if ($enable) {
         $in->do_pkgs->ensure_are_installed([ qw(shorewall squid dansguardian) ])
           or quit_gui(1);