Changeset 1275
- Timestamp:
- 07/18/08 09:28:29
(1 month ago)
- Author:
- rats
- Message:
* Fixed #1423: e-mail as normal mail and e-mail forward not in /etc/courier/userdb
* Fixed #1424: Adminstrator password created by setup is truncated at 8 characters
* Fixed #1428: ispell is needed for webmail
-
Files:
-
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
| r1273 |
r1275 |
|
| 10 | 10 | * Fixed #1420: Missing menu when a client try to edit email: client/mail_edit.php |
|---|
| 11 | 11 | * Fixed #1421: Client can`t change sql password: client/sql_change_password.php (template error) |
|---|
| | 12 | * Fixed #1423: e-mail as normal mail and e-mail forward not in /etc/courier/userdb |
|---|
| | 13 | * Fixed #1424: Adminstrator password created by setup is truncated at 8 characters |
|---|
| | 14 | * Fixed #1428: ispell is needed for webmail |
|---|
| 12 | 15 | |
|---|
| 13 | 16 | 2008-07-16 Benedikt Heintel |
|---|
| r1257 |
r1275 |
|
| 18 | 18 | gzip |
|---|
| 19 | 19 | iptables |
|---|
| | 20 | ispell |
|---|
| 20 | 21 | libapache2-mod-cband |
|---|
| 21 | 22 | libapache2-mod-fastcgi |
|---|
| r1258 |
r1275 |
|
| 18 | 18 | gzip |
|---|
| 19 | 19 | iptables |
|---|
| | 20 | ispell |
|---|
| 20 | 21 | libapache2-mod-fastcgi |
|---|
| 21 | 22 | libberkeleydb-perl |
|---|
| r1257 |
r1275 |
|
| 16 | 16 | gzip |
|---|
| 17 | 17 | iptables |
|---|
| | 18 | ispell |
|---|
| 18 | 19 | libapache2-mod-fastcgi |
|---|
| 19 | 20 | libberkeleydb-perl |
|---|
| r1257 |
r1275 |
|
| 14 | 14 | gzip |
|---|
| 15 | 15 | iptables |
|---|
| | 16 | ispell |
|---|
| 16 | 17 | libapache2-mod-cband |
|---|
| 17 | 18 | libapache2-mod-fastcgi |
|---|
| r1106 |
r1275 |
|
| 16 | 16 | gzip |
|---|
| 17 | 17 | iptables |
|---|
| | 18 | ispell |
|---|
| 18 | 19 | libapache2-mod-cband |
|---|
| 19 | 20 | libapache2-mod-fastcgi |
|---|
| r1106 |
r1275 |
|
| 16 | 16 | gzip |
|---|
| 17 | 17 | iptables |
|---|
| | 18 | ispell |
|---|
| 18 | 19 | libapache2-mod-cband |
|---|
| 19 | 20 | libapache2-mod-fastcgi |
|---|
| r1234 |
r1275 |
|
| 17 | 17 | gzip |
|---|
| 18 | 18 | iptables |
|---|
| | 19 | ispell |
|---|
| 19 | 20 | libapache2-mod-fastcgi |
|---|
| 20 | 21 | libberkeleydb-perl |
|---|
| r1138 |
r1275 |
|
| 330 | 330 | my ($hash_key, $hash_value, $dmn_name) = (undef, undef, undef); |
|---|
| 331 | 331 | |
|---|
| 332 | | if ($mail_type =~ /^normal_mail.*/) { |
|---|
| | 332 | if ($mail_type =~ /.*normal_mail.*/) { |
|---|
| 333 | 333 | |
|---|
| 334 | 334 | $dmn_name = $main::domain_id_name{$mail_dmn_id}; |
|---|
| … | … | |
| 338 | 338 | $hash_value = "$mail_acc\@$dmn_name$mail_forward_list,$mail_acc\@ispcp-arpl.$dmn_name"; |
|---|
| 339 | 339 | |
|---|
| 340 | | } elsif ($mail_type =~ /^alias_mail.*/) { |
|---|
| | 340 | } elsif ($mail_type =~ /.*alias_mail.*/) { |
|---|
| 341 | 341 | |
|---|
| 342 | 342 | $dmn_name = $main::als_id_name{$mail_sub_id}; |
|---|
| … | … | |
| 346 | 346 | $hash_value = "$mail_acc\@$dmn_name$mail_forward_list,$mail_acc\@ispcp-arpl.$dmn_name"; |
|---|
| 347 | 347 | |
|---|
| 348 | | } elsif ($mail_type =~ /^subdom_mail.*/) { |
|---|
| | 348 | } elsif ($mail_type =~ /.*subdom_mail.*/) { |
|---|
| 349 | 349 | |
|---|
| 350 | 350 | my $sub_pref = $main::sub_id_name{$mail_sub_id}; |
|---|
| … | … | |
| 394 | 394 | return $rs if ($rs != 0); |
|---|
| 395 | 395 | |
|---|
| 396 | | } if ($mail_type =~ /^normal_mail.*/ || $mail_type =~ /^alias_mail.*/ || $mail_type =~ /^subdom_mail.*/); |
|---|
| | 396 | } if ($mail_type =~ /.*normal_mail.*/ || $mail_type =~ /.*alias_mail.*/ || $mail_type =~ /.*subdom_mail.*/); |
|---|
| 397 | 397 | |
|---|
| 398 | 398 | do { |
|---|
| … | … | |
| 462 | 462 | return $rs if ($rs != 0); |
|---|
| 463 | 463 | |
|---|
| 464 | | } if ($mail_type eq 'normal_forward' || $mail_type eq 'alias_forward'); |
|---|
| | 464 | } if ($mail_type =~ /.*normal_forward.*/ || $mail_type =~ /.*alias_forward.*/); |
|---|
| 465 | 465 | |
|---|
| 466 | 466 | do { |
|---|
| … | … | |
| 519 | 519 | return $rs if ($rs != 0); |
|---|
| 520 | 520 | |
|---|
| 521 | | } if ($mail_type eq 'subdom_forward'); |
|---|
| | 521 | } if ($mail_type =~ /.*subdom_forward.*/); |
|---|
| 522 | 522 | |
|---|
| 523 | 523 | $rs = sys_command("$cmd_postmap $transport_cfg"); |
|---|
| … | … | |
| 553 | 553 | my $mail_type = @$mbox_data[5]; |
|---|
| 554 | 554 | |
|---|
| 555 | | if ($mail_type eq 'alias_mail' || $mail_type eq 'alias_forward') { |
|---|
| | 555 | if ($mail_type =~ /.*alias_mail.*/ || $mail_type =~ /.*alias_forward.*/) { |
|---|
| 556 | 556 | |
|---|
| 557 | 557 | $sql = "select count(mail_id) as cnt from mail_users where (status = 'ok' or status = 'change') and mail_auto_respond != '_no_' and domain_id = $mail_dmn_id and sub_id = $mail_sub_id and mail_type != 'normal_catchall' and mail_type != 'alias_catchall';"; |
|---|
| … | … | |
| 610 | 610 | my $hash_key = "ispcp-arpl.$dmn_name"; |
|---|
| 611 | 611 | |
|---|
| 612 | | if ($mail_type eq 'alias_mail' || $mail_type eq 'alias_forward') { |
|---|
| | 612 | if ($mail_type =~ /.*alias_mail.*/ || $mail_type =~ /.*alias_forward.*/) { |
|---|
| 613 | 613 | |
|---|
| 614 | 614 | my $als_name = $main::als_id_name{$mail_sub_id}; |
|---|
| … | … | |
| 736 | 736 | do { |
|---|
| 737 | 737 | |
|---|
| 738 | | if ($mail_type =~ /^normal_mail.*/) { |
|---|
| | 738 | if ($mail_type =~ /.*normal_mail.*/) { |
|---|
| 739 | 739 | |
|---|
| 740 | 740 | $dmn_name = $main::domain_id_name{$mail_dmn_id}; |
|---|
| … | … | |
| 742 | 742 | $hash_key = "$mail_acc\@$dmn_name"; |
|---|
| 743 | 743 | |
|---|
| 744 | | } elsif ($mail_type =~ /^alias_mail.*/) { |
|---|
| | 744 | } elsif ($mail_type =~ /.*alias_mail.*/) { |
|---|
| 745 | 745 | |
|---|
| 746 | 746 | $dmn_name = $main::als_id_name{$mail_sub_id}; |
|---|
| … | … | |
| 748 | 748 | $hash_key = "$mail_acc\@$dmn_name"; |
|---|
| 749 | 749 | |
|---|
| 750 | | } elsif ($mail_type =~ /^subdom_mail.*/) { |
|---|
| | 750 | } elsif ($mail_type =~ /.*subdom_mail.*/) { |
|---|
| 751 | 751 | |
|---|
| 752 | 752 | my $sub_pref = $main::sub_id_name{$mail_sub_id}; |
|---|
| … | … | |
| 1156 | 1156 | } |
|---|
| 1157 | 1157 | |
|---|
| 1158 | | } if ($mail_type eq 'normal_forward' || $mail_type eq 'alias_forward' || $mail_type eq 'subdom_forward'); |
|---|
| | 1158 | } if ($mail_type =~ /.*normal_forward.*/ || $mail_type =~ /.*alias_forward.*/ || $mail_type =~ /.*subdom_forward.*/); |
|---|
| 1159 | 1159 | |
|---|
| 1160 | 1160 | do { |
|---|
| … | … | |
| 1492 | 1492 | } |
|---|
| 1493 | 1493 | |
|---|
| 1494 | | } if ($mail_type eq 'normal_forward' || $mail_type eq 'alias_forward' || $mail_type eq 'subdom_forward'); |
|---|
| | 1494 | } if ($mail_type =~ /.*normal_forward.*/ || $mail_type =~ /.*alias_forward.*/ || $mail_type =~ /.*subdom_forward.*/); |
|---|
| 1495 | 1495 | |
|---|
| 1496 | 1496 | do { |
|---|
| … | … | |
| 1891 | 1891 | |
|---|
| 1892 | 1892 | |
|---|
| 1893 | | } if ($mail_type eq 'normal_mail'); |
|---|
| | 1893 | } if ($mail_type =~ /^normal_mail.*/); |
|---|
| 1894 | 1894 | |
|---|
| 1895 | 1895 | do { |
|---|
| … | … | |
| 1910 | 1910 | |
|---|
| 1911 | 1911 | |
|---|
| 1912 | | } if ($mail_type eq 'alias_mail'); |
|---|
| | 1912 | } if ($mail_type =~ /^alias_mail.*/); |
|---|
| 1913 | 1913 | |
|---|
| 1914 | 1914 | do { |
|---|
| … | … | |
| 1933 | 1933 | |
|---|
| 1934 | 1934 | |
|---|
| 1935 | | } if ($mail_type eq 'subdom_mail'); |
|---|
| | 1935 | } if ($mail_type =~ /^subdom_mail.*/); |
|---|
| 1936 | 1936 | |
|---|
| 1937 | 1937 | ($rs, $working) = get_file($userdb_working_cfg); |
|---|
| … | … | |
| 2036 | 2036 | |
|---|
| 2037 | 2037 | |
|---|
| 2038 | | } if ($mail_type eq 'normal_mail'); |
|---|
| | 2038 | } if ($mail_type =~ /.*normal_mail.*/); |
|---|
| 2039 | 2039 | |
|---|
| 2040 | 2040 | do { |
|---|
| … | … | |
| 2049 | 2049 | |
|---|
| 2050 | 2050 | |
|---|
| 2051 | | } if ($mail_type eq 'alias_mail'); |
|---|
| | 2051 | } if ($mail_type =~ /.*alias_mail.*/); |
|---|
| 2052 | 2052 | |
|---|
| 2053 | 2053 | do { |
|---|
| … | … | |
| 2066 | 2066 | |
|---|
| 2067 | 2067 | |
|---|
| 2068 | | } if ($mail_type eq 'subdom_mail'); |
|---|
| | 2068 | } if ($mail_type =~ /.*subdom_mail.*/); |
|---|
| 2069 | 2069 | |
|---|
| 2070 | 2070 | ($rs, $working) = get_file($userdb_working_cfg); |
|---|
| … | … | |
| 2197 | 2197 | $hash_value = "OK"; |
|---|
| 2198 | 2198 | |
|---|
| 2199 | | } if ($mail_type eq 'normal_mail'); |
|---|
| | 2199 | } if ($mail_type =~ /.*normal_mail.*/); |
|---|
| 2200 | 2200 | |
|---|
| 2201 | 2201 | do { |
|---|
| … | … | |
| 2219 | 2219 | $hash_value = "OK"; |
|---|
| 2220 | 2220 | |
|---|
| 2221 | | } if ($mail_type eq 'alias_mail'); |
|---|
| | 2221 | } if ($mail_type =~ /.*alias_mail.*/); |
|---|
| 2222 | 2222 | |
|---|
| 2223 | 2223 | do { |
|---|
| … | … | |
| 2245 | 2245 | $hash_value = "OK"; |
|---|
| 2246 | 2246 | |
|---|
| 2247 | | } if ($mail_type eq 'subdom_mail'); |
|---|
| 2248 | | |
|---|
| 2249 | | if ($mail_type eq 'normal_mail' || $mail_type eq 'subdom_mail' || $mail_type eq 'alias_mail') { |
|---|
| | 2247 | } if ($mail_type =~ /.*subdom_mail.*/); |
|---|
| | 2248 | |
|---|
| | 2249 | if ($mail_type=~ /.*normal_mail.*/ || $mail_type=~ /.*subdom_mail.*/ || $mail_type=~ /.*alias_mail.*/) { |
|---|
| 2250 | 2250 | |
|---|
| 2251 | 2251 | |
|---|
| … | … | |
| 2369 | 2369 | $hash_value = "OK"; |
|---|
| 2370 | 2370 | |
|---|
| 2371 | | } if ($mail_type eq 'normal_mail'); |
|---|
| | 2371 | } if ($mail_type =~ /.*normal_mail.*/); |
|---|
| 2372 | 2372 | |
|---|
| 2373 | 2373 | do { |
|---|
| … | … | |
| 2391 | 2391 | $hash_value = "OK"; |
|---|
| 2392 | 2392 | |
|---|
| 2393 | | } if ($mail_type eq 'alias_mail'); |
|---|
| | 2393 | } if ($mail_type =~ /.*alias_mail.*/); |
|---|
| 2394 | 2394 | |
|---|
| 2395 | 2395 | do { |
|---|
| … | … | |
| 2417 | 2417 | $hash_value = "OK"; |
|---|
| 2418 | 2418 | |
|---|
| 2419 | | } if ($mail_type eq 'subdom_mail'); |
|---|
| | 2419 | } if ($mail_type =~ /.*subdom_mail.*/); |
|---|
| 2420 | 2420 | |
|---|
| 2421 | 2421 | if ($mail_type eq 'normal_mail' || $mail_type eq 'subdom_mail' || $mail_type eq 'alias_mail') { |
|---|
| r1260 |
r1275 |
|
| 1041 | 1041 | } |
|---|
| 1042 | 1042 | |
|---|
| 1043 | | my ($rs, $rdata) = gen_rand_num(2); |
|---|
| | 1043 | my ($rs, $rdata) = gen_rand_num(8); |
|---|
| 1044 | 1044 | |
|---|
| 1045 | 1045 | return (-1, '') if ($rs != 0); |
|---|
| r1260 |
r1275 |
|
| 717 | 717 | # |
|---|
| 718 | 718 | |
|---|
| 719 | | my $admin_password = crypt_data($main::ua{'admin_password'}); |
|---|
| | 719 | my $admin_password = crypt_md5_data($main::ua{'admin_password'}); |
|---|
| 720 | 720 | |
|---|
| 721 | 721 | $sql = "INSERT INTO admin (admin_id, admin_name, admin_pass, admin_type, email) VALUES (1, '$main::ua{'admin'}','$admin_password', 'admin','$main::ua{'admin_email'}')"; |
|---|
| r1246 |
r1275 |
|
| 50 | 50 | |
|---|
| 51 | 51 | if (isset($_SESSION['user_logged'])) { |
|---|
| 52 | | write_log($uname." user already logged or session sharing problem! Aborting..."); |
|---|
| | 52 | write_log(tr("%s user already logged or session sharing problem! Aborting...", $uname)); |
|---|
| 53 | 53 | system_message(tr('User already logged or session sharing problem! Aborting...')); |
|---|
| 54 | 54 | unset_user_login_data(); |
|---|
| … | … | |
| 57 | 57 | |
|---|
| 58 | 58 | if (!is_userdomain_ok($uname)) { |
|---|
| 59 | | write_log($uname." Domain status is not OK - user cannot login"); |
|---|
| | 59 | write_log(tr("%s's account status is not ok!", $uname)); |
|---|
| 60 | 60 | system_message(tr("%s's account status is not ok!", $uname)); |
|---|
| 61 | 61 | return false; |
|---|
| … | … | |
| 88 | 88 | } else { |
|---|
| 89 | 89 | $backButtonDestination = 'http://' . Config::get('BASE_SERVER_VHOST'); |
|---|
| 90 | | |
|---|
| | 90 | |
|---|
| 91 | 91 | write_log($uname . ' entered incorrect password.'); |
|---|
| 92 | 92 | system_message(tr('You entered an incorrect password.'), $backButtonDestination); |
|---|
|
Download in other formats:
#########################################################################
# Site footer - Contents are automatically inserted after main Trac HTML
?>