From 7ac845a01bed4ebaeeabf0cedc4dbf6042bcf2de Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 30 May 2016 15:09:23 -0700
Subject: [PATCH] remove debug messages
 https://sourceforge.net/p/webadmin/bugs/4768/

---
 cpan/cpan-lib.pl |  3 ---
 record-failed.pl | 15 +++++++++++++++
 2 files changed, 15 insertions(+), 3 deletions(-)
 create mode 100755 record-failed.pl

diff --git a/cpan/cpan-lib.pl b/cpan/cpan-lib.pl
index 22747cc6a..bd46f00f3 100755
--- a/cpan/cpan-lib.pl
+++ b/cpan/cpan-lib.pl
@@ -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, $_);
diff --git a/record-failed.pl b/record-failed.pl
new file mode 100755
index 000000000..042ea9b57
--- /dev/null
+++ b/record-failed.pl
@@ -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);
+	}