Gecko [ www.jdcpatala.org ]

Name	Size	Permission
cf	[ DIR ]	drwxr-xr-x
examples	[ DIR ]	drwxr-xr-x
Parse_conf.pm	29.37 KB	-rwxr-xr-x
Parse_mc.pm	31.58 KB	-rwxr-xr-x
buildvirtuser	6.28 KB	-rwxr-xr-x
doublebounce.pl	6.15 KB	-rwxr-xr-x
dynamic	12.27 KB	-rwxr-xr-x
hoststat	31.9 KB	-rwxr-xr-x
mailq	31.9 KB	-rwxr-xr-x
mailstats	31.9 KB	-rwxr-xr-x
newaliases	31.9 KB	-rwxr-xr-x
parse_mc	2.77 KB	-rwxr-xr-x
purgestat	31.9 KB	-rwxr-xr-x
qtool.pl	24.08 KB	-rwxr-xr-x
runq	31.9 KB	-rwxr-xr-x
sendmail	31.9 KB	-rwxr-xr-x
smcontrol.pl	7.4 KB	-rwxr-xr-x
status	31.9 KB	-rwxr-xr-x
update_auth	9.92 KB	-rwxr-xr-x
update_authm4	7.84 KB	-rwxr-xr-x
update_conf	15.15 KB	-rwxr-xr-x
update_db	15.23 KB	-rwxr-xr-x
update_ldap	3.48 KB	-rwxr-xr-x
update_mc	10.28 KB	-rwxr-xr-x
update_mk	20.76 KB	-rwxr-xr-x
update_notices	7.19 KB	-rwxr-xr-x
update_sendmail	3.44 KB	-rwxr-xr-x
update_smrsh	2.42 KB	-rwxr-xr-x
update_sys	7.87 KB	-rwxr-xr-x
update_tcpd	1.93 KB	-rwxr-xr-x
update_tls	9.34 KB	-rwxr-xr-x
update_tlsm4	7.71 KB	-rwxr-xr-x

Code Editor : parse_mc

#!/usr/bin/perl -w
#------------------------------------------------------------------------
#
# $Sendmail: parse_mc,v 8.15.2 2020-03-08 00:39:49 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.15.2';
$main::program_date    = '2020-03-08 00:39:49 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);

${this.title}

Code Editor : parse_mc