summaryrefslogtreecommitdiff
path: root/debian/local/update_conf
diff options
context:
space:
mode:
Diffstat (limited to 'debian/local/update_conf')
-rw-r--r--debian/local/update_conf539
1 files changed, 0 insertions, 539 deletions
diff --git a/debian/local/update_conf b/debian/local/update_conf
deleted file mode 100644
index b96b07a..0000000
--- a/debian/local/update_conf
+++ /dev/null
@@ -1,539 +0,0 @@
-#!/usr/bin/perl -w
-#------------------------------------------------------------------------
-#
-# $Sendmail: update_conf,v 8.14.2 2007-11-02 22:20:56 cowboy Exp $
-#
-# Parse and update /etc/mail/sendmail.conf and reflect its values in
-# /etc/cron.d/sendmail and /etc/inetd.conf.
-#
-# Copyright (c) 2001-2007 Richard Nelson. All Rights Reserved.
-#
-#------------------------------------------------------------------------
-#
-use strict; # be kosher
-use Cwd; # provide cwd()
-use Env; # A few environmental references
-use integer; # Peformance
-use Sys::Hostname; # make sure we have a valid hostname
-use Getopt::Long; # parameter handling
-use FileHandle; # I/O
-
-# Local libraries - for Debian Sendmail Perl helper functions
-# BEGIN { $main::my_path = substr($0,$[,rindex($0,'/')) };
-use lib ('.', substr($0,$[,rindex($0,'/')), "/usr/share/sendmail");
-require Parse_conf;
-require Parse_mc;
-
-$main::program_name = $0; #'update_conf';
-$main::program_version = '8.14.2';
-$main::program_date = '2007-11-02 22:20:56 cowboy';
-$main::debug = 0;
-
-my $interp_pgm = "$^X";
-my $interp_vrm = $];
-$interp_vrm = ("$^V" | '000') if (defined $^V);
-my $current_time = scalar localtime;
-my $user = getlogin || (getpwuid($<))[0] || "Unknown!!";
-my $hostname = hostname();
-my $directory = getcwd();
-
-my $Conffile = "/etc/mail/sendmail.conf";
-my $output_file = '';
-my $ofh = new FileHandle;
-my $debug = 0;
-
-#
-#------------------------------------------------------------------------------
-# Global variables
-#------------------------------------------------------------------------------
-
-#
-#------------------------------------------------------------------------------
-# Finally, some code (almost)
-#------------------------------------------------------------------------------
-
-#
-# Argument handling...
-$main::opt_help='';
-$main::opt_output_file='';
-$main::opt_input_file='';
-$main::opt_debug='';
-$main::opt_test='';
-my @options = qw(
- help|h
- output-file|output_file|o:s
- input-file|input_file|i:s
- debug!
- test!
- );
-my $result = GetOptions(@options);
-if ( ! $result ) {
- die "Terminating due to parameter error";
- };
-if ( $main::opt_help ) {
- warn "$main::program_name $main::program_version $main::program_date\n";
- warn "$0 \n";
- warn " -help\n" if $main::opt_help;
- warn " -debug\n" if $main::opt_debug;
- warn " -o $main::opt_output_file\n" if $main::opt_output_file;
- warn " -i $main::opt_input_file\n" if $main::opt_input_file;
- exit 0;
- };
-
-if ( $main::opt_test ) {
- &sm2cron_time("");
- &sm2cron_time("6s");
- &sm2cron_time("5m");
- &sm2cron_time("4h");
- &sm2cron_time("3d");
- &sm2cron_time("2w");
- &sm2cron_time("5w");
- &sm2cron_time("2w3d4h5m6s");
- &sm2cron_time("89s");
- &sm2cron_time("90m");
- exit 0;
- };
-
-$output_file = $main::opt_output_file if ($main::opt_output_file);
-my $input_file = $main::opt_input_file || $Conffile;
-# $main::debug is used in Parse_mc !
-$main::debug = $main::opt_debug || $main::debug;
-
-# Read /etc/mail/sendmail.conf (if extant)
-&Parse_conf::read_config($Conffile);
-
-# [Re]write /etc/mail/sendmail.config
-&Parse_conf::write_config($Conffile);
-
-my ($ok, $value) = &Parse_conf::get_value('HANDS_OFF');
-if ($value ne '0') {
- unlink "/etc/cron.d/sendmail";
- exit;
- };
-
-# Reflect settings in /etc/cron.d/sendmail
-&write_crontab;
-if ( $output_file eq '' ) {
- chown '0', '0', "/etc/cron.d/sendmail";
- chmod 0644, "/etc/cron.d/sendmail";
- };
-
-# Reflect settings in /etc/inetd.conf
-&update_inetd;
-
-# Create/Delete files
-&update_files;
-
-exit (0);
-
-#
-#------------------------------------------------------------------------
-# Check for nullclient mode in /etc/mail/sendmail.mc
-#------------------------------------------------------------------------
-sub check_nullclient {
- my $nullclient = 0;
- my $in_file = "/etc/mail/sendmail.mc";
- if ( -r $in_file ) {
- my $ifh;
- unless ( open($ifh, "<$in_file") ) {
- warn("Could not open $in_file($!), ignoring it.\n");
- };
-
- line: while (<$ifh>) {
- next line if /^$/; # skip empty lines
- next line if /^#/; # skip comments
- next line if /^dnl /; # skip comments
- chomp; # drop tailing \n
-
- if (/^\s*FEATURE\(\s*`?nullclient/) {
- $nullclient = 1;
- last line;
- };
- };
- };
- return $nullclient;
- };
-
-#
-#------------------------------------------------------------------------
-# Compute time setting for Crontab entry (simplistic)
-#------------------------------------------------------------------------
-sub sm2cron_time {
- my $month = 0;
- my $week = 0;
- my $day = 0;
- my $hour = 0;
- my $minute = 0;
- my $second = 0;
- my $tmp = 0;
- my $t = '';
- my $cron = '';
-
- my ($sm) = @_;
- my $seconds = 0;
- if ($sm eq '') {
- if ( $main::opt_test ) {
- print "$cron = sm2cron_time($sm);\n";
- };
- return ($cron, $seconds);
- };
-
- # Convert sendmail time
- # 1w2d3h4m5s
- # to cron time
- # m h dom mon dow
- $t = $sm;
- ($week = $sm) =~ s/.*?(\d+)w.*/$1/ if ( $t =~ /w/ );
- ($day = $sm) =~ s/.*?(\d+)d.*/$1/ if ( $t =~ /d/ );
- ($hour = $sm) =~ s/.*?(\d+)h.*/$1/ if ( $t =~ /h/ );
- ($minute = $sm) =~ s/.*?(\d+)m.*/$1/ if ( $t =~ /m/ );
- ($second = $sm) =~ s/.*?(\d+)s.*/$1/ if ( $t =~ /s/ );
- # Convert weeks to days (roughly)
- $day = $day + (7 * $week);
-
- # Cron doesn't do seconds, round to minutes or ignore
- $seconds = $seconds + $second;
- $tmp = $second;
- $second = sprintf("%02d", $second%60);
- $minute = $minute + sprintf("%02d", ($tmp-$second)/60);
- $minute = $minute + 1 if ($second >= 30);
-
- # Minute of hour (0-59)
- $seconds = $seconds + ($minute * 60);
- $tmp = $minute;
- $minute = sprintf("%02d", $minute%60);
- $hour = $hour + sprintf("%02d", ($tmp-$minute)/60);
- if (0 < $hour + $day + $week + $month) {
- $hour = $hour + 1 if ($minute >= 30);
- $cron = "00 ";
- }
- else {
- $minute = '01' if ($minute == 0);
- $cron = "*/$minute";
- };
-
- # Hour of day (0-23)
- $seconds = $seconds + ($hour * 60 * 60);
- $tmp = $hour;
- $hour = sprintf("%02d", $hour%24);
- $day = $day + sprintf("%02d", ($tmp-$hour)/24);
- if (0 < $day + $week + $month) {
- $day = $hour + 1 if ($minute >= 30);
- $cron = "$cron 00 ";
- }
- elsif ($hour != 0) {
- $cron = "$cron */$hour";
- }
- else {
- $cron = "$cron * ";
- };
-
- # Day of month (1-31)
- $tmp = $day;
- $day = sprintf("%02d", $day%32);
- $month = $month + sprintf("%02d", ($tmp-$day)/32);
- if (0 < $month) {
- $month = $month + 1 if ($day >= 15);
- $cron = "$cron 01 ";
- }
- elsif ($day != 0) {
- $cron = "$cron */$day";
- }
- else {
- $cron = "$cron * ";
- };
-
- # Month in year (1-12)
- $month = sprintf("%02d", $month%12);
- if (0 < $month) {
- $cron = "$cron */$month";
- }
- else {
- $cron = "$cron * ";
- };
-
- $cron = "$cron *"; # Day of week (0-7)
-
- if ( $main::opt_test ) {
- print "$cron = sm2cron_time($sm);\n";
- };
- return ($cron, $seconds);
- };
-
-#
-#------------------------------------------------------------------------
-# Write updated cron file
-#------------------------------------------------------------------------
-sub write_crontab {
- my $var;
- my $interval = '';
- my $cronint = '';
- my $test = "test -x /etc/init.d/sendmail";
- my $command = '';
- my $ok = '';
- my $mailto = '';
- my $mmode = '';
- my $qmode = '';
- my $msp_line = '';
- my $mta_line = '';
- my $age_line = '';
-
- ($ok, $mailto) = &Parse_conf::get_value('CRON_MAILTO');
- if ( ! $ok ) {
- return;
- };
-
- my $out_file = $output_file || "/etc/cron.d/sendmail";
- print STDOUT "Writing $out_file.\n";
- $out_file = '&STDOUT' if ($out_file eq '-');
- unless ( open($ofh, ">$out_file") ) {
- warn("Could not open $out_file($!), using STDOUT\n");
- open($ofh, ">&STDOUT");
- };
- $out_file = '-' if ($out_file eq '&STDOUT');
-
- print $ofh <<"EOT";
-####################################################################
-##### This file is automagically generated -- edit at your own risk
-#####
-##### file: ${out_file}
-##### generated via: (${interp_pgm} ${interp_vrm})
-##### ${main::program_name}
-##### version: ${main::program_version} ${main::program_date}
-##### by: ${user}\@${hostname}
-##### on: ${current_time}
-##### in: ${directory}
-##### input files:
-EOT
- foreach my $file ( split(' ', $input_file) ) {
- print $ofh <<"EOT";
-##### ${file}
-EOT
- };
- print $ofh <<"EOT";
-#####
-####################################################################
-#------------------------------------------------------------------------------
-#
-# $out_file
-#
-# Copyright (c) 2001-2007 Richard Nelson. All Rights Reserved.
-# Version: ${main::program_version}
-# Time-stamp: <${main::program_date}>
-#
-# Sendmail crontab - Call sendmail at various times to do the following:
-# 1) Age queues - move undelivered mail to a slower queue
-# 2) Retry any mail queued by the message submission process
-# 3) run the queues (deliver mail) if a standalone daemon is not desired
-#
-# Each processes is independant and guided by /etc/mail/sendmail.conf and
-# {sendmail,submit}.mc files.
-#
-# There isn't anything here that should need touching.
-#
-# Any requisite queue/misc parameters must be set in /etc/mail/sendmail.conf
-# and reflected herein via /usr/sbin/sendmailconfig (or more directly via
-# ${main::program_name}).
-#
-#------------------------------------------------------------------------------
-#
-# use default path, shell, home
-#SHELL=/bin/sh
-#PATH=
-#HOME=
-# send mail to this user, as `mail/smmsp` isn't real.
-MAILTO=$mailto
-#
-# format of entries:
-# m h dom mon dow user command
-#
-#------------------------------------------------------------------------------
-# Every so often, give sendmail a chance to run the MSP queues.
-#
-EOT
- ($ok, $interval) = &Parse_conf::get_value('MSP_INTERVAL');
- ($cronint, $ok) = &sm2cron_time($interval);
- $command = "$test && /usr/share/sendmail/sendmail cron-msp";
- ($ok, $mmode) = &Parse_conf::get_value('MSP_MODE');
- ($ok, $qmode) = &Parse_conf::get_value('QUEUE_MODE');
- if ($mmode eq 'Cron'
- and ($interval ne '')
- #or ($mmode eq 'None' and $qmode eq 'Cron')
- ) {
- $msp_line =
- "$cronint\t\tsmmsp\t$command";
- }
- else {
- $msp_line =
- "#$cronint\t\tsmmsp\t$command";
- };
- print $ofh "$msp_line\n";
-
- print $ofh <<"EOT";
-#
-#------------------------------------------------------------------------------
-# Every so often, give sendmail a chance to run the MTA queues.
-# Will also run MSP queues if enabled
-#
-EOT
- ($ok, $interval) = &Parse_conf::get_value('QUEUE_INTERVAL');
- ($cronint, $ok) = &sm2cron_time($interval);
- $command = "$test && /usr/share/sendmail/sendmail cron-mta";
- if ($qmode eq 'Cron'
- and ($interval ne '')
- ) {
- $mta_line =
- "$cronint\t\troot\t$command";
- }
- else {
- $mta_line =
- "#$cronint\t\troot\t$command";
- };
- print $ofh "$mta_line\n";
-
- print $ofh <<"EOT";
-#
-#------------------------------------------------------------------------------
-# Every so often, give sendmail a chance to age the queues.
-#
-EOT
- ($ok, $var) = &Parse_conf::get_value('AGE_DATA');
- my $tmpval = eval $var;
- if ($@) {
- warn $@;
- }
- else {
- $var = $tmpval;
- };
- if (not ref $var) {
- print $ofh "# No queue aging\n";
- }
- elsif (@{$var} == 0) {
- print $ofh "# No queue aging\n";
- }
- else {
- foreach my $entry (@{$var}) {
- ($interval, $ok) = &sm2cron_time(@$entry[0]);
- my $criteria = @$entry[1] || join('','-s ',$ok);
- my $to = @$entry[2];
- my $from = @$entry[3];
- $command = "$test && /usr/share/sendmail/qtool.pl";
- $from = "/var/spool/mqueue/$from"
- if ($from !~ /^\//);
- $to = "/var/spool/mqueue/$to"
- if ($to !~ /^\//);
- $age_line =
- "$interval\t\troot\t$command $criteria $to $from";
- print $ofh "$age_line >/dev/null\n";
- };
- };
- print $ofh <<"EOT";
-#
-EOT
-
- close($ofh);
- };
-
-#
-#------------------------------------------------------------------------
-# Update /etc/inetd.conf file
-#------------------------------------------------------------------------
-sub update_inetd {
-
- # Don't try to write if we're debugging
- if ($output_file ne '') {
- return;
- };
-
- my ($ok, $mode) = &Parse_conf::get_value('DAEMON_MODE');
- if ( $ok and -x '/usr/sbin/update-inetd' ) {
- if ( $mode eq 'Inetd' ) {
- system 'update-inetd --group MAIL --enable smtp,smtps,submission'
- }
- else {
- system 'update-inetd --group MAIL --disable smtp,smtps,submission'
- };
- };
-
- };
-
-#
-#------------------------------------------------------------------------
-# Update mail statistics information (create/delete files)
-#------------------------------------------------------------------------
-sub update_files {
-
- # Don't try to write if we're debugging
- if ($output_file ne '') {
- return;
- };
-
- my ($class, $flags, $files, $options);
- my ($ok, $stats);
- my $file;
-
- #
- # Read the mc/m4 files
- &Parse_mc::read_dbs('', '');
-
- # Obtain entry for HOST_STATUS_DIRECTORY
- ($class, $flags, $files, $options) =
- &Parse_mc::entry_dbs('confHOST_STATUS_DIRECTORY');
- $file = @{$files}[0];
- ($ok, $stats) = &Parse_conf::get_value('DAEMON_HOSTSTATS');
- if ( $ok and $file ne '-' ) {
- if ( $stats and ! -d $file) {
- print STDOUT "Enabling HOST statistics file($file).\n";
- system "mkdir ${file}";
- my $gid = getgrnam('smmsp');
- chown '0', $gid, $file;
- chmod 02755, $file;
- }
- elsif ( ! $stats and -d $file ) {
- print STDOUT "Disabling HOST statistics file($file).\n";
- system "rm -rf ${file}";
- };
- };
-
- # Obtain entry for STATUS_FILE
- ($class, $flags, $files, $options) =
- &Parse_mc::entry_dbs('STATUS_FILE');
- $file = @{$files}[0];
- ($ok, $stats) = &Parse_conf::get_value('DAEMON_MAILSTATS');
- if ( $ok and $file ne '-' ) {
- if ( $stats and ! -e $file) {
- print STDOUT "Enabling MTA statistics file($file).\n";
- open 'STATS', ">$file";
- close 'STATS';
- my $gid = getgrnam('smmsp');
- chown '0', $gid, $file;
- chmod 0640, $file;
- }
- elsif ( ! $stats and -e $file ) {
- print STDOUT "Disabling MTA statistics file($file).\n";
- unlink $file;
- };
- };
-
- # Obtain entry for MSP_STATUS_FILE
- ($class, $flags, $files, $options) =
- &Parse_mc::entry_dbs('MSP_STATUS_FILE');
- $file = @{$files}[0];
- ($ok, $stats) = &Parse_conf::get_value('MSP_MAILSTATS');
- if ( $ok and $file ne '-') {
- if ( $stats and ! -e $file ) {
- print STDOUT "Enabling MSP statistics file($file).\n";
- open 'STATS', ">$file";
- close 'STATS';
- my $gid = getgrnam('smmsp');
- chown '0', $gid, $file;
- chmod 0660, $file;
- }
- elsif ( ! $stats and -e $file ) {
- print STDOUT "Disabling MSP statistics file($file).\n";
- unlink $file;
- };
- };
-
- };
-
generated by cgit v1.2.3 (git 2.39.1) at 2025-04-03 12:43:39 +0000