Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
newfeatures	[ DIR ]	drwxr-xr-x
CHANGELOG	990 B	-rw-r--r--
LICENSE	34.32 KB	-rw-r--r--
auto.pl	3.16 KB	-rwxr-xr-x
cgi_args.pl	857 B	-rwxr-xr-x
config	46 B	-rw-r--r--
config.info	271 B	-rw-r--r--
config.info.de	135 B	-rw-r--r--
config.info.nl	214 B	-rw-r--r--
countries.txt	9.3 KB	-rw-r--r--
create.cgi	1.16 KB	-rwxr-xr-x
create_form.cgi	936 B	-rwxr-xr-x
defaultacl	12 B	-rw-r--r--
delete.cgi	1.97 KB	-rwxr-xr-x
dereg.cgi	1.28 KB	-rwxr-xr-x
distribute-type-lib.pl	16.68 KB	-rwxr-xr-x
edit.cgi	3.27 KB	-rwxr-xr-x
edit_auto.cgi	1.91 KB	-rwxr-xr-x
edit_contact.cgi	4.18 KB	-rwxr-xr-x
edit_dereg.cgi	1.04 KB	-rwxr-xr-x
edit_import.cgi	1.38 KB	-rwxr-xr-x
edit_ns.cgi	2.04 KB	-rwxr-xr-x
edit_onecontact.cgi	2.93 KB	-rwxr-xr-x
edit_renew.cgi	1.67 KB	-rwxr-xr-x
edit_transfer.cgi	1.48 KB	-rwxr-xr-x
gandi-type-lib.pl	14.21 KB	-rwxr-xr-x
import.cgi	2.01 KB	-rwxr-xr-x
index.cgi	2.58 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
list.cgi	1.73 KB	-rwxr-xr-x
list_contacts.cgi	1.59 KB	-rwxr-xr-x
module.info	125 B	-rw-r--r--
module.info.af.auto	42 B	-rw-r--r--
module.info.ar.auto	43 B	-rw-r--r--
module.info.be.auto	55 B	-rw-r--r--
module.info.bg.auto	70 B	-rw-r--r--
module.info.ca.auto	39 B	-rw-r--r--
module.info.cs.auto	38 B	-rw-r--r--
module.info.da.auto	39 B	-rw-r--r--
module.info.de	39 B	-rw-r--r--
module.info.el.auto	45 B	-rw-r--r--
module.info.es.auto	42 B	-rw-r--r--
module.info.eu.auto	41 B	-rw-r--r--
module.info.fa.auto	37 B	-rw-r--r--
module.info.fi.auto	50 B	-rw-r--r--
module.info.fr.auto	45 B	-rw-r--r--
module.info.he.auto	39 B	-rw-r--r--
module.info.hr.auto	39 B	-rw-r--r--
module.info.hu.auto	41 B	-rw-r--r--
module.info.it.auto	40 B	-rw-r--r--
module.info.ja.auto	37 B	-rw-r--r--
module.info.ko.auto	32 B	-rw-r--r--
module.info.lt.auto	46 B	-rw-r--r--
module.info.lv.auto	42 B	-rw-r--r--
module.info.ms.auto	38 B	-rw-r--r--
module.info.mt.auto	47 B	-rw-r--r--
module.info.nl	38 B	-rw-r--r--
module.info.no.auto	38 B	-rw-r--r--
module.info.pl.auto	38 B	-rw-r--r--
module.info.pt.auto	40 B	-rw-r--r--
module.info.pt_BR.auto	43 B	-rw-r--r--
module.info.ro.auto	41 B	-rw-r--r--
module.info.ru.auto	57 B	-rw-r--r--
module.info.sk.auto	40 B	-rw-r--r--
module.info.sl.auto	38 B	-rw-r--r--
module.info.sv.auto	42 B	-rw-r--r--
module.info.th.auto	71 B	-rw-r--r--
module.info.tr.auto	36 B	-rw-r--r--
module.info.uk.auto	53 B	-rw-r--r--
module.info.ur.auto	49 B	-rw-r--r--
module.info.vi.auto	42 B	-rw-r--r--
module.info.zh.auto	28 B	-rw-r--r--
module.info.zh_TW.auto	31 B	-rw-r--r--
namecheap-type-lib.pl	15.86 KB	-rw-r--r--
newgandi-type-lib.pl	22.86 KB	-rwxr-xr-x
rcom-type-lib.pl	21.94 KB	-rwxr-xr-x
renew.cgi	1.18 KB	-rwxr-xr-x
save.cgi	3.17 KB	-rwxr-xr-x
save_auto.cgi	1.96 KB	-rwxr-xr-x
save_contact.cgi	2.06 KB	-rwxr-xr-x
save_ns.cgi	1.79 KB	-rwxr-xr-x
save_onecontact.cgi	2.27 KB	-rwxr-xr-x
transfer.cgi	1.43 KB	-rwxr-xr-x
update_contacts.cgi	1.31 KB	-rw-r--r--
view_contact.cgi	1.42 KB	-rwxr-xr-x
virtual_feature.pl	12.34 KB	-rwxr-xr-x
virtualmin-registrar-lib.pl	7.98 KB	-rwxr-xr-x

Code Editor : edit_contact.cgi

#!/usr/bin/perl
# Show a form to edit contact details for some domain
use strict;
no strict 'refs';
use warnings;
our (%text, %in);

require './virtualmin-registrar-lib.pl';
&ReadParse();
&error_setup($text{'contact_err'});

# Get the Virtualmin domain
&can_domain($in{'dom'}) || &error($text{'contact_ecannot'});
my $d = &virtual_server::get_domain_by("dom", $in{'dom'});
$d || &error(&text('contact_edom', $in{'dom'}));
&can_contacts($d) == 1 || can_contacts($d) == 3 ||
	&error(&text('contact_edom', $in{'dom'}));
my ($account) = grep { $_->{'id'} eq $d->{'registrar_account'} }
		  &list_registrar_accounts();
$account || &error(&text('contact_eaccount', $in{'dom'}));

# Get contact info from registrar
my $cfunc = "type_".$account->{'registrar'}."_get_contact";
my $cons = &$cfunc($account, $d);
ref($cons) || &error($cons);

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

my $lfunc = "type_".$account->{'registrar'}."_list_contacts";
my $tabbed;
if (can_contacts($d) == 3 && defined(&$lfunc)) {
	# Start of tabs for contact selection mode
	my @tabs = ( [ 'create', $text{'contact_createtab'} ],
		  [ 'select', $text{'contact_selecttab'} ] );
	print &ui_tabs_start(\@tabs, 'mode', $in{'mode'} || 'create', 1);
	$tabbed = 1;
	}

# Start section for new contact creation
print &ui_tabs_start_tab('mode', 'create') if ($tabbed);
print &ui_form_start("save_contact.cgi", "post");
print &ui_hidden("dom", $in{'dom'});

# Show fields for each contact type
my $count;
foreach my $con (@$cons) {
	# Is this the same as the first one?
	my $same = undef;
	if ($con ne $cons->[0]) {
		$same = &contact_hash_to_string($cons->[0]) eq
			&contact_hash_to_string($con) ? 1 : 0;
		}

print &ui_hidden_table_start($text{'contact_header_'.
					   lc($con->{'purpose'})} ||
					$con->{'purpose'},
				     "width=100%", 2, $con->{'purpose'}, !$same,
				     [ "width=30%" ]);
	if (defined($same)) {
		# Show option to make same as first
		print &ui_table_row($text{'contact_same'},
			&ui_yesno_radio($con->{'purpose'}.'same', $same));
		print &ui_table_hr();
		}

if ($count++ == 0) {
		# Show registrar account
		print &ui_table_row($text{'ns_account'},
				    $account->{'desc'});
		}

my @schema = &get_contact_schema($account, $d, $con->{'purpose'});
	foreach my $s (@schema) {
		my $field;
		my $n = $con->{'purpose'}.$s->{'name'};
		if ($s->{'readonly'}) {
			# Just show value
			$field = $con->{$s->{'name'}};
			if ($s->{'choices'}) {
				my ($c) = grep { $_->[0] eq $field }
					    @{$s->{'choices'}};
				$field = $c->[1] if ($c);
				}
			}
		elsif ($s->{'choices'}) {
			# Select from menu
			my @choices = @{$s->{'choices'}};
			if ($s->{'opt'}) {
				unshift(@choices,
					[ undef, $text{'contact_default'} ]);
				}
			$field = &ui_select($n, $con->{$s->{'name'}},
					    \@choices, 1, 0, 1);
			}
		elsif ($s->{'opt'} == 1) {
			# Optional value
			$field = &ui_opt_textbox($n,
				$con->{$s->{'name'}}, $s->{'size'},
				$text{'contact_default'});
			}
		else {
			# Required value
			$field = &ui_textbox($n,
				$con->{$s->{'name'}}, $s->{'size'});
			}
		print &ui_table_row($text{'contact_'.lc($s->{'name'})}, $field);
		}

print &ui_hidden_table_end();
	}

print &ui_form_end([ [ "save", $text{'save'} ] ]);
print &ui_tabs_end_tab('mode', 'create') if ($tabbed);

if ($tabbed) {
	# Start section for existing contact selection
	print &ui_tabs_start_tab('mode', 'select');
	print &ui_form_start("update_contacts.cgi", "post");
	print &ui_hidden("dom", $in{'dom'});
	print &ui_table_start($text{'contact_sheader'}, undef, 2);

# Find all contacts the account has
	my ($ok, $allcons) = &$lfunc($account);
	print &ui_table_row($text{'ns_account'},
			    $account->{'desc'});

# Show selector for each contact type for the domain
	foreach my $con (@$cons) {
		print &ui_table_row(
			$text{'contact_header_'.lc($con->{'purpose'})} ||
			    $con->{'purpose'},
			&ui_select($con->{'purpose'}, $con->{'id'},
			    [ map { [ $_->{'id'},
				      &nice_contact_name($_, $account,) ] }
				  @$allcons ]));
		}

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'save'} ] ]);
	print &ui_tabs_end_tab('mode', 'select');
	print &ui_tabs_end(1);
	}

&ui_print_footer(&virtual_server::domain_footer_link($d));

${this.title}

Code Editor : edit_contact.cgi