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