[18237] in Perl-Users-Digest
Perl-Users Digest, Issue: 405 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 3 09:10:37 2001
Date: Sat, 3 Mar 2001 06:10:22 -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: <983628622-v10-i405@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 3 Mar 2001 Volume: 10 Number: 405
Today's topics:
Re: Perl, Cookies, and Apache. <parrot0123@yahoo.ca>
Re: Perl, Cookies, and Apache. <parrot0123@yahoo.ca>
Perl/FastCGI/Apache - user authentication <pbm@NOSPAMiotp.demon.co.uk>
Re: perlpod docs? <gellyfish@gellyfish.com>
Re: perlpod docs? (Martien Verbruggen)
Re: Problem with unsubscribe script. I'l take it from t <gellyfish@gellyfish.com>
Re: Problem with Win32::EventLog <helpdesk@holten.net.goed>
Re: Question! <gellyfish@gellyfish.com>
retrieving ip adress <Waarddebon@chello.nl>
Re: retrieving ip adress <webmaster@webdragon.munge.net>
Re: retrieving ip adress (Martien Verbruggen)
Re: retrieving ip adress <gtoomey@usa.net>
Re: Server Push <kj@codegeek.org>
Re: Server Push (Martien Verbruggen)
something unique <Waarddebon@chello.nl>
Re: something unique <gtoomey@usa.net>
unlink problems <Ken.Brown@DIALWRAP.COM>
Re: use strict; <dontspamthewebmaster@webdragon.munge.net>
Re: use strict; <gellyfish@gellyfish.com>
Re: use strict; <gellyfish@gellyfish.com>
Why does yahoo handle Header request's diffrent? <abcd@ntlworld.com>
Why doesnt it work. The whole list deletes. <kalle@tvettsvamp.a.se>
Re: Win32::Internet Passive-FTP <gellyfish@gellyfish.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 03 Mar 2001 11:08:10 GMT
From: "Parrot" <parrot0123@yahoo.ca>
Subject: Re: Perl, Cookies, and Apache.
Message-Id: <ug4o6.302302$Pm2.4385761@news20.bellglobal.com>
David Ness <DNess@Home.Com> wrote in message
news:3AA08D28.8278407@Home.Com...
> Parrot wrote:
> > Actually, I think you ought to get a little experience helping others
for a
> few months or a year before you start to have strong opinions about what
> makes `a life' for others.
>
> You can, of course, form your opinions however you want, but unless you
>have
> some very substantial experience with very long threads, missing posts,
and
> been actively involved in giving help your opinion that `placement of a
quote'
> is not very important is simply ill-informed.
I'm not ill informed - I've been the co-op of BBS's many times, once on one
that had a very active programming message section. I looked through every
message - and my help was quite often actively sought out. So you see, I
have experience helping others and reading long threads.
Not once have I ever felt the need to complain about the method a person has
used to quote. Nor have I ever heard anybody else complain about it, not in
any BBS, or on any Internet message board.
------------------------------
Date: Sat, 03 Mar 2001 11:31:56 GMT
From: "Parrot" <parrot0123@yahoo.ca>
Subject: Re: Perl, Cookies, and Apache.
Message-Id: <MC4o6.302324$Pm2.4386543@news20.bellglobal.com>
David Ness <DNess@Home.Com> wrote in message
news:3AA08AB1.567F64CC@Home.Com...
>
> Actually, it is, if you think about it. Countless people will have to read
> your message, even just to find out that it's irrelevant. So off-topic
> posting has a high cost associated with it, particularly if it wastes the
> time of helpers that might be better spent helping others who have
on-topic
> problems.
>
> It seems to me that you might still not quite have a grip on just how
_much
> work_ is involved in processing the hundreds of messages that flow thru
this
> group each day. And, until you have read the NG for a while, you may not
have
> yet built up your own frustration that might make you want to `strike back
in
> anger' even when the mistake involved is quite innocent.
Oh yes, they read a message and find it irrelevant - high cost indeed - boy,
that's something you could just go on a killing spree about! Gee... so it's
wasting the time of helpers, who, in turn go back and waste even more time
on pointless flames against the offender.
Don't get me wrong, I appreciate that people are willing to put so much of
their time into helping others in the newsgroup, but if they're here to help
they could at least have a better attitude about it. Doctors see patients
all day long, and sometimies a hypochondriac will come in thinking he has
some serious disease but really doesn't. Does the doctor say "Get out of
here you idiot, you're wasting my valuable time!"
Of course not, and why? Because the doctor is there to help people, and
sometimes the help a person needs isn't so much medical. The people here
are giving Perl help for free - you'd assume that the reason they're doing
it is because they like to help people. So why aren't they happier about
it? Why do they find the act of giving help so stressful that the smallest
inconsistency can unleash their wrath?
> Some people feel that they `teach others a lesson' and make them learn
more
> quickly, by responding testily. Others don't. I don't feel it's my place
to take
> either side in that argument. Suffice it to say that when I have a
problem, I
> am happy that _anyone_ with good information pays any attention to my
questions.
> If they choose to make me feel bad in the process, I don't like it, but
I'm
> happy to live with it if they information they give me is good.
That's pretty much the way I feel. And I've got to tell you, if I was
looking through messages and found one that was a little off topic but that
I could help with anyway, I'd give my help and feel darn good about it. :)
------------------------------
Date: Sat, 3 Mar 2001 11:43:23 +0000
From: In off the Post <pbm@NOSPAMiotp.demon.co.uk>
Subject: Perl/FastCGI/Apache - user authentication
Message-Id: <NpABeXAbjNo6Ewjz@iotp.demon.co.uk>
I'm using the following directory container in Apache's httpd.conf file.
<Directory /10>
AuthType Basic
AuthName ProtectedRealm
FastCgiAccessChecker /cgi/login.fcgi
FastCgiAuthenticator /cgi/authenticate.fcgi
require valid-user
</Directory>
I want to create my own user login interface (using FastCGI) rather than
use the usual pop-up box approach. However what happens with the
following code is that it executes login.fcgi then immediately after
executes authenticate.fcgi then allows access to the directory. The
login.fcgi script just produces a simple login page, and what should
happen is that you should then have to enter your user details click
submit and THEN proceed to authenticate.fcgi. However as it stands it
doesn't stop it simply executes the script and moves on.
How do I make the script stop? And what headers do I need to pass on?
Any help appreciated.
--
In off the Post, PO Box 442, NOTTINGHAM, NG1 1PE. ENGLAND
Phone: +44 (0) 115 941 5132 Fax: +44 (0) 115 941 1634
e-mail: pbm@iotp.co.uk http://www.iotp.co.uk
------------------------------
Date: 3 Mar 2001 11:15:46 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: perlpod docs?
Message-Id: <97qjp2$ha9$1@orpheus.gellyfish.com>
On Fri, 02 Mar 2001 23:46:11 -0500 ivo welch wrote:
>
> ok...so can anyone tell me how to specify a "title" in the pod document
> itself, so that pod2html won't complain that it cannot find a title?
>
=head1 TITLE
This is the title
However I have never encountered pod2<anything> requiring a TITLE header -
though I rarely use pod2html so I probably missed it.
pod2man will complain about a missing NAME header though.
You might find that podchecker is usefull as a lint for pod and will
pick up things that other tools might not.
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: Sat, 3 Mar 2001 22:39:54 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: perlpod docs?
Message-Id: <slrn9a1m0a.qmu.mgjv@martien.heliotrope.home>
On 3 Mar 2001 11:15:46 -0000,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On Fri, 02 Mar 2001 23:46:11 -0500 ivo welch wrote:
>>
>> ok...so can anyone tell me how to specify a "title" in the pod document
>> itself, so that pod2html won't complain that it cannot find a title?
>>
>
>=head1 TITLE
>
> This is the title
>
> However I have never encountered pod2<anything> requiring a TITLE header -
> though I rarely use pod2html so I probably missed it.
> pod2man will complain about a missing NAME header though.
That is the one that gets translated to the title. Also see my other
post. They probably just call it a title there, because that's what the
thing is called in HTML. In man pages this thing is called the NAME
section, and that's where most of pod got its terminology.
extract from Pod::Html, 1.03:
if ($title eq '') {
TITLE_SEARCH: {
for (my $i = 0; $i < @poddata; $i++) {
if ($poddata[$i] =~ /^=head1\s*NAME\b/m) {
for my $para ( @poddata[$i, $i+1] ) {
last TITLE_SEARCH
if ($title) = $para =~ /(\S+\s+-+.*\S)/s;
}
}
}
}
}
The NAME header is pretty much a must for all pod documentation.
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: 3 Mar 2001 10:34:06 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Problem with unsubscribe script. I'l take it from the begining.
Message-Id: <97qhau$gi0$1@orpheus.gellyfish.com>
On Fri, 02 Mar 2001 15:02:07 GMT Fabian wrote:
> This script should delete e-mail adresses from my e-mail list, using e-mail
> data from form.
> I'l get no server error messages but no submitted e-mail addresses deletes.
>
> The form is named remove.htm and looks like this:
> <form action="../cgi-markisspecialisten/remove.pl" method="POST">
> <p>Email Address: <input type="text" size="20" name="address">
> </p>
> <input type="submit" value="Skicka">
> </form>
>
> The script is named remove.pl and looks like this:
> #!/usr/bin/perl -w
>
> read(STDIN, $email, $ENV{'CONTENT_LENGTH'}); ## I guess that this line reads
> the e-mail address from the form *
You guessed wrong - this reads the body of the POST request as supplied on
the STDIN of the CGI program. Most folks around would recommend that you
use the CGI module that is distributed as standard with Perl.
You could then do something like :
use CGI qw(:standard);
my $email = param('address');
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: Sat, 3 Mar 2001 12:46:38 +0100
From: WichersWeb <helpdesk@holten.net.goed>
Subject: Re: Problem with Win32::EventLog
Message-Id: <983619998.1395137909@news.uwnet.nl>
H C <carvdawg@patriot.net> wrote:
#Is the remote system in your domain? Do you have admin access to the
#remote system?
#Have you tried retrieving the error message, perhaps with
#Win32::GetLastError()?
Yesterday I tried it with the commandprompt.
That does it. But a view computers I can't get listed, I don't see why.
And when I try to retrieve the messages from a win2000
client it goes wrong either.
But I really wanted the messages to appear in my webbrowser (real time ) =
=2E=20
That CGI part , I can't get fixed (only the localhost). Maybe the proble=
m is
with my Apache httpd.conf (I have to figure it out). I logged on as
Administrator (Domain) on an Apache-NT4 or -Win2000 machine. So I can't b=
e my
admin permission. Now I scheduled a perl-script to do a posting to a My=
Sql
database, and I will be able to see them appear in my webbrowser. A littl=
e bit
messy , but it works for me.
#
#WichersWeb wrote:
#
#> I've got he following problem.
#> When I try to connect the local computer with
#>
#> new Win32::EventLog("System", "\\\\WS28") || die "dan niet";
#>
#> everything goes fine.
#> But when I really try to connect a remote computer it doesn't work.
#>
#> any ideas?
------------------------------
Date: 3 Mar 2001 09:59:52 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Question!
Message-Id: <97qfao$g34$1@orpheus.gellyfish.com>
On Fri, 2 Mar 2001 13:59:12 -0500 Simon wrote:
> Is it possible to add the .html extension to the script mapping options in
> Perl/Apache so it is processed in the same manner as Perl scripts.
>
Possibly, but you will want to consult the Apache documentation on that.
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: Sat, 03 Mar 2001 09:28:06 GMT
From: "Waarddebon" <Waarddebon@chello.nl>
Subject: retrieving ip adress
Message-Id: <GO2o6.1752434$%C1.22825266@Flipper>
How can I retrieve the ip adress of a person ?
------------------------------
Date: 3 Mar 2001 10:36:54 GMT
From: "Scott R. Godin" <webmaster@webdragon.munge.net>
Subject: Re: retrieving ip adress
Message-Id: <97qhg6$f65$3@216.155.33.35>
In article <GO2o6.1752434$%C1.22825266@Flipper>, "Waarddebon"
<Waarddebon@chello.nl> wrote:
| How can I retrieve the ip adress of a person ?
|
"Reach out and grep someone." ? (:
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: Sat, 3 Mar 2001 21:45:55 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: retrieving ip adress
Message-Id: <slrn9a1ir3.qmu.mgjv@martien.heliotrope.home>
On Sat, 03 Mar 2001 09:28:06 GMT,
Waarddebon <Waarddebon@chello.nl> wrote:
> How can I retrieve the ip adress of a person ?
Unfortunately, we're not at the stage yet that each person has an IP
address. Since most people don't have implants addressable over TCP/IP
anyway, there really is no need for it. Apart from that, there aren't
enough IP addresses in the IPv4 address space to give each person a
unique one. If you wait a little while, IPv6 will be in use everywhere,
and you will have enough IP addresses to allocate one for each cell in
each living organism on Earth. Maybe even enough to address each
organism in the whole universe, once they are all equipped with network
interfaces.
Maybe you should check back in when that has happened.
Martien
PS. If what you meant was: I'm getting a connection on a socket, how do
I find out the address of my peer, then you need to look at the
documentation for the Socket module. It's in there.
PPS. If you're writing a CGI program, and you want to know what 'the' IP
address of the client requesting the page is, then you need to check
your environment variables (consult a group that cares about CGI for
that), or, if you use the CGI.pm module, you might want to use the
remote_addr() function, described in the documentation.
PPPS. Next time, don't be so vague when you ave a question. Mmmmmkay?
PPPPS. Haven't I asked you once before already not to be so vague? If
so, please tell me, so I can killfile you.
PPPPPS. I'm just putting this one in so that I can boast tomorrow at
lunch that I put five postscripts in a Usenet post.
PPPPPPS. six.
--
Martien Verbruggen |
Interactive Media Division | Can't say that it is, 'cause it
Commercial Dynamics Pty. Ltd. | ain't.
NSW, Australia |
------------------------------
Date: Sat, 3 Mar 2001 21:23:21 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: retrieving ip adress
Message-Id: <vg4o6.7266$v5.27535@newsfeeds.bigpond.com>
I just implanted a Bluetooth device in my brain.
I'm changing my name to "132.20.23.147".
------------------
"Waarddebon" <Waarddebon@chello.nl> wrote in message
news:GO2o6.1752434$%C1.22825266@Flipper...
> How can I retrieve the ip adress of a person ?
>
>
>
------------------------------
Date: Sat, 03 Mar 2001 10:45:54 GMT
From: kj Copeland <kj@codegeek.org>
Subject: Re: Server Push
Message-Id: <kj-58C4E6.02510403032001@news1.crdva1.bc.home.com>
In article <G9F67n.DLH@bath.ac.uk>,
"Phil Shean" <philip.shean@uwe.ac.uk> wrote:
> On my IIS 5 server, when I do a server push in perl, the webpage just gets
> appended with the new page.
>
> Does anyone know why this is happening?
>
> Can anyone provide me with a script that will perform a server push on an
> IIS 5 server running perl 5.6?
>
> Cheers in advance
>
> Phil.
Hello Phil,
I can't speak for IIS specifically, but I know that the following will
work for just about anything else:
#!/usr/local/bin/perl
print("Location: http://www.perl.com/\n\n");
I do remember a while back when some webservers required the CGI
script to start with "nph-" if it wanted to do its own header output.
You might also give that a try.
Cheers,
~kj
------------------------------
Date: Sat, 3 Mar 2001 22:15:30 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Server Push
Message-Id: <slrn9a1kii.qmu.mgjv@martien.heliotrope.home>
On Sat, 03 Mar 2001 10:45:54 GMT,
kj Copeland <kj@codegeek.org> wrote:
> In article <G9F67n.DLH@bath.ac.uk>,
> "Phil Shean" <philip.shean@uwe.ac.uk> wrote:
>
>> On my IIS 5 server, when I do a server push in perl, the webpage just gets
>> appended with the new page.
>>
>> Does anyone know why this is happening?
>>
>> Can anyone provide me with a script that will perform a server push on an
>> IIS 5 server running perl 5.6?
>
> I can't speak for IIS specifically, but I know that the following will
> work for just about anything else:
>
> #!/usr/local/bin/perl
>
> print("Location: http://www.perl.com/\n\n");
That's not server push.
> I do remember a while back when some webservers required the CGI
> script to start with "nph-" if it wanted to do its own header output.
> You might also give that a try.
So you know about nph scripts? Then why did you give the advice above?
All of this is offtopic here, totally offtopic. Please take it to one of
the comp.infosystems.www.* groups, where they will probably be able to
tell the OP what to do. It is NOT a Perl issue or problem.
Note f'ups
Martien
--
Martien Verbruggen |
Interactive Media Division | Begin at the beginning and go on till
Commercial Dynamics Pty. Ltd. | you come to the end; then stop.
NSW, Australia |
------------------------------
Date: Sat, 03 Mar 2001 12:06:06 GMT
From: "Waarddebon" <Waarddebon@chello.nl>
Subject: something unique
Message-Id: <O65o6.1754634$%C1.22861280@Flipper>
How can I retrieve something unique (there may not be 2 the same) from each
visitor to my website ? Idea is that I store that data and recall it at a
later moment.
I heard that not everyone has got an ip number so that isn't what I search.
------------------------------
Date: Sat, 3 Mar 2001 23:21:14 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: something unique
Message-Id: <0%5o6.7323$v5.27627@newsfeeds.bigpond.com>
(What has this got to do with Perl ??)
You could try using a cookie.
gtooomey
------------
"Waarddebon" <Waarddebon@chello.nl> wrote in message
news:O65o6.1754634$%C1.22861280@Flipper...
> How can I retrieve something unique (there may not be 2 the same) from
each
> visitor to my website ? Idea is that I store that data and recall it at a
> later moment.
>
> I heard that not everyone has got an ip number so that isn't what I
search.
>
>
------------------------------
Date: Sat, 3 Mar 2001 13:51:12 -0000
From: Ken Brown <Ken.Brown@DIALWRAP.COM>
Subject: unlink problems
Message-Id: <25B11499EC0272449DD9D7BC33FCCB610AAD41@dw2.dialwrap.com>
Requirement delete *.txt in a given directory
Code
push @DelFiles, $LogDir."\\*.txt";
DiskCleanup();
sub DiskCleanup
{
foreach $i (0 .. $#DelFiles)
{
print "@DelFiles[$i]\n";
$FailedUnlink = grep {not unlink} @DelFiles[$i];
# pinch from programming PERL
die "$0: could not unlink @DelFiles[$i]\n" if
$FailedUnlink;
# replace die with write to registry if delete fails once
all working
}
return();
}
I can delete the files by hand no problem but unlink always fails.
If anyone's up to it then I also want to delete the last directory in
$LogDir if there are no files left once the *.txt delete has executed.
Thanks, (hopefully)
------------------------------
Date: 3 Mar 2001 10:03:14 GMT
From: "Scott R. Godin" <dontspamthewebmaster@webdragon.munge.net>
Subject: Re: use strict;
Message-Id: <97qfh2$f65$0@216.155.33.35>
In article <7509-3A9FFA7F-9@storefull-244.iap.bryant.webtv.net>,
dennis100@webtv.net (BUCK NAKED1) wrote:
| I don't think you can use "use strict" with some modules, though... such
| as CGI.pm.
Completely untrue. I
use strict;
in all my scripts that
use CGI;
and haven't seen any reasons not to, yet. (or haven't had those
circumstances forced on me) :)
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: 3 Mar 2001 11:10:39 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: use strict;
Message-Id: <97qjff$h81$1@orpheus.gellyfish.com>
On Fri, 02 Mar 2001 11:56:57 -0700 Todd Anderson wrote:
> I am trying to implement "use strict;
> My script is crippled when this is inserted asis. I was told that "use
> strict;" can't be used when requiring other scripts.
> Is it possible to 'use srict;' after you have required the other
> scripts?
>
I guess (as guess I must because you dont supply much detail) that you are
using variables defined in the require'd file - these will be global in their
scope and will cause strict to complain about them - if you fix the errors
that strict emits then you will be fine.
You can either declare all of the global variables in your required file
with 'use vars' or you can refer to the variables with a fully qualified
package name (such as $main::foo ).
I would look at the strict and vars manpages.
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: 3 Mar 2001 13:48:58 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: use strict;
Message-Id: <97qsoa$j8u$1@orpheus.gellyfish.com>
On 3 Mar 2001 10:03:14 GMT Scott R. Godin wrote:
> In article <7509-3A9FFA7F-9@storefull-244.iap.bryant.webtv.net>,
> dennis100@webtv.net (BUCK NAKED1) wrote:
>
> | I don't think you can use "use strict" with some modules, though... such
> | as CGI.pm.
>
> Completely untrue. I
> use strict;
> in all my scripts that
> use CGI;
>
> and haven't seen any reasons not to, yet. (or haven't had those
> circumstances forced on me) :)
>
In fact I would go so far as to say that if a module *doesnt* work under
strict then its not worth the diskspace its installed on, indeed any module
should have 'use strict' immediately after the package declaration ...
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: Sat, 3 Mar 2001 12:23:50 -0000
From: "Chile" <abcd@ntlworld.com>
Subject: Why does yahoo handle Header request's diffrent?
Message-Id: <b75o6.4806$mt.569806@news2-win.server.ntlworld.com>
Hi,
I am writing a prog to check link status and it works on every link bar
yahoo.com's
basically i just return the header of the url, file etc.. and with urls like
www.google.com, www.hotbot.com etc.. it return's
HTTP/1.0 302 Object moved
Date: Sat, 03 Mar 2001 11:57:49 GMT
Server: Microsoft-IIS/5.0
Location: http://hotbot.lycos.com/
Content-Length: 145
Content-Type: text/html
Cache-Control: private
Age: 152
Via: HTTP/1.0 ren (Traffic-Server/3.0.3FCS [uScMs f pSeN:t cCMi p sS])
but when i try it on www.yahoo.com it always return the whole source of
yahoo.com along with the header at the top??
Is it possible yahoo have there server set up to do this or is it a error in
my code.
if you have lynx you can try it with the -head switch on yahoo.
Thanks,
Scott
------------------------------
Date: Sat, 03 Mar 2001 13:04:11 GMT
From: "Kalle Anka" <kalle@tvettsvamp.a.se>
Subject: Why doesnt it work. The whole list deletes.
Message-Id: <fZ5o6.21387$AH6.2981041@newsc.telia.net>
I'm trying to delete one e-mail address using a form to tell the script what
to do.
<form action="../cgi-tvett/unsub.pl" method="POST">
<p>Email Address: <input type="text" size="20" name="email">
</p>
<input type="submit" value="Skicka">
</form>
Instead of remove one e-mail address, the whole list deletes.
I'm not so good at perl, so if someone will explain, please do well.
Kalle
#!/usr/bin/perl
$filename = "/home/tvett/www/mail.htm";
$backupfile = "/home/tvettwww/backup.htm";
use CGI qw(:standard);
$q = CGI->new();
print $q->header();
print $q->start_html('Resultat av kommando');
print $q->h1('Resultat av kommando');
print(&cleanup); .
print $q->end_html();
sub cleanup {
open INFILE, $filename
or return "Couldn't open file for reading";
@infile = <INFILE>;
close INFILE;
open BACKUP, ">$backupfile"
or return "Couldn't make backup of original file";
if (@infile) { for $line (@infile) {
print BACKUP $line;
}
}
open OUFILE, ">$filename"
or return "Couldn't open file for writing";
for $line (@infile) {
print OUTFILE $line unless ($line =~/$email/);
}
close OUTFILE;
return "The address has been removed";
}
------------------------------
Date: 3 Mar 2001 11:18:28 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Win32::Internet Passive-FTP
Message-Id: <97qju4$hac$1@orpheus.gellyfish.com>
On Fri, 02 Mar 2001 13:42:24 +0100 Andreas Huber wrote:
>> On Fri, 02 Mar 2001 12:17:12 +0100, Andreas Huber <ah@datapharm.de>
>> wrote:
>> > how can I connect to a ftp server with passive mode?
>>
>> # use passive mode to circumvent any firewall issues
>> $self->{FTPConn} = Net::FTP->new( $self->{Site},
>> Debug => $DEBUGMODE,
>> Passive => 1 );
>>
>
> I need it for IIS (Win32::Internet)
>
Net::FTP works perfectly fine on NT.
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
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 V10 Issue 405
**************************************
