MTA.pm 2.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. # -*- Mode: perl; indent-tabs-mode: nil -*-
  2. #
  3. # The contents of this file are subject to the Mozilla Public
  4. # License Version 1.1 (the "License"); you may not use this file
  5. # except in compliance with the License. You may obtain a copy of
  6. # the License at http://www.mozilla.org/MPL/
  7. #
  8. # Software distributed under the License is distributed on an "AS
  9. # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  10. # implied. See the License for the specific language governing
  11. # rights and limitations under the License.
  12. #
  13. # The Original Code is the Bugzilla Bug Tracking System.
  14. #
  15. # The Initial Developer of the Original Code is Netscape Communications
  16. # Corporation. Portions created by Netscape are
  17. # Copyright (C) 1998 Netscape Communications Corporation. All
  18. # Rights Reserved.
  19. #
  20. # Contributor(s): Terry Weissman <terry@mozilla.org>
  21. # Dawn Endico <endico@mozilla.org>
  22. # Dan Mosedale <dmose@mozilla.org>
  23. # Joe Robins <jmrobins@tgix.com>
  24. # Jacob Steenhagen <jake@bugzilla.org>
  25. # J. Paul Reed <preed@sigkill.com>
  26. # Bradley Baetz <bbaetz@student.usyd.edu.au>
  27. # Joseph Heenan <joseph@heenan.me.uk>
  28. # Erik Stambaugh <erik@dasbistro.com>
  29. # Frédéric Buclin <LpSolit@gmail.com>
  30. #
  31. package Bugzilla::Config::MTA;
  32. use strict;
  33. use Bugzilla::Config::Common;
  34. use Email::Send;
  35. $Bugzilla::Config::MTA::sortkey = "10";
  36. sub get_param_list {
  37. my $class = shift;
  38. my @param_list = (
  39. {
  40. name => 'mail_delivery_method',
  41. type => 's',
  42. # Bugzilla is not ready yet to send mails to newsgroups, and 'IO'
  43. # is of no use for now as we already have our own 'Test' mode.
  44. choices => [grep {$_ ne 'NNTP' && $_ ne 'IO'} Email::Send->new()->all_mailers(), 'None'],
  45. default => 'Sendmail',
  46. checker => \&check_mail_delivery_method
  47. },
  48. {
  49. name => 'mailfrom',
  50. type => 't',
  51. default => 'bugzilla-daemon'
  52. },
  53. {
  54. name => 'sendmailnow',
  55. type => 'b',
  56. default => 1
  57. },
  58. {
  59. name => 'smtpserver',
  60. type => 't',
  61. default => 'localhost'
  62. },
  63. {
  64. name => 'smtp_username',
  65. type => 't',
  66. default => '',
  67. checker => \&check_smtp_auth
  68. },
  69. {
  70. name => 'smtp_password',
  71. type => 'p',
  72. default => ''
  73. },
  74. {
  75. name => 'smtp_debug',
  76. type => 'b',
  77. default => 0
  78. },
  79. {
  80. name => 'whinedays',
  81. type => 't',
  82. default => 7,
  83. checker => \&check_numeric
  84. },
  85. {
  86. name => 'globalwatchers',
  87. type => 't',
  88. default => '',
  89. }, );
  90. return @param_list;
  91. }
  92. 1;