/usr/lib/cgi-bin/samba/smbhelp.pl is in smb2www 980804-41.
This file is owned by root:root, with mode 0o755.
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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | #! /usr/bin/perl
use smb2www;
# Debian: is smb2www enabled?
CheckEnabled() or exit 0;
%helptext = ();
open (HELPTEXT,"$cfg{cfgdir}/$cfg{language}_help.lang") or die "SMB2WWW: No language support found for $cfg{language} help";
while (<HELPTEXT>) {
if ( $_ =~/([\w\_]+)\s*=\s*(.+)/ ) {
$helptext{$1} = $2;
}
}
close HELPTEXT;
header ($helptext{header},"norefresh");
print "<TR><TD></TD></TR></TABLE>\n";
print "<H1>$helptext{header}</H1>\n";
print "<BR>\n";
print $helptext{info}."\n";
print "<BR>\n";
print $helptext{info2}."\n";
print "<BR>\n";
print "<TABLE CELLPADDING=\"5\" BORDER=\"0\">\n";
table ( image ($cfg{icon_other}, "$text{othernet}"),
"$helptext{othernet}",
""
);
table ( image ($cfg{icon_all},"$text{network}"),
"$helptext{network}",
""
);
table ( image ($cfg{icon_group},"$text{workgroup}"),
"$helptext{workgroup}",
""
);
table ( image ($cfg{icon_computer},"$text{shares}"),
"$helptext{shares}",
""
);
table ( image ($cfg{icon_share},"$text{share}"),
"$helptext{share}",
""
);
table ( image ($cfg{icon_dir},"$text{dir}"),
"$helptext{dir}",
""
);
table ( image ($cfg{icon_file},"$text{file}"),
"$helptext{file}",
""
);
table ( image ($cfg{icon_archive}, "TAR"),
"$helptext{tar}",
""
);
table ( image ($cfg{icon_help}, "$text{help}"),
"$helptext{help}",
""
);
my $referer=$ENV{'HTTP_REFERER'} || "$cfg{cgiroot}/smb2www.pl";
trailer( href("$referer", image($cfg{icon_all}, "$text{ent_net}") . "<BR><FONT SIZE=\"+1\"><B>$text{goback}</B></FONT><BR>" ),
"<H6>Language support for " . ucfirst($cfg{language}) . " created by $text{lang_author}</H6>" );
|