UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set env ip to that of sender.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-10-13 17:59:35 +02:00
parent 72f1e99bb8
commit 176becbfce
1 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

27
sbin/newsletter-transport.pl
View file

@ -25,17 +25,23 @@ my $webguiRoot = '/data/WebGUI';
#---------------------------------------------------------------
# Startup
{
my ( $configFile, $command, $id ) = getCredentials();
my ( $configFile, $command, $id, $sender, $senderIp ) = getCredentials();
if ( WebGUI::MailCommand::isValidCommand( $command ) ) {
my $session = openSession( $webguiRoot, $configFile );
WebGUI::MailCommand::processCommand( $session, $command, $id );
no warnings 'once';
*{ WebGUI::Session::Env::getIp } = sub {
return $senderIp;
};
$session->log->warn( "IP is : [$senderIp][" .$session->env->getIp ."]");
WebGUI::MailCommand::processCommand( $session, $command, $id, $sender );
closeSession( $session );
}
else {
# TODO: log something
die "Not a valid command [$command].";
}
exit(0);
@ -43,14 +49,18 @@ my $webguiRoot = '/data/WebGUI';
#-----------------------------------------------------------------------------
sub getCredentials {
my ( $domain, $user );
my ( $domain, $user, $sender, $senderIp );
GetOptions(
'domain=s' => \$domain,
'user=s' => \$user,
'sender=s' => \$sender,
'senderIp=s'=> \$senderIp,
);
die "--domain parameter is required" unless $domain;
die "--user paramere is required" unless $user;
die "--user parameter is required" unless $user;
die "--sender parameter is required" unless $sender;
die "--senderIp parameter is required" unless $senderIp;
my $dispatch = WebGUI::Config->new( $webguiRoot, 'mailing_dispatch.config' )
|| die "Cannot open $webguiRoot/etc/mailing_dispatch.config";
@ -64,7 +74,8 @@ sub getCredentials {
die "Received mail addressed to [$user\@$domain] which contains no id" unless $id;
die "Received mail addressed to [$user\@$domain] which contains no command" unless $command;
return ( $configFile, $command, $id );
return ( $configFile, $command, $id, $sender, $senderIp );
}
#-----------------------------------------------------------------------------