Changeset 152

Timestamp:

09/04/07 13:07:29 (20 months ago)

Author:

smoku

Message:

removed redundant setting in jabberd wrapper. Closes #34

Files:

• trunk/tools/jabberd.in (modified) (4 diffs)

trunk/tools/jabberd.in

@@ -15 +15 @@
 use strict;
 use Getopt::Std;
-#use FindBin qw($Bin);
 use FileHandle;
 use IPC::Open3;
@@ -110 +109 @@
         next if /^\s*$/;
         my ($job,$config) = /^\s*(\S+)\s*(\S*)\s*$/;
-        # Assume that all the commands are in the same directory
-        # as the jabberd script. The current configuration file
-        # format does not allow specification of pathnames for commands.
-        my $cmd = "$Bin/$job";
-        push(@programs,[$job,$config,$cmd]);
+        push(@programs,[$job,$config]);
     }
     close(CFG);
@@ -138 +133 @@
 foreach my $job (@programs)
 {
-    &LaunchJob($job->[0],$job->[1],$job->[2]);
+    &LaunchJob($job->[0],$job->[1]);
 }
 
@@ -190 +185 @@
     my $job = shift;
     my $config = shift;
-    my $cmd = shift;
-
-    if (!defined($cmd))
-    {
-        $cmd = $jobs{$job}->{cmd};
-    }
+
+    my $cmd = $jobs{$job}->{cmd};
+
     if (defined($config))
     {