ispman/ispman-web/cgi-bin/tmpl/dns edit_AAAArecords.tmpl, NONE, 1.1 view_AAAArecords.tmpl, NONE, 1.1

Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/dns
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19284/ispman-web/cgi-bin/tmpl/dns

Added Files:
	edit_AAAArecords.tmpl view_AAAArecords.tmpl 
Log Message:
implemented feature request [ 1483788 ] ipv6 support
NOTE: ldap schema updated necessary!!!

--- NEW FILE: edit_AAAArecords.tmpl ---
<script type="text/javascript">
  var domain="<perl>$r->param("ispmanDomain")</perl>";
  var cgiurl=window.location.pathname;
  var hrefurl=window.location.href;
  
  function sortBy(column){
    location=cgiurl+"?mode=editDNSaAAARecords&ispmanDomain="+domain+"&sortby="+column;
  }
  
  function submitForm(f,action){
    switch(action){
	   case 'add':    f.mode.value="addDNSaAAARecord"; break;
	   case 'update': f.mode.value="modifyDNSaAAARecord"; break;
	   case 'delete': f.mode.value="deleteDNSaAAARecord"; break;
	}
	f.ispmanDomain.value=domain;
	f.action=cgiurl;
	f.submit();
  }
</script>

<perl>        
my $text="";
my $c=1;
my $thisDomain=$r->param("ispmanDomain");

$text.=qq|
<P>
@{[_("Editing AAAA Records for domain:")]} $thisDomain

<table class=dns>
  <tr>
    <th><a href='javascript:sortBy("host")'>@{[_("Hostname")]}</a></th>
    <th><a href='javascript:sortBy("ip")'>@{[_("IP Address")]}</a></th>
    <th><a href='javascript:sortBy("ptr")'>@{[_("Rev.")]}</a></th>
    <th>&nbsp;</th>
  </tr>

  <tr>
    <form method=POST>
    <input type=hidden name=ispmanDomain>
    <input type=hidden name=mode>
    <td><input type=text name=host></td>
    <td><input type=text name=ip></td>
    <td><input class=checkbox type=checkbox name=pTRRecord></td>        
    <td><input type=button onClick='submitForm(this.form,"add")' value='@{[_("Add")]}'></td>
	</form>
  </tr>
|;

my $sortby=$r->param("sortby") || "host";
my @sorted=();

if ($ispman->{'domain'}{'dns'}){
    if ($sortby eq 'ip') {
	@sorted=sort {
            $a->{'ip'} cmp $b->{'ip'} ||
		$a->{'host'} cmp $b->{'host'};
        } @{$ispman->{'domain'}{'dns'}};
    } elsif ($sortby eq 'ptr') {
	@sorted=sort {
            $a->{'ptr'} cmp $b->{'ptr'} ||
		$a->{'host'} cmp $b->{'host'}
        } @{$ispman->{'domain'}{'dns'}};
    } else {	
	@sorted=sort {
            $a->{'host'} cmp $b->{'host'}
        } @{$ispman->{'domain'}{'dns'}};
    }
}

for (@sorted){
		$text.="<tr>";
        $text.="<form method=POST>";
		$text.="<input type=hidden name='dn' value='@{[$ispman->getaAAARecordDn($thisDomain, $_->{'host'}, $_->{'ip'})]}'>";
		$text.="<input type=hidden name='ispmanDomain'>";
		$text.="<input type=hidden name='mode'>";
        $text.="<td><input type=text name='host' value='$_->{'host'}'></td>";
        $text.="<td><input type=text name='ip' value='$_->{'ip'}'></td>";
        $text.="<td><input class=checkbox type=checkbox name=pTRRecord ";
        $text.=" checked " if ($_->{'ptr'});
        $text.="></td>";
		$text.="<td>\n";
        $text.="<input type=image onClick='submitForm(this.form,\"update\")' src='".$ispman->getConfig("ispmanUrlPrefix")."/gfx/apply.gif'>\n";
		$text.="<input type=image onClick='submitForm(this.form,\"delete\")' src='".$ispman->getConfig("ispmanUrlPrefix")."/gfx/delete.gif'>\n";
		$text.="</td>\n";
        $text.="</form>";
        $text.="</tr>";
        $c++;
}
$text
</perl>

</table>


--- NEW FILE: view_AAAArecords.tmpl ---
<LINK HREF="<perl>$ispman->getConfig('ispmanUrlPrefix')</perl>/ispman.css" REL="stylesheet" TYPE="text/css">
   

<perl>
my $text="";
my $thisDomain=$r->param("ispmanDomain");

$text.=qq|        
@{[_("Readonly access granted.")]}
<br>
@{[_("This domain is locked and editable by [_1]", $ispman->{'domain'}{'ispmanDomainLockedBy'})]}
<br>

<P>
@{[_("Viewing AAAA Records for domain:")]} $thisDomain

<table border=1 cellpadding=0 cellspacing=5><tr>
<th><a href='$ENV{'SCRIPT_NAME'}?mode=editDNSaAAARecords&ispmanDomain=$thisDomain&sortby=host'>@{[_("Hostname")]}</a></th>
<th><a href='$ENV{'SCRIPT_NAME'}?mode=editDNSaAAARecords&ispmanDomain=$thisDomain&sortby=ip'>@{[_("IP Address")]}</a></th>
<th><a href='$ENV{'SCRIPT_NAME'}?mode=editDNSaAAARecords&ispmanDomain=$thisDomain&sortby=isrev'>@{[_("Rev.")]}</a></th></tr>|;

my $sortby=$r->param("sortby");
my @sorted=();
if ($sortby eq 'ip') {
	@sorted=sort {
                $a->{'ip'} cmp $b->{'ip'} ||
		$a->{'host'} cmp $b->{'host'};
                } @{$ispman->{'domain'}{'dns'}};
} elsif ($sortby eq 'ptr') {
	@sorted=sort {
		$a->{'ptr'} cmp $b->{'ptr'} ||
		$a->{'host'} cmp $b->{'host'} 
		} @{$ispman->{'domain'}{'dns'}};
} else {	
	@sorted=sort {
		$a->{'host'} cmp $b->{'host'}
		} @{$ispman->{'domain'}{'dns'}};
}

for (@sorted){
        $text.="<tr>";
        $text.="<td>$_->{'host'}</td>";
        $text.="<td>$_->{'ip'}</td>";
        $text.="<td>$_->{'ptr'}</td>";
        $text.="</tr>";
}
$text
</perl>
</table>



-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/