michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

remove debug messages https://sourceforge.net/p/webadmin/bugs/4768/

Browse Source
This commit is contained in:
Jamie Cameron
2016-05-30 15:09:23 -07:00
parent f9bbe37763
commit 7ac845a01b
2 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
cpan/cpan-lib.pl
View File

@@ -48,7 +48,6 @@ foreach $d (&expand_usr64($Config{'privlib'}),
next if ($donedir{$d});
local $f;
open(FIND, "find ".quotemeta($d)." -name .packlist -print |");
print STDERR "find ".quotemeta($d)." -name .packlist -print\n";
while($f = <FIND>) {
chop($f);
local @st = stat($f);
@@ -83,8 +82,6 @@ foreach $d (&expand_usr64($Config{'privlib'}),
local @rpath;
open(FIND2, "find ".quotemeta($d).
" -name '$l' -print |");
print STDERR "find ".quotemeta($d).
" -name '$l' -print\n";
while(<FIND2>) {
chop;
push(@rpath, $_);

15
record-failed.pl Executable file
View File

@@ -0,0 +1,15 @@
#!/usr/local/bin/perl
# Write an actions log for a login
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
($username, $sid, $remoteip, $localip) = @ARGV;
if ($username && $sid && $remoteip) {
$WebminCore::remote_user = $remote_user = $username;
$main::session_id = $sid;
$0 = "miniserv.pl";
&webmin_log("login", undef, undef, undef, "global", undef,
undef, $remoteip);
}