1#!/usr/local/bin/perl
2# edit_pop3.cgi
3# Display a form for creating or editing a POP3 folder
4use strict;
5use warnings;
6our (%text, %in);
7our $pop3_port;
8
9require './mailbox-lib.pl';
10&ReadParse();
11
12my $mode;
13my @folders;
14my $folder;
15if ($in{'new'}) {
16	&ui_print_header(undef, $text{'edit_title1'}, "");
17	$mode = $in{'mode'};
18	}
19else {
20	&ui_print_header(undef, $text{'edit_title2'}, "");
21	@folders = &list_folders();
22	$folder = $folders[$in{'idx'}];
23	$mode = $folder->{'mode'};
24	}
25
26# Form and table start
27print &ui_form_start("save_pop3.cgi");
28print &ui_hidden("idx", $in{'idx'});
29print &ui_hidden("new", $in{'new'});
30print &ui_hidden("mode", $mode);
31print &ui_table_start($text{'edit_header'}, undef, 2);
32
33# Folder type
34print &ui_table_row($text{'edit_mode'}, $text{'edit_pop3'});
35
36# Folder name
37print &ui_table_row($text{'edit_name'},
38	&ui_textbox("name", $folder->{'name'}, 40));
39
40# POP3 server
41print &ui_table_row($text{'edit_server'},
42	&ui_textbox("server", $folder->{'server'}, 40));
43
44# POP3 port
45print &ui_table_row($text{'edit_port'},
46	&ui_opt_textbox("port", $folder->{'port'}, 6,
47			$text{'default'}." ($pop3_port)"));
48
49# Login and password
50print &ui_table_row($text{'edit_user'},
51	&ui_opt_textbox("user", $folder->{'user'} eq '*' ? undef :
52			$folder->{'user'}, 20, $text{'edit_usersame'}));
53print &ui_table_row($text{'edit_pass'},
54	&ui_password("pass", $folder->{'pass'}, 20));
55
56&show_folder_options($folder);
57
58print &ui_table_end();
59if ($in{'new'}) {
60	print &ui_form_end([ [ undef, $text{'create'} ] ]);
61	}
62else {
63	print &ui_form_end([ [ undef, $text{'save'} ],
64			     [ 'delete', $text{'delete'} ] ]);
65	}
66
67&ui_print_footer("list_folders.cgi", $text{'folders_return'});
68