Hi all,
I'm trying to set up Majordomo-1.93 on my server. Everything seemed to work
fine, but if try to test my sample list I get a error on majordomo.pl.
Below is the output I get from the following command:
% echo help | usr/lib/sendmail -v test1-request
majordom... setsender: uid/gid = 203/202
test1-request... aliased to "|/home/majordom/bin/wrapper request-answer test1"
"|/home/majordom/bin/wrapper request-answer test1"... Connecting to .prog...
"|/home/majordom/bin/wrapper request-answer test1"... Connecting to (prog)...
"|/home/majordom/bin/wrapper request-answer test1"... openmailer: The default user number is 1; the default group number is 1.
"|/home/majordom/bin/wrapper request-answer test1"... openmailer: Setting the ctladdr user number to 203 and group number to 202
"|/home/majordom/bin/wrapper request-answer test1"... execve: The user number is 203; the group number is 202.
Undefined subroutine "main'lopen" called at /home/majordom/majordomo.pl line 229, <STDIN> line 1.
"|/home/majordom/bin/wrapper request-answer test1"... Sent
What puzzles me is the 2nd last line of the output. I'm using Perl v5 with
AIX 3.25 as the operating system. According to the documentation I need at
least Perl v 4.035 or later.
The section of the majordomo.pl script is included below, with the line in
question marked with ">>":
# Log a message to the log
sub main'log {
local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
>> if (&main'lopen(LOG, ">>", $log_file)) {
# if the log is open, write to the log
printf LOG "%s %02d %02d:%02d:%02d %s %s[%d] {%s} ",
$ctime'MoY[$mon], $mday, $hour, $min, $sec,
$log_host, $log_program, $$, $log_session;
print LOG join(" ", @_), "\n";
&main'lclose(LOG);
} else {
# otherwise, write to stderr
printf STDERR "%s[%d] {%s} ", $log_program, $$, $log_session;
print STDERR join(" ", @_), "\n";
}
}
Hope someone can help me on this! (No, I'm not the world's greatest Perl
fundi... (sad to admit though) )
Regards,
Johan de Wet
|
|
