--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 1fc5012a5f5a487cbf14162cd31c5c4b6e0bbd0b..3425ed45c5d7cc64d1e7ee394a9b104813350a8e 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -15,6 +15,25 @@ use Secrets;
 
 our $debug = 0;
 
+sub Triple::main {
+    my ($sitename, $version) = init();
+    my $request = FCGI::Request();
+    my $template = Template->new({INCLUDE_PATH => 'tt'});
+}
+
+sub sitename {
+    use Cwd;
+    $sitename =  getcwd();
+    $sitename =~ s/.*\///;
+    return $sitename;
+}
+
+sub debug {
+    $sitename = $_[0];
+    openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
+    $debug = 1 if $sitename =~ /^test\./;
+}
+
 sub version {
     open my $fh, '<', "version" or die "Can't open file: $!";
     my $line = uc(substr(<$fh>, 0, 12));
@@ -22,22 +41,12 @@ sub version {
     return $line;
 }
 
-sub Triple::main() {
-    my $sitename;
-    {
-        use Cwd;
-        $sitename =  getcwd();
-        $sitename =~ s/.*\///;
-    }
-    openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
-    $debug = 1 if $sitename =~ /^test\./;
-
+sub init {
+    my $sitename = sitename();
+    debug($sitename);
     my $version = version();
-
     syslog("info", "Version $version");
-
-    my $request = FCGI::Request();
-    my $template = Template->new({INCLUDE_PATH => 'tt'});
+    return $sitename, $version;
 }
 
 1;