Hello Pierrick,
Monday, March 25, 2002, 1:06:40 AM, you wrote:
PB> Hi folks !
PB> I had to remove this file from my system and recreate the Masq file from
PB> templates because this
PB> "40AllowPOP" file was bloking access to any external POP server.
PB> Any idea why this script was in my system ?!
PB> Thanx
PB> -------------------------------------
PB> [root@server /]# cat 40AllowPOP
PB> {
PB> package esmith;
PB> use strict;
PB> use Errno;
PB> use esmith::config;
PB> use esmith::util;
PB> use esmith::db;
PB> $OUT = '';
PB> my %conf;
PB> tie %conf, 'esmith::config';
PB> my %networks;
PB> tie %networks, 'esmith::config', '/home/e-smith/networks';
PB> my $racine="FetchMails";
PB> my $fetch=db_get(\%conf,$racine,'custom_service');
PB> if(( not defined $fetch) || ($fetch eq ''))
PB> {
PB> db_set(\%conf,$racine,'custom_service');
PB> db_set_prop(\%conf,$racine,'Routing','YES');
PB> }
PB> my $lock=db_get_prop(\%conf,$racine,'Routing');
PB> if ( $lock eq 'NO' )
PB> {
PB> my $locIp=db_get(\%conf,'LocalIP');
PB> my $locMask=db_get(\%conf,'LocalNetmask');
PB> my ($network, $broadcast) = esmith::util::computeNetworkAndBroadcast
PB> ($locIp, $locMask);
PB> $OUT .= " # POP-AUTH : Forwarding of pop (port 110) is denied to
PB> enforced mail-authentication\n";
PB> $OUT .= " /sbin/ipchains --append forward -p tcp --source
PB> ".$network."/".$locMask." --destination 0.0.0.0/0 pop -j denylog\n";
PB> $OUT .= " # End of POP-AUTH\n";
PB> my $key;
PB> my $value;
PB> while (($key,$value) = each %networks)
PB> {
PB> my ($type, %properties) = split (/\|/, $value, -1);
PB> if ($type eq 'network')
PB> {
PB> $OUT .= " # POP-AUTH : Forwarding of pop (port 110) is
PB> denied to enforced mail-authentication\n";
PB> $OUT .= " /sbin/ipchains --append forward -p tcp --source
PB> ".$key."/".$properties{'Mask'}." --destination 0.0.0.0/0 pop -j denylog\n";
PB> $OUT .= " # End of POP-AUTH\n";
PB> }
PB> }
PB> }
PB> $OUT;
PB> }
PB> ----
PB> Windows? Why? Linux gives me as much instability as I need. None!
PB> Penguin power
PB> --
PB> Please report bugs to [EMAIL PROTECTED]
PB> Please mail [EMAIL PROTECTED] (only) to discuss security issues
PB> Support for registered customers and partners to [EMAIL PROTECTED]
PB> To unsubscribe, e-mail: [EMAIL PROTECTED]
PB> For additional commands, e-mail: [EMAIL PROTECTED]
PB> Archives by mail and http://www.mail-archive.com/devinfo%40lists.e-smith.org
Perhaps have you installed e-smith-fetchmail-0.2 or xxxx-0.3 rpm ???
--
Best regards,
Laurent mailto:[EMAIL PROTECTED]
--
Please report bugs to [EMAIL PROTECTED]
Please mail [EMAIL PROTECTED] (only) to discuss security issues
Support for registered customers and partners to [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Archives by mail and http://www.mail-archive.com/devinfo%40lists.e-smith.org
