# nfs_export.cgi
# Display a list of NFS exports on some host for the user to choose from
+$trust_unknown_referers = 1;
require './mount-lib.pl';
&ReadParse();
-&popup_header(&text('nfs_choose', $in{'server'}));
+&popup_header(&text('nfs_choose', &html_escape($in{'server'})));
print <<EOF;
<script>
function choose(f)
EOF
if ($error = &exports_list($in{'server'}, \@dirs, \@clients)) {
- print "<b>",&text('nfs_failed', $in{'server'},
+ print "<b>",&text('nfs_failed', &html_escape($in{'server'}),
"<p><tt>$error</tt><p>"),"</b>\n";
exit;
}
# Called in a pop-up javascript window to display a list of known NFS
# servers, generated by broadcasting on the NFS port
+$trust_unknown_referers = 1;
require './mount-lib.pl';
use Socket;
&popup_header($text{'nfs_server'});
# Called in a pop-up javascript window to display a list of known SMB
# servers, by calling smbclient to request the browse list from some server
+$trust_unknown_referers = 1;
require './mount-lib.pl';
use Socket;
&popup_header($text{'smb_choose'});