Changeset 543 for trunk/dns.cgi
- Timestamp:
- 12/10/13 16:22:10 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns.cgi
r533 r543 30 30 use Net::DNS; 31 31 use DBI; 32 32 33 use Data::Dumper; 33 34 … … 721 722 722 723 my @recargs = ($webvar{defrec}, $webvar{revrec}, $webvar{parentid}, 723 \$webvar{name}, \$webvar{type}, \$webvar{address}, $webvar{ttl}, $webvar{location}); 724 \$webvar{name}, \$webvar{type}, \$webvar{address}, $webvar{ttl}, $webvar{location}, 725 $webvar{expires}, $webvar{stamp}); 724 726 if ($webvar{type} == $reverse_typemap{MX} or $webvar{type} == $reverse_typemap{SRV}) { 725 727 push @recargs, $webvar{distance}; … … 769 771 $page->param(ttl => $recdata->{ttl}); 770 772 $page->param(typelist => $dnsdb->getTypelist($webvar{revrec}, $recdata->{type})); 771 773 if ($recdata->{stampactive}) { 774 $page->param(stamp => $recdata->{stamp}); 775 $page->param(stamp_until => $recdata->{expires}); 776 } 772 777 if ($webvar{defrec} eq 'n') { 773 778 fill_loclist($curgroup, $recdata->{location}); … … 785 790 my ($code,$msg) = $dnsdb->updateRec($webvar{defrec}, $webvar{revrec}, $webvar{id}, $webvar{parentid}, 786 791 \$webvar{name}, \$webvar{type}, \$webvar{address}, $webvar{ttl}, $webvar{location}, 792 $webvar{expires}, $webvar{stamp}, 787 793 $webvar{distance}, $webvar{weight}, $webvar{port}); 788 794 … … 2002 2008 $rec->{record_delete} = ($permissions{admin} || $permissions{record_delete}); 2003 2009 $rec->{locname} = '' unless ($permissions{admin} || $permissions{location_view}); 2010 # Timestamps 2011 if ($rec->{expires}) { 2012 $rec->{stamptype} = $rec->{ispast} ? 'expired at' : 'expires at'; 2013 } else { 2014 $rec->{stamptype} = 'valid after'; 2015 } 2016 # strip seconds and timezone? no, not yet. could probably offer a config knob on this display at some point. 2017 # $rec->{stamp} =~ s/:\d\d-\d+$//; 2018 delete $rec->{expires}; 2019 delete $rec->{ispast}; 2004 2020 } 2005 2021 $page->param(reclist => $foo2); … … 2032 2048 my $soa = $dnsdb->getSOA($webvar{defrec}, $webvar{revrec}, $webvar{parentid}); 2033 2049 $page->param(ttl => ($webvar{ttl} ? $webvar{ttl} : $soa->{minttl})); 2050 $page->param(stamp_until => ($webvar{expires} eq 'until')); 2051 $page->param(stamp => $webvar{stamp}); 2034 2052 } 2035 2053
Note:
See TracChangeset
for help on using the changeset viewer.