[usenet/usevote.git] / UVconfig.pm

# UVconfig: Reads config files and tests configuration
# Used by all components

package UVconfig;

use strict;
use Net::Domain qw(hostname hostfqdn hostdomain);
use UVmessage;
use vars qw(@ISA @EXPORT $VERSION $usevote_version %config %messages
            @rules @groups $bdsg_regexp $bdsg2_regexp %ids %functions);

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($usevote_version %config %messages @rules @groups
             $bdsg_regexp $bdsg2_regexp %ids %functions);

# Module version
$VERSION = "0.18";

# Usevote version
$usevote_version = "UseVoteGer 4.09";

sub read_config {

  my ($cfgfile, $redir_errors) = @_;
  
  # Default configuration options (overwritten in usevote.cfg)
  %config = (votefile             => "votes",
             votename             => "unkonfiguriertes Usevote",
             resultfile           => "ergebnis.alle",
             rulefile             => "usevote.rul",
             badaddrfile          => "mailpatterns.cfg",
             messagefile          => "messages.cfg",
             idfile               => "scheinkennungen",
             requestfile          => "anforderung",
             errorfile            => "errors.log",
             lockfile             => "usevote.lock",
             replyto              => 0,
             personal             => 0,
             proportional         => 0,
             bdsg                 => 0,
             onestep              => 0,
             multigroup           => 0,
             voteack              => 1,
             voteaccount          => "<> (unkonfiguriertes Usevote)",
             mailfrom             => "<> (unkonfiguriertes Usevote)",
             envelopefrom         => "<>",
             mailstart            => "^From ",
             archivedir           => "fertig",
             tmpdir               => "tmp",
             templatedir          => "templates",
             formats              => "UVformats.pm",
             domailfile           => "tmp/domail",
             controlfile          => "tmp/ack.control",
             mailcmd              => "sendmail -oi -oem",
             mailcc               => "",
             sleepcmd             => "sleep 1",
             clearcmd             => "clear",
             pager                => "less",
             pop3                 => 0,
             pop3server           => "localhost",
             pop3port             => 110,
             pop3user             => "default",
             pop3pass             => "default",
             pop3delete           => 0,
             pop3uidlcache        => "uidlcache",
             pop3server_req       => "localhost",
             pop3port_req         => 110,
             pop3user_req         => "default",
             pop3pass_req         => "default",
             pop3delete_req       => 0,
             pop3uidlcache_req    => "uidlcache_req",
             pop3server_bounce    => "localhost",
             pop3port_bounce      => 110,
             pop3user_bounce      => "default",
             pop3pass_bounce      => "default",
             pop3delete_bounce    => 0,
             pop3uidlcache_bounce => 'uidlcache_bounce',
             smtp                 => 0,
             smtpserver           => 'localhost',
             smtpport             => 25,
             smtphelo             => hostfqdn(),
             fqdn                 => hostfqdn(),
             smtpauth             => 0,
             smtpuser             => '',
             smtppass             => '',
Commit	Line	Data
	1	# UVconfig: Reads config files and tests configuration
	2	# Used by all components
	3
	4	package UVconfig;
	5
	6	use strict;
	7	use Net::Domain qw(hostname hostfqdn hostdomain);
	8	use UVmessage;
	9	use vars qw(@ISA @EXPORT $VERSION $usevote_version %config %messages
	10	@rules @groups $bdsg_regexp $bdsg2_regexp %ids %functions);
	11
	12	require Exporter;
	13	@ISA = qw(Exporter);
	14	@EXPORT = qw($usevote_version %config %messages @rules @groups
	15	$bdsg_regexp $bdsg2_regexp %ids %functions);
	16
	17	# Module version
	18	$VERSION = "0.18";
	19
	20	# Usevote version
	21	$usevote_version = "UseVoteGer 4.09";
	22
	23	sub read_config {
	24
	25	my ($cfgfile, $redir_errors) = @_;
	26
	27	# Default configuration options (overwritten in usevote.cfg)
	28	%config = (votefile => "votes",
	29	votename => "unkonfiguriertes Usevote",
	30	resultfile => "ergebnis.alle",
	31	rulefile => "usevote.rul",
	32	badaddrfile => "mailpatterns.cfg",
	33	messagefile => "messages.cfg",
	34	idfile => "scheinkennungen",
	35	requestfile => "anforderung",
	36	errorfile => "errors.log",
	37	lockfile => "usevote.lock",
	38	replyto => 0,
	39	personal => 0,
	40	proportional => 0,
	41	bdsg => 0,
	42	onestep => 0,
	43	multigroup => 0,
	44	voteack => 1,
	45	voteaccount => "<> (unkonfiguriertes Usevote)",
	46	mailfrom => "<> (unkonfiguriertes Usevote)",
	47	envelopefrom => "<>",
	48	mailstart => "^From ",
	49	archivedir => "fertig",
	50	tmpdir => "tmp",
	51	templatedir => "templates",
	52	formats => "UVformats.pm",
	53	domailfile => "tmp/domail",
	54	controlfile => "tmp/ack.control",
	55	mailcmd => "sendmail -oi -oem",
	56	mailcc => "",
	57	sleepcmd => "sleep 1",
	58	clearcmd => "clear",
	59	pager => "less",
	60	pop3 => 0,
	61	pop3server => "localhost",
	62	pop3port => 110,
	63	pop3user => "default",
	64	pop3pass => "default",
	65	pop3delete => 0,
	66	pop3uidlcache => "uidlcache",
	67	pop3server_req => "localhost",
	68	pop3port_req => 110,
	69	pop3user_req => "default",
	70	pop3pass_req => "default",
	71	pop3delete_req => 0,
	72	pop3uidlcache_req => "uidlcache_req",
	73	pop3server_bounce => "localhost",
	74	pop3port_bounce => 110,
	75	pop3user_bounce => "default",
	76	pop3pass_bounce => "default",
	77	pop3delete_bounce => 0,
	78	pop3uidlcache_bounce => 'uidlcache_bounce',
	79	smtp => 0,
	80	smtpserver => 'localhost',
	81	smtpport => 25,
	82	smtphelo => hostfqdn(),
	83	fqdn => hostfqdn(),
	84	smtpauth => 0,
	85	smtpuser => '',
	86	smtppass => '',
	87