Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
newfeatures	[ DIR ]	drwxr-xr-x
CHANGELOG	137 B	-rw-r--r--
LICENSE	34.32 KB	-rw-r--r--
cgi_args.pl	327 B	-rwxr-xr-x
defaultacl	6 B	-rw-r--r--
edit.cgi	2.08 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
log_parser.pl	447 B	-rwxr-xr-x
modify-slavedns.pl	3.54 KB	-rwxr-xr-x
module.info	117 B	-rw-r--r--
module.info.nl	36 B	-rw-r--r--
save.cgi	2.67 KB	-rwxr-xr-x
virtual_feature.pl	14.96 KB	-rwxr-xr-x
virtualmin-slavedns-lib.pl	401 B	-rwxr-xr-x

Code Editor : edit.cgi

#!/usr/bin/perl
# Show a form for editing a slave domain's master IPs
use strict;
use warnings;
our (%text, %in);

require 'virtualmin-slavedns-lib.pl';
&ReadParse();

# Get and check the domain
&can_edit_slave($in{'dom'}) || &error($text{'edit_ecannot'});
my $z = &virtual_server::get_bind_zone($in{'dom'});
$z || &error($text{'edit_ezone'});
my $d = &virtual_server::get_domain_by("dom", $in{'dom'});
&virtual_server::require_bind();

&ui_print_header(&virtual_server::domain_in($d), $text{'edit_title'}, "");

print &ui_form_start("save.cgi");
print &ui_hidden("dom", $in{'dom'});
print &ui_table_start($text{'edit_header'}, undef, 2);

# Master IP addresses
my $masters = &bind8::find('masters', $z->{'members'});
my @mips = map { $_->{'name'} } @{$masters->{'members'}};
print &ui_table_row($text{'edit_master'},
	&ui_textarea("master", join("\n", @mips), 5, 20));

# Current records
my $file = &bind8::find('file', $z->{'members'});
if ($file) {
	my @recs = &bind8::read_zone_file(
		&bind8::make_chroot($file->{'values'}->[0]));
	if (@recs) {
		my @table;
		foreach my $r (grep { $_->{'type'} ne 'SOA' } @recs) {
			my $name = $r->{'name'};
			next if (!$name);	# Some $ directive
			if ($name =~ /^(\S+)\.$in{'dom'}\.$/) {
				$name = $1;
				}
			no warnings "once";
			my $type = $bind8::text{'type_'.$r->{'type'}};
			use warnings "once";
			if ($type) {
				$type .= " ($r->{'type'})";
				}
			else {
				$type = $r->{'type'};
				}
			push(@table, [ $name, $type,
				       join(" ", @{$r->{'values'}}) ]);
			}
		print &ui_table_row($text{'edit_recs'},
			&ui_columns_table(
			  [ $text{'edit_rname'}, $text{'edit_rtype'},
			    $text{'edit_rvalue'} ],
			  undef, \@table));
		}
	else {
		# None yet!
		print &ui_table_row($text{'edit_recs'},
				    "<i>$text{'edit_none'}</i>");
		}
	}

print &ui_table_end();
my $zoneinfo = &bind8::get_zone_name($in{'dom'}, 'any');
my $canadv = &foreign_available("bind8") &&
	  $zoneinfo &&
	  &bind8::can_edit_zone($zoneinfo);
print &ui_form_end([ [ undef, $text{'save'} ],
		     $canadv ? ( [ 'adv', $text{'edit_adv'} ] ) : ( ) ]);

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : edit.cgi