Tryag File Manager

//usr/local/frontpage/version5.0/admin/1033/copyrole.htm

function    Visascii(ch)
{
    return (!(ch.charCodeAt(0) & 0x80)); 
}

function Visspace(ch) 
{
    return (ch.charCodeAt(0) == 32) || ((9 <= ch.charCodeAt(0)) && (ch.charCodeAt(0) <= 13)); 
}

function stripWS(str)
{
    var b = 0;
    var e = str.length;
    while (str.charAt(b) && (Visascii(str.charAt(b)) && Visspace(str.charAt(b))))
        b++;
    while ((b < e) && (Visascii(str.charAt(e-1)) && Visspace(str.charAt(e-1))))
        e--;
    return ((b>=e)?"":str.substring(b, e ));
}

var L_NoFieldEmpty_TEXT = " field can't be empty.";
function CheckForEmptyField(text_orig,field_name)
{
    var text = stripWS(text_orig);
    if (text.length == 0)
    {
        alert(field_name + L_NoFieldEmpty_TEXT);
        return false;
    }
    return (true);
}

function CheckForEmptyFieldNoAlert(text_orig)
{
    var text = stripWS(text_orig);
    if (text.length == 0)
    {
        return false;
    }
    return (true);
}

var L_WrongEmailName1_TEXT = "The e-mail address specified in the ";
var L_WrongEmailName2_TEXT = " box is not complete. Please type a complete e-mail address, in the format name@domain.";
var L_TextWithoutSpaces1_TEXT="You must enter text without spaces in field ";

function CheckForAtSighInEmailName(text_orig,field_name)
{
    var text = stripWS(text_orig);
    if (!CheckForEmptyField(text_orig,field_name)) return false;
    var indexAt = 0;
    var countAt = 0;
    var countSpace = 0;
    var len = text.length;
    while(len--)
    {
        if (text.charAt(len) == '@') 
        {
            indexAt = len;
            countAt++;
        }  
        if (text.charAt(len) == ' ')
            countSpace ++;

}    
    if ((countAt == 0) ||
        (indexAt == 0) ||
        (indexAt == (text.length-1))
        )
    {
        alert(L_WrongEmailName1_TEXT + field_name + L_WrongEmailName2_TEXT);
        return false;
    }

if (countSpace !=0 )
    {
        alert(L_TextWithoutSpaces1_TEXT + field_name);
        return false;

}
    return (true);
}

var L_NoEmptyRole_TEXT = "You must enter a role name.";
function CheckEmptyRole(string,field_name)
{
    var text = stripWS(string);
    if (text.length == 0)
    {
        alert(L_NoEmptyRole_TEXT);
        return (false);
    }
    return (true);

}

var L_RoleName_TEXT = "Role Name";
var L_noRightsSelected_TEXT = "No rights are selected. Please select at least one right for the role.";
function newr()
{
    if (!CheckEmptyRole(document.forms.frm.name.value,L_RoleName_TEXT)) 
        return; 
    else 
    {
        if (!isValidRoleName(document.forms.frm.name.value))
            return false;
    }

function selectall(obj_checkboxs,vbool)    
{    
    if (obj_checkboxs == null) return;    
    var checkboxs = obj_checkboxs;    
    var len = checkboxs.length;    
    if (len == null)    
    {    
        checkboxs.checked = vbool;    
    }    
    else    
        for (i=0; i<checkboxs.length; i++)    
            checkboxs[i].checked = vbool;    
}

var L_InvalidCharacterInName_TEXT = " is not a valid character in a role name";

function isValidRoleName(str) {
var sInvalidChars = ",|\"'\\/[]:<>+=,;?*";

var index=0;

while (index < str.length) {
    if (sInvalidChars.indexOf(str.charAt(index))!=-1) {
        alert(str.charAt(index) + L_InvalidCharacterInName_TEXT);
        return false;
    }
    index++;
    }
return true;
}

function prefill()
{

<ows:if type=web name=InheritPermissions condition=equal result=false>
    document.forms.frm.name.focus();
</ows:if>
}

</script>
</HEAD>

<table border="0" width="100%" height="100%" cellpadding=0 cellspacing=0 class=main>
<script Language="javascript">
var L_helplink_text="1033";

function HelpWindow(strHelpUrl)
{
	var url = "help/" + L_helplink_text+strHelpUrl;
    var wndHelp = window.open(url, "MSOWSHELP", "width=187,height=500,menubar,scrollbars,toolbar,resizable");
}
</script>
 <tr>
  <td width=100% valign=top colspan=6>
   <table width=100% border="0" class="ms-bannerframe" cellpadding=3 cellspacing=0>
    <tr>
	 <td nowrap valign="middle" align="left"><img alt="Logo" src="/_vti_bin/offlogo.gif" width="28" height="28" id=Image1></td>
     <td nowrap class="ms-banner" align=left height=34>
      <a ACCESSKEY=O href="../../" id=Home><ID ID=Home2>Home</ID></a>
      <font size="2" color="#FFFFFF">|</font>
      <ID><a ACCESSKEY=M href="fpadmcgi.exe?page=webadmin.htm" ID=Administration><ID ID=Administration2>Administration</ID></a></ID>
      <font size="2" color="#FFFFFF">|</font>
<ows:if type=vserver name=hascollabsupport condition=equal result=true>
      <ID><a ACCESSKEY=P href="javascript:HelpWindow('/collab/wsahome.htm');" ID=Help ><ID ID=Help2Collab>Help</ID></a></ID>
</ows:if>
<ows:if type=vserver name=hascollabsupport condition=notequal result=true>
      <ID><a ACCESSKEY=P href="javascript:HelpWindow('/publish/fpaHome.htm');" ID=Help ><ID ID=Help2Publish>Help</ID></a></ID>
</ows:if>

</td>
     <td width=99%>&nbsp;</td>
    </tr>
   </table>
  </td>
 </tr>

<ows:if type=web name=InheritPermissions condition=equal result=true>

<tr> 
  <td class="leftbar">&nbsp;</td>
  <td valign=top height="100%">
   <table width=100%   border="0" class="TitleArea" cellpadding=3> 
    <tr> 
     <td  style="padding-bottom: 0px" valign=top> 
        <LocID ID=ErrorMSGWebIherit>This page is available only for a web with unique permissions.</LocID> 
     </td>
    </tr>
   </table>  
  </td>
</tr>

</ows:if>

<ows:if type=web name=InheritPermissions condition=equal result=false>

<tr> <td valign=top class="leftbar" colspan=4> <table width=100% border="0" class="TitleArea" cellpadding=3> <tr> <td style="padding-bottom: 0px"> <table width=100% cellpadding=0 cellspacing=0 border=0> <tr> <td align=center valign=top nowrap width="105" height="40"> <img alt="Icon" src= /_vti_bin/settings.gif  width="43" height="43" id=icon_alt> </td> <td width=27>&nbsp; </td> <td nowrap> <table cellpadding=0 cellspacing=0 border=0> <tr> <td nowrap class="TitleArea"> <ows:if type=vserver name=hasCollabSupport condition=equal result=true>FrontPage Server Extensions 2002 - </ows:if><ows:if type=vserver name=hasCollabSupport condition=notequal result=true>FrontPage Server Extensions 2002 - </ows:if> <ows:if type=web name=IsRoot condition=equal result=true> <ID ID=Web_description_2>Site Administration for</ID> </ows:if> <ows:if type=web name=IsRoot condition=equal result=false> <ID ID=Web_description_3>Web site Administration for</ID> </ows:if> "<ows:var type=web name=fullwebname></ows:var>" </td> </tr> <tr> <td ID=AdminPageTitle nowrap class="PageTitle">Copy the role <ows:var type=web name=rolelocal></ows:var>&nbsp;</td> </tr> </table> </td> </tr> </table> <table cellpadding=0 cellspacing=0 border=0 width=100%> <tr> <td height=5 colspan=5><img src="/_vti_bin/blank.gif" width="1" height="1"></td> </tr> <tr> <td class="SectionLine" height=2 colspan=5><img src="/_vti_bin/blank.gif" width="1" height="1"></td> </tr> </table> </td> <td width=1px></td> </tr> </table> </td> </tr>

<tr valign=top>
  <TD height=100% class=ms-nav> <TABLE height=100% class=ms-navframe CELLPADDING=0 CELLSPACING=4 border="0" width=133px> <tr valign=top> <td width=100%>&nbsp;</td> <td class=ms-verticaldots>&nbsp;</td> </tr> </TABLE> </TD> 
  <td valign=top height="100%" width="100%">
   <table class=propertysheet border="0" width="100%" cellspacing="4" cellpadding="0">
 
    <TR>
     <TD class=PropertySheet ID=DescriptionText colspan=3>Use this page to copy a role.  You can copy both the rights and the users assigned to the existing role, or copy the role without the users. 
     </TD>
     <td width=1px></td> 
    </TR>
    <TR>
     <td height=2 colspan=3><img src=/_vti_bin/blank.gif width="1" height="1"></td> 
    </TR>

<TR>
     <TD>
      <TABLE class=propertysheet border="0" width="100%" cellspacing="0" cellpadding="0">
       <TR><TD class=ThinSectionLine height=1 colspan=4><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
       </TR>
       <TR>
        <TD nowrap rowspan="4"></TD>
        <TD class="descriptiontext" rowspan="4" valign="top" align="left">
         <TABLE border=0 cellpadding=1 cellspacing=0>
          <TR>
           <TD ID=RoleHeading class=SectionHeader height=28 valign=top>Role Name and Description</TD>
          </TR>
          <TR>
           <TD ID=DescriptionHeading class="descriptiontext">Enter a name and description for the new role and choose whether to duplicate the list of users.</TD>
          </TR>
          <TR>
           <TD class="descriptiontext"><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
          </TR>
         </TABLE>
        </TD>
       </TR>
       <TR>
        <TD class="Authoringcontrols" colspan=2 height=6><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
       </TR>
       <TR>        
        <TD class="AuthoringControls">
         <TABLE border="0" width="100%" cellspacing="4" cellpadding="0">
          <TR>
           <TD ID=RoleName colspan=2 class="AuthoringControls">Role name</TD>
          </TR>
          <TR>
           <TD class="AuthoringControls">&nbsp;</TD>
           <TD class="AuthoringControls"><input type="text" size="40" name="name" maxlength=256

> 
           </TD>
          </TR>
          <TR>
           <TD ID=RoleDescription colspan=2 class="AuthoringControls">Description</TD>
          </TR>
          <TR>
           <TD class="AuthoringControls">&nbsp;</TD>
           <TD class="AuthoringControls"><input type="text" size="40" maxlenth=256 name="description"
            value="<ows:var type=parameter name=description></ows:var>"
            >
           </TD>
          </TR>
         </TABLE>
        </TD>
       </TR>
       <TR>        
        <TD class="AuthoringControls">
         <TABLE border="0" width="100%" cellspacing="4" cellpadding="0">
          <TR>
           <TD class="Authoringcontrols" colspan=2 height=6><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
          </TR>
          <TR>
           <TD class="AuthoringControls">&nbsp;</TD>
           <TD class="AuthoringControls"><input type=checkbox name="cloneuser" size=15 maxlength="15"><LocID ID=CopyUsers>Copy users from </LocID><ows:var type=web name=rolelocal></ows:var><LocID ID=CopyUsers1>.</LocID> 
           </TD>
          </TR>
         </TABLE>
        </TD> 
       </TR>
       <TR><TD class=ThinSectionLine height=1 colspan=4><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
       </TR>
       <TR>
        <TD nowrap rowspan="4"></TD>
        <TD class="descriptiontext" rowspan="4" valign="top" align="left">
         <TABLE border=0 cellpadding=1 cellspacing=0>
          <TR>
           <TD ID=RightsHeading class=SectionHeader height=28 valign=top>Rights</TD>
          </TR>
          <TR>
           <TD ID=DescriptionHeading2 class="descriptiontext">Choose which rights to include in the new role.  You can keep the rights from the original role or make changes.  Use the <b>Select All</b> checkbox to assign all user rights to the role..</TD>
          </TR>
          <TR>
           <TD class="descriptiontext"><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
          </TR>
         </TABLE>
        </TD>
       </TR>
       <TR>        
        <TD class="AuthoringControls">
         <TABLE border="0" width="100%" cellspacing="4" cellpadding="0">
          <TR>
           <TD ID=SelectRights colspan=2 class="AuthoringControls">Select rights for this role</TD>
          </TR>
          <TR>
           <TD class="AuthoringControls">

<ows:for-each collection=rights length=0>
               <ows:if type=in_loop_var name=length condition=greater result=0>
                <TR>
                 <TD valign="top" align="left" class="DescriptionText">
                    <INPUT type="checkbox" name=selectroles onClick="javascript:{if (this.form.selectroles.checked) selectall(document.forms.frm.right,true); else selectall(document.forms.frm.right,false);};">
                 </TD>
                 <TD valign="middle" align="left" class="DescriptionText">
                 <LocID ID=diidSelAll><b>Select All.</b></LocID>
                 </TD>
                </TR>  
               </ows:if>  
              </ows:for-each>

<ows:for-each collection=rights >
               <ows:if type=in_loop_var name=length condition=greater result=0>

<ows:if type=in_loop_var name=NewGroup condition=equal result=1>
                 <TR>
                  <TD valign="top" align="left" class="DescriptionText" colspan=2>
                    <b><ows:var type=in_loop_var name=grouplocal></ows:var></b>
                  </TD>
                 </TR>  
                </ows:if>

<TR>
                 <TD valign="top" align="left" class="DescriptionText">
                    <INPUT type="checkbox" name=right value="<ows:var type=in_loop_var name=internal></ows:var>"
                    <ows:if type=in_loop_var name=IsSet condition=equal result=true>
                    checked
                    </ows:if>

onClick="javascript:changedependency('<ows:var type=in_loop_var name=internal></ows:var>');"
                    >
                 </TD>
                 <TD valign="middle" align="left" class="DescriptionText">
                   <ows:var type=in_loop_var name=local></ows:var>&nbsp;-&nbsp;<ows:var type=in_loop_var name=description></ows:var>
                 </TD>
                </TR>

</ows:if>  
              </ows:for-each>

</TD>
          </TR>
         </TABLE>
        </TD>
       </TR>
       <TR>
        <TD class="AuthoringControls">&nbsp;</TD>
       </TR>
       <TR><TD class=ThinSectionLine height=2 colspan=4><IMG src="/_vti_bin/blank.gif" height=1 width=1></TD>
       </TR>
       <TR>
        <TD>&nbsp;</TD>
       </TR>
       <TR>
        <TD align=right colspan=4 ID=diidSubmitsection>
        <input type=button id="btnSubmit" value=" Create role " onClick="newr();">
        <input ID=CancelBtn  name="cancel" Type="button" Value="     Cancel     " onClick="document.location='fpadmcgi.exe?page=role.htm';">
        </TD>  
       </TR>    
      </TABLE>
     </TD>
    </TR>
   </TABLE>
  </TD>
 </TR>

</ows:if>

</TABLE>

</body>
</html>