FM / mailbox

/usr/share/usermin/mailbox

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
ulang/	-	0755	rm
address_chooser.cgi	5217	0755	edit dl rm
add_address.cgi	611	0755	edit dl rm
auto.pl	1988	0755	edit dl rm
boxes-lib.pl	83547	0755	edit dl rm
CHANGELOG	15449	0644	edit dl rm
classlinks.sh	160	0755	edit dl rm
config-aix	482	0644	edit dl rm
config-ALL-linux	503	0644	edit dl rm
config-freebsd	478	0644	edit dl rm
config-hpux	478	0644	edit dl rm
config-irix	477	0644	edit dl rm
config-macos	478	0644	edit dl rm
config-msc-linux	495	0644	edit dl rm
config-netbsd	478	0644	edit dl rm
config-openbsd	478	0644	edit dl rm
config-openserver	483	0644	edit dl rm
config-osf1	484	0644	edit dl rm
config-qnx	499	0644	edit dl rm
config-solaris	477	0644	edit dl rm
config-unixware	477	0644	edit dl rm
config.info	3307	0644	edit dl rm
config.info.ca	3622	0755	edit dl rm
config.info.de	1628	0644	edit dl rm
config.info.el	4874	0644	edit dl rm
config.info.hu	0	0644	edit dl rm
config.info.nl	2967	0755	edit dl rm
config.info.no	3166	0644	edit dl rm
copy.cgi	848	0755	edit dl rm
copy_form.cgi	1161	0755	edit dl rm
defaultuconfig	763	0644	edit dl rm
delete_folders.cgi	1352	0755	edit dl rm
delete_mail.cgi	7109	0755	edit dl rm
detach.cgi	3197	0755	edit dl rm
detachall.cgi	2006	0755	edit dl rm
edit_auto.cgi	1858	0755	edit dl rm
edit_comp.cgi	1623	0755	edit dl rm
edit_folder.cgi	2733	0755	edit dl rm
edit_ifolder.cgi	1078	0755	edit dl rm
edit_imap.cgi	1901	0755	edit dl rm
edit_pop3.cgi	1729	0755	edit dl rm
edit_sig.cgi	552	0755	edit dl rm
edit_virt.cgi	1275	0755	edit dl rm
export.cgi	1354	0755	edit dl rm
folders-lib.pl	135204	0755	edit dl rm
import.cgi	3097	0755	edit dl rm
inbox_login.cgi	1447	0755	edit dl rm
inbox_login_error.cgi	1195	0755	edit dl rm
inbox_logout.cgi	503	0755	edit dl rm
index.cgi	12585	0755	edit dl rm
list_addresses.cgi	8729	0755	edit dl rm
list_folders.cgi	5362	0755	edit dl rm
list_ifolders.cgi	3091	0755	edit dl rm
mailbox-lib.pl	67738	0755	edit dl rm
mail_search.cgi	7659	0755	edit dl rm
module.info	296	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	256	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	305	0644	edit dl rm
module.info.ca	26	0644	edit dl rm
module.info.ca.auto	168	0644	edit dl rm
module.info.cs	25	0644	edit dl rm
module.info.cs.auto	142	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	159	0644	edit dl rm
module.info.de	119	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	357	0644	edit dl rm
module.info.es	26	0644	edit dl rm
module.info.es.auto	163	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	166	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	242	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	149	0644	edit dl rm
module.info.fr	26	0644	edit dl rm
module.info.fr.auto	167	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	167	0644	edit dl rm
module.info.hu	38	0644	edit dl rm
module.info.hu.auto	173	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	151	0644	edit dl rm
module.info.ja	0	0644	edit dl rm
module.info.ja.auto	213	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	177	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	137	0644	edit dl rm
module.info.nl	29	0644	edit dl rm
module.info.nl.auto	137	0644	edit dl rm
module.info.no	19	0644	edit dl rm
module.info.no.auto	122	0644	edit dl rm
module.info.pl	179	0644	edit dl rm
module.info.pl.auto	170	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	159	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	165	0644	edit dl rm
module.info.ru	55	0644	edit dl rm
module.info.ru.auto	264	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	162	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	150	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	172	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	298	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	141	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	147	0644	edit dl rm
newfolder.cgi	223	0755	edit dl rm
print_mail.cgi	1358	0755	edit dl rm
quotacheck.pl	3261	0755	edit dl rm
reply_mail.cgi	27251	0755	edit dl rm
save_address.cgi	1034	0755	edit dl rm
save_allow.cgi	761	0755	edit dl rm
save_auto.cgi	1153	0755	edit dl rm
save_comp.cgi	1266	0755	edit dl rm
save_folder.cgi	4000	0755	edit dl rm
save_group.cgi	797	0755	edit dl rm
save_ifolder.cgi	1820	0755	edit dl rm
save_imap.cgi	1899	0755	edit dl rm
save_pop3.cgi	1667	0755	edit dl rm
save_sig.cgi	648	0755	edit dl rm
save_virt.cgi	1036	0755	edit dl rm
search_form.cgi	2641	0755	edit dl rm
send_mail.cgi	19446	0755	edit dl rm
slideshow.cgi	1823	0755	edit dl rm
sort.cgi	1163	0755	edit dl rm
specialsync.cgi	1232	0755	edit dl rm
system_info.pl	1643	0644	edit dl rm
uconfig.info	5433	0644	edit dl rm
uconfig.info.ca	5720	0755	edit dl rm
uconfig.info.cs	5087	0644	edit dl rm
uconfig.info.da	0	0644	edit dl rm
uconfig.info.de	6002	0644	edit dl rm
uconfig.info.el	7475	0644	edit dl rm
uconfig.info.es	0	0644	edit dl rm
uconfig.info.fr	145	0644	edit dl rm
uconfig.info.hu	0	0644	edit dl rm
uconfig.info.it	3348	0644	edit dl rm
uconfig.info.nl	5337	0644	edit dl rm
uconfig.info.no	5078	0644	edit dl rm
uconfig.info.pl	0	0755	edit dl rm
uconfig.info.pt_BR	5073	0644	edit dl rm
uconfig_info.pl	317	0755	edit dl rm
view_mail.cgi	18086	0755	edit dl rm
virtualize.cgi	753	0755	edit dl rm
webmin_menu.pl	4778	0644	edit dl rm
xhr-lib.pl	1737	0644	edit dl rm
xhr.cgi	252	0755	edit dl rm

Edit: /usr/share/usermin/mailbox/list_addresses.cgi (8729B)

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";
}

#!/usr/bin/perl # Display contents of the user's address book, and allowed and denied addresses use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; 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'}

\n"; if (@addrs || $in{'add'}) { if ($in{'add'} || $in{'edit'} ne '') { print "

\n"; print "\n"; print "\n"; } print "\n"; print " ", " ", " ", $config{'edit_from'} ? " " : "", "\n"; foreach my $a (@addrs) { next if (!defined($a->[2])); print "\n"; if ($in{'edit'} eq $a->[2]) { # Editing this row print "\n"; print "\n"; if ($config{'edit_from'}) { &from_sel($a->[3]); } else { print "\n"; } print "\n"; } else { # Just showing this row print "\n"; print "\n"; print "\n" if ($config{'edit_from'}); } print "\n"; } if ($in{'add'}) { print "\n"; print "\n"; print "\n"; print "\n"; &from_sel() if ($config{'edit_from'}); print "\n"; print "\n"; } print "

		$text{'address_addr'}	$text{'address_name'}	$text{'address_from'}
\n"; if ($in{'edit'} ne $a->[2]) { print "", "$text{'address_edit'}\n"; } else { print "", "$text{'cancel'}\n"; } print "	\n"; print "", "$text{'address_delete'}				$a->[0]	",$a->[1] ? &html_escape($a->[1]) : " ","	",$a->[3] == 1 ? $text{'yes'} : $a->[3] == 2 ? $text{'address_yd'} : $text{'no'},"
$text{'cancel'}

\n"; if ($in{'add'} || $in{'edit'} ne '') { print "

\n"; } } else { print "$text{'address_none'}

\n"; } print "", "$text{'address_add'} \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'}

\n"; if (@gaddrs || $in{'gadd'}) { if ($in{'gadd'} || $in{'gedit'} ne '') { print "

\n"; print "\n"; print "\n"; } print "\n"; print " ", " ", " ", "\n"; foreach my $a (@gaddrs) { print "\n"; if ($in{'gedit'} eq $a->[2]) { # Editing a group print "\n"; print "\n"; } else { # Just show group print "\n"; print "\n"; } print "\n"; } if ($in{'gadd'}) { # Adding a group print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "

		$text{'address_group'}	$text{'address_members'}
\n"; if ($in{'gedit'} ne $a->[2]) { print "", "$text{'address_edit'}\n"; } else { print "", "$text{'cancel'}\n"; } print "	\n"; print "", "$text{'address_delete'}	", &ui_textbox("group", $a->[0], 20),"	", &ui_textarea("members", $a->[1], 5, 60), " ",&address_button("members", 0, 0, 0, 1)," ", &ui_submit($text{'save'}),"	", &html_escape($a->[0]),"	", &html_escape($a->[1]),"
", "", "$text{'cancel'}		", &ui_textbox("group", undef, 20), "	", &ui_textarea("members", undef, 5, 60), " ",&address_button("members", 0, 0, 0, 1)," ", &ui_submit($text{'save'}),"

\n"; if ($in{'gadd'} || $in{'gedit'} ne '') { print "

\n"; } } else { print "$text{'address_gnone'}

\n"; } print "", "$text{'address_gadd'} \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'},"

\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'},"

\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) ] ])."
\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'},"

\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 "".&ui_select("from", $f, [ [ 0, $text{'no'} ], [ 1, $text{'yes'} ], [ 2, $text{'address_yd'} ] ])."\n"; }