path: root/postfix_wizard/Postfix.pm

#!/usr/bin/perl

# Drakwizard

# Copyright (C) 2002, 2003 Mandrakesoft
#
# Authors: Arnaud Desmons <adesmons@mandrakesoft.com>
#          Florent Villard <warly@mandrakesoft.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

package MDK::Wizard::Postfix;
use strict;
use lib qw(/usr/lib/libDrakX); # required for service package

use common;
use MDK::Wizard::Wizcommon;
use MDK::Wizard::Varspaceval;

use Libconf qw(:functions);
use Libconf::Glueconf::Postfix::Main_cf;

my $postfix = new Libconf::Glueconf::Postfix::Main_cf({ filename => '/etc/postfix/main.cf',  });
#use Data::Dumper;
#print Dumper($postfix);

my $wiz = new MDK::Wizard::Wizcommon;
my $wiz_domain_name = $wiz->{net}->network_get("DOMAINNAME");
my $wiz_host_name = $wiz->{net}->network_get("HOSTNAME");


my $o = {
	 name => N("Postfix wizard"),
	 var => {
		 wiz_mail_masquerade => '',
		 wiz_ext_mail_relay => '',
		 wiz_myhostname => '',
		 wiz_mydomain => '',
		 wiz_inet_interfaces => '',
		 wiz_mynetworks_style => '',
		 wiz_smtpd_banner => '',
		 wiz_inet_interfaces => '',
		 wiz_mydestination => '',
		 wiz_myorigin => '',
		},
	 init => sub {
	   check_sendmail();
	   my $t = any { /$wiz_host_name/ } cat_("/etc/hosts");
	   if ($t == 0) {
	     return 0, N("Error, can't find your hostname in /etc/hosts. Exiting. Please launch drakconnect and choose static IP address.")
	   }
	   1
	 },
	 needed_rpm => [ 'postfix' ],
	 defaultimage => "$ENV{__WIZ_HOME__}postfix_wizard/images/courrier.png"
	};


my %level = (
             1 => N("External mail server"),
             2 => N("Internal mail server"),
             );


$o->{pages} = {
	       welcome => {
			   name => N("Internet mail configuration wizard") . "\n\n" . N("This wizard will help you configure an internal mail server for your network, or configure an external mail server."),
			   no_back => 1,
                           pre => sub {
                             $o->{var}{wiz_level} ||= 1;
			     $o->{var}{wiz_mail_masquerade} ||= $postfix->{masquerade_domains};
			     $o->{var}{wiz_ext_mail_relay} = $postfix->{ext_mail_relay};
			     $o->{var}{wiz_myhostname} ||= $postfix->{myhostname};
			     $o->{var}{wiz_mydomain} ||= $postfix->{mydomain};
			     $o->{var}{wiz_inet_interfaces} ||= $postfix->{inet_interfaces};
			     $o->{var}{wiz_mynetworks_style} ||= $postfix->{mynetworks_style};
			     $o->{var}{wiz_smtpd_banner} ||= $postfix->{smtpd_banner};
			     $o->{var}{wiz_mydestination} ||= $postfix->{mydestination};
			     $o->{var}{wiz_myorigin} ||= $postfix->{myorigin};
			   },
			   post => sub {
			     if ($o->{var}{wiz_level} == 2) {
                               return 'originext' }
			   },
                           data => [
                                    { label => N("What do you want to do:"), val => \$o->{var}{wiz_level}, list => [ keys %level ], format => sub { $level{$_[0]} } },
                                   ],
			   next => 'external',
			  },
	       external => {
			    name => N("Outgoing mail address") . "\n\n" . N("You can select the kind of address that outgoing mail will show in the \"From:\" and \"Reply-to\" field.") . "\n\n" . N("This should be chosen consistently with the address you use for incoming mail.") . "\n\n" . N("Address masquerading is a method to hide all hosts inside a domain behind their mail gateway, and to make it appear as if the mail comes from the gateway itself, instead of from individual machines."),
			    complete => sub {
			      if ($o->{var}{wiz_mail_masquerade} !~ /\w+\.\w+$/) {
				$::in->ask_warn(N("Error"), N("Masquerade should be a valid domain name such as \"mydomain.com\"!"));
				return 1;
			      } else { return 0; };
			    },
			    data => [
				     { label => N("Masquerade domain name:"), val => \$o->{var}{wiz_mail_masquerade} },
				    ],
			    next => 'isp',
			   },
	       warning => {
			   name => N("Warning:") . "\n\n" . N("You entered an empty address for the mail gateway.") . "\n\n" . N("Your choice can be accepted, but this will not allow you to send mail outside your local network. Press next to continue, or back to enter a value."),
			   next => 'summaryext',
			  },
	       error_sendmail => {
				  name => N("Error, sendmail is installed. Please remove it before installing or configuring Postfix"),
				  no_back => 1,
				  next => 0,
				  end => 1,
				 },
	       isp => {
		       name => N("Internet mail gateway") . "\n\n" . N("Your server will send the outgoing through a mail gateway, that will take care of the final delivery.") . "\n\n" . N("Internet host names must be in the form \"host.domain.domaintype\"; for example, if your provider is \"provider.com\", the Internet mail server is usually \"smtp.provider.com\"."),
		       post => \&check_relay,
		       data => [
				{ label => N("Mail server name:"), val => \$o->{var}{wiz_ext_mail_relay} },
			       ],
		       next => 'originext',
		      },
	       originext => {
			     name => N("The myorigin parameter specifies the domain that locally-posted mail appears to come from.") . "\n\n" . N("The default is to append myhostname which is fine for small sites."),
			     data => [
				      { label => N("myorigin:"), val => \$o->{var}{wiz_myorigin} },
				     ],
			     post => sub {
			       if ($o->{var}{wiz_level} == 2) {
				 next => 'summaryint' }
			     },
			     next => 'summaryext',
			 },
	       summaryext => {
			   name =>  N("Configuring the external mail server") . "\n\n" . N("The wizard collected the following parameters needed to configure your external mail server:") . "\n\n" . N("To accept these values, and configure your server, click the next button or use the back button to correct them."),
			   data => [
				    { label => N("Internet mail gateway:"), fixed_val => \$o->{var}{wiz_ext_mail_relay} },
				    { label => N("Form of the address:"), fixed_val => \$o->{var}{wiz_mail_masquerade} },
				    { label => N("myorigin:"), fixed_val => \$o->{var}{wiz_myorigin} },
				   ],
			   post => \&do_it_external,
			   next => 'endext'
			  },
	       summaryint => {
			      name =>  N("The wizard will now configure an internal mail server."),
			      post => \&do_it_internal,
			      next => 'endext'
			     },
	       endext => {
		       name => N("Congratulations") . "\n\n" . N("The wizard successfully configured your external mail server."),
		       end => 1,
		       next => 0
		      },
	       error_end => {
			     name => N("Failed"),
                             data => [ { label => N("Please relaunch drakwizard, and try to change some parameters.") } ],
                             no_back => 1,
                             end => 1,
                             next => 0,
                            },
};

sub new {
    my ($class, $_conf) = @_;
    bless {
	    o   => $o,
       }, $class;
}

sub check_sendmail {
  my $in = 'interactive'->vnew('su', 'Check sendmail');
  my $w = $in->wait_message(N("Postfix Server"), N("removing Sendmail to avoid conflict...."));
  my $test = any { /sendmail/ } system("rpm -q sendmail");
  !$test or return 'error_sendmail';
  undef $w;
}


sub check_relay {
    $o->{var}{wiz_ext_mail_relay} or return 'warning';
    $o->{var}{wiz_ext_mail_relay} =~ /(\S+)\.(\S+)$/ or return 'warning';
}

sub save_config {
  my @conf = qw(/etc/postfix/aliases
		  /etc/postfix/canonical
		  /etc/postfix/main.cf
		  /etc/postfix/master.cf
		  /etc/postfix/virtual);
    foreach (@conf) {
        -f $_ and MDK::Common::cp_af($_, $_.".orig");
    }
}

sub cmd_needed {
  system("/usr/sbin/postmap -r -w /etc/postfix/canonical");
  system("/usr/sbin/postmap /etc/postfix/virtual");
  system("/usr/sbin/postalias /etc/postfix/aliases");
  system("/usr/sbin/postfix check");
  require services;
  if (services::is_service_running('postfix')) {
    services::restart('postfix');
  } else {
    services::start('postfix');
  }
}

sub do_it_internal {
  $::testing and return;
  my $in = 'interactive'->vnew('su', 'postfix configuration');
  my $w = $in->wait_message(N("Postfix Server"), N("Configuring your Postfix server....."));
  save_config();

  $o->{var}{wiz_inet_interfaces} and $postfix->{inet_interfaces} = $o->{var}{wiz_inet_interfaces};
  $o->{var}{wiz_myhostname} and $postfix->{myhostname} = $o->{var}{wiz_myhostname};
  $o->{var}{wiz_mydomain} and $postfix->{mydomain} = $o->{var}{wiz_mydomain};
  $postfix->{mydestination} = ;
  $postfix->{alias_maps} = ;
  $postfix->{alias_database} = ;
  $postfix->{virtual_maps} = ;
  $postfix->{canonical_maps} = ;
  $o->{var}{wiz_mail_masquerade} and $postfix->{masquerade_domains} = $o->{var}{wiz_mail_masquerade};
  $o->{var}{wiz_myorigin} and $postfix->{myorigin} = $o->{var}{wiz_myorigin};

  $postfix->{relayhost} and delete $postfix->{relayhost};

$o->{var}{wiz_mail_masquerade}
$o->{var}{wiz_ext_mail_relay}
$o->{var}{wiz_myhostname}
$o->{var}{wiz_mydomain}
$o->{var}{wiz_inet_interfaces}
$o->{var}{wiz_mynetworks_style}
$o->{var}{wiz_smtpd_banner}
$o->{var}{wiz_inet_interfaces}
$o->{var}{wiz_mydestination}
$o->{var}{wiz_myorigin}

  # example of internal mail working confoguration
  #myhostname = xp2400.guibland.com
  #virtual_maps = hash:/etc/postfix/virtual
  #canonical_maps = hash:/etc/postfix/canonical
  #masquerade_domains = guibland.com
  cmd_needed();
  undef $w;
  check_started('master');
}

sub do_it_external {
  $::testing and return;
  my $in = 'interactive'->vnew('su', 'postfix configuration');
  my $w = $in->wait_message(N("Postfix Server"), N("Configuring your Postfix server....."));
  save_config();

  $postfix->{inet_interfaces} = ;
  $postfix->{myhostname} = ;
  $postfix->{mydomain} = ;
  $postfix->{mydestination} = ;
  $postfix->{alias_maps} = ;
  $postfix->{alias_database} = ;
  $postfix->{virtual_maps} = ;
  $postfix->{canonical_maps} = ;
  $o->{var}{wiz_myorigin} and $postfix->{myorigin} = $o->{var}{wiz_myorigin};
  $o->{var}{wiz_ext_mail_relay} and $postfix->{relayhost} = $o->{var}{relayhost};

  my @conf = ("myhostname = $wiz_host_name",
	     'inet_interfaces = $myhostname,localhost',
	     'mydestination = $myhostname, localhost.$mydomain',
	     'alias_maps = hash:/etc/postfix/aliases',
	     'alias_database = hash:/etc/postfix/aliases',
	     'virtual_maps = hash:/etc/postfix/virtual',
	     'canonical_maps = hash:/etc/postfix/canonical',
	     "mydomain = $wiz_domain_name",
	     );

  cmd_needed();
  undef $w;
  check_started('master');
}

1;