Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
ulang	[ DIR ]	drwxr-xr-x
xinha	[ DIR ]	drwxr-xr-x
CHANGELOG	15.09 KB	-rw-r--r--
add_address.cgi	558 B	-rwxr-xr-x
address_chooser.cgi	5.04 KB	-rwxr-xr-x
auto.pl	1.89 KB	-rwxr-xr-x
boxes-lib.pl	80.03 KB	-rwxr-xr-x
classlinks.sh	160 B	-rwxr-xr-x
config-ALL-linux	481 B	-rw-r--r--
config-aix	482 B	-rw-r--r--
config-freebsd	478 B	-rw-r--r--
config-hpux	478 B	-rw-r--r--
config-irix	477 B	-rw-r--r--
config-macos	478 B	-rw-r--r--
config-msc-linux	495 B	-rw-r--r--
config-netbsd	478 B	-rw-r--r--
config-openbsd	478 B	-rw-r--r--
config-openserver	483 B	-rw-r--r--
config-osf1	484 B	-rw-r--r--
config-qnx	478 B	-rw-r--r--
config-solaris	477 B	-rw-r--r--
config-unixware	477 B	-rw-r--r--
config.info	3.15 KB	-rw-r--r--
config.info.ca	3.54 KB	-rwxr-xr-x
config.info.de	1.59 KB	-rw-r--r--
config.info.el	4.76 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	2.9 KB	-rwxr-xr-x
config.info.no	3.09 KB	-rw-r--r--
copy.cgi	795 B	-rwxr-xr-x
copy_form.cgi	1.08 KB	-rwxr-xr-x
defaultuconfig	732 B	-rw-r--r--
delete_folders.cgi	1.27 KB	-rwxr-xr-x
delete_mail.cgi	6.67 KB	-rwxr-xr-x
detach.cgi	3 KB	-rwxr-xr-x
detachall.cgi	1.83 KB	-rwxr-xr-x
edit_auto.cgi	1.76 KB	-rwxr-xr-x
edit_comp.cgi	1.53 KB	-rwxr-xr-x
edit_folder.cgi	2.62 KB	-rwxr-xr-x
edit_ifolder.cgi	1 KB	-rwxr-xr-x
edit_imap.cgi	1.8 KB	-rwxr-xr-x
edit_pop3.cgi	1.64 KB	-rwxr-xr-x
edit_sig.cgi	499 B	-rwxr-xr-x
edit_virt.cgi	1.19 KB	-rwxr-xr-x
export.cgi	1.27 KB	-rwxr-xr-x
folders-lib.pl	102.93 KB	-rwxr-xr-x
import.cgi	2.97 KB	-rwxr-xr-x
inbox_login.cgi	1.36 KB	-rwxr-xr-x
inbox_login_error.cgi	1.12 KB	-rwxr-xr-x
inbox_logout.cgi	450 B	-rwxr-xr-x
index.cgi	12.21 KB	-rwxr-xr-x
list_addresses.cgi	8.47 KB	-rwxr-xr-x
list_folders.cgi	4.89 KB	-rwxr-xr-x
list_ifolders.cgi	2.77 KB	-rwxr-xr-x
mail_search.cgi	7.43 KB	-rwxr-xr-x
mailbox-lib.pl	65.52 KB	-rwxr-xr-x
module.info	296 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	152 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	256 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	300 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	305 B	-rw-r--r--
module.info.ca	26 B	-rw-r--r--
module.info.ca.auto	168 B	-rw-r--r--
module.info.cs	25 B	-rw-r--r--
module.info.cs.auto	142 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	159 B	-rw-r--r--
module.info.de	119 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	357 B	-rw-r--r--
module.info.es	26 B	-rw-r--r--
module.info.es.auto	163 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	166 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	242 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	149 B	-rw-r--r--
module.info.fr	26 B	-rw-r--r--
module.info.fr.auto	167 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	208 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	167 B	-rw-r--r--
module.info.hu	38 B	-rw-r--r--
module.info.hu.auto	173 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	151 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	213 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	177 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	180 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	168 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	137 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	146 B	-rw-r--r--
module.info.nl	29 B	-rw-r--r--
module.info.nl.auto	137 B	-rw-r--r--
module.info.no	19 B	-rw-r--r--
module.info.no.auto	122 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	170 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	159 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	165 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	173 B	-rw-r--r--
module.info.ru	55 B	-rw-r--r--
module.info.ru.auto	264 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	162 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	155 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	150 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	306 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	172 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	298 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	282 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	175 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	141 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	147 B	-rw-r--r--
newfolder.cgi	170 B	-rwxr-xr-x
print_mail.cgi	1.21 KB	-rwxr-xr-x
quotacheck.pl	3.13 KB	-rwxr-xr-x
reply_mail.cgi	26.55 KB	-rwxr-xr-x
save_address.cgi	981 B	-rwxr-xr-x
save_allow.cgi	708 B	-rwxr-xr-x
save_auto.cgi	1.07 KB	-rwxr-xr-x
save_comp.cgi	1.18 KB	-rwxr-xr-x
save_folder.cgi	3.85 KB	-rwxr-xr-x
save_group.cgi	744 B	-rwxr-xr-x
save_ifolder.cgi	1.73 KB	-rwxr-xr-x
save_imap.cgi	1.8 KB	-rwxr-xr-x
save_pop3.cgi	1.58 KB	-rwxr-xr-x
save_sig.cgi	595 B	-rwxr-xr-x
save_virt.cgi	983 B	-rwxr-xr-x
search_form.cgi	2.49 KB	-rwxr-xr-x
send_mail.cgi	18.73 KB	-rwxr-xr-x
slideshow.cgi	1.65 KB	-rwxr-xr-x
sort.cgi	1.03 KB	-rwxr-xr-x
specialsync.cgi	1.15 KB	-rwxr-xr-x
system_info.pl	978 B	-rw-r--r--
uconfig.info	5.01 KB	-rw-r--r--
uconfig.info.ca	5.66 KB	-rwxr-xr-x
uconfig.info.cs	5.03 KB	-rw-r--r--
uconfig.info.da	0 B	-rw-r--r--
uconfig.info.de	5.92 KB	-rw-r--r--
uconfig.info.el	7.4 KB	-rw-r--r--
uconfig.info.es	0 B	-rw-r--r--
uconfig.info.fr	145 B	-rw-r--r--
uconfig.info.hu	0 B	-rw-r--r--
uconfig.info.it	3.27 KB	-rw-r--r--
uconfig.info.nl	5.26 KB	-rw-r--r--
uconfig.info.no	5.02 KB	-rw-r--r--
uconfig.info.pl	0 B	-rwxr-xr-x
uconfig.info.pt_BR	5.01 KB	-rw-r--r--
uconfig_info.pl	264 B	-rwxr-xr-x
view_mail.cgi	17.62 KB	-rwxr-xr-x
virtualize.cgi	605 B	-rwxr-xr-x
webmin_menu.pl	4.5 KB	-rw-r--r--

Code Editor : list_addresses.cgi

#!/usr/bin/perl
# Display contents of the user's address book, and allowed and denied addresses
use strict;
use warnings;
our (%text, %in, %config, %userconfig);

require './mailbox-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'address_title'}, "");

# Build tabs
my $prog = "list_addresses.cgi?mode=";
my @tabs = ( [ "users", $text{'address_users'}, $prog."users" ],
	  [ "groups", $text{'address_groups'}, $prog."groups" ] );
if (&foreign_installed("spam")) {
	if (!$userconfig{'white_rec'}) {
		push(@tabs, [ "allow", $text{'address_allow'}, $prog."allow" ]);
		}
	push(@tabs, [ "deny", $text{'address_deny'}, $prog."deny" ]);
	}
push(@tabs, [ "import", $text{'address_import'}, $prog."import" ]);
push(@tabs, [ "export", $text{'address_export'}, $prog."export" ]);

# Start tabs for users and groups, and maybe spam addresses
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || "users", 1);

print &ui_tabs_start_tab("mode", "users");
my @addrs = &list_addresses();
print "$text{'address_desc'}<p>\n";
if (@addrs || $in{'add'}) {
	if ($in{'add'} || $in{'edit'} ne '') {
		print "<form action=save_address.cgi>\n";
		print "<input type=hidden name=add value='$in{'add'}'>\n";
		print "<input type=hidden name=edit value='$in{'edit'}'>\n";
		}
	print "<table width=100%>\n";
	print "<tr> <td colspan=2 width=10%></td> ",
	      "<td width=40%><b>$text{'address_addr'}</b></td> ",
	      "<td width=40%><b>$text{'address_name'}</b></td> ",
	      $config{'edit_from'} ? "<td width=10% nowrap><b>$text{'address_from'}</b></td> " : "",
	      "</tr>\n";
	foreach my $a (@addrs) {
		next if (!defined($a->[2]));
		print "<tr> <td width=5%>\n";
		if ($in{'edit'} ne $a->[2]) {
			print "<a href='list_addresses.cgi?",
			      "mode=users&edit=$a->[2]#editing'>",
			      "$text{'address_edit'}</a>\n";
			}
		else {
			print "<a href=list_addresses.cgi?mode=users>",
			      "$text{'cancel'}</a>\n";
			}
		print "</td> <td width=5%>\n";
		print "<a href='save_address.cgi?delete=$a->[2]'>",
		      "$text{'address_delete'}</a></td>\n";

if ($in{'edit'} eq $a->[2]) {
			# Editing this row
			print "<td width=40%><input name=addr size=30 value='",
				&html_escape($a->[0]),"'><a name=editing></td>\n";
			print "<td width=40%><input name=name size=30 value='",
				&html_escape($a->[1]),"'></td>\n";
			if ($config{'edit_from'}) {
				&from_sel($a->[3]);
				}
			else {
				print "<input type=hidden name=from value='$a->[3]'>\n";
				}
			print "<td><input type=submit value='$text{'save'}'></td>\n";
			}
		else {
			# Just showing this row
			print "<td width=40%>$a->[0]</td>\n";
			print "<td width=40%>",$a->[1] ? &html_escape($a->[1]) : "<br>","</td>\n";
			print "<td>",$a->[3] == 1 ? $text{'yes'} :
				     $a->[3] == 2 ? $text{'address_yd'} :
					     	    $text{'no'},"</td>\n"
				if ($config{'edit_from'});
			}
		print "</tr>\n";
		}
	if ($in{'add'}) {
		print "<tr> <td width=5%><a href='list_addresses.cgi?",
		      "mode=users'>$text{'cancel'}</a></td>\n";
		print "<td width=5%><a name=adding></td>\n";
		print "<td width=40%><input name=addr size=30></td>\n";
		print "<td width=40%><input name=name size=30></td>\n";
		&from_sel() if ($config{'edit_from'});
		print "<td><input type=submit value='$text{'save'}'></td>\n";
		print "</tr>\n";
		}
	print "</table>\n";
	if ($in{'add'} || $in{'edit'} ne '') {
		print "</form>\n";
		}
	}
else {
	print "<b>$text{'address_none'}</b> <p>\n";
	}
print "<a href='list_addresses.cgi?mode=users&add=1#adding'>",
      "$text{'address_add'}</a> \n"
	if (!$in{'add'});
print &ui_tabs_end_tab();

print &ui_tabs_start_tab("mode", "groups");
my @gaddrs = grep { defined($_->[2]) } &list_address_groups();
print "$text{'address_gdesc'}<p>\n";
if (@gaddrs || $in{'gadd'}) {
	if ($in{'gadd'} || $in{'gedit'} ne '') {
		print "<form action=save_group.cgi ",
		      "method=post enctype=multipart/form-data>\n";
		print "<input type=hidden name=gadd value='$in{'gadd'}'>\n";
		print "<input type=hidden name=gedit value='$in{'gedit'}'>\n";
		}
	print "<table width=100%>\n";
	print "<tr> <td colspan=2 width=10%></td> ",
	      "<td width=20%><b>$text{'address_group'}</b></td> ",
	      "<td width=70%><b>$text{'address_members'}</b></td> ",
	      "</tr>\n";
	foreach my $a (@gaddrs) {
		print "<tr> <td width=5% valign=top>\n";
		if ($in{'gedit'} ne $a->[2]) {
			print "<a href='list_addresses.cgi?mode=groups&",
			      "gedit=$a->[2]#editing'>",
			      "$text{'address_edit'}</a>\n";
			}
		else {
			print "<a href=list_addresses.cgi?mode=groups>",
			      "$text{'cancel'}</a>\n";
			}
		print "</td> <td width=5% valign=top>\n";
		print "<a href='save_group.cgi?gdelete=$a->[2]'>",
		      "$text{'address_delete'}</a></td>\n";

if ($in{'gedit'} eq $a->[2]) {
			# Editing a group
			print "<td width=20% valign=top>",
			      &ui_textbox("group", $a->[0], 20),"</td>\n";
			print "<td width=70% valign=top>",
			      &ui_textarea("members", $a->[1], 5, 60),
			      " ",&address_button("members", 0, 0, 0, 1)," ",
			      &ui_submit($text{'save'}),"</td>\n";
			}
		else {
			# Just show group
			print "<td width=20% valign=top>",
			      &html_escape($a->[0]),"</td>\n";
			print "<td width=70% valign=top>",
			      &html_escape($a->[1]),"</td>\n";
			}
		print "</tr>\n";
		}
	if ($in{'gadd'}) {
		# Adding a group
		print "<tr> <td width=5% valign=top>",
		      "<a href='list_addresses.cgi?mode=groups'>",
		      "$text{'cancel'}</a></td>\n";
		print "<td width=5% valign=top><a name=adding></td>\n";
		print "<td width=20% valign=top>",
		      &ui_textbox("group", undef, 20),
		      "</td>\n";
		print "<td width=70% valign=top>",
		      &ui_textarea("members", undef, 5, 60),
		      " ",&address_button("members", 0, 0, 0, 1)," ",
		      &ui_submit($text{'save'}),"</td>\n";
		print "</tr>\n";
		}
	print "</table>\n";
	if ($in{'gadd'} || $in{'gedit'} ne '') {
		print "</form>\n";
		}
	}
else {
	print "<b>$text{'address_gnone'}</b> <p>\n";
	}
print "<a href='list_addresses.cgi?mode=groups&gadd=1#adding'>",
      "$text{'address_gadd'}</a> \n"
	if (!$in{'gadd'});
print &ui_tabs_end_tab();

# Show allowed / denied addresses tabs
if (&foreign_installed("spam")) {
	&foreign_require("spam", "spam-lib.pl");
	my $conf = &spam::get_config();

foreach my $m ($userconfig{'white_rec'} ? ( ) :
			( [ "allow", "whitelist_from" ] ),
	 	    [ "deny", "blacklist_from" ]) {
		my ($mode, $opt) = @$m;

print &ui_tabs_start_tab("mode", $mode);
		print $text{'address_'.$mode.'desc'},"<p>\n";
		print &ui_form_start("save_allow.cgi", "post");
		print &ui_hidden("mode", $mode);

@addrs = map { @{$_->{'words'}} } &spam::find($opt, $conf);
		print &ui_textarea("addrs", join("\n", @addrs)."\n", 20, 80,
				   undef, 0, "style='width:90%'");

print &ui_form_end([ [ undef, $text{'save'} ] ]);
		print &ui_tabs_end_tab();
		}
	}

# Show import tab
print &ui_tabs_start_tab("mode", "import");

print $text{'address_importdesc'},"<p>\n";
print &ui_form_start("import.cgi", "form-data");
print &ui_table_start(undef, undef, 2);

# Import source
print &ui_table_row($text{'address_importsrc'},
	&ui_radio_table("src", 0,
		[ [ 0, $text{'address_importsrc0'}, &ui_upload("upload") ],
		  [ 1, $text{'address_importsrc1'},
		    &ui_textarea("paste", undef, 5, 60) ] ])."<br>\n".
	$text{'address_importformat'});

# Import format
print &ui_table_row($text{'address_importfmt'},
	&ui_radio("fmt", "csv", [ [ 'csv', $text{'address_importcsv'} ],
				  [ 'vcard', $text{'address_importvcard'} ] ]));

# Duplicate handling
print &ui_table_row($text{'address_importdup'},
	&ui_radio("dup", 0, [ [ 0, $text{'address_importdup0'} ],
			      [ 1, $text{'address_importdup1'} ] ]));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'address_importok'} ] ]);

print &ui_tabs_end_tab();

# Show export tab
print &ui_tabs_start_tab("mode", "export");

print $text{'address_exportdesc'},"<p>\n";
print &ui_form_start("export.cgi");
print &ui_table_start(undef, undef, 2);

# Import format
print &ui_table_row($text{'address_exportfmt'},
	&ui_radio("fmt", "csv", [ [ 'csv', $text{'address_importcsv'} ],
				  [ 'vcard', $text{'address_importvcard'} ] ]));

# Duplicate handling
print &ui_table_row($text{'address_exportdup'},
	&ui_radio("dup", 0, [ [ 0, $text{'address_exportdup0'} ],
			      [ 1, $text{'address_exportdup1'} ] ]));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'address_exportok'} ] ]);

print &ui_tabs_end_tab();

print &ui_tabs_end(1);
&ui_print_footer("", $text{'mail_return'});

sub from_sel
{
my ($f) = @_;
print "<td>".&ui_select("from", $f,
			[ [ 0, $text{'no'} ],
			  [ 1, $text{'yes'} ],
			  [ 2, $text{'address_yd'} ] ])."</td>\n";
}

${this.title}

Code Editor : list_addresses.cgi