[17573] in Perl-Users-Digest
Perl-Users Digest, Issue: 4993 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 30 00:06:47 2000
Date: Wed, 29 Nov 2000 21:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <975560707-v9-i4993@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 29 Nov 2000 Volume: 9 Number: 4993
Today's topics:
activate neurofase@my-deja.com
Re: Calling perl with input type hidden probs?????? <jhartin@mint.net>
email neurofase@my-deja.com
Re: find function nodo70@my-deja.com
Re: help with active perl <ng@fnmail.com>
Help with stripping/extracting <anth@pnc.com.au>
Re: How to find what is between n'th and the next tab? <rick.delaney@home.com>
how to print webpage into a *.html file? <jingzx@sinaman.com>
Multi Recipients from email attachment script <denverlynx@hotmail.com>
process only every 3rd line <me@privacy.net>
Re: process only every 3rd line <jeff@vpservices.com>
Re: process only every 3rd line <me@privacy.net>
Re: Replacing a character with a string. (Tad McClellan)
Re: splitting a string into an array and preserving the (Tad McClellan)
Re: Substituting international characters <krahnj@acm.org>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 30 Nov 2000 03:38:27 GMT
From: neurofase@my-deja.com
Subject: activate
Message-Id: <904i3j$5r6$1@nnrp1.deja.com>
I am a complete newbie to perl. I first used it about a year ago. I
have never written a perl form until now, but i have modified several.
The set up that I have is that the webserver is just another drive on
the netwrork. Whenever I created these 2 new pieces of perl I just
transfered them onto the drive, but the dont work.
I think i remember something about having to execute perl before it
will work and you can do this by a FTP or Telnet program. The firewall
here does not allow me to FTP or Telnet.
Do I have to execute or activate the perl sections to get them to work
and if so how would i do this considering they are only on another
drive and not transfered through FTP or Telnet????
Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 29 Nov 2000 22:34:02 -0500
From: "Chris" <jhartin@mint.net>
Subject: Re: Calling perl with input type hidden probs??????
Message-Id: <904i4n$k43$1@ruby.mint.net>
send you data as a query string using a standard <a href... tag.
such as .../cgi-bin/test.cgi?action=news.
"Gordon Handley" <gordy_hand@hotmail.com> wrote in message
news:3a25a756.0@energise.enta.net...
> Hi
> I am having a bit of a problem calling a perl file from a html file.
I
> am using images as buttons and then input type hidden etc but I want to
call
> one perl script with three different images and don't want to have to put
it
> in a seperate form each time as this means the layout looks shit as the
> buttons will not be put underneath each other. This is the code I want to
> implement, but this will not call the script.
>
> <FORM method="post" action
> ="http://www.cs.cf.ac.uk/User-bin/G.Handley/houses.pl">
> <input type="image" src="images/buttonnews.gif"
> alt="Houses News" border=0><input type ="hidden" name="action"
value="News">
> <input type="image" src="images/buttonpeople.gif"
> alt="People" border=0><input type ="hidden" name="action" value="People">
> <input type="image" src="images/buttoncontacts.gif"
> alt="Contacts" border=0><input type ="hidden" name="action"
> value="Contacts"></FORM>
>
> Is there away of doing it without having to split each image into a
> different form. I have tried tables and image maps , but I can't seem to
> get it working.
> The script itself is working fine as you can see at
> www.housestalybont.co.uk/index1.html Any suggestions would be very
welcome.
> Thanks
>
>
------------------------------
Date: Thu, 30 Nov 2000 03:30:03 GMT
From: neurofase@my-deja.com
Subject: email
Message-Id: <904hjl$5e1$1@nnrp1.deja.com>
Below is a script that i have used on a form at
http://www.ozarks.edu/campusservices/jlc/inforeque
st.html
I am looking to make it that a email is
automaticaly sent to the email address that was
enter in the form and to make it that the email
reads as if it was sent to the email that was
entered in the form.
Can anyone help.
Gary
my $now = localtime;
&ReadParse(*input);
if(($input{"Firstname"}) eq"") { $var1="First
Name<br>"; }
if(($input{"Lastname"}) eq"") { $var2="Last
Name<br>"; }
if((($input{"hsname"}) eq"") && (($input
{"Uniname"}) eq"")) { $var3="High School Name or
University Name<br>"; }
if(($input{"Parentsname"}) eq"") { $var4="Parents
Name<br>"; }
if(($input{"gdate"}) eq"") { $var5="Graduation
Date<br>"; }
if(($input{"term"}) eq"") { $var6="Term wanting
to enroll<br>"; }
if(($input{"Address"}) eq"") {
$var7="Address<br>"; }
if(($input{"City"}) eq"") { $var8="City<br>"; }
if (
(
$input{"Firstname"} &&
$input{"Lastname"} &&
(($input{"hsname"}) || ($input{"Uniname"})) &&
$input{"Parentsname"} &&
$input{"gdate"} &&
$input{"term"} &&
$input{"City"} &&
$input{"Address"}
)
eq "") {
print "Content-type: text/html\n\n";
print <<ENDOFHTML1;
<HTML>
<TITLE>ERROR!!!</TITLE>
<META http-equiv=\"Content-Type\"
content=\"text/html;
charset=iso-8859-1\">
</HEAD>
<BODY bgcolor=\"#FFFFFF\" text=\"#000000\"
link=\"#FFFFFF\"
MARGINHEIGHT=\"0\" MARGINWIDTH=\"0\" topmargin=\"0
\" leftmargin=\"0\"
vlink=\"#FFFFFF\" alink=\"#FFFF33\">
<TABLE width=\"608\" border=\"0\" cellpadding=\"0
\" cellspacing=\"0\"
height=\"115\">
<TR>
<TD rowspan=\"2\" valign=\"bottom\" width=\"48
\"><IMG
src=\"../../img/innerbgleft.gif\" width=\"48\"
height=\"120\"
align=\"bottom\"></TD>
<TD valign=\"top\" colspan=\"2\"><A
href=\"../html/index.html\"><IMG
src=\"../../img/innerservices.gif\" width=\"315\"
height=\"85\"
border=\"0\"></A></TD>
<TD valign=\"top\" width=\"245\">
<P><IMG src=\"../../img/services_jlc.gif\"
width=\"257\"
height=\"85\"></P>
</TD>
</TR>
<TR>
<TD height=\"40\" valign=\"bottom\" width=\"93
\"><IMG
src=\"../../img/innerbgbottom.gif\" width=\"92\"
height=\"40\"></TD>
<TD height=\"40\" valign=\"top\" width=\"222
\"><A
href=\"../html/index.html\"><IMG
src=\"../../img/i_address.gif\"
width=\"198\"
height=\"13\" align=\"top\" border=\"0\"></A></TD>
<TD valign=\"top\" width=\"245\"
align=\"right\"></TD>
</TR>
</TABLE>
<TABLE width=\"620\" border=\"0\" cellpadding=\"0
\" cellspacing=\"0\">
<TR>
<TD bgcolor=\"#6475B3\" width=\"139\"
rowspan=\"3\" valign=\"top\">
<TABLE border=\"0\" cellspacing=\"3\" width=\"130
\" cellpadding=\"5\">
<TR>
<TD width=\"16\"> </TD>
<TD align=\"center\"><A
href=\"../introduction.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U><FONT
size=\"2
\">Introduction</FONT></U></STRONG></FONT></A></TD
>
</TR>
<TR>
<TD><img
src=\"../../img/arrow.gif\"></TD>
<TD align=\"center\"><A
href=\"index.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Jones
Learning
Center</U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD height=\"36\"></TD>
<TD align=\"center\" height=\"36\"><A
href=\"../computer_services.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Computer
Services</U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../ssupport.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Student
Support
Services</U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../library.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG>Robson
Library</STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../physical.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Physical
Plant</U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../gym.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Mabee
Gymnasium</U></STRONG></FONT></A></TD>
</TR>
</TABLE>
</TD>
<TD width=\"480\" valign="top" colspan=\"2
\"><img src=\"/img/services_jlc_info_long.gif\"
width=\"430\" height=\"16\"><br>
<table border=\"0\" width=\"470\"
cellspacing=\"3\" cellpadding=\"0\"
align=\"center\" vspace=\"0\" hspace=\"0\">
<tr bordercolor=\"#CCCCCC\">
<td>
<P><H2>It seems you left out the following
information:<br></H2>
<FONT COLOR=\"#FF0000\">
$var1
$var2
$var3
$var4
$var5
$var6
$var7
$var8
</FONT>
<H2>
<BR>We need this to provide you with your
requested information.</H2>
</td>
</tr>
</table>
<br>
<a href="index.html"><img
src="/img/services_jlc_intro_short.gif"
width="244" height="16" border="0"></a><br>
<br>
<a href="enhanced.html"><img
src="/img/services_jlc_enhanced_short.gif"
width="244" height="16" border="0"></a><br>
<br>
<a href="dev.html"><img
src="/img/services_jlc_dev_short.gif" width="244"
height="16" border="0"></a><br>
<br>
<a href="inforequest.html"><img
src="/img/services_jlc_adm_short.gif" width="244"
height="16" border="0"></a>
<br>
</TD>
</TR>
</TABLE>
<!-- #BeginLibraryItem \"/Library/mini_icons
table.lbi\" -->
<TABLE width=\"630\" border=\"0\" cellpadding=\"0
\" cellspacing=\"0\" height=\"115\">
<TR valign=\"top\">
<TD rowspan=\"2\" width=\"48\"><IMG
src=\"/img/innerbgleftbottom.gif\" width=\"48\"
height=\"120\"></TD>
<TD colspan=\"2\"><IMG
src=\"/img/innerbgbottombottom.gif\" width=\"92\"
height=\"40\"></TD>
<TD width=\"558\">
<P> </P>
</TD>
</TR>
<TR>
<TD height=\"48\" valign=\"top\" colspan=\"3
\">
<table border=\"0\" vspace=\"0\" hspace=\"0
\" cellspacing=\"0\" cellpadding=\"0\">
<tr valign=\"bottom\" align=\"center\">
<td height=\"55\" width=\"65\">
<center>
<a href=\"/index.html\"><img
src=\"/img/mini_home.gif\" width=\"55\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"65\">
<center>
<a href=\"/about/index.html\"><img
src=\"/img/mini_about.gif\" width=\"48\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"70\"><a
href=\"/studentlife/index.html\"><img
src=\"/img/mini_studentlife.gif\" width=\"55\"
height=\"52\" border=\"0\"></a></td>
<td height=\"55\" width=\"80\">
<center>
<a
href=\"/academics/index.html\"><img
src=\"/img/mini_academics.gif\" width=\"55\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"70\">
<center>
<a
href=\"/athletics/index.html\"><img
src=\"/img/mini_athletics.gif\" width=\"57\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"80\"><a
href=\"/admissions/index.html\"><img
src=\"/img/mini_admissions.gif\" width=\"46\"
height=\"52\" border=\"0\"></a></td>
<td height=\"55\" width=\"65\">
<center>
<a
href=\"/advancement/index.html\"><img
src=\"/img/mini_alumni.gif\" width=\"55\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"70\"><a
href=\"/campusservices/index.html\"><img
src=\"/img/mini_services.gif\" width=\"66\"
height=\"52\" border=\"0\"></a></td>
</tr>
<tr valign=\"top\" align=\"center\">
<td width=\"65\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"> <a
href=\"/about/index.html\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2
\"></font></a><font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a href=\"/index.html\"><font
color=\"#6072b1\">Home</font></a></font></font>
</center>
</td>
<td width=\"65\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a
href=\"/about/index.html\"><font color=\"#6072b1
\">About<br>
Ozarks</font></a> </font>
</center>
</td>
<td width=\"70\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2\"><a
href=\"/admissions/index.html\"></a><a
href=\"/studentlife/index.html\"><font
color=\"#6072b1\">Student<br>
Life</font></a> </font> </td>
<td width=\"80\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"> <a
href=\"/academics/index.html\"><font
color=\"#6072b1\">Academics</font></a>
</font>
</center>
</td>
<td width=\"70\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a
href=\"/athletics/index.html\"><font
color=\"#6072b1\">Athletics</font></a>
</font>
</center>
</td>
<td width=\"80\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2\"><a
href=\"/admissions/index.html\"><font
color=\"#6072b1
\">Admissions</font></a></font></td>
<td width=\"65\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a
href=\"/advancement/index.html\"><font
color=\"#6072B1\">Alumni</font></a>
</font>
</center>
</td>
<td width=\"70\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2\"><a
href=\"/campusservices/index.html\"><font
color=\"#6072b1\">Campus
Services</font></a> </font> </td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<br>
<!-- #EndLibraryItem --> <BR>
<!-- #BeginLibraryItem
\"/Library/innerfooter.lbi\" --><TABLE width=\"620
\" border=\"0\">
<TR>
<TD>
<P align=\"center\"><B><FONT size=\"+1
\">UNIVERSITY OF THE OZARKS</FONT></B><BR>
415 N. College Avenue • Clarksville
Arkansas 72830 • 1-800-264-8636<BR>
</P>
<H5 align=\"center\">Please submit
questions or comments to <A
href=\"mailto:webmaster\@www.ozarks.edu\"><FONT
color=\"#6072b1
\">webmaster\@www.ozarks.edu</FONT></A>.<BR>
</H5>
<H6 align=\"center\">Copyright © 1999 The
University of the Ozarks. All RIGHTS
RESERVED.<BR>
All trademarks mentioned herein belong to
their respective owners.</H6>
<H5 align=\"center\">
URL:http://www.ozarks.edu/index.html</H5>
</TD>
</TR>
</TABLE><!-- #EndLibraryItem -->
</body>
</HTML>
ENDOFHTML1
close(0);
exit(0);
}
print "Content-type: text/html\n\n";
print <<ENDOFHTML;
<HTML>
<HEAD>
<TITLE>Jones Learning Center / Request for
Information</TITLE>
<META http-equiv=\"Content-Type\"
content=\"text/html;
charset=iso-8859-1\">
</HEAD>
<BODY bgcolor=\"#FFFFFF\" text=\"#000000\"
link=\"#FFFFFF\"
MARGINHEIGHT=\"0\" MARGINWIDTH=\"0\" topmargin=\"0
\" leftmargin=\"0\"
vlink=\"#FFFFFF\" alink=\"#FFFF33\">
<TABLE width=\"608\" border=\"0\" cellpadding=\"0
\" cellspacing=\"0\"
height=\"115\">
<TR>
<TD rowspan=\"2\" valign=\"bottom\" width=\"48
\"><IMG
src=\"../../img/innerbgleft.gif\" width=\"48\"
height=\"120\"
align=\"bottom\"></TD>
<TD valign=\"top\" colspan=\"2\"><A
href=\"../html/index.html\"><IMG
src=\"../../img/innerservices.gif\" width=\"315\"
height=\"85\"
border=\"0\"></A></TD>
<TD valign=\"top\" width=\"245\">
<P><IMG src=\"../../img/services_jlc.gif\"
width=\"257\"
height=\"85\"></P>
</TD>
</TR>
<TR>
<TD height=\"40\" valign=\"bottom\" width=\"93
\"><IMG
src=\"../../img/innerbgbottom.gif\" width=\"92\"
height=\"40\"></TD>
<TD height=\"40\" valign=\"top\" width=\"222
\"><A
href=\"../html/index.html\"><IMG
src=\"../../img/i_address.gif\"
width=\"198\"
height=\"13\" align=\"top\" border=\"0\"></A></TD>
<TD valign=\"top\" width=\"245\"
align=\"right\"></TD>
</TR>
</TABLE>
<TABLE width=\"620\" border=\"0\" cellpadding=\"0
\" cellspacing=\"0\">
<TR>
<TD bgcolor=\"#6475B3\" width=\"139\"
rowspan=\"3\" valign=\"top\">
<TABLE border=\"0\" cellspacing=\"3\" width=\"130
\" cellpadding=\"5\">
<TR>
<TD width=\"16\"> </TD>
<TD align=\"center\"><A
href=\"../index.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U><FONT
size=\"2
\">Introduction</FONT></U></STRONG></FONT></A></TD
>
</TR>
<TR>
<TD width=\"16\"> </TD>
<TD align=\"center\"><A
href=\"../registrar.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U><FONT
size=\"2\">Office of the
Registrar</FONT></U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD><img
src=\"../../img/arrow.gif\"></TD>
<TD align=\"center\"><A
href=\"index.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Jones
Learning
Center</U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../ss/ssupport.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG><U>Student
Support
Services</U></STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../library.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG>Robson
Library</STRONG></FONT></A></TD>
</TR>
<TR>
<TD></TD>
<TD align=\"center\"><A
href=\"../cs/network_policy.html\"
target=\"_top\"><FONT size=\"2\"
face=\"Arial\"><STRONG>Computer Network Use
Policy</STRONG></FONT></A></TD>
</TR>
</TABLE>
</TD>
<TD width=\"480\" valign="top" colspan=\"2
\"><img src=\"/img/services_jlc_info_long.gif\"
width=\"430\" height=\"16\"><br>
<table border=\"0\" width=\"470\"
cellspacing=\"3\" cellpadding=\"0\"
align=\"center\" vspace=\"0\" hspace=\"0\">
<tr bordercolor=\"#CCCCCC\">
<td>
<B>You have submitted the following
information:</b><br><br>
<b>Name:</b> $input{'Firstname'} $input
{'Middlename'}. $input{'Lastname'}
<BR>
<b>Parents' Name:</b> $input{'Parentsname'}
<BR>
<b>Complete Address:</b><BR>
$input{'Address'}<BR>
$input{'City'}, $input{'State'} $input{'Zipcode'}
$input{'Country'}
<BR>
<b>Telephone:</b> $input{'Telephone'}
<BR>
<b>E-mail:</b> $input{'email'}
<BR>
<BR>
<B>High School Name:</b> $input{'hsname'}
<BR>
<B>Colleges Attended:</b> $input{'Uniname'}
<BR>
<B>Graduation Date:</b> $input{'gdate'}
<BR>
<B>Area of Academic Interest:</b> $input
{'acainterest'}
<BR>
<B>Extracurricular Interests:</b> $input
{'extrainterest'}
<BR>
<B>Term wanting to enroll:</b> $input{'term'}
<BR>
<B>How did you hear about us:</b> $input{'source'}
<br>
<HR>
<H2>Thank You!</H2>
</td>
</tr>
</table>
<a href="index.html"><img
src="/img/services_jlc_intro_short.gif"
width="244" height="16" border="0"></a><br>
<br>
<a href="enhanced.html"><img
src="/img/services_jlc_enhanced_short.gif"
width="244" height="16" border="0"></a><br>
<br>
<a href="dev.html"><img
src="/img/services_jlc_dev_short.gif" width="244"
height="16" border="0"></a><br>
<br>
<a href="inforequest.html"><img
src="/img/services_jlc_adm_short.gif" width="244"
height="16" border="0"></a>
<br>
</TD>
</TR>
</TABLE>
<!-- #BeginLibraryItem \"/Library/mini_icons
table.lbi\" -->
<TABLE width=\"630\" border=\"0\" cellpadding=\"0
\" cellspacing=\"0\" height=\"115\">
<TR valign=\"top\">
<TD rowspan=\"2\" width=\"48\"><IMG
src=\"/img/innerbgleftbottom.gif\" width=\"48\"
height=\"120\"></TD>
<TD colspan=\"2\"><IMG
src=\"/img/innerbgbottombottom.gif\" width=\"92\"
height=\"40\"></TD>
<TD width=\"558\">
<P> </P>
</TD>
</TR>
<TR>
<TD height=\"48\" valign=\"top\" colspan=\"3
\">
<table border=\"0\" vspace=\"0\" hspace=\"0
\" cellspacing=\"0\" cellpadding=\"0\">
<tr valign=\"bottom\" align=\"center\">
<td height=\"55\" width=\"65\">
<center>
<a href=\"/index.html\"><img
src=\"/img/mini_home.gif\" width=\"55\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"65\">
<center>
<a href=\"/about/index.html\"><img
src=\"/img/mini_about.gif\" width=\"48\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"70\"><a
href=\"/studentlife/index.html\"><img
src=\"/img/mini_studentlife.gif\" width=\"55\"
height=\"52\" border=\"0\"></a></td>
<td height=\"55\" width=\"80\">
<center>
<a
href=\"/academics/index.html\"><img
src=\"/img/mini_academics.gif\" width=\"55\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"70\">
<center>
<a
href=\"/athletics/index.html\"><img
src=\"/img/mini_athletics.gif\" width=\"57\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"80\"><a
href=\"/admissions/index.html\"><img
src=\"/img/mini_admissions.gif\" width=\"46\"
height=\"52\" border=\"0\"></a></td>
<td height=\"55\" width=\"65\">
<center>
<a
href=\"/advancement/index.html\"><img
src=\"/img/mini_alumni.gif\" width=\"55\"
height=\"52\" border=\"0\"></a>
</center>
</td>
<td height=\"55\" width=\"70\"><a
href=\"/campusservices/index.html\"><img
src=\"/img/mini_services.gif\" width=\"66\"
height=\"52\" border=\"0\"></a></td>
</tr>
<tr valign=\"top\" align=\"center\">
<td width=\"65\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"> <a
href=\"/about/index.html\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2
\"></font></a><font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a href=\"/index.html\"><font
color=\"#6072b1\">Home</font></a></font></font>
</center>
</td>
<td width=\"65\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a
href=\"/about/index.html\"><font color=\"#6072b1
\">About<br>
Ozarks</font></a> </font>
</center>
</td>
<td width=\"70\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2\"><a
href=\"/admissions/index.html\"></a><a
href=\"/studentlife/index.html\"><font
color=\"#6072b1\">Student<br>
Life</font></a> </font> </td>
<td width=\"80\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"> <a
href=\"/academics/index.html\"><font
color=\"#6072b1\">Academics</font></a>
</font>
</center>
</td>
<td width=\"70\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a
href=\"/athletics/index.html\"><font
color=\"#6072b1\">Athletics</font></a>
</font>
</center>
</td>
<td width=\"80\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2\"><a
href=\"/admissions/index.html\"><font
color=\"#6072b1
\">Admissions</font></a></font></td>
<td width=\"65\">
<center>
<font face=\"Arial, Helvetica, sans-
serif\" size=\"2\"><a
href=\"/advancement/index.html\"><font
color=\"#6072B1\">Alumni</font></a>
</font>
</center>
</td>
<td width=\"70\"><font face=\"Arial,
Helvetica, sans-serif\" size=\"2\"><a
href=\"/campusservices/index.html\"><font
color=\"#6072b1\">Campus
Services</font></a> </font> </td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<br>
<!-- #EndLibraryItem --> <BR>
<!-- #BeginLibraryItem
\"/Library/innerfooter.lbi\" --><TABLE width=\"620
\" border=\"0\">
<TR>
<TD>
<P align=\"center\"><B><FONT size=\"+1
\">UNIVERSITY OF THE OZARKS</FONT></B><BR>
415 N. College Avenue • Clarksville
Arkansas 72830 • 1-800-264-8636<BR>
</P>
<H5 align=\"center\">Please submit
questions or comments to <A
href=\"mailto:webmaster\@www.ozarks.edu\"><FONT
color=\"#6072b1
\">webmaster\@www.ozarks.edu</FONT></A>.<BR>
</H5>
<H6 align=\"center\">Copyright © 1999 The
University of the Ozarks. All RIGHTS
RESERVED.<BR>
All trademarks mentioned herein belong to
their respective owners.</H6>
<H5 align=\"center\">
URL:http://www.ozarks.edu/index.html</H5>
</TD>
</TR>
</TABLE><!-- #EndLibraryItem -->
</body>
</HTML>
ENDOFHTML
use Net::SMTP;
$smtp = Net::SMTP->new
('webmail.ozarks.edu'); # connect to an SMTP
server
$smtp->mail
( 'webmaster@ozarks.edu' ); # use the
sender's address here
$smtp->to
('admiss@ozarks.edu','devstu@ozarks.edu','jfrost@o
zarks.edu');
$smtp->data(); #
Start the mail
# Send the header.
$smtp->datasend("To: admiss\@ozarks.edu,
devstu\@ozarks.edu, jfrost\@ozarks.edu\n");
$smtp->datasend("From:
webmaster\@ozarks.edu\n");
$smtp->datasend("Subject: Request for JLC
Information (from Web Site)\n");
$smtp->datasend("\n");
# Send the body.
$smtp->datasend("Time Sent(Local) $now\n");
$smtp->datasend("\n");
$smtp->datasend("REQUESTING INFORMATION ABOUT
JLC\n");
$smtp->datasend("- - - - - - - - - - - - - - - - -
-\n");
$smtp->datasend(" First Name: $input
{'Firstname'}\n");
$smtp->datasend(" Middle I.: $input
{'Middlename'}\n");
$smtp->datasend(" Last Name: $input
{'Lastname'}\n");
$smtp->datasend("Parents' Name: $input
{'Parentsname'}\n");
$smtp->datasend("\n");
$smtp->datasend(" Address: $input{'Address'}
\n");
$smtp->datasend(" City: $input{'City'}
\n");
$smtp->datasend(" State: $input{'State'}
\n");
$smtp->datasend(" Zip: $input{'Zipcode'}
\n");
$smtp->datasend(" Country: $input{'Country'}
\n");
$smtp->datasend(" Email: $input{'email'}
\n");
$smtp->datasend(" Telephone: $input
{'Telephone'}\n");
$smtp->datasend(" High School: $input{'hsname'}
\n");
$smtp->datasend(" Colleges (if transfering):
$input{'Uniname'}\n");
$smtp->datasend(" Graduation Date: $input
{'gdate'}\n");
$smtp->datasend("\n");
$smtp->datasend(" Academic Area\n");
$smtp->datasend(" of Interest: $input
{'acainterest'}\n");
$smtp->datasend(" Extracurricular activities:
$input{'extrainterest'}\n");
$smtp->datasend(" Term wanting: $input{'term'}
\n");
$smtp->datasend("\n");
$smtp->datasend(" How did you hear about us:
$input{'source'}\n");
$smtp->dataend(); #
Finish sending the mail
$smtp->quit; #
Close the SMTP connection
sub ReadParse {
local (*in) = @_ if @_;
local ($i, $key, $val);
### replaced his MethGet function
if ( $ENV{'REQUEST_METHOD'} eq "GET" ) {
$in = $ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
} else {
# Added for command line debugging
# Supply name/value form data as a
command line argument
# Format: name1=value1\&name2=value2
\&...
# (need to escape & for shell)
# Find the first argument that's not
a switch (-)
$in = ( grep( !/^-/, @ARGV )) [0];
$in =~ s/\\&/&/g;
}
@in = split(/&/,$in);
foreach $i (0 .. $#in) {
# Convert plus's to spaces
$in[$i] =~ s/\+/ /g;
# Split into key and value.
($key, $val) = split(/=/,$in[$i],2); #
splits on the first =.
# Convert %XX from hex numbers to
alphanumeric
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
# Associate key and value. \0 is the
multiple separator
$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val;
}
return length($in);
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Nov 2000 01:57:24 GMT
From: nodo70@my-deja.com
Subject: Re: find function
Message-Id: <904c62$16p$1@nnrp1.deja.com>
In article <slrn92b84a.509.tadmc@magna.metronet.com>,
tadmc@metronet.com (Tad McClellan) wrote:
> nodo70@my-deja.com <nodo70@my-deja.com> wrote:
> >
> >
> >> The explicit package name should be:
> >>
> >> $_ = $File::Find::name;
> >>
> >
> >Then it would complaint:
> ^^^^^
>
> "would" or "does"?
>
> >Name "File::Find::name" used only once: possible typo at test.pl
line
> >19
> >
> >Any advise?
>
> I can't make it say that:
>
> ---------------------
> #!/usr/bin/perl -w
> use strict;
> use File::Find;
>
> find( \&wanted, '.');
>
> sub wanted {
> print "$File::Find::name\n";
> }
> ---------------------
>
Thanks Tad. Excuse my bad English.
> --
> Tad McClellan SGML consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 29 Nov 2000 20:16:09 -0600
From: "Enrico Ng" <ng@fnmail.com>
Subject: Re: help with active perl
Message-Id: <904d81$lgh$1@newsx.cc.uic.edu>
I don't think so, this happens if I try to connect from a different computer
--
Enrico Ng <ng@fnmail.com>
"John Boy Walton" <johngros@Spam.bigpond.net.au> wrote in message
news:RCBU5.8304$GW5.48832@news-server.bigpond.net.au...
> I run Apache on Win ME and yes the same prob here I think serving and
> displaying the script output is just too much for our machines OS's.
> When in doubt blame Bill! ;-)
> Actually for me it is patchy sometimes I get great speed other times not.
> With six apps running good speed, only two bad, go figure.
>
>
----- Original Message -----
From: "Enrico Ng" <ng@fnmail.com>
Newsgroups: comp.lang.perl.misc
Sent: Monday, November 27, 2000 3:30 PM
Subject: help with active perl
> I am using Active Perl with IIS on Win2k.
> When I access my webserver and use any of my scripts there is a weird
> delay. I will click on submit and it will take forever to change to the
> next page. If I click on submit, then click away, it changes immediately.
> ie. go to netscape, go to page, click submit, click on the desktop to
> unfocus netscape. then the page will change immediately. this happens
> with all my perl scripts. If I put my perl scripts on some other server
> like a unix server it works fine.
> Has anyone else had this problem?
> --
> Enrico Ng <ng@fnmail.com>
>
>
>
------------------------------
Date: Thu, 30 Nov 2000 13:51:08 +1100
From: Anth <anth@pnc.com.au>
Subject: Help with stripping/extracting
Message-Id: <3A25C09C.C9096DAD@pnc.com.au>
Hello,
I was hoping that someone could help me / point me in the direction of
some examples so I can write a script that will do the following.
I have a html file from which I want to extract certain values, and then
put these values into a text file.
The html is formatted in the following way:
<tr>
<td>Town</td>
<td>value1</td>
<td>value2</td>
<td>value3</td>
<td>value4</td>
<td>value5</td>
</tr>
and so on for the rest of the file. The file is constantly updated, so
the relevant values are always changing but the Town names remain the
same.
What I want to do is specify a list of town names that I want, and then
extract values 3 and 4 relevant to that Town name, while discarding the
html tags and anything else left over. I then want to export these
values to a text file in the format
Town1 - Value4 - Value3
Town2 - Value4 - Value3
and so on.
I've been banging my head against the Camel book and the Perl Cookbook
in a dire attempt to come up with something, but while I've managed to
work out how to do some basic stuff like remove the html tags or find a
certain town, I've been unable to either put these functions into a
working script or get everything happening.
Any help or advice would be appreciated :)
thanks,
John
------------------------------
Date: Thu, 30 Nov 2000 03:11:32 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: How to find what is between n'th and the next tab?
Message-Id: <3A25C8BE.BBCF966A@home.com>
Bart Lateur wrote:
>
> If you need more than one column, I might use a closure (custom sub).
> From 5.6 on, /o works properly inside a closure.
Unfortunately not true. What is your perl -V? It works correctly in
ActiveState's build 613 but not in any other *nix version of 5.6 or 5.7
that I have. Maybe I missed a config option when compiling myself. :-(
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Thu, 30 Nov 2000 00:40:38 +0800
From: jin zengxiang <jingzx@sinaman.com>
Subject: how to print webpage into a *.html file?
Message-Id: <3A253186.57F40533@sinaman.com>
Hi,there:
I can print out a html file smoothly by using CGI.pm ,but i wonder how
can I save the webpage created by CGI.pm into a standalone file such as
"myhtml.html". I mean I don't want to print the content in browser ,but
to a html file .can anyone help?
Thanks .
Alan
------------------------------
Date: Thu, 30 Nov 2000 04:30:06 -0000
From: S E <denverlynx@hotmail.com>
Subject: Multi Recipients from email attachment script
Message-Id: <t2bluebc86n65f@corp.supernews.com>
Ok, so now I I have my attachments to my email. I need to figure out how
to send it to multiple recipients. I know I can add another 'To:' line to
my script to get it to another recipeint but that looks funny on the email
with multiple 'To:' lines. Is there a better way to do that?
#!/usr/local/bin/perl5.6
use lib "lib";
use MIME::Lite;
MIME::Lite->send('smtp', "gp-dragon", Timeout=>180);
$msg = new MIME::Lite
From => 'sedw@gwl.com',
To => 'phil@gwl.com',
Cc => 'sedw@gwl.com',
Subject => 'PNP Daily Gain/Loss Results',
Type => 'TEXT',
Path => "/home/d_supp/sedw/GP22_all_pwgl_rept.txt ",
Encoding => '7bit';
attach $msg
Type => 'TEXT',
Path =>"/home/d_supp/sedw/GP22_pwgl_user_rept.txt",
Filename =>"GP22_pwgl_user_rept.txt";
TIA,
Shawn
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: Thu, 30 Nov 2000 02:50:04 GMT
From: "EM" <me@privacy.net>
Subject: process only every 3rd line
Message-Id: <wfjV5.6002$Nw6.20207@news.iol.ie>
i opened a file to @file
normally i would process using foreach $line (@file)
but how would i do this to only process every 3rd line?
thanks in advance
Eric
------------------------------
Date: Wed, 29 Nov 2000 18:58:19 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: process only every 3rd line
Message-Id: <3A25C24B.170A9754@vpservices.com>
EM wrote:
>
> i opened a file to @file
> normally i would process using foreach $line (@file)
> but how would i do this to only process every 3rd line?
my $count = 0;
for my $line(@file) {
next unless $count++ % 3 == 0;
print $line; # or do whatever else you want with $line
}
--
Jeff
------------------------------
Date: Thu, 30 Nov 2000 03:53:24 GMT
From: "EM" <me@privacy.net>
Subject: Re: process only every 3rd line
Message-Id: <UakV5.6007$Nw6.20315@news.iol.ie>
Thanks allot
It worked :)
--------
Eric
"Jeff Zucker" <jeff@vpservices.com> wrote in message
news:3A25C24B.170A9754@vpservices.com...
> EM wrote:
> >
> > i opened a file to @file
> > normally i would process using foreach $line (@file)
> > but how would i do this to only process every 3rd line?
>
> my $count = 0;
> for my $line(@file) {
> next unless $count++ % 3 == 0;
> print $line; # or do whatever else you want with $line
> }
>
> --
> Jeff
------------------------------
Date: Wed, 29 Nov 2000 20:04:56 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Replacing a character with a string.
Message-Id: <slrn92b9to.51o.tadmc@magna.metronet.com>
L Hoang <loch@uci.edu> wrote:
>How can I replace a character with a string.
^
^
s/a/the/;
>For example, I have a huge string that contains many "a dog" in it. Now,
>I want to write a Perl code to replace all the "a" character with string
^^^
>"the". How can I do that?
That is a _different_ question from your first one, requiring,
of course, a different answer:
s/a/the/g;
But I'll bet your real question is the one that was never
really asked.
Do you want to replace "a" with "the" but only when it
comes before " dog"?
If so, then there is yet a different answer:
s/a dog/the dog/g;
Or when the "a" is also not the suffix of some longer word?
(you guessed it, yet another different answer):
s/\ba dog/the dog/g;
All those different answers! Kinda makes you think maybe you
should take some care in phrasing your question...
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 29 Nov 2000 19:55:55 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: splitting a string into an array and preserving the "\n"
Message-Id: <slrn92b9cr.51o.tadmc@magna.metronet.com>
I myself <tadmc@metronet.com> wrote:
>The Association of Computing Machinery are uninformed masses?
s/ of / for /; # grumble, grumble
When we see 'puters are having meetings and holding conferences,
_then_ is when we'll know that the world has gone to
Helena Handbasket.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 30 Nov 2000 03:42:00 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Substituting international characters
Message-Id: <3A25CCC6.205730@acm.org>
Ilian Bonev wrote:
>
> HI,
>
> Is there a simpler way of performing the following:
>
> $intstring =~ tr/[è,é,ê,ë]/e/;
Are you sure you want to change "[" and "," and "]" to "e"? I thought
not.
> $intstring =~ tr/[à,á,â,ä,å]/a/;
> $intstring =~ tr/[ì,í,î,ï]/i/;
> $intstring =~ tr/[ò,ó,ô,õ,ö]/o/;
> $intstring =~ tr/[ç]/c/;
> $intstring =~ tr/[æ]/ae/;
> $intstring =~ tr/[ù,ú,û,ü]/u/;
>
> where $intstring is a string containing international characters.
>
$intstring =~ tr/àáâäåèéêëìíîïòóôõöùúûüç/aaaaaeeeeiiiiooooouuuuc/;
$intstring =~ s/æ/ae/g;
John
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 4993
**************************************
