[15966] in Perl-Users-Digest
Perl-Users Digest, Issue: 3378 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 15 18:20:57 2000
Date: Thu, 15 Jun 2000 15:20:44 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <961107643-v9-i3378@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 15 Jun 2000 Volume: 9 Number: 3378
Today's topics:
Name/Value pair for a hyperlink? <apietro@my-deja.com>
Re: Name/Value pair for a hyperlink? <tony_curtis32@yahoo.com>
Re: Name/Value pair for a hyperlink? <care227@attglobal.net>
Re: Name/Value pair for a hyperlink? <apietro@my-deja.com>
Re: Name/Value pair for a hyperlink? <apietro@my-deja.com>
Re: Name/Value pair for a hyperlink? <flavell@mail.cern.ch>
Re: Name/Value pair for a hyperlink? <care227@attglobal.net>
Re: Name/Value pair for a hyperlink? <apietro@my-deja.com>
Re: Name/Value pair for a hyperlink? <apietro@my-deja.com>
Re: Name/Value pair for a hyperlink? <care227@attglobal.net>
Re: Name/Value pair for a hyperlink? <tony_curtis32@yahoo.com>
Re: OLE and CGI ?? Not working ! roeerubin@my-deja.com
OT: Re: Taryag Perl <lr@hpl.hp.com>
Re: OT: Re: Taryag Perl <degraafSPAMMENOT@SPAMMENOTiname.com>
perl 5.6 for linux using CPAN (geneman)
Perl->Gnuplot (Rob Zwartjes)
Re: Perl->Gnuplot <makarand_kulkarni@My-Deja.com>
Please read, regarding our troll <care227@attglobal.net>
PM's <todd@mrnoitall.com>
pop3 server <rays1@asc.gov>
Re: pop3 server <rootbeer@redcat.com>
ppm install using downloaded package spenc82403@my-deja.com
Re: Problem with regexp (Abigail)
Re: Protect and HTML page? <brent.schenk@home.com>
Re: Protect and HTML page? <flavell@mail.cern.ch>
Re: Quick Network Ping : Can't make Net::Ping work? <hakon.alstadheim@oslo.mail.telia.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 15 Jun 2000 20:57:32 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Name/Value pair for a hyperlink?
Message-Id: <8ibcfs$4b0$1@sshuraac-i-1.production.compuserve.com>
Not sure if this is a CGI or Perl issue!
============================
Using CGI.pm, I have a button like this:
submit(-NAME=>"Status", -VALUE=>"Shirts")
I can then use this NAME/VALUE pair elsewhere in my program.
But I don't want a clunky button on my screen! How can I grab the same
NAME/VALUE settings using either:
* A "vanilla" <A HREF> link; or
* A graphic <A HREF> link (click on the graphic to go elsewhere..)
Thanks
AP
------------------------------
Date: 15 Jun 2000 15:04:16 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <87pupiiudb.fsf@limey.hpcc.uh.edu>
>> On Thu, 15 Jun 2000 20:57:32 +0100,
>> "A Pietro" <apietro@my-deja.com> said:
> Not sure if this is a CGI or Perl issue!
Mainly CGI I'd say but borderline perl.
> ============================ Using CGI.pm, I have a
> button like this:
> submit(-NAME=>"Status", -VALUE=>"Shirts")
> I can then use this NAME/VALUE pair elsewhere in my
> program.
> But I don't want a clunky button on my screen! How can I
> grab the same NAME/VALUE settings using either:
> * A "vanilla" <A HREF> link; or * A graphic <A HREF>
> link (click on the graphic to go elsewhere..)
Construct the URL in the link with a GET request.
<a href="...../thing.cgi?Status=Shirts">
or whatever it is you want to pass over.
Don't forget you have encode the query string in the href.
You could use the URI module to help you construct and
encode the URL.
hth
t
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Thu, 15 Jun 2000 16:02:04 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <3949363C.29C3697A@attglobal.net>
A Pietro wrote:
>
> Not sure if this is a CGI or Perl issue!
> ============================
> Using CGI.pm, I have a button like this:
>
> submit(-NAME=>"Status", -VALUE=>"Shirts")
>
Replacing the default "ugly button" with another object is
a matter for an HTML newsgroup/ It has nothing to do with
Perl.
------------------------------
Date: Thu, 15 Jun 2000 21:39:08 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <8ibets$h2h$1@sshuraaa-i-1.production.compuserve.com>
Thanks,
Looks like using a GET string is the way forward...
>Construct the URL in the link with a GET request.
<a href="...../thing.cgi?Status=Shirts">
<
I'll have to see if there is a CGI.pm syntax using GET with <a href>
AP
------------------------------
Date: Thu, 15 Jun 2000 21:40:27 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <8ibf0b$4tn$1@sshuraab-i-1.production.compuserve.com>
>Replacing the default "ugly button" with another object is
a matter for an HTML newsgroup/ It has nothing to do with
Perl.<
I am using a Perl module called CGI.pm
So my posting is appropriate.
AP
------------------------------
Date: Thu, 15 Jun 2000 22:44:08 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <Pine.GHP.4.21.0006152243330.3542-100000@hpplus03.cern.ch>
On Thu, 15 Jun 2000, A Pietro wrote:
> >Replacing the default "ugly button" with another object is
> a matter for an HTML newsgroup/
Correct
> I am using a Perl module called CGI.pm
> So my posting is appropriate.
There goes another one. Goodbye.
------------------------------
Date: Thu, 15 Jun 2000 16:44:17 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <39494021.5D12AEA2@attglobal.net>
A Pietro wrote:
>
> >Replacing the default "ugly button" with another object is
> a matter for an HTML newsgroup/ It has nothing to do with
> Perl.<
>
> I am using a Perl module called CGI.pm
> So my posting is appropriate.
>
Don't play games. Your question was not related to CGI.pm, it
was related to HTML.
------------------------------
Date: Thu, 15 Jun 2000 22:08:32 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <8ibgl0$bp2$1@sshuraac-i-1.production.compuserve.com>
>Don't play games. Your question was not related to CGI.pm, it
was related to HTML<
I'm not playing any games...I'm trying to understand how something in one of
my Perl scripts works.
If you look at my original post, you'll see I quoted some Perl code I have
been using with CGI.pm
AP
------------------------------
Date: Thu, 15 Jun 2000 22:09:33 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <8ibgmt$btp$1@sshuraac-i-1.production.compuserve.com>
>There goes another one. Goodbye<
Why post this?
AP
------------------------------
Date: Thu, 15 Jun 2000 17:14:43 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <39494743.54C13E0B@attglobal.net>
A Pietro wrote:
>
> >Don't play games. Your question was not related to CGI.pm, it
> was related to HTML<
>
> I'm not playing any games...I'm trying to understand how something in one of
> my Perl scripts works.
> If you look at my original post, you'll see I quoted some Perl code I have
> been using with CGI.pm
>
> AP
And if _you_ look at the solutions, you'll see that they are HTML.
But I spose its a lost cause...
>plonk<
------------------------------
Date: 15 Jun 2000 16:28:10 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <87k8fqiqhh.fsf@limey.hpcc.uh.edu>
>> On Thu, 15 Jun 2000 22:08:32 +0100,
>> "A Pietro" <apietro@my-deja.com> said:
>> Don't play games. Your question was not related to
>> CGI.pm, it
> was related to HTML<
> I'm not playing any games...I'm trying to understand how
> something in one of my Perl scripts works. If you look
> at my original post, you'll see I quoted some Perl code
> I have been using with CGI.pm
Yes, you were using CGI.pm.
However, the question you asked was about how to construct
some HTML to achieve some interaction with the web-server
through a subsequent request. Now although that involves
CGI in this case it isn't directly relevant to the
underlying implementation language. The same answer would
apply to perl and e.g. C or C++.
It's a fine line in some cases. The moral is: think your
question through carefully at least twice as this will
often help you to see caveats and assumptions.
I would suggest going to
comp.infosystems.www.authoring.cgi for further assistance
as this is the newsgroup most closely related to your
problem. You're not asking a question about perl per se
(or should that be "perl se" :-) but rather about doing
CGI things, which just happen to be implemented in perl.
Please also remember that someone else with exactly the
same question as you will turn up here inside a few days.
Repeat ad nauseam. People get rather fed up of seeing the
same (usually blatantly off-topic) stuff over-and-over for
(literally) years on end. IIRC it's why the CGI newsgroup
became self-moderating.
hth
hand
t
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Thu, 15 Jun 2000 21:20:14 GMT
From: roeerubin@my-deja.com
Subject: Re: OLE and CGI ?? Not working !
Message-Id: <8ibh9s$frh$1@nnrp1.deja.com>
In this latest round of attempts I received the following
Win32::OLE(0.1101) error 0x8004d117
in METHOD/PROPERTYGET "Open" at
C:\Inetpub\wwwroot\build\cgi-bin\testole.pl line 28
Any further ideas?
In article <8ib0ba$29a$1@nnrp1.deja.com>,
roeerubin@my-deja.com wrote:
> I tried the following ...
>
> use CGI;
> use OLE;
> $co=new CGI;
>
> print $co->header();
>
> print $co->start_html;
>
> $|=1;
>
> $xl = CreateObject OLE "Excel.Application" || die "CreateObject:
$!";
> $xl->{Visible} = 1;
> $xl->Workbooks->Add();
> print "$xl";
>
> print $co->end_html;
>
> ===========
>
> It doesn't seem to work correctly. Excel is not visible at any point
as
> it should be from the $xl->{Visible} = 1 command.
>
> I took a look at the task manager and excel process does start
but does
> not run as it should (as it does from the command line without
the CGI)
>
> I have had the same behavior using Outlook, IE, and SourceSafe
objects.
>
> Any moe thoughts on the issue??
>
> In article <8ia66s$eq9$1@nnrp1.deja.com>,
> Jeremy Gurney <c4jgurney@my-deja.com> wrote:
> > In article <8i8rr5$gjv$1@nnrp1.deja.com>,
> > rrubin@rotor.net wrote:
> > > Hello,
> > >
> > > I am trying to run a CGi script that performs a certain
function
> > > using OLE. The script runs great from the command line but
once I
> > > embed the CGI calls into the script it doesn't work.
> > >
> > > I am currently running this on WIndows NT and
> > > Personal Web Server.
> > >
> >
> > The thing which catches most people out here is when you're
running
> the
> > web server as a service. If the service is running under the
> localsystem
> > account your CGIs can use OLE but can't access NT networks,
however if
> > the service is running under a user account it can access the
network
> > but can't use OLE.
> >
> > If you're not running PWS as a service then the OLE should
work just
> > fine.
> >
> > The following should work as a minimal test of OLE if excel is
> installed
> > and should print 0 is there are no problems. Just wrap it up in a
CGI
> > and give it a whirl.
> >
> > use Win32::OLE;
> > $ex = Win32::OLE->new('Excel.Application', sub {$_[0]-
>Quit;});
> > print Win32::OLE->LastError();
> > undef $ex;
> >
> > Cheers,
> >
> > Jeremy Gurney
> > SAS Systems Analyst | Protherics Molecular Design Ltd.
> > "When everything is coming your way, you're in the wrong lane."
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
> >
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 15 Jun 2000 12:48:52 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: OT: Re: Taryag Perl
Message-Id: <MPG.13b2d301910a27d98ab86@nntp.hpl.hp.com>
In article <39492169.AA20016@texas.net>, sariq@texas.net says...
> Tony Curtis wrote:
> >
> > >> On Thu, 15 Jun 2000 17:26:17 GMT,
> > >> Tzadik Vanderhoof <tzadikv@my-deja.com> said:
> >
> > > Is it just a coincidence that ActiveState's lastest
> > > release is "build 613"? I think not.... :)
> >
> > A coincidence with what?
>
> "Taryag Mitzvot" is a Jewish (Orthodox?) belief that God's will can be
> expressed in 613 commandments.
>
> Or something like that...
Very much like that, based on a medieval (post-Biblical) enumeration.
The OP, Tzadik (which means Righteous Person => Saint :-), didn't
explain 'taryag', which is based on an ancient Greek system of
numeration in which each letter represents a numerical value related to
its ordinal position in the alphabet. The system is called
'gammatriya', from the value of gamma, 3 (the third letter in the
alphabet).
The table in the program below is fragmentary, to meet the needs of this
particular problem. As the Hebrew alphabet has only 22 letters
(consonants), the highest value is 400, so numbers 500 to 900 must be
combined. (Positional notation is used for thousands, etc.) The 'a' is
filtered out, because although the value of the consonant alef (eq
alpha) is 1, the 'a's in 'taryag' are vowels, which don't count.
Although 'taryag' is just a number (as evidenced by its sequential
nature), the conversion of real words to numbers or vice versa has been
the subject of millennia of mystical analysis of sacred texts.
#!/usr/bin/perl -w
use strict;
my %table = (
# Heb. Greek value
g => [ qw( gimel gamma 3 ) ],
y => [ qw( yodh iota 10 ) ],
r => [ qw( resh rho 200 ) ],
t => [ qw( tav tau 400 ) ],
);
my $sum = 0;
$sum += $table{$_}[2] for grep $_ ne 'a' => split // => 'taryag';
print "$sum\n";
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 15 Jun 2000 16:38:14 -0400
From: David de Graaf <degraafSPAMMENOT@SPAMMENOTiname.com>
Subject: Re: OT: Re: Taryag Perl
Message-Id: <150620001638146842%degraafSPAMMENOT@SPAMMENOTiname.com>
In article <MPG.13b2d301910a27d98ab86@nntp.hpl.hp.com>, Larry Rosler
<lr@hpl.hp.com> wrote:
> In article <39492169.AA20016@texas.net>, sariq@texas.net says...
> The system is called
> 'gammatriya', from the value of gamma, 3 (the third letter in the
> alphabet).
I am actually pretty sure that gematriyah derives from 'geometry'. Why
would they call it after gamma and not beta or tau?
------------------------------
Date: Thu, 15 Jun 2000 20:03:27 GMT
From: lrmurthyright@yahoo.com (geneman)
Subject: perl 5.6 for linux using CPAN
Message-Id: <39493005.110692787@news.digex.net>
i used CPAN to update all my stuff, ok if this is not clear this is
what i typed at prompt:
perl -MCPAN -e 'CPAN::Shell->install(CPAN::Shell->r)'
i was hoping this will also install perl 5.6.0 the latest
distribution.. it didn't. can u tell me how to get the latest perl
using CPAN.
thanks
Lakshman
------------------------------
Date: 15 Jun 2000 20:54:25 GMT
From: rzwartje@rob.home.nl (Rob Zwartjes)
Subject: Perl->Gnuplot
Message-Id: <slrn8kihce.lb0.rzwartje@rob.home.nl>
Hello Perlers,
Probably this type of question is already been posted here in one or the
other way but I couldn't find it. So here it is again. It doesn't have to be
a solution a hint where to look is OK to. Maybe I learn something from it.
What I want is to plot some data collected with perl in Gnuplot
and I thought it
should go like this :
$data='plot [-6:6] sin(x)';
open (GPLOT,"|gnuplot")
print GPLOT $data;
close GPLOT;
The only thing I see is a flash of a window with a figure and then it is
gone.
What I want is that the window stays on screen as long as I want. Am I
looking in the wright direction ? Or, and that probably is the case here, I
am overlooking some thing.
hope you can help me,
Rob.
------------------------------
Date: Thu, 15 Jun 2000 14:33:09 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Perl->Gnuplot
Message-Id: <39494B95.C4805F4E@My-Deja.com>
> Probably this type of question is already been posted here in one or the
> other way but I couldn't find it. So here it is again. It doesn't have to be
> a solution a hint where to look is OK to. Maybe I learn something from it.
> What I want is to plot some data collected with perl in Gnuplot
> and I thought it
> should go like this :
> $data='plot [-6:6] sin(x)';
> open (GPLOT,"|gnuplot")
> print GPLOT $data;
> close GPLOT;
> The only thing I see is a flash of a window with a figure and then it is
> gone.
> What I want is that the window stays on screen as long as I want. Am I
> looking in the wright direction ? Or, and that probably is the case here, I
> am overlooking some thing.
I think you are missing a "set term XXX" directive to gnuplot.
XXX should be set such that gnuplot will give you a gif file or
something that you can display using the browser.
--
------------------------------
Date: Thu, 15 Jun 2000 16:42:13 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Please read, regarding our troll
Message-Id: <39493FA5.D983B9B8@attglobal.net>
From the Supernews TOS:
Trolling, flaming, "off topic posting" and "unacceptable language for
this newsgroup" are often subjective, and without your reasoning behind
the complaint we may not understand why action is required. We will
deal with individuals who are bent on newsgroup disruption as best we
can, but a pattern of abuse must be established. Complaints from more
than one regular from the group being affected are helpful to show that
the user has violated "community standards", etc. In cases of flame
wars we will not take sides, and we will not just "squelch" our user so
that the battle is conveniently over with someone else left standing.
Don't "feed" or "poke" the trolls, and try to get your group to use
killfiles and ignore them. nfilter, available for free at
www.nfilter.org, can add sophisticated news filtering options to most
newsreader software which does not already include such functionality,
although you may wish to investigate other newsreaders with built in
filter capabilities first. The alt.cuddle FAQ offers sage advice for
dealing with Trolls - check
http://www.compusmart.ab.ca/bcp/acfaq.htm#A20 for the full scoop.
Disruptors who "nym-shift" or use "sock puppets" to avoid killfiling
are most likely to have action taken; likewise if they resort to
flooding (by our standards - it needn't be hundreds of articles per
day), repeatedly posting binaries to non-binary groups, or clearly
state that it is their intent to disrupt the group.
I think we all know what to do.
------------------------------
Date: Thu, 15 Jun 2000 14:50:51 -0600
From: Todd Anderson <todd@mrnoitall.com>
Subject: PM's
Message-Id: <39494196.ACFE3EE7@mrnoitall.com>
Hello,
If I install a module in my directory (not the system perl_dir) do I
need a different path for this...
use strict;
use PDF::Create;
ie; use my_dir/PDF::Create;
And do they need to be at the beginning of the script or can they be
inside a sub routine?
Thanks for your help.
------------------------------
Date: Thu, 15 Jun 2000 18:31:33 GMT
From: <rays1@asc.gov>
Subject: pop3 server
Message-Id: <ski88531is482@corp.supernews.com>
I am interested in setting up an in-house pop3 server. What is involoved
in setting one up and what software package do you recommend?
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: Thu, 15 Jun 2000 11:39:43 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: pop3 server
Message-Id: <Pine.GSO.4.10.10006151139160.5301-100000@user2.teleport.com>
On Thu, 15 Jun 2000 rays1@asc.gov wrote:
> Newsgroups: comp.lang.perl.misc
> Subject: pop3 server
>
> I am interested in setting up an in-house pop3 server. What is involoved
> in setting one up and what software package do you recommend?
Perhaps you meant to post this to a newsgroup about pop3, and not one
about perl. Try again!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 15 Jun 2000 20:30:41 GMT
From: spenc82403@my-deja.com
Subject: ppm install using downloaded package
Message-Id: <8ibedi$dhc$1@nnrp1.deja.com>
I am unable to install the Date-Calc module using PPM from an NT box
due to firewalls. I have downloaded the Date-Calc.ppd file from the
ActiveState site and I believe that I can install the package from the
directory without connecting to the internet. However, I am getting a
message "Error installing package 'date-calc.ppd': Could not locate a
PPM binary of 'date-calc.ppd' for this platform." To get this message,
I am executing "ppm install date-calc.ppd" from the directory where I
have downloaded the date-calc.ppd file. What does this message mean? Is
there another command that I can use (I saw a reference on active state
site to PPM::InstallPackage)?
Thanks,
Trevor
703-245-4935
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 15 Jun 2000 14:06:53 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Problem with regexp
Message-Id: <slrn8ki7s6.jil.abigail@alexandra.delanet.com>
Eric Bohlman (ebohlman@netcom.com) wrote on MMCDLXXIX September MCMXCIII
in <URL:news:8i854b$1tr$2@slb6.atl.mindspring.net>:
%% Antti-Jussi Korjonen (Antti-Jussi.Korjonen@sonera.com) wrote:
%% : $temp1 should be extracted from $string1 so that all that remains
%% : is '\nfourth test'. doesn't work.
%% :
%% : code:
%% :
%% : my $string1 = "first test\nsecond test\nthird [test]\nfourth test";
%% : my $string2 = "first test\nsecond test\nthird [test]\nfourth test";
%% :
%% : my $temp1 = "first test\nsecond test\nthird [test]";
%% : my $temp2 = "first test\nsecond test\nthird"; ^
%% : |
%% : $string1 =~ s/$temp1//; |
%% : |
%% : # why doesn't this match [test] ---------------
%%
%% Square brackets have a special meaning in regular expressions. What you
%% have in the square brackets matches only a t, e, or s immediately
%% following the space after "third."
%%
%% If you need to do a regex match against a variable pattern that's
%% supposed to be treated as literal text, you'll need to tell the regex
%% engine to treat it that way; the easiest way to do that in your case is
%% to stick a \Q right before $temp1 in the regex part of your substitution.
Or one could opt not to use the regex engine at all:
my $w = index $temp2, $temp1;
substr $temp2, $w, length $temp1, "" unless $w < 0;
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: Thu, 15 Jun 2000 14:50:52 -0500
From: "Brent Schenk" <brent.schenk@home.com>
Subject: Re: Protect and HTML page?
Message-Id: <3949331e.0@news>
embed the html page into a perl script. Then make a login page that submits
the username and password to the script with the html. have the script
check the inputted data and then match it with a set username.
Other than that, you could make a javascript in the html that checks for a
username and password. That I would have to look up to do, maybe you know
javascript better than I do
vivekvp <vivekvp@spliced.com> wrote in message
news:8ia8uu$gou$1@nnrp1.deja.com...
>
>
> Is there any wayt to protect and HTML page with perl so that only
> authorized people can view it.
>
> I was thinking of just rewriting the html out be outputted by perl - and
> changed permissions - but this would mean one would have to login into
> my site. There is not logging into my site on the web! I only want
> to protect 1 page.
>
> Any ideas?
>
> Thanks,
>
> V
>
>
> --
> He who fights and runs away, lives to run another day!
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Thu, 15 Jun 2000 22:53:56 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Protect and HTML page?
Message-Id: <Pine.GHP.4.21.0006152245570.3542-100000@hpplus03.cern.ch>
On Thu, 15 Jun 2000, Brent Schenk up-ended usenet and blurted out:
> embed the html page into a perl script. Then make a login page that submits
> the username and password to the script with the html. have the script
> check the inputted data and then match it with a set username.
I.e find a complicated way of simulating something that's already
built-in to the server. Perl folks, being properly lazy, wouldn't do
that IMNSHO.
> Other than that, you could make a javascript in the html that checks for a
> username and password. That I would have to look up to do, maybe you know
> javascript better than I do
I also know a load of ordure when I see it.
I'm not quite sure what sort of gifts you believe you're generously
donating to this group, but I'd have to tell you in the nicest
possible way that I don't think you're ready yet. You might have got
a few shiny puzzle pieces in your hand, but it doesn't look as if
you've got any idea of the big picture yet.
After you've visited news.announce.newusers to learn how to work
together with the usenet community, I'd still suggest a period of
contemplation.
good luck with your usenetting.
------------------------------
Date: 15 Jun 2000 17:36:26 -0300
From: Hakon Alstadheim <hakon.alstadheim@oslo.mail.telia.com>
Subject: Re: Quick Network Ping : Can't make Net::Ping work?
Message-Id: <m0pupik7g5.fsf@alstadhome.cyberglobe.net>
"Robert Chalmers" <robert@chalmers.com.au> writes:
> I tried the code example here on the cpan site, but can't get it to do
> anything?
>
> Would anyone have a small example of how to get a result from this please?
>
[...]
A lot of sites deny ``regular'' (udp) ping access. You have to
use "icmp". If access is denied, the connect dies silently. Try
running with warnings and strict, and youll see a cmplaint from som
lowlevel routine about use of undefined variable. I ``fixed'' the
silent failiure in mine by hacking Net::Ping. I don't have the
original, and I have no idea how this should really be done. This hack
makes ping->new() return undef on any kind of error, and complain
about it.
Here is the spot I changed, but the diff is against a previous
version of the hack, not the original file.
--- /usr/local/lib/perl5/5.6.0/Net/Ping.pm~ Fri Jun 9 15:54:38 2000
+++ /usr/local/lib/perl5/5.6.0/Net/Ping.pm Fri Jun 9 16:20:48 2000
@@ -371,7 +371,9 @@
$from_msg = "";
$from_saddr = recv($self->{"fh"}, $from_msg, 1500, $flags);
if(!defined($from_saddr)){
+ carp "Error in recv, $!";
+ $ret = undef;
+ $done = 1;
}else {
($from_port, $from_ip) = sockaddr_in($from_saddr);
if (($from_ip eq $ip) && # Does the packet check out?
###
---
Hakon Alstadheim Ph: +1 (514) 523 6537
4579 rue Garnier
Montreal (Que) H2J 3S6
Canada
------------------------------
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 3378
**************************************
