[12592] in Perl-Users-Digest
Perl-Users Digest, Issue: 6191 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 1 13:07:15 1999
Date: Thu, 1 Jul 99 10:00:41 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 1 Jul 1999 Volume: 8 Number: 6191
Today's topics:
Re: 2 simple (not to me tho) questions (M.J.T. Guy)
Re: 2 simple (not to me tho) questions <upsetter@ziplink.net>
Access returns rows, but not Win32::ODBC? webmuse@my-deja.com
ANNOUNCE: DBD::Sybase 0.19 <mpeppler@peppler.org>
ANNOUNCE: File::Flock 99.062101 (David Muir Sharnoff)
ANNOUNCE: MHonArc v2.4.0 (Earl Hood)
ANNOUNCE: new release of Tk::SlideShow : 0.04 <bouteille@dial.oleane.com>
ANNOUNCE: Time::ParseDate 99.062301 - Y2K bug fixed (David Muir Sharnoff)
CGI::Formalware V 1.07 <Savage.Ron.RS@bhp.com.au>
Re: check difference of two files <cantrela@agcs.com>
Class::Tree 1.20 <Savage.Ron.RS@bhp.com.au>
Re: Communication between CGI and apache manitee@my-deja.com
Re: Communication between CGI and apache (I R A Aggie)
Re: connecting with an SSL web server alexander.zinniker@trivadis.com
Date Bug??? fliboy@my-deja.com
Re: Date Bug??? (Harry Broomhall)
Re: Date Bug??? <toby@venice.cas.utk.edu>
Re: Date Bug??? (Jerome O'Neil)
Re: Date Bug??? <dgris@moiraine.dimensional.com>
DFA::Command 1.95 <Savage.Ron.RS@bhp.com.au>
File::Find question... (Joan Richards)
Getopt::Simple 1.43 <Savage.Ron.RS@bhp.com.au>
Re: How do I join CGI stuff to existing web pages? (sim <martin@adoma.se>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Jul 1999 16:03:17 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: 2 simple (not to me tho) questions
Message-Id: <7lg3g5$9e6$1@pegasus.csx.cam.ac.uk>
Jarkko Hietaniemi <jhi@alpha.hut.fi> wrote:
>
>There are some, admittedly less frequent, occasions where you might
>really mean to stringify first--for example when the "" operator has
>been overloaded for the class ref($x). (That is, when "" does not
>mean anymore what it usually does.)
"less frequent"? You recently accused me here of understatement ...
I find that circumstance *extremely* obscure. If the subroutine
uses the argument in a string context, the overloading will simply
Do The Right Thing. The only difference is that the stringification
occurs slightly later.
So it would matter if the stringify subroutine has side effects and ...
or if you deliberately want to use the stringified form in a numeric
context or something.
You're not planning an Obfuscated Perl Contest entry are you?
Mike Guy
------------------------------
Date: Thu, 01 Jul 1999 16:45:49 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: 2 simple (not to me tho) questions
Message-Id: <1XMe3.529$6M6.159134@news.shore.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
: Do *not* tell me to read my own book, you petulant and puerile pustule.
: Larry himself has made statements that "$x" is misleading when $x will do.
: You know not whereof you speak. You're leading others into confusion
: and deceipt.
Once again, another user has forgotten Tom's Perl Motto: "There's Only One
Way to Do It."
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Thu, 01 Jul 1999 15:28:10 GMT
From: webmuse@my-deja.com
Subject: Access returns rows, but not Win32::ODBC?
Message-Id: <7lg1dp$ghg$1@nnrp1.deja.com>
Hello,
Windows NT 4, IIS 4, win32 Perl build 316, latest ver of Win32::ODBC.
I've been using Win32::ODBC for a long time, and I thought I
had figured out all of it's tricks and traps. For example,
a few months ago I discovered why some of my select queries
weren't always working (large memo fields need the buffer increased).
We installed SQL Server 7 on our server yesterday, but haven't
fiddled with it yet. We just wanted to put it on and make sure
everything remains stable. For the time being, we're still using
Access97 for our database work.
We use a ton of CGI scripts that rely on Win32::ODBC. As far
as I know (and have seen), they are all still working fine. But we
have this one CGI/ODBC script that has started behaving strangely. I
have tried all the debugging tricks I know with Win32::ODBC, using
Run() instead of Sql(), DumpData(), MoreResults(), RowCount(),
Error(), etc...
Here's the problem. I have a SELECT ... INNER JOIN statement
that combines two tables, and spits out some records based on the
WHERE clause (which operates on only one table). There is rarely
a time when this particular query doesn't return at least one
record, so when it started to do that, we suspected a problem.
(This happened right after our upgrade to SQL Server 7.)
I checked it with Run(), and sure enough it executes without
an error... just no results. I copied the SQL statement, and
pasted it into a query window in Access. I hit the execute
button, and it returns 4 or 5 results!
The only thing I know of that can keep Win32::ODBC from displaying
records when they are displayed OK in Access is if the buffer is
too low. But none of these records have large memo fields!
On a whim, I tried changing the buffer to 200KB, but it didn't
do any good. Any ideas? Do I have a corrupt database maybe? The
only thing that makes sense is some driver was changed when SQL
Server 7 was installed... ?
Thanks,
Thomas
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 1 Jul 1999 16:02:00 GMT
From: Michael Peppler <mpeppler@peppler.org>
Subject: ANNOUNCE: DBD::Sybase 0.19
Message-Id: <7lg3do$jri$1@play.inetarena.com>
The uploaded file
DBD-Sybase-0.19.tar.gz
has entered CPAN as
file: $CPAN/authors/id/MEWP/DBD-Sybase-0.19.tar.gz
size: 49161 bytes
md5: 514aa1afc6f18a42d685286cf1a31316
Release 0.19
Setting chained/non-chained mode was still broken. <sigh>
syb_flush_finish mode didn't quite work right either.
Added more verbose traces.
I sincerely hope that this version will be stable. It appears to be
the case here in my testing, but as we've seen in previous releases
that hasn't been a guarantee that the code would *really* be stable,
unfortunately.
Anyway - I'm sorry for all the half-broken releases since 0.15,
Michael
--
Michael Peppler -||- Data Migrations Inc.
mpeppler@peppler.org -||- http://www.mbay.net/~mpeppler
Int. Sybase User Group -||- http://www.isug.com
Sybase on Linux mailing list: ase-linux-list@isug.com
------------------------------
Date: 1 Jul 1999 15:59:04 GMT
From: muir@idiom.com (David Muir Sharnoff)
Subject: ANNOUNCE: File::Flock 99.062101
Message-Id: <7lg388$jpp$1@play.inetarena.com>
It turns out that HP-UX (and other Sys V -ish) systems return
EACCES instead of EAGAIN when trying to lock something that's
locked and you've set non-blocking.
File::Flock should now work on more systems.
Grab it from:
http://www.cpan.org/authors/id/MUIR/modules/File-Flock-99.062101.tar.gz
The readme...
File::Flock is a wrapper around the flock() call. The only thing it
does that is special is that it creates the lock file if the lock file
does not already exist.
It will also try to remove the lock file. This makes it a bit
complicated.
To install File::Flock use the following:
perl Makefile.PL
make
make test
make install
Under perl5.002, the make test will emit some warnings about "9" and
"99" not being numeric values. I believe this is a bug in perl.
------------------------------
Date: 1 Jul 1999 16:01:03 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: ANNOUNCE: MHonArc v2.4.0
Message-Id: <7lg3bv$jrh$1@play.inetarena.com>
Keywords: Perl, mail, MIME, HTML
v2.4.0 is now available for download from
<URL:http://www.oac.uci.edu/indiv/ehood/mhonarc.html> and
<URL:http://www.perl.com/CPAN/authors/id/EHOOD/>.
MHonArc is a Perl mail-to-HTML converter. MHonArc provides HTML mail
archiving with index, mail thread linking, etc; plus other capabilities
including support for MIME and powerful user customization features
The following lists the changes and bug fixes in v2.4.0:
Enhancements/Changes
--------------------
o Added the following resources:
ADDRESSMODIFYCODE Perl expressions to apply to addresses
during message header conversion.
CHECKNOARCHIVE Check "no archive" flag in messages.
LOCKMETHOD The type of archive locking performed.
SPAMMODE Perform actions to deter email address
harvesters.
SSMARKUP Markup at the *very* beginning of any
generated page.
STDOUT Destination of stdout messages/data.
STDERR Destination of stderr messages/data.
SUBJECTTHREADS To check, or not to check, subjects when
computing threads.
o Added the following resource variables:
$FROMADDRNAME$ Username portion of From email address.
$FROMADDRDOMAIN$ Domain portion of From email address.
$TOADDRNAME$ Username portion of an email address
(applicable in MAILTOURL only).
$TOADDRDOMAIN$ Domain portion of an email address
(applicable in MAILTOURL only).
o A new utility program: mha-decode. The program functions
as a MIME message decoder. Can be used against mail folders
or single messages.
o The "PARENT" argument to applicable resource variables is now
called "TPARENT". This change should not affect anyone since
the "PARENT" argument did not work properly in previous
releases.
o SUBJECTHEADER and HEADBODYSEP resource changes will now affect
existing messages that are edited during normal operations or
via EDITIDX. Note, messages created from old versions of
MHonArc may not be affected.
o The default TIMEZONES settings now has a more complete list.
o Timezone acronym settings now support [+-]HHMM specifications.
o Support for ISO-2022-JP encoded strings in message headers
is now supported. It does assume that HTML viewer supports
ISO-2022-JP.
o If Digest::MD5 is installed, md5_hex() will be used to create
message-ids for messages without message-ids. This allows
MHonArc to ignore non-message-id archived messages in ADD mode.
The MD5 digest is computed only on message header for efficieny.
If Digest::MD5 is not installed, a message-id will still be
assigned if none present, but MHonArc will not be able to
detect if message has already been archived in subsequent ADD
operations.
o Text/html filter supports the "noscript" option. If
specified, any script-related markup will be removed.
This provides added security to avoid sites being compromised
with foreign client-side scripting.
o Added the following options to mhexternal.pl (the save-to-file
filter): forceattach, forceinline, and inlineexts.
o Recognize mailing list headers as defined by RFC 2369 and
hyperlink URLs listed.
o If no boundaries exist in a multipart message (even though
a boundary is defined in the header), MHonArc will treat
the entire body as the first part. This prevents "unable
to process" warnings.
o The "<!--X-From" comment declaration at the top of converted
messages is now munged by a modified ROT13 to facilitate
anti-spam-bot measures, but still provide the "From"
information for mha-dbrecover.
o When editing message pages, the new version of the page is now
created as a temporary file and then if successfully created,
it will get renamed to its proper name. This help avoids "losing"
a message page if there is an error during page editing. The
same method is applied to the dumping of DBFILE.
o Message sorting modified to improve sorting performance when
sorting by subject and author.
o URL matching expression in mhtxtplain.pl modified to handle
'&' characters.
Bug Fixes
---------
Problem: Duplicate message-ids in a message's reference list
were not removed.
Solution: Array changed to my() scope caused remove_dups()
to not do anything (it takes a typeglob). Array
changed back to local().
Problem: TFIRST, TLAST, and PARENT arguments to resource
variables always produced null values.
Solution: Fixed. Note, PARENT is now TPARENT to be consistent
with other thread-related arguments.
Problem: SUBJECTHEADER resource not printed when -savemem is
used.
Solution: Problem is due to the new resource variable handling
in 2.3. The solution is to support the editing of
SUBJECTHEADER (and HEADBODYSEP) in existing message
pages.
Problem: Multipart processing not done properly if boundary
parameter not enclosed in quotes and is terminated
by a semi-colon.
Solution: Fixed in readmail.pl.
Problem: %h not recognized in time format strings.
Solution: Fixed.
Problem: Use of $ICON$ will generate defective tag like
`ALT="[text/plain]">'.
Solution: Fixed typo in join() call in mhrcvars.pl.
Problem: Some messages with specified inline images are not
having images inlined.
Solution: Content-Disposition parsing fixed.
Problem: Clip length not handled properly in resource variables.
Ie. Characters that are translated into entity
references are not handled properly when computing clip
adjustment. Incorrect clipping can occur.
Solution: Fixed.
Problem: MHonArc checking for writable OUTDIR in SINGLE mode.
Solution: Fixed.
Problem: Default resource file not read if located in MHonArc
lib directory.
Solution: Fixed improper assumption of @INC setting.
Problem: TLIEND not generated at proper times when thread level
goes beyond TLEVELS.
Solution: A check is made in thread index printing to generate a
TLIEND properly for TLITXT when deeper than TLEVELS.
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: 1 Jul 1999 16:02:11 GMT
From: Olivier Bouteille <bouteille@dial.oleane.com>
Subject: ANNOUNCE: new release of Tk::SlideShow : 0.04
Message-Id: <7lg3e3$jrq$1@play.inetarena.com>
I have Just uploadead a version of Tk::SlideShow to PAUSE
It will be soon available to CPAN.
NAME
Tk::SlideShow - a Perl Module for building presentation.
DESCRIPTION
This module is for building presentation, that will be as
interactive or good looking as Applix or PowerPoint one. The way of
using it is complety different on the other hand.
INSTALL
CPAN Perl standard way of intalling :
perl Makefile.PL
make
make test
make install
Warning there is a test on font availability that takes a lot of time
depending on how many font families you have installed on your X11
distribution.
On my P90 linux box it takes about 6 minutes and block my X11 server
during that time. Actually, I got all freefont and sharefont set.
DOCUMENTATION
There's a pod file `SlideShow.pod' that is a tutorial as well as a
reference to this module.
There's also a not yet finished presentation of `Tk::SlideShow' using
itself.
EXAMPLE
You will find examples of scripts using this modules in directories ex1,
ex2, ...
CHANGE
since 0.03
parallel shift
add the ability to "shift" several sprites together
bugs
fix some
update documentation
but not yet complete. Ask me for some more explaination if needed.
since 0.02
html
Add a way to attach html doc to a slide so that you can produce an
html version of your presentation. Up to now, it use xwd to snapshot
the presentation. It use imagemagick convert to produce png image
format file of snapshots. Depends on you browers, but you may have pb
to visualize png snapshots.
ticker tape
Add a ticker tape Sprite. It is done to attract attention of
attendees.
since 0.01
Choosers
added a font chooser, a color chooser.
Multipos-sition *Sprite*
added a way of defining a path for a Sprite to follow on a slide.
Documentation
added a way for producing documentation out of slides. (method
`latex')
AUTHOR
Olivier Bouteille (bouteille@dial.oleane.com)
PREREQUISITE
You need to have X11::Protocol and Tk800.012 modules already install,
You need to use X11 (and of course Unix).
You need to already know Perl5.4 and Tk
MISCELANEOUS
Alpha stage release. API may change.
--
Olivier Bouteille
The only way to learn a new programming language is by writing
programs in it. - Brian Kernighan
------------------------------
Date: 1 Jul 1999 16:00:34 GMT
From: muir@idiom.com (David Muir Sharnoff)
Subject: ANNOUNCE: Time::ParseDate 99.062301 - Y2K bug fixed
Message-Id: <7lg3b2$jr8$1@play.inetarena.com>
If anyone else has any Y2K bug reports, now is a good time to send
'em in. Date parsing and printing is one of the most likely places
for such bugs so I would like to get Time::ParseDate working perfectly
in time for everyone to install a working version...
>From the CHANGELOG...
99.062301:
Eric Prestemon <ecp@adknowledge.com> noticed that %y would print
"0" in 2000, not "00" as it should. Fixed.
Parsedate() now checks for wantarray() and returns what remains of
its input when called from array context.
Added another parsing option: VALIDATE. When VALIDATE is set,
silly values for hours, months, etc will be rejected. Like the
32nd of December will no longer be new years day.
99.062201:
Optionally return fractional seconds from ParseDate (including
the SYBASE formatted ones). Provide for printing fractional
seconds in CTime. Changes from Douglas Wegscheid
<wegscd@whirlpool.com>
99.061601:
More attempts to support systems whose time function isn't
centered around Jan 1, 1970 midnight GMT.
http://www.cpan.org/modules/by-module/Time/Time-modules-99.062301.tar.gz
-Dave
------------------------------
Date: 1 Jul 1999 16:02:25 GMT
From: "Ron Savage" <Savage.Ron.RS@bhp.com.au>
Subject: CGI::Formalware V 1.07
Message-Id: <7lg3eh$jrs$1@play.inetarena.com>
Name:
CGI::Formalware.pm - Convert an XML file into a suite of CGI forms.
Note:
The Perl module CGI::Formalware V 1.07 is now on CPAN,
and on my web site
http://www.savage.net.au/
Recent changes:
1.07 25-May-99
--------------
o Put Todo.txt text into POD
o Ensure POD survives buggy pod2man
1.06 19-Apr-99
--------------
o Patch Makefile.PL to support ActivePerl's ppm.
1.05 1-Apr-99
--------------
o Add details to Makefile.PL.
o Change die to croak, but we don't die anyway.
1.04 19-Mar-99
--------------
o Remove references to projectLib.pl from the docs.
o Clean up the docs.
1.03 12-Mar-99
--------------
o Add constructor options and documentation to match.
o Change die to croak.
o Add support for cascading style sheets.
o Add tables for main stuff and an optional Table of Contents for page TOCs.
o Change all references from page to form.
1.02 17-Feb-99
--------------
o Add 'use constant'.
1.01 10-Feb-99
--------------
o Change name from xml2HtmlGenerator.pl to xml2CgiForm.pl.
It's shorter :-).
o Change start up screen's button to say 'Submit', not 'Next page'.
o Fix error message which referred to textField instead of radioGroup.
o Script headings must be unique per page, no longer unique overall.
o radioGroup and textField names must be unique per page.
This is for macros (%..%).
o Expand macro handling to accept all field names on a form.
o Remove special handling of %version% whenever %tag% was found.
--
Ron Savage
Office (preferred): Savage.Ron.RS@bhp.com.au
Home: rpsavage@ozemail.com.au
http://www.ozemail.com.au/~rpsavage
------------------------------
Date: Thu, 01 Jul 1999 09:06:06 -0700
From: Andy Cantrell <cantrela@agcs.com>
To: riccardo.gubser@ubs.com
Subject: Re: check difference of two files
Message-Id: <377B91EE.8CDFE280@agcs.com>
Riccardo Gubser wrote:
>
> I have two file's who i have to check daily. I just wanna open a
> Handle if there is a difference between them. Doe's anyone knows
> a reason how i can check them without a Handle?
>
> Greetings
> Ricc
Something like the following would work under unix:
$result = `diff $file_1 $file_2` ;
chomp $result ;
print $result if ($result) ;
--
Andy Cantrell - cantrela@agcs.com
AG Communication Systems
Office (AZ) (623) 582-7495 (Voice mail)
Office (WI) (414) 249-0215
Modem (WI) (414) 249-0239
------------------------------
Date: 1 Jul 1999 16:02:34 GMT
From: "Ron Savage" <Savage.Ron.RS@bhp.com.au>
Subject: Class::Tree 1.20
Message-Id: <7lg3eq$jrv$1@play.inetarena.com>
Name:
Class::Tree.pm - C++ class hierarchies & disk directories
Note:
The Perl module Class::Tree V 1.20 is now on CPAN,
and on my web site
http://www.savage.net.au/
Recent changes:
1.20 27-Jun-99
--------------
o Thanks to CPAN testers
o Change test.pl so it is not dependent on Getopt::Simple.
o Add documentation for buildDirTree(), writeTree(), buildClassTree() and
writeClassList(). My apologies for not including this earlier
o Add documentation for $ENV{'PERCEPS'} (only used for C++ parsing)
o Add examples to the synopsis in the pod
1.14 26-May-99
--------------
o Ensure POD survives buggy pod2man
o Ship Readme.txt, the output of pod2text
1.13 19-Apr-99
--------------
o Change Makefile.PL to support ActivePerl's ppm.
1.11 1-Apr-99
--------------
o Change die to croak
o Change to delete the .perceps file after running Perceps
o Croak if the environment variable PERCEPS is not set
o Croak if $ENV{'PERCEPS'}/perceps[.pl] is not found
o Ship t/family.h to test Cpp trees
--
Ron Savage
Office (preferred): Savage.Ron.RS@bhp.com.au
Home: rpsavage@ozemail.com.au
http://www.ozemail.com.au/~rpsavage
------------------------------
Date: Thu, 01 Jul 1999 15:20:00 GMT
From: manitee@my-deja.com
Subject: Re: Communication between CGI and apache
Message-Id: <7lg0uh$g9i$1@nnrp1.deja.com>
Jeez, relax. His question was about Perl.
In article
<slrn7ne6fr.v72.abigail@alexandra.delanet.com>,
abigail@delanet.com wrote:
> weixian_shen@my-deja.com
(weixian_shen@my-deja.com) wrote on MMCXXVII
> September MCMXCIII in
<URL:news:7l6knh$3vj$1@nnrp1.deja.com>:
> [] I am writing a web search engine. It search
engine is very
> [] CPU intensive, and may take up to 2~3 min to
complete. I would
> [] like to stop the search when users become
inpatient and hit
> [] the "STOP" button on the browser. Is there a
way to detect that
> [] from the CGI? I thought apache will send a
SIGPIPE or SIGHUP,
> [] but it doesn't. Any suggestion will be
greatly appreciated.
>
> Read the manual of your server to see how it
tells your program
> that the reader has pushed the stop button.
>
> Then use that method.
>
> clpm is not the group to ask about the behaviour
of apache.
> For question about behaviour of apache, call
apache tech support.
>
> Abigail
> --
> Anyone who slaps a "this page is best viewed
with Browser X" label
> on a Web page appears to be yearning for the
bad old days, before the
> Web, when you had very little chance of
reading a document written on
> another computer, another word processor, or
another network.
> [Tim Berners-Lee in Technology Review, July
1996]
> --
> Anyone who slaps a "this page is best viewed
with Browser X" label
> on a Web page appears to be yearning for the
bad old days, before the
> Web, when you had very little chance of
reading a document written on
> another computer, another word processor, or
another network.
> [Tim Berners-Lee in Technology Review, July
1996]
>
> -----------== Posted via Newsfeeds.Com,
Uncensored Usenet News ==----------
> http://www.newsfeeds.com The Largest
Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including
Dedicated Binaries Servers ==-----
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 1 Jul 1999 15:37:38 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Communication between CGI and apache
Message-Id: <slrn7nn2ue.dmk.fl_aggie@thepentagon.com>
On Thu, 01 Jul 1999 15:20:00 GMT, manitee@my-deja.com <manitee@my-deja.com>, in
<7lg0uh$g9i$1@nnrp1.deja.com> wrote:
+ Jeez, relax. His question was about Perl.
Really? where? The question, again, was:
I would like to stop the search when users become inpatient and hit
the "STOP" button on the browser. Is there a way to detect that
from the CGI?
James
------------------------------
Date: Thu, 01 Jul 1999 15:53:33 GMT
From: alexander.zinniker@trivadis.com
Subject: Re: connecting with an SSL web server
Message-Id: <7lg2tn$h6s$1@nnrp1.deja.com>
You can connect to a secure web server using Net::SSLeay and openssl.
First you have to install openssl 0.91c (the newer version probably will
not work). You can get openssl from www.openssl.org. Then you need to
install Net:SSLeay. You can get it from your nearest CPAN site. The use
of Net::SSLeay should be no problem.
Alex
In article <3767E0DA.A96F9000@axe.humboldt.edu>,
Greg Coit <gbc1@axe.humboldt.edu> wrote:
> I'm using a nice simple script from Lincoln Stein that I found at
> www.modperl.com which checks a remote web server and sends email if
> there is no response. The problem is my sevrver is an SSL server, and
> LWP::Simple (and I think LWP::UserAgent) doesn't support SSL. All I
> need to know is if the server responds. I think even a request from
the
> server for an SSL connection would suffice (since it wouldn't do this
if
> the server was down). Any recommendations?
>
> Thanks,
>
> --
> Greg Coit
> Email: gbc1@humboldt.edu - Phone: (707)826-6109 - FAX: (707)826-6100
> Humboldt State University: Computing and Telecommunications Services
> Linux is not The Answer. Yes is the answer. Linux is The Question.
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 01 Jul 1999 15:30:57 GMT
From: fliboy@my-deja.com
Subject: Date Bug???
Message-Id: <7lg1jh$gk8$1@nnrp1.deja.com>
Does anyone know why Perl on my systems (tested
5.004 and 5.005, on Solaris and NT) reports the
date one month prior to the current date? There
is probably some simple explanation, but it
eludes me! Maybe a hacked up Perl binary?
Thanks for any info,
Pete
$ more test1.pl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd
st) = localtime(time);
print "$sec\n";
print "$min\n";
print "$hour\n";
print "$mday\n";
print "$mon\n";
print "$year\n";
print "$wday\n";
print "$yday\n";
print "$isdst\n";
$ date
Thu Jul 1 09:16:24 MDT 1999
$ perl test1.pl
30
16
9
1
6
99
4
181
1
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 1 Jul 1999 15:46:42 GMT
From: haeb@haeb.noc.easynet.net (Harry Broomhall)
Subject: Re: Date Bug???
Message-Id: <7lg2h2$1k3g$1@quince.news.easynet.net>
In article <7lg1jh$gk8$1@nnrp1.deja.com>,
fliboy@my-deja.com writes:
> Does anyone know why Perl on my systems (tested
> 5.004 and 5.005, on Solaris and NT) reports the
> date one month prior to the current date? There
> is probably some simple explanation, but it
> eludes me! Maybe a hacked up Perl binary?
>
> Thanks for any info,
> Pete
>
> $ more test1.pl
> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd
> st) = localtime(time);
> print "$sec\n";
> print "$min\n";
> print "$hour\n";
> print "$mday\n";
> print "$mon\n";
> print "$year\n";
> print "$wday\n";
> print "$yday\n";
> print "$isdst\n";
> $ date
> Thu Jul 1 09:16:24 MDT 1999
> $ perl test1.pl
> 30
> 16
> 9
> 1
> 6
> 99
> 4
> 181
> 1
Oh dear! Only a few days since the last one! READ THE DOCS!
They will tell you the details of localtime, and why the above
is correct behaviour.
Regards,
Harry.
------------------------------
Date: Thu, 01 Jul 1999 12:01:01 -0400
From: toby <toby@venice.cas.utk.edu>
Subject: Re: Date Bug???
Message-Id: <377B90BD.E6F079E5@venice.cas.utk.edu>
Good languages start counting at zero. Bad computing languages . . . .
Toby
fliboy@my-deja.com wrote:
> Does anyone know why Perl on my systems (tested
> 5.004 and 5.005, on Solaris and NT) reports the
> date one month prior to the current date? There
> is probably some simple explanation, but it
> eludes me! Maybe a hacked up Perl binary?
>
> Thanks for any info,
> Pete
>
>
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: 1 Jul 1999 16:22:25 GMT
From: jeromeo@atrieva.com (Jerome O'Neil)
To: fliboy@my-deja.com
Subject: Re: Date Bug???
Message-Id: <7lg4k1$p7n$2@brokaw.wa.com>
[Posted and mailed]
In article <7lg1jh$gk8$1@nnrp1.deja.com>,
fliboy@my-deja.com writes:
> Does anyone know why Perl on my systems (tested
> 5.004 and 5.005, on Solaris and NT) reports the
> date one month prior to the current date? There
> is probably some simple explanation, but it
> eludes me! Maybe a hacked up Perl binary?
Perl does this when you don't read the documentation. It's
*very* sensitive about such things.
perldoc -f localtime
Good Luck!
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: 01 Jul 1999 10:44:43 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Date Bug???
Message-Id: <m3hfnomi9w.fsf@moiraine.dimensional.com>
fliboy@my-deja.com writes:
> Does anyone know why Perl on my systems (tested
> 5.004 and 5.005, on Solaris and NT) reports the
> date one month prior to the current date?
That's because perl does everything it can to get you more time
to finish your program. This includes some simple manipulations
of the fabric of space-time to allow greater temporal freedom.
> There is probably some simple explanation, but it eludes me!
You may want to try looking at the documentation for localtime().
> Maybe a hacked up Perl binary?
More likely a semi-literate programmer wannabe without the
sense to read the documentation resident on his own hard
drive.
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: 1 Jul 1999 16:02:43 GMT
From: "Ron Savage" <Savage.Ron.RS@bhp.com.au>
Subject: DFA::Command 1.95
Message-Id: <7lg3f3$js0$1@play.inetarena.com>
Name:
DFA::Command.pm - Discrete Finite Automata/Finite State Machine
Note:
The Perl module DFA::Command V 1.95 is now on CPAN,
and on my web site
http://www.savage.net.au/
Recent changes:
1.95 26-May-99
--------------
o Ensure POD survives buggy pod2man
1.94 19-Apr-99
--------------
o Patch Makefile.PL to support ActivePerl's ppm.
1.93 1-Apr-99
--------------
o Change die to croak
--
Ron Savage
Office (preferred): Savage.Ron.RS@bhp.com.au
Home: rpsavage@ozemail.com.au
http://www.ozemail.com.au/~rpsavage
------------------------------
Date: Thu, 01 Jul 1999 16:33:02 GMT
From: richj@home.com (Joan Richards)
Subject: File::Find question...
Message-Id: <377b266e.71843255@24.0.3.71>
I'm trying to recurse through directories locating any file, and
dumping it's contents to an already open file descriptor. Essentially
what I'm wanting this to do is take a directory and it's subsequent
subdirecotries/file and put them into one file. So, naturally I
started using the File::Find module, however, I must be doing
something wrong because I'm getting some wierd stuff printing to my
file.
So, I have my find call -> find(\&wanted, '/directory');
Then my wanted routine ->
sub wanted {
my $tmp;
my $tmp2;
open(FOO, ">/directory/dump") || die "Couldn't open $!";
print FOO "######$File::Find::name\n" if ! -d; # I do
this so I can know which file I"m looking at
$tmp2 = "$File::Find::name";
open(TEMP, "$tmp2") || die "Coudln't open $!";
print FOO while (<TEMP>);
close(TEMP);
close(FOO);
}
Now, I the "dump" file contains a bunch of garbage. So, I went in and
put print statement to try and figure out what $tmp2 was getting. And
it appeared to me to be getting only the directory names instead of
the filename. Which seemed strange to me because I thought
$File::Find::dir got the directory name, and $File::Find::name got the
filename?
Anyway, and example of what I'm trying to get the output to look like
is:
######/directory/subdirectory/some_file
text etc will
be contained here.
######/directory/subdirectory2/another_file
obviously more
text will go here
So, I suppose the crux of my problem seems to be that I"m getting the
directory name instead of the filename. Why? Also, will I be able to
get all the file contained in /directory with the logic I have above?
If not, what am I doing wrong (examples etc.).
Much appreciated,
-J
------------------------------
Date: 1 Jul 1999 16:02:52 GMT
From: "Ron Savage" <Savage.Ron.RS@bhp.com.au>
Subject: Getopt::Simple 1.43
Message-Id: <7lg3fc$js1$1@play.inetarena.com>
Name:
Getopt::Simple.pm - A simple-to-use interface to Getopt::Long
Note:
The Perl module Getopt::Simple V 1.43 is now on CPAN,
and on my web site
http://www.savage.net.au/
Reference:
http://www.perlmonth.com/
See issue 1
Modules Explained
Steven McDougall
Parsing Command Line Options with GetOpt::
Recent changes:
1.43 26-May-99
--------------
o Ensure POD survives buggy pod2man
o Ship Readme.txt, output by pod2text
1.42 15-Apr-99
--------------
o Add stuff required to generate valid PPM files to Makefile.PL
o Test using makePPD.bat and patchPPD.pl
o See http://www.savage.net.au/Perl for these 2
1.41 30-May-99
--------------
o Recreated by h2xs 1.18
1.40 10-Nov-98
--------------
o Change width of help report. Restructure tests.
--
Ron Savage
Office (preferred): Savage.Ron.RS@bhp.com.au
Home: rpsavage@ozemail.com.au
http://www.ozemail.com.au/~rpsavage
------------------------------
Date: Thu, 01 Jul 1999 17:38:01 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: How do I join CGI stuff to existing web pages? (simple)
Message-Id: <377B9969.F01033D1@adoma.se>
GJohn wrote:
>
> We want to do our first web site which interacts with a db. I have been
> learning Perl & DBD:DBI on the weekends, so I can write CGI scripts
> which accept data from user & display info from the database along with
> a few HTML tags to display headers etc. But it doesn't look pretty.
> Others in our company have skills in Dreamweaver to create pretty web
> sites, but without the db interaction. The boss says these designers
> should learn PHP3, but I want to be part of the new project & therefore
> I am pushing to use my existing Perl skills (I don't know PHP3). What I
> need to do is get the pretty pages output from Dreamweaver & then add
> my CGI stuff.
>
I have a small little function called parse_html() witch i use quite
often.
You make a pretty HTML page (with dreamweaver or notepad or whatever).
You then open up the HTML file in notepad, for example, and replace
things into variables.
For example..this is a html page.
<html>
<head><title>$TITLE</title></head>
<body bgcolor="#ffffff">
<center><h1>
$HEADINGONE
</h1>
<hr>
$TEXT
</center>
</body>
</html>
the script to insert things in the HTML page could look like this:
#!/usr/bin/perl
$TITLE = "My little test page";
$HEADINGONE = "My testpage";
$TEXT = "A lot of text for my page";
$htmlpage = "thepageabove.html";
$printpage = parse_html($htmlpage);
print "Content-type text/html\n\n";
print $printpage;
exit;
sub parse_html {
local ($htmlfile) = @_;
$_ = `cat $htmlfile`;
s/\$([A-Z0-9_]+)/$ {$1}/g;
return $_;
}
It doesent work on NT though..
I have it revritten for NT somwhere..if you need it mail me.
Best regards
Martin Quensel
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 6191
**************************************
