SWAMPy

✎ CARVE FLESH

EDITING: parse_mc

#!/usr/bin/perl -w
#------------------------------------------------------------------------
#
# $Sendmail: parse_mc,v 8.18.1 2024-03-15 01:52:07 cowboy Exp $
#
# Parse Sendmail config for databases
#
# Copyright 2000-2010 Richard Nelson.  All Rights Reserved.
#
# Notes (to all):
#	* for "define(xxx,...)"; "define(xxx," must be on same line, but the
#	  rest may be split across multiple lines
#	* assumes makemap dbtype /etc/mail/database < /etc/mail/database
#
# Notes (to self):
#	*
#
#------------------------------------------------------------------------
# My first perl program (from my first awk program ;-})
#
# Initialization of the perl environment
use strict;			# be kosher
use Env;			# A few environmental references
use integer;		# Peformance
use Getopt::Long;	# parameter handling

# 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_mc;
require Parse_conf;

# Version of this program
#($main::MYNAME			= $main::0) =~ s|.*/||;
#$main::Author			= "Richard Nelson";
#$main::AuthorMail		= "cowboy\@debian.org";
#$main::Version			= '$Revision: 2.00 $ ';
$main::program_name    = $0;
$main::program_version = '8.18.1';
$main::program_date    = '2024-03-15 01:52:07 cowboy';
$main::debug			= 0;

#
#------------------------------------------------------------------------------
# Finally, some code (almost)
#------------------------------------------------------------------------------
#
# Argument handling...
$main::opt_help='';
$main::opt_output_file='';
$main::opt_input_file='';
$main::opt_debug='';
my @options = qw(
	help|h
	output-file|output_file|o:s
	input-file|input_file|i:s@
	debug!
	);
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;
	};

${Parse_mc::database_file} = $main::opt_output_file
	if $main::opt_output_file;
my $input_files = join(' ', @main::opt_input_file);
# $main::debug is used in parse_mc !
$main::debug = $main::opt_debug || $main::debug;

# Pull in some configuration data
&Parse_conf::read_conf();
my ($ok, $value) = &Parse_conf::get_value('HANDS_OFF');
if ($value ne '0') {
	unlink "${Parse_mc::database_file}";
	exit;
	};

# Let them know wtf is going on...
print STDOUT "Creating ${Parse_mc::database_file}...\n";

# Read the mc/m4 files
&Parse_mc::read_mc($input_files);

# Write out the textual representation
&Parse_mc::write_dbs('', $input_files);

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📁 cf/	DIR	—	2019-10-23 07:02
📁 examples/	DIR	—	2026-03-10 17:24
📄 buildvirtuser	?	6.3 KB	2024-03-15 00:52	EDIT
📄 doublebounce.pl	PL	6.1 KB	2024-03-15 00:52	EDIT
📄 dynamic	?	12.3 KB	2024-03-15 00:52	EDIT
📄 hoststat	?	31.9 KB	2024-03-15 00:52	EDIT
📄 mailq	?	31.9 KB	2024-03-15 00:52	EDIT
📄 mailstats	?	31.9 KB	2024-03-15 00:52	EDIT
📄 newaliases	?	31.9 KB	2024-03-15 00:52	EDIT
📄 Parse_conf.pm	PM	29.4 KB	2024-03-15 00:52	EDIT
📄 parse_mc	?	2.8 KB	2024-03-15 00:52	EDIT
📄 Parse_mc.pm	PM	31.6 KB	2024-03-15 00:52	EDIT
📄 purgestat	?	31.9 KB	2024-03-15 00:52	EDIT
📄 qtool.pl	PL	24.1 KB	2024-03-15 00:52	EDIT
📄 runq	?	31.9 KB	2024-03-15 00:52	EDIT
📄 sendmail	?	31.9 KB	2024-03-15 00:52	EDIT
📄 smcontrol.pl	PL	7.4 KB	2024-03-15 00:52	EDIT
📄 status	?	31.9 KB	2024-03-15 00:52	EDIT
📄 update_auth	?	9.9 KB	2024-03-15 00:52	EDIT
📄 update_authm4	?	7.8 KB	2024-03-15 00:52	EDIT
📄 update_conf	?	15.2 KB	2024-03-15 00:52	EDIT
📄 update_db	?	15.3 KB	2024-03-15 00:52	EDIT
📄 update_ldap	?	3.5 KB	2024-03-15 00:52	EDIT
📄 update_mc	?	10.3 KB	2024-03-15 00:52	EDIT
📄 update_mk	?	20.8 KB	2024-03-15 00:52	EDIT
📄 update_notices	?	7.2 KB	2024-03-15 00:52	EDIT
📄 update_sendmail	?	3.4 KB	2024-03-15 00:52	EDIT
📄 update_smrsh	?	2.4 KB	2024-03-15 00:52	EDIT
📄 update_sys	?	7.9 KB	2024-03-15 00:52	EDIT
📄 update_tcpd	?	1.9 KB	2024-03-15 00:52	EDIT
📄 update_tls	?	9.3 KB	2024-03-15 00:52	EDIT
📄 update_tlsm4	?	7.7 KB	2024-03-15 00:52	EDIT