Code shuffle
authorSteve McIntyre <steve@einval.com>
Sat, 16 Apr 2011 21:20:32 +0000 (22:20 +0100)
committerSteve McIntyre <steve@einval.com>
Sat, 16 Apr 2011 21:20:32 +0000 (22:20 +0100)
Move set_default_config() and read_config() to the top of the file.

find_file.cgi

index b2e6603..7fd6d2c 100755 (executable)
@@ -51,6 +51,28 @@ my $mode = "none";
 my $authorname = "Steve McIntyre";
 my $authormail = '93sam@debian.org';
 
+sub set_default_config () {
+    $conf{'dbdir'} = "/home/steve/debian/debian-cd/search/search-db";
+    $conf{'htmldir'} = "/home/steve/debian/debian-cd/html";
+}
+
+# If we can find an appropriately-name config file, read it and
+# over-write the default config for $conf{'dbdir'} and $conf{'htmldir'}
+sub read_config () {
+    my $config_file;
+
+    $config_file = $0;
+    $config_file =~ s/find_file.cgi/find_file.cfg/;
+    if (-r $config_file) {
+        my $config = ConfigReader::Simple->new($config_file);
+        foreach my $key (keys %conf) {
+            if ($config->exists($key)) {
+                $conf{$key} = $config->get($key);
+            }
+        }
+    }
+}
+
 sub read_files ($) {
     my $lang = shift;
     
@@ -211,28 +233,6 @@ sub pretty_name ($) {
     return $name;
 }    
 
-sub set_default_config () {
-    $conf{'dbdir'} = "/home/steve/debian/debian-cd/search/search-db";
-    $conf{'htmldir'} = "/home/steve/debian/debian-cd/html";
-}
-
-# If we can find an appropriately-name config file, read it and
-# over-write the default config for $conf{'dbdir'} and $conf{'htmldir'}
-sub read_config () {
-    my $config_file;
-
-    $config_file = $0;
-    $config_file =~ s/find_file.cgi/find_file.cfg/;
-    if (-r $config_file) {
-        my $config = ConfigReader::Simple->new($config_file);
-        foreach my $key (keys %conf) {
-            if ($config->exists($key)) {
-                $conf{$key} = $config->get($key);
-            }
-        }
-    }
-}
-
 set_default_config();
 read_config();
 read_files("en");