--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f881a4826a807d984456ea71f08d739b4ce26221..527d7c8e49013b4f15990179f6f70d88bb6f08ec 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -51,7 +51,7 @@ sub Triple::main {
         return %form;
     }
 
-    my ($sitename, $version) = init();
+    my ($sitename, $version) = Triple::Init::init();
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'tt'});
 
@@ -167,13 +167,4 @@ sub Triple::main {
     }
 }
 
-sub init {
-    my $sitename = Triple::Init::sitename();
-    Triple::Init::debug($sitename);
-    my $version = Triple::Init::version();
-    syslog("info", "<Triple $version>");
-    Triple::Init::static($sitename, $version);
-    return $sitename, $version;
-}
-
 1;

diff --git a/perl/Triple/Init.pm b/perl/Triple/Init.pm
index 0afe1a3bbda804aa20f3f8f7a33fa118461cc0b2..a7925095e6c201d7d0e6fb5e43497f988284c469 100644 (file)
--- a/perl/Triple/Init.pm
+++ b/perl/Triple/Init.pm
@@ -1,5 +1,14 @@
 package Triple::Init;
 
+sub init {
+    my $sitename = sitename();
+    debug($sitename);
+    my $version = version();
+    syslog("info", "<Triple $version>");
+    static($sitename, $version);
+    return $sitename, $version;
+}
+
 sub sitename {
 
     use Cwd;