/usr/share/thpot/lib/catchall.pl is in tinyhoneypot 0.4.6-10.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | sub catchall {
$ENV{'PATH'} = '/bin:/usr/bin';
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
if ( $greeting != "" ) {
#TODO: This should check wether or not the command succeeds!
open(GREETING, "$greetbin|");
while(<GREETING>) {
print STDERR $_;
}
close(GREETING);
}
print STDERR "$prompt";
while (<STDIN>) {
open(LOG, ">>$sesslog");
print STDERR "$prompt";
print LOG $_;
close(LOG);
if (/exit|logout|quit/) {
return;
}
}
}
|