New to Perl Help and bmail

New to Perl Help and bmail

am 16.05.2007 14:35:20 von Jaymes

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 'Attempting to transmit...errors listed here will be
from bmail software.


';

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

print '
';
print qq();
#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

Re: New to Perl Help and bmail

am 16.05.2007 15:31:20 von Sisyphus

"Jaymes" wrote in message
news:1179318919.966882.293900@p77g2000hsh.googlegroups.com.. .
>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

Re: New to Perl Help and bmail

am 16.05.2007 21:20:39 von Jaymes

On May 16, 8:31 am, "Sisyphus" wrote:
> "Jaymes" wrote in message
>
> news:1179318919.966882.293900@p77g2000hsh.googlegroups.com.. .
>
>
>
>
>
> >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 -