Displaying 1 result from an estimated 1 matches for "idlog".
Did you mean:
sdlog
1997 Sep 28
0
[IPD] Internet Probe Droid
...print "\nfilename: $pathname\n" if $debug;
open $filehandle, ">$pathname"
or die "Can''t write passwd file ''$pathname'': $!\n";
print $filehandle join("\n", @passwd);
close $filehandle;
open(IDLOG, ">>idlog") or die "No ID log: $!\n";
print IDLOG "$server $port\n$uid\n$uname\n--\n";
}
print "Leaving on $server\n\n" if $debug;
&show_status();
}
sub try_for_shadowfile {
my ($server, $portno) = split(/:/, shift);...