Click here to get back home

New to Perl Help and bmail

 HomeNewsGroups | Search | About
 comp.lang.perl.modules    Post an article   get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content
Subject Author Date
New to Perl Help and bmail Jaymes 05-16-2007
Posted by Jaymes on May 16, 2007, 8:35 am
Please log in for more thread options


I have a pl script that runs on a server that triggers bmail to send
several emails. I cannot figure out where bmail is getting its
parameters . It is the transmit command that is triggering the event
but where are the parameters coming from? Here is the script

use strict;
use CGI ':standard';

#External perl functions are referenced here.

require 'extsub.pl';

my $filename = param('filename');
my $office1 = param('office1');
my $office2 = param('office2');
my $client = param('client');
my $techmail = param('techmail');
my $tech = param('tech');

#Begin to build HTML by perl functions.

mime();
heading("Transmission Complete!");

print '<body><b>Attempting to transmit...errors listed here will be
from bmail software.</b><hr size=5>';

transmit($filename, $office1, $office2, $client, $techmail);

print '<hr size=5>';
print qq(<a href="/webform/scripts/menu.pl?tech=$tech&"><img src="/
webform/return.png" border=0></a>);
#<a href="/webform/scripts/menu.pl?tech=$tech">Return to Main Page.</
a>);

footer();

This generates the following page

Attempting to transmit...errors listed here will be from bmail
software.
--------------------------------------------------------------------------------
Command Line SMTP Emailer V1.06 Copyright(C) 2002-2004
Craig.Peacock@beyondlogic.org Opening connection to 192.168.10.61
[192.168.10.61] on port 25 220 exchange.getyourgeek.com Microsoft
ESMTP MAIL Service, Version: 6.0.3790.1830 ready at Tue, 15 May 2007
11:06:16 -0500 250 2.6.0 Queued mail for delivery

Command Line SMTP Emailer V1.06 Copyright(C) 2002-2004
Craig.Peacock@beyondlogic.org Opening connection to 192.168.10.61
[192.168.10.61] on port 25 220 exchange.getyourgeek.com Microsoft
ESMTP MAIL Service, Version: 6.0.3790.1830 ready at Tue, 15 May 2007
11:06:16 -0500 250 2.6.0 Queued mail for delivery

Command Line SMTP Emailer V1.06 Copyright(C) 2002-2004
Craig.Peacock@beyondlogic.org Opening connection to 192.168.10.61
[192.168.10.61] on port 25 220 exchange.getyourgeek.com Microsoft
ESMTP MAIL Service, Version: 6.0.3790.1830 ready at Tue, 15 May 2007
11:06:16 -0500 250 2.6.0 Queued mail for delivery

Command Line SMTP Emailer V1.06 Copyright(C) 2002-2004
Craig.Peacock@beyondlogic.org Opening connection to 192.168.10.61
[192.168.10.61] on port 25 220 exchange.getyourgeek.com Microsoft
ESMTP MAIL Service, Version: 6.0.3790.1830 ready at Tue, 15 May 2007
11:06:16 -0500 250 2.6.0 Queued mail for delivery


--------------------------------------------------------------------------------
I need to change the mail server.
Thanks in advance!
Jaymes


Posted by Sisyphus on May 16, 2007, 9:31 am
Please log in for more thread options



>I have a pl script that runs on a server that triggers bmail to send
> several emails. I cannot figure out where bmail is getting its
> parameters . It is the transmit command that is triggering the event
> but where are the parameters coming from?
> Here is the script
>
> use strict;
> use CGI ':standard';
>
> #External perl functions are referenced here.
>
> require 'extsub.pl';
>
> my $filename = param('filename');
> my $office1 = param('office1');
> my $office2 = param('office2');
> my $client = param('client');
> my $techmail = param('techmail');
> my $tech = param('tech');
>

Looks to me that the parameters are coming from a user who is filling out a
webform that enables him to specify the 'filename', 'office1', 'office2',
'client', 'techmail' and 'tech' parameters. Those user-defined parameters
then get assigned to (respectively) $filename, $office1, $office2, $client,
$techmail, $tech.

I think that answers the question you asked .... does it answer the question
you *intended* to ask ?

.
> transmit($filename, $office1, $office2, $client, $techmail);
.
.
> I need to change the mail server.

I surmise that it's transmit() that fires up bmail - and that the transmit()
function is defined in 'extsub.pl'. That being so, you need to change the
transmit() function in extsub.pl so that it fires up the mail server of your
choice instead of bmail.

Cheers,
Rob




Posted by Jaymes on May 16, 2007, 3:20 pm
Please log in for more thread options


>
>
>
>
>
>
> >I have a pl script that runs on a server that triggers bmail to send
> > several emails. I cannot figure out where bmail is getting its
> > parameters . It is the transmit command that is triggering the event
> > but where are the parameters coming from?
> > Here is the script
>
> > use strict;
> > use CGI ':standard';
>
> > #External perl functions are referenced here.
>
> > require 'extsub.pl';
>
> > my $filename = param('filename');
> > my $office1 = param('office1');
> > my $office2 = param('office2');
> > my $client = param('client');
> > my $techmail = param('techmail');
> > my $tech = param('tech');
>
> Looks to me that the parameters are coming from a user who is filling out a
> webform that enables him to specify the 'filename', 'office1', 'office2',
> 'client', 'techmail' and 'tech' parameters. Those user-defined parameters
> then get assigned to (respectively) $filename, $office1, $office2, $client,
> $techmail, $tech.
>
> I think that answers the question you asked .... does it answer the question
> you *intended* to ask ?
>
> .> transmit($filename, $office1, $office2, $client, $techmail);
>
> .
Fixed it. Thanks!


Jaymes
>
> > I need to change the mail server.
>
> I surmise that it's transmit() that fires up bmail - and that the transmit()
> function is defined in 'extsub.pl'. That being so, you need to change the
> transmit() function in extsub.pl so that it fires up the mail server of your
> choice instead of bmail.
>
> Cheers,
> Rob- Hide quoted text -
>
> - Show quoted text -



Similar ThreadsPosted
ANNOUNCE: Initial release of WSF/Perl (Perl bindings for a WS-* framework) October 4, 2007, 1:37 am
PLJava - Perl embeded into Java (calling Perl from Java) - 1sr release - call for tests and review, please. July 13, 2004, 4:06 am
Perl MakeMaker - how to force Perl linking with the static C library (libcrt.lib) instead of dynamic C library (msvcrt.lib) April 17, 2007, 5:22 pm
MFC with Perl July 19, 2005, 9:38 pm
Net::SSH::Perl October 23, 2005, 11:16 pm
perl with ASP November 9, 2005, 10:19 am
Perl December 30, 2005, 9:28 pm
perl DBI help March 1, 2006, 10:25 am
Help with Net::SSH::Perl August 25, 2006, 2:26 pm
perl -> VB .NET September 2, 2006, 11:17 pm

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap