michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-08 08:19:57 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
Files
dev/patch-api
webmin/exports-nfs4/edit_export.cgi
Jamie Cameron 124a353a9f Fix missing help files
2014-05-17 11:23:49 -07:00

435 lines
16 KiB
Perl
Executable File
Raw Permalink Blame History

#!/usr/bin/perl
# edit_export.cgi
# Allow editing of one export to a client
require './exports-lib.pl';
&ReadParse();
local $via_pfs = 0;
local $nfsv = nfs_max_version("localhost");
my $is_new=$in{'new'} ? 1 : 0;
if ($in{'new'}) {
&ui_print_header(undef, $text{'create_title'}, "", "create_export");
$via_pfs = ($nfsv == 4) ? 1 : 0;
&list_exports(); # only to retrieve nfsv4_root
$exp->{"pfs"} = $nfsv4_root;
}
else {
&ui_print_header(undef, $text{'edit_title'}, "", "edit_export");
@exps = &list_exports();
$exp = $exps[$in{'idx'}];
%opts = %{$exp->{'options'}};
}
# WebNFS doesn't exist on Linux
local $linux = ($gconfig{'os_type'} =~ /linux/i) ? 1 : 0;
print qq*
<SCRIPT language="JavaScript">
<!--
function virtual_root(){
if(document.forms[0].is_pfs.checked==1)
document.forms[0].pfs_dir.disabled=1;
else
document.forms[0].pfs_dir.disabled=0;
}
function selectv4(selected){
if(selected){
document.forms[0].pfs_dir.disabled=0;
document.forms[0].is_pfs.disabled=0;
}
else{
document.forms[0].pfs_dir.disabled=1;
document.forms[0].is_pfs.disabled=1;
}
}
function enterbindto(){
if(document.forms[0].pfs_dir.value==""){
if('$nfsv4_root' == "")
alert('$text{'alert_no_nfsv4root'}');
else
document.forms[0].pfs_dir.value="$nfsv4_root";
}
}
window.onload = function() {
if ($is_new)
virtual_root();
maj_flav();
}
function disable_all(){
document.forms[0].host.disabled=1;
document.forms[0].netgroup.disabled=1;
document.forms[0].network.disabled=1;
document.forms[0].netmask.disabled=1;
document.forms[0].address.disabled=1;
document.forms[0].prefix.disabled=1;
}
function everybody_select(){
disable_all();
}
function hostname_select(){
disable_all();
document.forms[0].host.disabled=0;
}
function public_select(){
disable_all();
}
function netgroup_select(){
disable_all();
document.forms[0].netgroup.disabled=0;
}
function network_select(){
disable_all();
document.forms[0].network.disabled=0;
document.forms[0].netmask.disabled=0;
// Autofill
if(document.forms[0].network.value==""){
document.forms[0].network.value="192.168.0.1";
document.forms[0].netmask.value="255.255.255.0";
}
}
function ipv6_select(){
disable_all();
document.forms[0].address.disabled=0;
document.forms[0].prefix.disabled=0;
}
function maj_flav(){
lgthR = document.forms[0].selectRight.options.length;
var str="";
for(var i=0;i<lgthR;i++){
text=document.forms[0].selectRight.options[i].value;
str+=(text+",");
}
document.forms[0].the_flav.value=str;
}
function clickLtoR(){
lgthL = document.forms[0].selectLeft.options.length;
for(var i=0;i<lgthL;i++){
if(document.forms[0].selectLeft.options[i].selected){
text=document.forms[0].selectLeft.options[i].text;
value=document.forms[0].selectLeft.options[i].value;
lgth = document.forms[0].selectRight.options.length;
document.forms[0].selectRight.options[lgth] = new Option(text,value);
}
}
maj_flav();
}
function clickRtoL(){
lgth = document.forms[0].selectRight.options.length;
for(var i=0;i<lgth;i++){
if(document.forms[0].selectRight.options[i].selected){
document.forms[0].selectRight.options[i] = null;
i--; lgth = document.forms[0].selectRight.options.length;
}
}
maj_flav();
}
function clickUp(){
idx=document.forms[0].selectRight.selectedIndex;
if(idx==0) return;
tmpText=document.forms[0].selectRight.options[idx-1].text;
tmpValue=document.forms[0].selectRight.options[idx-1].value;
document.forms[0].selectRight.options[idx-1]=new Option(document.forms[0].selectRight.options[idx].text,document.forms[0].selectRight.options[idx].value);
document.forms[0].selectRight.options[idx]=new Option(tmpText,tmpValue);
document.forms[0].selectRight.selectedIndex=idx-1;
maj_flav();
}
function clickDown(){
lgth = document.forms[0].selectRight.options.length;
idx=document.forms[0].selectRight.selectedIndex;
if(idx>=lgth-1) return;
tmpText=document.forms[0].selectRight.options[idx+1].text;
tmpValue=document.forms[0].selectRight.options[idx+1].value;
document.forms[0].selectRight.options[idx+1]=new Option(document.forms[0].selectRight.options[idx].text,document.forms[0].selectRight.options[idx].value);
document.forms[0].selectRight.options[idx]=new Option(tmpText,tmpValue);
document.forms[0].selectRight.selectedIndex=idx+1;
maj_flav();
}
-->
</SCRIPT>*;
#--------------------------------------------------------------------
# Get values for export to
# Mode : 0 = public, 1 = netgroup NIS, 2= IPv4 network, 3= everybody,
# 4=hostname, 5 = gss, 6= IPv6 address
#---------------------------------------------------------------------
my $h = $exp->{'host'};
# and value for authentication
local $auth = "", $sec = "";
my $html="";
# parse security flavors list and build html code for "select" component
while ($h =~/^(((gss\/)?(krb5|spkm-3|lipkey))|\sys)([ip]?)(([,:](\S+))|$)/ || $h =~/^gss\/(krb5|spkm-3|lipkey)([ip]?)$/) {
$auth = $1; # sys, krb5, spkm-3 or lipkey
$sec=$5; # authentication(""), integrity("i"), privacy("p")
my $to_add=0;
my $suffix="";
if($sec eq "i"){ $to_add=1; $suffix=" (i)" }
elsif($sec eq "p"){ $to_add=2; $suffix=" (p)" }
if($auth eq "sys"){
$html.=qq*<OPTION VALUE="0">sys\n*;
}
elsif($auth eq "gss/krb5" || $auth eq "krb5"){
$val=1+$to_add;
$html.=qq*<OPTION VALUE="$val">kerberos 5$suffix\n*;
}
elsif($auth eq "gss/spkm-3" || $auth eq "spkm-3"){
$val=4+$to_add;
$html.=qq*<OPTION VALUE="$val">spkm-3$suffix\n*;
}
elsif($auth eq "gss/lipkey" || $auth eq "lipkey"){
$val=7+$to_add;
$html.=qq*<OPTION VALUE="$val">lipkey$suffix\n*;
}
$h=$8;
}
if($html eq ""){ # Default is sys
$html=qq*<OPTION VALUE="0">sys\n*;
}
# parse hosts
if ($h eq "=public") { $mode = 0; }
elsif ($h =~ /^\@(.*)/) { $mode = 1; $netgroup = $1; }
elsif ($h =~ /^(\S+)\/(\S+)$/ && check_ip6address($1)) { $mode = 6; $address = $1; $prefix = $2; }
elsif ($h =~ /^(\S+)\/(\S+)$/) {$mode = 2; $network = $1; $netmask = $2; }
elsif ($h eq "" or $h eq "*") { $mode = 3; }
else { $mode = 4; $host = $h; }
print "<form action=save_export.cgi>\n";
print "<input type=hidden name=new value='$in{'new'}'>\n";
print "<input type=hidden name=idx value='$in{'idx'}'>\n";
print "<input type=hidden name=the_flav value='sys'>\n";
#-----------------------------------------------------------------
# Exports details
#-----------------------------------------------------------------
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'edit_details'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
# Choice between NFSv3 or NFSv4 (if system supports NFSv4, else default to NFSv3).
if ($nfsv == 4) {
print "<tr> <td>",&hlink("<b>$text{'edit_nfs_vers'}</b>","vers"),"</td>\n";
printf qq*<td colspan=3><input type=radio name=via_pfs value=1 checked onClick="selectv4(true)"> 4\n*;
printf qq*<input type=radio name=via_pfs value=0 %s onClick="selectv4(false)"> 3 (or lower)</td> </tr>\n*;
} else {
printf "<tr><td><input type=hidden name=via_pfs value=0></td></tr>\n";
}
# Show 'directory to export' input
print "<tr> <td>",&hlink("<b>$text{'edit_dir'}</b>","dir"),"</td>\n";
print "<td colspan=3><input name=dir size=30 value=\"$exp->{'dir'}\">",
&file_chooser_button("dir", 1);
# Show 'NFSv4 root' checkbox
if ($nfsv == 4) {
printf qq*<td> <input type=checkbox name=is_pfs %s onClick="virtual_root()"> $text{'edit_ispfs'} </td></tr>\n*,defined($opts{'fsid'}) ? "checked" : "";
}
# Show 'bind to' input only for new export (else, bind is already done...)
if ($in{'new'} && $nfsv==4) {
print "<tr> <td>$text{'edit_in'}</td>\n";
print qq*<td><input name=pfs_dir size=30 onclick="enterbindto()"></td> </tr>\n*;
}
# Show active input
print "<tr> <td>",&hlink("<b>$text{'edit_active'}</b>","active"),"</td>\n";
printf "<td colspan=3><input type=checkbox name=active value=1 %s> $text{'yes'}\n",
$in{'new'} || $exp->{'active'} ? 'checked' : '';
#----------------------------------------------------------------
# Host selection
#----------------------------------------------------------------
print &ui_table_end();
print &ui_table_start($text{'hostsec_host'},'width=100%');
# Everybody (3)
printf "<tr><td><input type=radio name=mode value=3 %s onClick=\"everybody_select()\"> $text{'edit_all'} </td>\n",
$mode == 3 ? "checked" : "";
# Hostname (4)
printf "<td colspan=2><input type=radio name=mode value=4 %s onClick=\"hostname_select()\"> $text{'edit_host'}\n",
$mode == 4 ? "checked" : "";
print "<input name=host size=31 value='$host'></td> </tr>\n";
# Public (0)
printf "<tr><td><input type=radio name=mode value=0 %s %s onClick=\"public_select()\"> $text{'edit_webnfs'}</td>\n",
$mode == 0 ? "checked" : "", $linux ? "disabled" : "";
# Netgroup (1)
printf "<td colspan=2><input type=radio name=mode value=1 %s onClick=\"netgroup_select()\"> $text{'edit_netgroup'}\n",
$mode == 1 ? "checked" : "";
print "<input name=netgroup size=25 value='$netgroup'></td> </tr>\n";
# IPV4 Network (2)
printf "<tr><td colspan=3><input type=radio name=mode value=2 %s onClick=\"network_select()\"> IPv4 $text{'edit_network'}\n",
$mode == 2 ? "checked" : "";
print qq*<input name=network size=15 value='$network'>\n*;
print "$text{'edit_netmask'} <input name=netmask size=15 value='$netmask'></td> </tr>\n";
# IPV6 Network (6)
printf "<tr><td colspan=3><input type=radio name=mode value=6 %s onClick=\"ipv6_select()\"> IPv6 $text{'edit_address'}\n",
$mode == 6 ? "checked" : "";
print "<input name=address size=39 value='$address'>\n";
print "$text{'edit_prefix'}<input name=prefix size=2 value='$prefix'></td> </tr>\n";
#----------------------------------------------------------------
# Flavors selection
#----------------------------------------------------------------
print &ui_table_end();
print qq*<table border width=100% valign="TOP">\n*;
print "<tr $tb> <td><b>$text{'hostsec_flavors'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
# Lists and buttons for security flavors selection
print qq*
<tr> <td>
$text{'hostsec_supported'}
<SELECT NAME="selectLeft" SIZE=4 MULTIPLE>
<OPTION VALUE="0">sys
<OPTION VALUE="1">kerberos 5
<OPTION VALUE="2">kerberos 5 (i)
<OPTION VALUE="3">kerberos 5 (p)
<OPTION VALUE="4">spkm-3
<OPTION VALUE="5">spkm-3 (i)
<OPTION VALUE="6">spkm-3 (p)
<OPTION VALUE="7">lipkey
<OPTION VALUE="8">lipkey (i)
<OPTION VALUE="9">lipkey (p)
</SELECT>
</td>
<td> <INPUT TYPE="button" NAME="buttonLtoR" VALUE=">>" onClick="clickLtoR()">
<INPUT TYPE="button" NAME="buttonRtoL" VALUE="<<" onClick="clickRtoL()"> </td>
<td>$text{'hostsec_enabled'}
<SELECT NAME="selectRight" SIZE=4 MULTIPLE>
$html
</SELECT>
</td>
<td> <INPUT TYPE="button" NAME="buttonUp" VALUE="$text{'hostsec_up'}" onClick="clickUp()">
<INPUT TYPE="button" NAME="buttonDown" VALUE="$text{'hostsec_down'}" onClick="clickDown()"></td>
<tr>
*;
print &ui_table_end();
#-----------------------------------------------------------------
# Exports options
#-----------------------------------------------------------------
print &ui_table_start($text{'edit_security'},'width=100%');
# Show read-only input
print "<tr> <td>",&hlink("<b>$text{'edit_ro'}</b>","ro"),"</td>\n";
printf "<td><input type=checkbox name=ro %s> $text{'yes'}\n",
defined($opts{'rw'}) ? "" : "checked";
# Show input for secure port
print "<td>",&hlink("<b>$text{'edit_insecure'}</b>","insecure"),"</td>\n";
printf "<td><input type=checkbox name=insecure %s> $text{'yes'}\n",
defined($opts{'insecure'}) ? "" : "checked";
# Show subtree check input
print "<tr> <td>",&hlink("<b>$text{'edit_subtree_check'}</b>","subtree_check"),"</td>\n";
printf "<td><input type=checkbox name=no_subtree_check%s> $text{'yes'}\n",
defined($opts{'no_subtree_check'}) ? "checked" : "";
# Show nohide check input
print "<td>",&hlink("<b>$text{'edit_hide'}</b>","hide"),"</td>\n";
printf "<td><input type=checkbox name=nohide %s> $text{'yes'}\n",
defined($opts{'nohide'}) ? "" : "checked";
# Show sync input
print "<tr> <td>",&hlink("<b>$text{'edit_sync'}</b>","sync"),"</td>\n<td colspan=3>";
printf "<input type=checkbox name=sync %s> %s\n",defined($opts{'async'}) ? "" : "checked", $text{'yes'};
print "</td> </tr>\n";
# Show root trust input
print "<tr> <td>",&hlink("<b>$text{'edit_squash'}</b>","squash"),"</td> <td colspan=3>\n";
printf "<input type=radio name=squash value=0 %s> $text{'edit_everyone'}\n",
defined($opts{'no_root_squash'}) ? "checked" : "";
printf "<input type=radio name=squash value=1 %s> $text{'edit_except'}\n",
!defined($opts{'no_root_squash'}) &&
!defined($opts{'all_squash'}) ? "checked" : "";
printf "<input type=radio name=squash value=2 %s> $text{'edit_nobody'}\n";
defined($opts{'all_squash'}) ? "checked" : "";
print "</td> </tr>\n";
# Show untrusted user input
print "<tr> <td>",&hlink("<b>$text{'edit_anonuid'}</b>","anonuid"),"</td> <td>\n";
printf "<input type=radio name=anonuid_def value=1 %s> $text{'edit_default'}\n",
defined($opts{'anonuid'}) ? "" : "checked";
printf "<input type=radio name=anonuid_def value=0 %s>\n",
defined($opts{'anonuid'}) ? "checked" : "";
printf "<input name=anonuid size=8 value=\"%s\">\n",
$opts{'anonuid'} ? getpwuid($opts{'anonuid'}) : "";
print &user_chooser_button("anonuid", 0),"</td>\n";
# Show untrusted group input
print "<td>",&hlink("<b>$text{'edit_anongid'}</b>","anongid"),"</td> <td>\n";
printf "<input type=radio name=anongid_def value=1 %s> $text{'edit_default'}\n",
defined($opts{'anongid'}) ? "" : "checked";
printf "<input type=radio name=anongid_def value=0 %s>\n",
defined($opts{'anongid'}) ? "checked" : "";
printf "<input name=anongid size=8 value=\"%s\">\n",
$opts{'anongid'} ? getgrgid($opts{'anongid'}) : "";
print &group_chooser_button("anongid", 0),"</td> </tr>\n";
#-----------------------------------------------------------------
# NFSv2 specific options
#-----------------------------------------------------------------
if ($nfsv < 4) {
print "<tr $tb> <td colspan=4><b>$text{'edit_v2opts'}</b></td> </tr>\n";
# Show input for relative symlinks
print "<tr> <td>",&hlink("<b>$text{'edit_relative'}</b>","link_relative"),"</td>\n";
printf "<td><input type=radio name=link_relative value=1 %s> $text{'yes'}\n",
defined($opts{'link_relative'}) ? "checked" : "";
printf "<input type=radio name=link_relative value=0 %s> $text{'no'}</td>\n",
defined($opts{'link_relative'}) ? "" : "checked";
# Show deny access input
print "<td>",&hlink("<b>$text{'edit_noaccess'}</b>","noaccess"),"</td>\n";
printf "<td><input type=radio name=noaccess value=1 %s> $text{'yes'}\n",
defined($opts{'noaccess'}) ? "checked" : "";
printf "<input type=radio name=noaccess value=0 %s> $text{'no'}</td> </tr>\n",
defined($opts{'noaccess'}) ? "" : "checked";
# Show untrusted UIDs input
print "<tr> <td>",&hlink("<b>$text{'edit_uids'}</b>","squash_uids"),"</td> <td>\n";
printf "<input type=radio name=squash_uids_def value=1 %s> $text{'edit_none'}\n",
$opts{'squash_uids'} ? "" : "checked";
printf "<input type=radio name=squash_uids_def value=0 %s>\n",
$opts{'squash_uids'} ? "checked" : "";
printf "<input name=squash_uids size=15 value=\"%s\"></td>\n",
$opts{'squash_uids'};
# Show untrusted GIDs input
print "<td>",&hlink("<b>$text{'edit_gids'}</b>","squash_gids"),"</td> <td>\n";
printf "<input type=radio name=squash_gids_def value=1 %s> $text{'edit_none'}\n",
$opts{'squash_gids'} ? "" : "checked";
printf "<input type=radio name=squash_gids_def value=0 %s>\n",
$opts{'squash_gids'} ? "checked" : "";
printf "<input name=squash_gids size=15 value=\"%s\"></td> </tr>\n",
$opts{'squash_gids'};
}
print &ui_table_end();
if (!$in{'new'}) {
print "<table width=100%><tr>\n";
print "<td><input type=submit value=\"$text{'save'}\"></td>\n";
print "<td align=right><input type=submit name=delete ",
"value=\"$text{'delete'}\"></td>\n";
print "</tr></table>\n";
}
else {
print "<input type=hidden name=new value=1>\n";
print "<input type=submit value=\"$text{'create'}\">\n";
}
&ui_print_footer("", $text{'index_return'});
Reference in New Issue View Git Blame Copy Permalink