[12921] in Perl-Users-Digest
Perl-Users Digest, Issue: 331 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 2 07:08:53 1999
Date: Mon, 2 Aug 1999 04:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 2 Aug 1999 Volume: 9 Number: 331
Today's topics:
Re: $/ for cross platform text files? <rolf@parallax.co.uk>
Re: $/ for cross platform text files? <rolf@parallax.co.uk>
Re: [Summary] Korn Shell or Perl? (Anno Siegel)
Re: Beginner-friendly group as cultural adaptation? <nospam.newton@gmx.net>
Re: Beginner-friendly group as cultural adaptation? <kevinfal@seas.upenn.edu>
Re: binary data (elephant)
Re: binary data <giorgos@perlfect.com>
Re: Creating new files and directories <james.williamson@bbc.co.uk>
Re: help needed - database driven html pages <jesper@dreamer.dk>
Re: How to access only last field of a split ? <Mark@Mark.Com>
Re: How to access only last field of a split ? <mike@crusaders.no>
Re: How to pass hash to object and make it member data? <schmickl@magnet.at>
Re: How to read the submit button as a name or value (Bart Lateur)
how to remove cr/lf ??? <hubert.ming@iggi.lu.ch>
Re: How to stop a CGI execution ? (I.J. Garlick)
Re: Newbie alert !! <nospam.newton@gmx.net>
Re: newbie: perl finger/perl books <gellyfish@gellyfish.com>
passing command-line arguments to script ! (PaulK)
Re: Perl and pws (elephant)
Re: perl code can't work <Webdesigner@NewWebSite.com>
Re: Printing lines BTW two strings in file (NOT!) <nospam.newton@gmx.net>
Re: Suggest a site script <Webdesigner@NewWebSite.com>
Re: why are you so harsh to this guy ? <schmickl@magnet.at>
Re: why are you so harsh to this guy ? <gellyfish@gellyfish.com>
Re: Why won't this little script work? (Anno Siegel)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 02 Aug 1999 09:38:03 +0100
From: Rolf Howarth <rolf@parallax.co.uk>
Subject: Re: $/ for cross platform text files?
Message-Id: <37A558EB.9EAFBA0E@parallax.co.uk>
Bart Lateur wrote:
>
> >What's the easiest way to process a text file a line at a time if you
> >don't know in advance whether it's DOS (\r\n), Unix (\n) or Macintosh
> >(\r) format? ...
>
> If $/ would have accepted regexes, you might have done it just like
> that, but $/ is just a string.
>
> I think that one reason for keeping it this way, is that performance for
> reading lines would drop considerably, say to around 50% of what it is
> now, even for the common case where $/ is just plain text. That would
> put it in the same range as what you get now, but ALWAYS.
I agree that implementing $/ as full blown regular expression would
probably be an unacceptable performance hit, but I'm talking about the
special case \r, \n or \r\n. I can't believe this would be very
difficult or inefficient to hardcode!
while ((c=fgetc(f) != EOF && c != '\r' && c != '\n') ...
Thanks for the responses, anyhow.
-Rolf
------------------------------
Date: Mon, 02 Aug 1999 09:42:07 +0100
From: Rolf Howarth <rolf@parallax.co.uk>
Subject: Re: $/ for cross platform text files?
Message-Id: <37A559DE.D81B7A5@parallax.co.uk>
I think you're thinking about the different meaning of \n on different
platforms, where it always means the native new line terminator. A Perl
script running on a Mac won't have any problems reading a Mac-format
text file. The problem arises when that script is running under Unix and
encounters the Mac-format file.
-Rolf
Clinton Gormley wrote:
>
> This probably isn't much use, but I have previously read a discussion on the
> way that UNIX vs Windows vs Macs handle CRs, and I'm pretty sure it's in the
> perldocs somewhere, but I have been unable to find it.
>
> For instance, in Windows, even if you specifically print just a char(13) to
> a file, it records it as 13/10 (if I remember correctly - I may be way off
> track)
>
> > On Fri, 30 Jul 1999 10:18:26 +0100, Rolf Howarth <rolf@parallax.co.uk>
> wrote:
> > >What's the easiest way to process a text file a line at a time if you
> > >don't know in advance whether it's DOS (\r\n), Unix (\n) or Macintosh
> > >(\r) format?
> > >
> > >DOS and Unix is easy, set the input record separator $/ to \n and remove
> > >any trailing \r's, but if your script encounters a Mac file then it will
> > >read the entire file in one go.
> > >
> > >I keep thinking this ought to be trivially easy (even the default
> > >behaviour of $/ if you don't set it to anything else), but can't think
> > >of any way of doing it without reading the file twice (the first time to
> > >identify it's type), reading it a character at a time and splitting it
> > >into lines myself, or slurping it all into memory and then splitting it,
> > >none of which are ideal. The file might be huge, so efficiency is
> > >important. Am I missing something obvious?
> > >
> > >-Rolf
------------------------------
Date: 2 Aug 1999 08:52:25 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: [Summary] Korn Shell or Perl?
Message-Id: <7o3m89$7db$1@lublin.zrz.tu-berlin.de>
Ken Pizzini <ken@halcyon.com> wrote in comp.lang.perl.misc:
> my $pid = open(P, "-|);
> defined $pid || die "cannot fork: $!\n";
> if ($pid == 0) {
> if ($opt_d eq "all") {
> for my $i (split /\s*[ ,]\s*/) {
> if ($i eq "local") {
> for my $k (keys %beeper_byname) { print $k, "\n" }
> } elsif ($i eq "yp") {
> system qw(ypcat -k beeper.byname);
> }
> }
> } else {
> print $opt_d;
> }
> exit;
> }
> while (<P>) {
> chomp;
> s/ .*//;
> /YP_/ || print $_, "\n";
> }
This can't be right. (Open will either fail or return a true value.)
Looks like a fork got lost somewhere along the way.
Anno
------------------------------
Date: Mon, 02 Aug 1999 10:11:01 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: Beginner-friendly group as cultural adaptation?
Message-Id: <37A55295.3324FCF3@gmx.net>
I R A Darth Aggie wrote:
>
> grep and perlindex are your friends.
What's perlindex?
Cheers,
Philip
------------------------------
Date: 02 Aug 1999 05:52:15 -0400
From: Kevin Falcone <kevinfal@seas.upenn.edu>
Subject: Re: Beginner-friendly group as cultural adaptation?
Message-Id: <m3u2qitsq8.fsf@jibsheet.com>
>> "P" == Philip 'Yes, that's my address' Newton <nospam.newton@gmx.net> writes:
P> I R A Darth Aggie wrote:
>> grep and perlindex are your friends.
P> What's perlindex?
http://www.perl.com/CPAN/authors/Ulrich_Pfeifer/perlindex-1.200.readme
--
Kevin Falcone <kevinfal@seas.upenn.edu>
------------------------------
Date: Mon, 2 Aug 1999 18:40:56 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: binary data
Message-Id: <MPG.121004a0b49d82cc989bae@news-server>
Uri Guttman writes presumably about Alan Curry ..
UG>this twit emailed a reply to my followup (no stealth cc, he wanted
UG>speed via email ;-).
UG>
AC>Let me ask again. Why should every perl programmer learn both s/// AND
AC>s///g when s///g is probably the only one they'll ever need? Is it not
AC>allowed to learn just the useful subset of perl?
this one puts him in an entirely different planet to me .. apart from the
fact that /g is FAR more rarely used .. my brain just doesn't work the
same way .. I don't learn s/// AND s///g .. I learn s/// (in fact already
knew it from vi) and the apply the modifiers to it
it's not as though there are thousands of them .. there's only a handful
.. seven as I see it .. and they're all fairly mnemonically obvious
I mean .. does this poor sod also have to then learn m// and m//g ? .. is
he completely unable to see patterns ? .. what sort of life must that
provide him ? .. imagine having to learn how to tie the laces of his
boots AND how to tie the laces of his shoes .. and - ye gads - learning
to drive a car only to replace it a couple of years later and having to
learn how to drive the new one all over again
AC>If you use /gs on every regexp you are telling the reader "I didn't
AC>feel like memorizing two obscure rules, so I instead memorized the
AC>flags to disable them". It's just picking a useful subset and
AC>restricting yourself to it. Nothing wrong with that.
I can't imagine how he'd be using regex at all with that sort of comment
.. surely he'd be using some combination of nested for loops iterating
over the each line of the file character by character setting a bitmask
when certain characters are found and 'break'ing when they're not .. oops
.. I mean 'last'ing .. oh bugger .. I've given it away
UG>so is he dumb or a troll? you decide!
he's just from a parallel existance where it doesn't matter how fast the
code goes or whether it actually works - as long as it's easy for him to
remember
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 02 Aug 1999 12:12:08 +0000
From: Giorgos Zervas <giorgos@perlfect.com>
Subject: Re: binary data
Message-Id: <37A58B18.E86F41E4@perlfect.com>
Uri,
First of all thanks for your criticism.
It is an open source project and your contributions will be gladly
accepted. That's why it is open source actually. Because we are experts
on one thing yet may not be as good on another and we expect others to
help us.
This is a program developed by one person having to do much more
important work, both professional and academic, at the same time so
(guess) it is not perfect.
I do agree with you that the $buffer =~ s/[\n\s]+/ /gs is not the best
way to do it. But apart from that using $_ when it could be ommited it
tottaly dependent on ones style...
Also you don't like upper case variables it seems. Well, it helps us
recognise the variables that are defined in the configuration file...
What's the problem with that?
If you want to really hit us hard then please go and have a look at
Perlfect Search 2.0. Even I find it hilarious to read now that 3.01 is
out. You know what, we are getting better with time and effort.
This program may not be written in the best way. Uri(and others for that
matter) may not like it. But it seems it has solved the problems of many
people. They use it, they are happy with it and they even email us to
say thank you.
And this makes me happy.
Uri, it would really help if you mildly appreciated the effort others
put in their work especially when they offer it to the communinity and
try to be a bit more polite when you find a bug. When you noticed those
bugs why didn't you email me to correct the program and release a new
version? Compared to the effort you put into finding the bugs in the
first place sending me a notification email could hardly require any
extra effort. I don't mind others seeing our flaws... It is not your
public post that bothered me. The program is there for everyone to see
anyway. I just don't understand your attitude towards this.
Many people have found bugs and many people couldn't even make it work.
But you know what their first words were in their emails? "Thank you."
Now can anyone tell me about binary data?:)
Best regards,
Giorgos.
Uri Guttman wrote:
>
> >>>>> "A" == Abigail <abigail@delanet.com> writes:
>
> A> Giorgos Zervas (giorgos@perlfect.com) wrote on MMCLXII September MCMXCIII
> A> in <URL:news:37A510C7.51D7D683@perlfect.com>:
> A> ~~
> A> ~~ Could someone explain to me why when reading binary data with read and
> A> ~~ sysread the data appears in different order?
>
> A> I don't think it does. What makes you think it does? (Where's your code?)
>
> A> ~~ Which one should I use to read binary data from a file?
>
> A> That depends.
>
> A> ~~ Perlfect Solutions
> A> ~~ http://perlfect.com
>
> A> Maybe there's someone in your team of "expert perl programmers who have
> A> profound knowledge" that knows the difference between read and sysread?
>
> i wouldn't call them "expert perl whatevers". here is some sample code
> from a free script they offer. it has no matt viruses and actually uses
> cgi.pm but it is pretty bad on its own:
>
> while (<FILE>) {
> chomp;
> $_ =~ s/(\#.*)//g; #ingore comments
>
> why /g?
>
> note the lovely use of $_ =~ and the poor choice of delimiters.
>
> $buffer =~ s/[\n\s]+/ /gs;
>
> that one is fun. \s has \n in it. and /s is not needed as . is not in
> the regex. and tr/// would be faster.
>
> while (<FILE>) {
> chomp;
> push @stopwords, $_;
> }
> }
>
> that could be done with
> chomp( @stopwords = <FILE> ) ;
>
> many variables are upper case.
>
> i won't show any more but it is all the same vintage.
--
Perlfect Solutions
http://perlfect.com
------------------------------
Date: Mon, 2 Aug 1999 10:19:06 +0100
From: "James Williamson" <james.williamson@bbc.co.uk>
Subject: Re: Creating new files and directories
Message-Id: <7o3nss$741$1@nntp0.reith.bbc.co.uk>
Abigail wrote in message ...
>Vox (v0xman@yahoo.com) wrote on MMCLXII September MCMXCIII in
><URL:news:W5ap3.45659$jl.31864525@newscontent-01.sprint.ca>:
>\\ I know how to print output with: print "Content-type: text/html"
>\\ but I don't know how to dynamically make a new files or directories and
name
>\\ them. All i know how to do is open and modify files but not create
files or
>\\ even new directories.
>\\
>\\ If anyone knows how to do this can they please help me. Thanks.
>
>
>The manual knows how to do this. Go bug the manual.
>
>
>
>Abigail
>--
Can see Abigail is being her most helpful (as usual), try
opening a non existent file such as
open(FILEHANDLE,">filename.pl")
You'll find that if the file doesn't exist Perl will create one for you.
Try the 'open' function in perldoc for more info on files and the 'mkdir'
function for directories.
James
------------------------------
Date: Mon, 2 Aug 1999 11:00:08 +0200
From: "Jesper Lindhardt" <jesper@dreamer.dk>
Subject: Re: help needed - database driven html pages
Message-Id: <33dp3.2$jr4.18210858@blade.mobilixnet.dk>
Hi,
I'm browsing though the site right now, and there seems to be a bunch of
useful programs there.
Thanks a lot!
Jesper
<makarand_kulkarni@my-deja.com> wrote in message
news:7o2q1g$lml$1@nnrp1.deja.com...
>
>
> ==
> Try www.freshmeat.net/
> You might find something that you might
> be able to use.
> ==
>
------------------------------
Date: Mon, 02 Aug 1999 10:31:28 +0100
From: Mark <Mark@Mark.Com>
Subject: Re: How to access only last field of a split ?
Message-Id: <37A5656F.D109EB85@Mark.Com>
Try:
$line = "word.10.word.20.30.40.50";
$scalar = ( reverse split '.',$line)[0]; # last element of split line
John Hennessy wrote:
> Hi, I am wanting to access only the last field of a split line.
> Is there a quick way of doing this keeping in mind I won't know
> how many fields will be returned in the line.
>
> Example line...
>
> word.10.word.20.30.40.50
>
> Thanks
>
> John.
------------------------------
Date: Mon, 2 Aug 1999 12:59:44 +0200
From: "Trond Michelsen" <mike@crusaders.no>
Subject: Re: How to access only last field of a split ?
Message-Id: <ESep3.122$HB5.1187@news1.online.no>
Mark <Mark@Mark.Com> wrote in message news:37A5656F.D109EB85@Mark.Com...
> Try:
> > Hi, I am wanting to access only the last field of a split line.
> $line = "word.10.word.20.30.40.50";
> $scalar = ( reverse split '.',$line)[0]; # last element of split line
no need to use reverse.
$scalar = (split '.',$line)[-1];
will work just fine.
--
Trond Michelsen
------------------------------
Date: Sun, 01 Aug 1999 18:57:51 +0200
From: Thomas Schmickl <schmickl@magnet.at>
To: Ramanika <ramanika@flashmail.com>
Subject: Re: How to pass hash to object and make it member data?
Message-Id: <37A47C8F.9A5918F2@magnet.at>
Ramanika schrieb:
> # not sure why this package needs to know that my data is my data
> # why is bless really needed?
> bless $m_student;
Without bless, your object is just a pointer to a hash. with bless, the
name
of the objects class is associated with it.
This enambles polymorphism, so it's really needed if you object modell
should be a good one.
You can try this by make a >print $self."\n"< before and after the
blessing.
ciao, thomas.
------------------------------
Date: Mon, 02 Aug 1999 09:07:20 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How to read the submit button as a name or value
Message-Id: <37a65f42.9672457@news.skynet.be>
Tom Christiansen wrote:
>:A "dirty hack" is a my name for it.
>
>It's a shame Perl permits such "dirty hacks". Otherwise
>you would all be more content with things running slowly.
I don't really mind Perl permitting these "dirty hacks". But a fine code
example for newbies to follow, it is not. Code in a string? Yuck.
Bart.
------------------------------
Date: Mon, 2 Aug 1999 10:57:46 +0200
From: "Ming Hubert" <hubert.ming@iggi.lu.ch>
Subject: how to remove cr/lf ???
Message-Id: <7o3moo$fgt$1@pollux.ip-plus.net>
hello perl-gurus
simpel question: a perl-script writes the content of form-fields in a file
and the entries look like this:
user-input-field1
user-input-field2
user-input-field3
........
so all the entries have cr/lf. i'd like them to have in the file separated
by ";" ex:
user-input-field1;user-input-field2;user-input-field3;user........
my print-command for the file looks like this:
print FILETO $outbuffer;
how can i eliminate the cr/lf and replace it by a separator ??
thanx alot for your help
hubert
------------------------------
Date: Mon, 2 Aug 1999 08:45:04 GMT
From: ijg@connect.org.uk (I.J. Garlick)
Subject: Re: How to stop a CGI execution ?
Message-Id: <FFtxn5.B7v@csc.liv.ac.uk>
In article <37A239F5.4182C61B@cisco.removethis.com>,
makkulka <makkulka@cisco.REMOVETHIS.com> writes:
> <form name=formname action=killerapp?pid=xxx>
> <input type=image src=stopimage.gif>
> </form>
Corrrr. Go on tells the URL of this test progy. Awww go on. Please....
Pretty Please.
I would love to have a go at killing as many of your web servers cgi's as
I could find. I dare say with LWP and a suitably nefarious script I could
even automate it.
> On unix you may have used KILL -9 PID to
> stop the time consuming CGI program.
> You will need to find out a similar
> mechanism on NT.
Some how I don't think you have thought the security implications through
too well. I could be wrong and this is inappropriate but I have never
thougath putting anything in a hidden field that can effect your server a
terribly good idea.
This is tantamount to putting a password in a hidden field, ie. asking for
it.
Save it to a file. Use a session key. That way if they mess with the
hidden session key nowt much happens except that you can detect someone
attempting to play games from your CGI.
--
Ian J. Garlick
ijg@csc.liv.ac.uk
Science is facts; just as houses are made of stones, so is science made
of facts; but a pile of stones is not a house and a collection of facts
is not necessarily science.
-- Henri Poincaire
------------------------------
Date: Mon, 02 Aug 1999 11:14:50 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: Newbie alert !!
Message-Id: <37A5618A.43AC779B@gmx.net>
Ala Qumsieh wrote:
>
> Eric The Read <emschwar@rmi.net> writes:
>
> > perl -lni.bak -e "print $_,"|||||\n"' old_data_file
>
> The '-l' adds a "\n" to your print()s. $_ already has a "\n" at the
> end. You print a "\n" after the five pipes.
$_ has no "\n" at the end. It got chomped by the -l.
Too many \n's, yes; but there are two, not three, in the final output.
Cheers,
Philip
------------------------------
Date: 2 Aug 1999 09:48:31 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: newbie: perl finger/perl books
Message-Id: <37a55b5f_1@newsread3.dircon.co.uk>
:) <makhan@students.uiuc.edu> wrote:
>
> Peace,
>
> Is there any way I can find out who (login name, time, date) is fingering
> my login name? The system I use uses UNIX(r) System V Release 4.0.
>
I dont think that is a Perl question
> Also what books would you recomend for learning Perl.
>
<http://reference.perl.com/query.cgi?books>
/J\
--
"Malcolm, what have I told you about putting chocolate near your
crotch?" - Mrs Merton
------------------------------
Date: Mon, 02 Aug 1999 10:34:29 GMT
From: paul@vdkamer.nl (PaulK)
Subject: passing command-line arguments to script !
Message-Id: <37a57433.17716497@news.wxs.nl>
Help help help,
I need to run a several scripts from within a script to carpture the
ouput and display it on screen.
when i run it like this
$test = 'perl \\query\\query1.cgi';
$uitkomst = `$test "FileNaam=test.txt"`;
the FileNaam parameter is not filled.
When i try to do it the correct way :
$uitkomst=system("perl","\\query\\query1.cgi","FileNaam=test.txt);
also FileNaam is not filled.
Please help me.
It's working fine at the dos prompt and via a browser.
Any suggestions are welcome !
------------------------------
Date: Mon, 2 Aug 1999 18:59:07 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Perl and pws
Message-Id: <MPG.121008e9fd5b9705989baf@news-server>
Andy writes ..
>I have a simple question . I am using PWS and win98 + perl (for
>windows)when i try to run a script from pws it tries to download
>it not run it???? What is wrong.
>I know this is in an FAQ somewhere but i cant find it
jeez - Outlook is getting uglier with its paragraph formatting
but anyway - to your problem
you need to configure PWS so that it knows how to handle a .ps file -
otherwise it just hands it over to the browser for download
this questions is covered in perlwin32faq6 (Web Server Config) in the
ActiveState distribution .. but their link to the Knowledge Base article
is out of date .. the new kb article that you want will be here
http://support.microsoft.com/support/kb/articles/Q150/6/29.asp
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 02 Aug 1999 10:06:16 GMT
From: Floyd Morrissette <Webdesigner@NewWebSite.com>
Subject: Re: perl code can't work
Message-Id: <7o3qik$b8j$1@nnrp1.deja.com>
In article <37a5150b.3087082@nntp.jaring.my>,
keecm@pc.jaring.my wrote:
> I am beginner in Perl language, please don't mind if my question is
> stupid.
>
> I had installed Perl in my win95 system.
> And below are the html file(test.htm) and the perl file(test.pl)
> located in c:\temp
>
> <html>
> <head>
> <title>Perl Test</title>
> </head>
> <body>
>
> <h1>Perl test</h1><br>
> <form method="get" action="test.pl">
> <input type=submit value="GO!">
> </form>
>
> </body>
> </html>
>
> #! perl
>
> print "Content-type:text/html\n\n";
> print "<title>Windows????</title>";
> print "<body>????website????<br>";
> foreach $key(sort keys %ENV){
> print "$key=$ENV{$key}<br>"; }
> PRINT "</BODY>";
>
> Ii use ie4 to view the html file, when i click the GO button, it just
> shows the source code of the test.pl file, like ....
>
> #! perl print "Content-type:text/html\n\n"; print ""; print
> "????website????
> "; foreach $key(sort keys %ENV){ print "$key=$ENV{$key}
> "; } PRINT "";
>
> Please help.
>
> Thanks in advance.
>
> kee
>
First you have to put something like #!c:/perl/bin/perl.exe to tell the
script where perl is located on your computer. And you have to have a
web server running on your computer.
--
Get your web site from http://www.NewWebSite.com
Consultation is always free.
Help with cgi scripts.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 02 Aug 1999 11:11:19 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: Printing lines BTW two strings in file (NOT!)
Message-Id: <37A560B7.C209A9E0@gmx.net>
Tad McClellan wrote:
[stuff comparing efficiency of xxxx and x{4}; Philip had claimed xxxx
was more efficient]
> Or what were you thinking of?
Just parroting something I (thought I) read in _Mastering Regular
Expressions_. Never actually compared the speed myself.
Cheers,
Philip
------------------------------
Date: Mon, 02 Aug 1999 10:00:54 GMT
From: Floyd Morrissette <Webdesigner@NewWebSite.com>
Subject: Re: Suggest a site script
Message-Id: <7o3q8j$b65$1@nnrp1.deja.com>
In article <7o3ijs$k7e@news3.euro.net>,
aaronp@dds.nl wrote:
> Hi all!
>
> I came across this nice script at www.suggestsite.com
>
> Well, pretty nice, butt....I do not like it that my (future) visitors
seeing a
> Thank You-page that is not mine.
> They see the one the makers of this script have made.
>
> Does anyone know of a free Perl-script that does the following, and is
> customisable *and* works uhh... bugfree (am i dreaming?):
> - a visitor can send a friend (or multiple friends!) a message (which
the
> site-owner makes) saying something like: Hey! Look at this great
website! bla
> bla bla...
> - the email-message and the thank you-page are fully customisable by
the
> site-admin.
>
> Anyone, please let me know if you know of a script that does this!
>
> p.s. I am on a server with Apache(1.3.4), PHP (3.0.7), Perl 4, 5-5.004
>
> thanks for reading...
>
> Aaron Peters
> aaronp@dds.nl
>
>
Edit the script to print the thank you page that you want or redirect
the visitor somewhere.
--
Get your web site from http://www.NewWebSite.com
Consultation is always free.
Help with cgi scripts.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Sun, 01 Aug 1999 19:03:24 +0200
From: Thomas Schmickl <schmickl@magnet.at>
Subject: Re: why are you so harsh to this guy ?
Message-Id: <37A47DDC.EDA357CF@magnet.at>
David Cassell schrieb:
> It is getting to the point where rudeness is becoming
> essential. Ryan Ngi has been posting questions like this
> on a regular basis for some time, despite: directions to
> tutorials, information on the FAQ and how to use them,
> guidance on programming, etc.
> ...
> >Seriously, if you can get through to Ryan and convince him
> to 'do his homework' before posting each time, he might
> be a lot happier, and the responders here sure wouldn't
> be unhappy about it.
>
Well, thats an answer, but I wonder how one can remember one of thousand posters
in this ng, that he is too often asking silly questions. But maybe you have
an better overlook over this group. I just see thousands of people asking
and thousands of people answering. So thats the way it should be.
ciao, thomas.:-)
------------------------------
Date: 2 Aug 1999 10:32:24 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: why are you so harsh to this guy ?
Message-Id: <37a565a8_1@newsread3.dircon.co.uk>
Thomas Schmickl <schmickl@magnet.at> wrote:
>
> David Cassell schrieb:
>
>> It is getting to the point where rudeness is becoming
>> essential. Ryan Ngi has been posting questions like this
>> on a regular basis for some time, despite: directions to
>> tutorials, information on the FAQ and how to use them,
>> guidance on programming, etc.
>> ...
>> >Seriously, if you can get through to Ryan and convince him
>> to 'do his homework' before posting each time, he might
>> be a lot happier, and the responders here sure wouldn't
>> be unhappy about it.
>>
>
> Well, thats an answer, but I wonder how one can remember one of thousand posters
> in this ng, that he is too often asking silly questions. But maybe you have
> an better overlook over this group.
The point is that we do notice these things - just the same as we notice
someone who starts making helpful replies to questions and just as we
notice trolls and various other deadbeats and losers.
> I just see thousands of people asking
> and thousands of people answering. So thats the way it should be.
>
I see thousands of people asking and perhaps tens of people making useful
answers.
/J\
--
"Nourishes at the root and penetrates right to the tip" - Pantene
Advertisement
------------------------------
Date: 2 Aug 1999 08:16:39 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Why won't this little script work?
Message-Id: <7o3k57$7c3$1@lublin.zrz.tu-berlin.de>
Tim <bie@connect.ab.ca> wrote in comp.lang.perl.misc:
>Sorry about the attachments, & I mean it doesn't work because I get a
>Internal Server Error. I don't know why I get that though (or else I;'d
>fix it)
Then look in the server's error logs.
Anno
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 331
*************************************
