Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to use a CGI program to call a Perl program?

Status
Not open for further replies.
kre1973

kre1973

IS-IT--Management
May 5, 2006
47
US
I have the following CGI program below that has a form with embedded Javascript. I'm trying to read a textfile and putting it in a dropdown "Select" statement for the user to pick from. I then need to pass the variables to a Perl program that sends a page to a pager.

I'm not sure how to pass the textfile data in the drop down to the Perl program.
Code: 
#!/opt/perl/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

############################
my $AlphaIndividual = "/nmltest/dailyops/data/AlphaIndividual.txt";
open ALPHAINDIVIDUAL, "$AlphaIndividual" or die "Can not open AlphaIndividual $!\n";
  my @Individual = <ALPHAINDIVIDUAL>;
  close(ALPHAINDIVIDUAL);

print "Content-type: text/html\n\n";
print <<EOF;
<HTML>  
<HEAD><TITLE>Alpha Paging System</TITLE>

<style type="text/css">
body {background-color:#FDF5E6}
h3 {margin-bottom:0px;margin-top:1ex;color:#4682B4}
</style>
<SCRIPT language="JavaScript">
function CountChr(){
      myLength = document.myform.YourMessage.value.length + document.myform.YourName.value.length + document.myform.YourNumber.value.length + 11
      if (document.myform.Type.value == "Group"){
            myLength = myLength + 10
      }
      ChrCount.innerHTML = myLength + "/150"
      if (myLength > 149){
            alert("You can only send a maximum of 150 characters in a page.")
      }
      PageMessage.innerHTML = "From: " + document.myform.YourName.value + " @ " + document.myform.YourNumber.value + ", " + document.myform.YourMessage.value
}
function ResetForm(){
      PageMessage.innerHTML = ""
      ChrCount.innerHTML = ""
}
</SCRIPT> 
</HEAD> 
<BODY>
<center>
<h1>Paging System</h1>
</center>
<li>Select an individual .</li>
<li>Enter your name and phone number(66x-xxxx) so paged person(s) can respond.</li>
<li>Enter your message or alert code for the paged person(s).
<b>Note: Do not re-enter your name and phone number in the message box!</b></li>
<li>Click Send.</li>
<br></br>
<h3>&nbsp;&nbsp;&nbsp;&nbsp;Choose Individual</h3>
<TABLE>
<TR>
<TD>
<p><select size="1" NAME="to_email">
<option selected>______INDIVIDUAL_____</option>
EOF


foreach (@Individual) {
my @Individual = split /\|/, $_;
     my $to_email = $Individual[0];
     my $IName = $Individual[1];
print "<option value=\"$to_email\">$IName</option>\n";
}
print "</select>";

print <<EOF;
</TD>
</TR>
</TABLE>
<FORM name="myform" method="post" action="page.pl">
<INPUT type=hidden name=PIN> 
<INPUT type=hidden name=MSSG>
<INPUT type=hidden name=Type>
<TABLE>
<TR>
<TD valign=top width=560>
<FIELDSET>
<LEGEND>
<STRONG>Your Name</STRONG>
</LEGEND>
<INPUT onKeyUp=CountChr() title="Your Name" name=YourName>
</FIELDSET> 
</TD>
<TD valign=top width=560>
<FIELDSET>
<LEGEND>
<STRONG>Your Phone (66x-xxxx)</STRONG>
</LEGEND>
<INPUT onKeyUp=CountChr() title="Your Phone Number" maxlength=12 name=YourNumber>
</FIELDSET>
</TD>
</TR>
<TR valign=top>
<TD colspan=2>
<FIELDSET>
<LEGEND>
<STRONG>Your Message: chars(<SPAN id=ChrCount></SPAN>
)</STRONG>
</LEGEND>
<TEXTAREA onKeyUp=CountChr() title="Your Message" name=YourMessage rows=4 cols=60>
</TEXTAREA>
</FIELDSET>
</TD>
</TR>
<TR width="560">
<TD valign=top colspan=2 height=69>
<FIELDSET>
<STRONG>
<LEGEND>Pager Msg:</LEGEND>
<SPAN id=PageMessage></SPAN>
</STRONG>
</FIELDSET>
</TD>
</TR>
<TR align=middle>
<TD valign=top colspan=2>
<INPUT type=submit value=Send>
<INPUT onClick=ResetForm() type=reset value=Reset name=B2>
</TD>
</TR>
</TBODY>
</TABLE>
</FORM>
</HTML>
EOF

Here is the Perl program code:
Code: 
#!/opt/perl/bin/perl

use CGI qw(:standard);
use Mail::Sendmail;

$mail{From} = 'NM Page <alphapage@yourcompany.com>';
$mail{Smtp} = 'exapps.yourcompany.com';

$q = new CGI;
@keys = sort($q->param);

$to_email = $q->param('to_email');

if ( $q->param('to_email') =~ /\d+@\w+/ ) { @to_email = split (/\s+/, $to_email); }
@to = (@to_email);

$body = $q->param('YourMessage');
$namnum= $q->param('YourName')  . "@" . $q->param('YourNumber'); 

print header;

foreach (@to)  {
  $mail{To}   = "$_";
  $mail{Subject} = "$namnum";
  $mail{Message} = "$body";
  sendmail %mail;
}


print &confirm;
exit;

sub confirm
{
return <<CONFIRM

<html>
<head>

<title>Pager</title>

</head>
<body>
<table>  
  <tr> 
   <td>      Email Page sent to @to<br>From: pager\@nm<br>Message: $body
        <p>&nbsp;</p>
        </td>
  </tr>
    <tr height="1">
    <td>&nbsp;</TD>
    <td id="contactMargin" valign="top">
      <hr>
 </td>
  </tr>
 </table>
</body>
<html>

CONFIRM
}

It's calling the Perl program: page.pl, but it's not sending the data from a textfile to the dropdown select box...

Thanks



 
Sort by date Sort by votes
Isn't a Perl program and a CGI program the same thing in this case?

-------------
Cuvou.com | The NEW Kirsle.net
 
Upvote 0 Downvote
your select an option tags need to be inside the form tag:

Code: 
<BODY>
<center>
<h1>Paging System</h1>
</center>
<li>Select an individual .</li>
<li>Enter your name and phone number(66x-xxxx) so paged person(s) can respond.</li>
<li>Enter your message or alert code for the paged person(s).
<b>Note: Do not re-enter your name and phone number in the message box!</b></li>
<li>Click Send.</li>
<br></br>
<h3>&nbsp;&nbsp;&nbsp;&nbsp;Choose Individual</h3>
<TABLE>
<TR>
<TD>
<p>
EOF

my $options = qq~<select size="1" NAME="to_email">
<option selected>______INDIVIDUAL_____</option>~;

for (@Individual) {
     chomp;
     my ($to_email,$IName) = split /\|/;
     $options .= qq~<option value="$to_email">$IName</option>\n~;
}
$options .= '</select>';

print <<EOF;
</TD>
</TR>
</TABLE>
<FORM name="myform" method="post" action="page.pl">
<INPUT type=hidden name=PIN>
<INPUT type=hidden name=MSSG>
<INPUT type=hidden name=Type>
<TABLE>
<TR>
<TD valign=top width=560>
<FIELDSET>
<LEGEND>
<STRONG>Your Name</STRONG>
</LEGEND>
<INPUT onKeyUp=CountChr() title="Your Name" name=YourName>
</FIELDSET>
</TD>
<TD valign=top width=560>
<FIELDSET>
<LEGEND>
<STRONG>Your Phone (66x-xxxx)</STRONG>
</LEGEND>
<INPUT onKeyUp=CountChr() title="Your Phone Number" maxlength=12 name=YourNumber>
</FIELDSET>
</TD>
</TR>
<TR valign=top>
<TD colspan=2>
<FIELDSET>
<LEGEND>
<STRONG>Your Message: chars(<SPAN id=ChrCount></SPAN>
)</STRONG>
</LEGEND>
<TEXTAREA onKeyUp=CountChr() title="Your Message" name=YourMessage rows=4 cols=60>
</TEXTAREA>
</FIELDSET>
</TD>
</TR>
<TR width="560">
<TD valign=top colspan=2 height=69>
<FIELDSET>
<STRONG>
<LEGEND>Pager Msg:</LEGEND>
<SPAN id=PageMessage></SPAN>
</STRONG>
</FIELDSET>
</TD>
</TR>
<TR align=middle>
<TD valign=top colspan=2>
[b]$options[/b]
<INPUT type=submit value=Send>
<INPUT onClick=ResetForm() type=reset value=Reset name=B2>
</TD>
</TR>
</TBODY>
</TABLE>
</FORM>
</HTML>
EOF

put $options where you want in he html code.

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
828
rob54321
rob54321
newbie1238585
  • Locked
  • Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
473
mikrom
mikrom
ss_ham
  • Locked
  • Question
in Perl find call looking to exclude folder and ignore duplicate finds.
Replies
2
Views
407
ss_ham
ss_ham
Dino_1000
  • Locked
  • Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
399
Dino_1000
Dino_1000
Limbomusic
  • Locked
  • Question
Perl files getting accessed directly
Replies
0
Views
362
Limbomusic
Limbomusic

Part and Inventory Search

Sponsor

Back
Top