[15643] in Perl-Users-Digest
Perl-Users Digest, Issue: 3056 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 15 21:10:27 2000
Date: Mon, 15 May 2000 18:10:17 -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: <958439417-v9-i3056@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 15 May 2000 Volume: 9 Number: 3056
Today's topics:
Re: Problem in overloading operator. <rootbeer@redcat.com>
Problem with script jamalone@earthlink.net
Re: Problem with script <rootbeer@redcat.com>
Q. sorting on a date <helen@arndike.demon.co.uk>
Re: Q. sorting on a date <rootbeer@redcat.com>
Script using MailSender only seems to work with local e <jmatej59@hotmail.com>
Re: Script using MailSender only seems to work with loc <rootbeer@redcat.com>
Re: Sending mail from Perl on NT <larkas@eden.rutgers.edu>
sigh ... <jtjohnston@courrier.usherb.ca>
Re: Site update <rootbeer@redcat.com>
Re: Specifying MIME type <slu_2@altavista.net>
Re: text counter <thepoet1@arcormail.de>
Re: text file and perl <gounis@my-deja.com>
Re: text file and perl <jeff@vpservices.com>
Re: using an array from the disk <thepoet1@arcormail.de>
Re: Using Net::FTP in a subroutine <thepoet1@arcormail.de>
Re: VBScript and Perl in same asp page. <rootbeer@redcat.com>
Re: where can i find perl? <thepoet1@arcormail.de>
Re: zen and the art of trolling [OT] <jeff@vpservices.com>
Re: zen and the art of trolling [OT] <flavell@mail.cern.ch>
Re: zen and the art of trolling [OT] <godzilla@stomp.stomp.tokyo>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 May 2000 17:29:22 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Problem in overloading operator.
Message-Id: <Pine.GSO.4.10.10005151728390.25459-100000@user2.teleport.com>
On Mon, 15 May 2000, Adi Hoder wrote:
> Having a problem in overloading operator >>
> it collects grabage.
What do you mean by that?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 15 May 2000 22:59:36 GMT
From: jamalone@earthlink.net
Subject: Problem with script
Message-Id: <39207f8b.3054341@news.earthlink.net>
I have this script that is giving me problems. When I run it it works
and returns correct data. When I change the data and run it again it
screws up and returns old data with the new. I can't figure this one
out.
It is like it is caching data from the previous submit somwhere and
then adding the new data to it and displaying that.
Does any one have any suggestions? Are there any know problems with
any version of Perl? I am not sure of the exact version but it is 5.x.
Thanks for any help
Jason
#!/usr/bin/perl -w
#preparequery-lib.pl
use CGI::Carp qw(carpout fatalsToBrowser);
use CGI qw(:standard);
sub preparequery {
@params = param();
foreach (@params) {
$Form{$_} = param($_);
}
my ($and, $or, $query);
$and = '';
$or = '';
$x = 0;
$y = 0;
foreach (@params) {
if (($Form{$_}) && ($_ ne "formtype") && ($_ ne
"Submit") && (@params[$x] =~ /_ANDOR_/)) {
@new_params[$y] = $params[$x];
@new_params[$y] =~ s/_ANDOR_//;
if ((!$and) && ($Form{$_} eq "AND")) {
$and = "@new_params[$y] LIKE
\'$Form{$new_params[$y]}\'";
}
elsif ($Form{$_} eq "AND") {
$and = "$and AND @new_params[$y] LIKE
\'$Form{$new_params[$y]}\'";
}
elsif ((!$or) && ($Form{$_} eq "OR")) {
$or = "@new_params[$y] LIKE
\'$Form{$new_params[$y]}\'";
}
elsif ($Form{$_} eq "OR") {
$or = "$or OR @new_params[$y] LIKE
\'$Form{$new_params[$y]}\'";
}
}
$x++;
}
if (($and) && ($or)) {$query = "WHERE \(\($and\) OR
\($or\)\)"}
elsif ($and) {$query = "WHERE \($and\)"}
elsif ($or) {$query = "WHERE \($or\)"}
if ($Form{formtype} eq "prepquery") {print $query}
return($query);
}
return 1;
------------------------------
Date: Mon, 15 May 2000 17:40:51 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Problem with script
Message-Id: <Pine.GSO.4.10.10005151740060.25459-100000@user2.teleport.com>
On Mon, 15 May 2000 jamalone@earthlink.net wrote:
> Subject: Problem with script
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I have this script that is giving me problems. When I run it it works
> and returns correct data. When I change the data and run it again it
> screws up and returns old data with the new.
CGI.pm's sticky fields? Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 16 May 2000 11:09:11 +1200
From: "arndike" <helen@arndike.demon.co.uk>
Subject: Q. sorting on a date
Message-Id: <8fq07p$rva$1@hermes.nz.eds.com>
Hello
Is there a good way to sort an array of dates
the dates are in the format dd.mm.yyyy
will i need to write something like the below or is there a better way
sub bydate { some good logic here }
@sorted = sort bydate @unsorted
if this is the best way does anyone have any ideas as to the best way to do
the "some good logic here" bit
thank you
------------------------------
Date: Mon, 15 May 2000 17:25:20 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Q. sorting on a date
Message-Id: <Pine.GSO.4.10.10005151719060.25459-100000@user2.teleport.com>
On Tue, 16 May 2000, arndike wrote:
> Is there a good way to sort an array of dates
Yes.
my @sorted_dates =
map { $_->[0] }
sort { $b->[1] <=> $a->[1] or $a->[0] cmp $b->[0] }
map { [ $_, kissability($_) ] }
@dates;
> the dates are in the format dd.mm.yyyy
Sounds as if a simple sort subroutine will do for those dates. If those
letters stand for what I think they stand for, you could probably map them
to make the string yyyymmdd and use perl's default sort. In fact, three or
four people are probably coding this up for you right now. :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 15 May 2000 22:09:29 GMT
From: "Jan Matejka" <jmatej59@hotmail.com>
Subject: Script using MailSender only seems to work with local email address
Message-Id: <tA_T4.16066$Ft1.597609@typhoon.ne.mediaone.net>
MailSender7.04 on Redhat 6.2
SMTP server only seems to recognize local (to the server) email addresses
with this script.
Is there a problem with my Script, Mail Sender, or my smtp server?
Any Help would Greatly appreciated!!!
#!/usr/bin/perl -w
use Mail::Sender;
$webmaster = "jmatej\@aamas\.com";
sub parse_form_data
{
local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs,
$key_value, $key, $value);
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
&return_error (500, "Server Error",
"Server uses unsupported method");
}
@key_value_pairs = split (/&/, $query_string);
foreach $key_value (@key_value_pairs) {
($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
if (defined($FORM_DATA{$key})) {
$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
} else {
$FORM_DATA{$key} = $value;
}
}
}
sub return_error
{
local ($status, $keyword, $message) = @_;
print "Content-type: text/html\n\n";
print "Status: ", $status, " ", $keyword, "\n\n";
print <<End_of_Error;
<title>CGI Program - Unexpected Error</title>
<h1>$keyword</h1>
<hr>$message</hr>
Please contact $webmaster for more information.
End_of_Error
exit(1);
}
1;
&parse_form_data (*simple_form);
$name = $simple_form{'name'};
$co = $simple_form{'company'};
$city = $simple_form{'city'};
$state = $simple_form{'state'};
$country = $simple_form{'country'};
$email = $simple_form{'email'};
open FILE, '>/home/aamascom/public_html/fdfmergeapp/fdf_email.fdf';
print FILE<<EOT;
%FDF-1.2
1 0 obj
<<
/FDF << /Fields 2 0 R >>
>>
endobj
2 0 obj
[
<< /T (name)/V ($name)>> << /T (city)/V ($city)>> << /T (state)/V ($state)>>
<< /T (country)/V ($country)>> << /T (email)/V ($email)>>
<< /T (company)/V ($co)>>
]
endobj
trailer
<<
/Root 1 0 R
>>
%%EOF
EOT
close FILE;
#get hour and minute to append to end of new file name
#this is to give each new output file it's own unique name so it will not be overwritten.
$tm = `date +'%H%M'`;
chomp($tm);
$pdf = "pdf";
$ntm = join '.', $tm , $pdf;
$npth = join "" ,"/home/aamascom/public_html/fdfmergeapp/","demo",$ntm;
#run FDFMerge with -o output file option. FDFMerge makes a copy of the original pdf.
system "/home/aamascom/public_html/fdfmergeapp/fdfmerge","-o","/home/aamascom/public_html/fdfmergeapp/demo.pdf","/home/aamascom/public_html/fdfmergeapp/fdf_emaildemo.pdf","/home/aamascom/public_html/fdfmergeapp/fdf_email.fdf";
rename("/home/aamascom/public_html/fdfmergeapp/demo.pdf",$npth);
#send mail to e-mail address
ref ($sender = new Mail::Sender({from => 'jmatej@aamas.com',smtp => '216.10.2.156'})) or die "$Mail::Sender::Error\n";
(ref ($sender->MailFile(
#replace subject and message to what ever text you would like.
{to => $email, subject => 'Test', msg => "Enclosed is your PDF File.\n", file => $npth
}))
#the following text makes up the html page that notified the user that it was sent successfully.
and print "Content-type: text/html\n\n<HTML>\n<HEAD>\n<TITLE>FDFMerge E-Mail Demo</TITLE></HEAD>\n<BODY bgcolor=white text=#242424 link=purple alink=#9932cc vlink=#dc143c>\n\n<p> </p>\n<BR><BR><p><font size=4><I>The FDFMerge E-Mail Demo PDF File has been successfully sent to,<BR><BR>$email </I><br>\n</font></p>\n<p> </p>\n<p> </p>\n<p><BR><BR><a href = http://www.aamas.com>Go to AAM Home Page</a></p><p> </p>\n<p> </p>\n<BR><BR><BR><p><I>If you encounter any problems with this form, please contact <a href=mailto:jmatej\@aamas.com>jmatej\@aamas.com</a></I></p>\n</bod
y>\n</HTML>"
)
or die "$Mail::Sender::Error\n";
------------------------------
Date: Mon, 15 May 2000 17:39:33 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Script using MailSender only seems to work with local email address
Message-Id: <Pine.GSO.4.10.10005151734410.25459-100000@user2.teleport.com>
On Mon, 15 May 2000, Jan Matejka wrote:
> SMTP server only seems to recognize local (to the server) email
> addresses with this script.
Maybe that's the way it's configured.
> Is there a problem with my Script, Mail Sender, or my smtp server?
You may need to see whether Mail::Sender has a debugging mode that can
help you to find this out.
> $webmaster = "jmatej\@aamas\.com";
Maybe you should use single quotes, and drop the backslash before the dot
in any case.
> sub parse_form_data
Uh-oh. :-)
> @key_value_pairs = split (/&/, $query_string);
You should really use a module like CGI.pm to do this. It's not only
easier to use...
> foreach $key_value (@key_value_pairs) {
> ($key, $value) = split (/=/, $key_value);
> $value =~ tr/+/ /;
> $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
...but it also does it correctly.
> open FILE, '>/home/aamascom/public_html/fdfmergeapp/fdf_email.fdf';
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
> #get hour and minute to append to end of new file name
> #this is to give each new output file it's own unique name so it will not be overwritten.
I doubt that that's sufficient. Couldn't your program be called twice
during the same minute? (Among other worries. :-)
> $pdf = "pdf";
> $ntm = join '.', $tm , $pdf;
> $npth = join "" ,"/home/aamascom/public_html/fdfmergeapp/","demo",$ntm;
I think there's an easier way to do this. :-)
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 15 May 2000 19:39:17 -0400
From: Larry Kasoff <larkas@eden.rutgers.edu>
Subject: Re: Sending mail from Perl on NT
Message-Id: <39208AA5.46C24176@eden.rutgers.edu>
Treat MS Outlook as a COM object. i.e. Use Win32::OLE in Perl to create the
object and then call the appropriate methods.
old_flyer@my-deja.com wrote:
> Ok. I am familiar with calling system commands in UNIX, but I also have
> Active Perl on my NT machine. I want to use MS Outlook to mail out from
> a list of e-mail addresses. I have done this easily in Perl, but
> anyone have any experience calling Outlook from the command line? Can
> it be done, or do I need to get another mail client?
>
> Thanks,
>
> Dwight Taylor
>
> email: ldtaylor@swbell.net
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Mon, 15 May 2000 20:43:21 -0400
From: JTJ <jtjohnston@courrier.usherb.ca>
Subject: sigh ...
Message-Id: <392099A9.459A@courrier.usherb.ca>
Sigh ... need help, or someone's objectivity ...
I've created this little counter thingy, but it doesn't work exactly.
I have a log file, userstatslog, which I started with this line as it
only content:
0\t0\t0\t0\t
As the .pl runs, each field value (divided by \t) should increment,
depending on the version number of browser type, but all I get when I
read the file is:
1\t1\t\t\t
no matter how many times I run the .pl. Therefore, $STATData[2],
$STATData[3] write nothing back into the log file when I write it again.
Where did I screw up? :)
John
An E-Mail would very much, greatly appreciated.
-------------------------------------------------------------------------------------
open(STATSLOG,"$userstatslog");
@STATData = <STATSLOG>;
close(STATSLOG);
foreach $line (@STATData)
{
chop $line;
@STATData = split (/\t/, $line);
}
$STATData[0]++;
if ($in{'APPLIC'} =~ /Netscape/)
{$STATData[1]++;}
if ($in{'APPLIC'} =~ /Microsoft Internet Explorer/)
{$STATData[2]++;}
if ($in{'BVERSION'} =~ /4\./)
{$STATData[3]++;}
open(SLOG,">$userstatslog");
print SLOG "$STATData[0]\t$STATData[1]\t$STATData[2]\t$STATData[3]\t";
close(SLOG);
------------------------------
Date: Mon, 15 May 2000 17:32:21 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Site update
Message-Id: <Pine.GSO.4.10.10005151729530.25459-100000@user2.teleport.com>
On Mon, 15 May 2000 bzooty@my-deja.com wrote:
> Dynamic Whistler, the DHTML information site, has been updated with new
> articles, tutorials and a brand new Message Board.
I just got a haircut.
Oh, sorry. I thought this was where to post totally irrelevant information
that would be obvious to anyone who really cared enough to look. :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 15 May 2000 19:44:23 -0400
From: Sydney Lu <slu_2@altavista.net>
Subject: Re: Specifying MIME type
Message-Id: <1u21iss3odq6kodrm00qhbsscp7eoiivoh@4ax.com>
Consider MIME::Lite, or MIME::tools, both of which could likely solve
your problem, I believe.
-- Sydney
On Mon, 15 May 2000 15:37:53 -0400, "Mike Stone"
<mstone@mountaincreek.com> wrote:
>Hi,
> I am running Active Perl Build 521 on Win NT. From my internal web server
>I want to mail an HTML form to a recipient running Outlook 98. I have my
>script which takes my form and sends it everything to the recipient via SMTP
>using IO::Socket, but I can not figure out how to specify that the content
>type of the mail is HTML and not plain text. Any ideas on how to accomplish
>this?
>
>Thank you,
>Mike W. Stone.
>mstone@mountaincreek.com
>
------------------------------
Date: Mon, 15 May 2000 22:29:15 +0200
From: Christian Winter <thepoet1@arcormail.de>
Subject: Re: text counter
Message-Id: <rmmpf8.905.ln@usenet-autoren.de>
JTJ <jtjohnston@courrier.usherb.ca> schrob:
> Each field value (divided by \t) should increment, depending on the
> version number of browser type, but all I get when I read the file is:
> 1\t1\t\t\t
> no matter how many times I run the .pl. Therefore, $STATData[2],
> $STATData[3] write nothing back into the log file when I write it again.
> Where did I screw up? :)
You shouldn't use the same array variable twice for different things.
> open(STATSLOG,"$userstatslog");
> @STATData = <STATSLOG>;
Here you make @STATData carry all lines of the logfile.
> close(STATSLOG);
> foreach $line (@STATData)
> {
The loop runs on $STATData[0]...
> chop $line;
> @STATData = split (/\t/, $line);
...and here @STATData gets overwritten. Nice demonstration of
side effects.
> }
You do not really want the loop to end here.
> $STATData[0]++;
> if ($in{'APPLIC'} =~ /Netscape/)
> {$STATData[1]++;}
> if ($in{'APPLIC'} =~ /Microsoft Internet Explorer/)
> {$STATData[2]++;}
> if ($in{'BVERSION'} =~ /4\./)
> {$STATData[3]++;}
> open(SLOG,">$userstatslog");
> print SLOG "$STATData[0]\t$STATData[1]\t$STATData[2]\t$STATData[3]\t";
> close(SLOG);
The whole thing should IMHO rather look like:
---------------------------------------------
open(STATSLOG,"+<$userstatslog");
@STATData = <STATSLOG>;
my @NEWData;
# Or does the original $userstatslog only have one line?
# Then @STATData = <STATSLOG> should be turned into my $STATData = <STATSLOG>
# and the foreach-loop clause may be substituted by
# chomp $STATData;
# @NEWData = split "\t", $STATData;
seek STATSLOG, 0, 0;
# Go back to the beginning of the log file so all old entries get overwritten.
foreach my $line (@STATData)
{
chomp $line;
@NEWDate = split "\t", $line;
$NEWData[0]++;
$NEWData[1]++ if( $in{'APPLIC'} =~ /Netscape/ );
$NEWData[2]++ if( $in{'APPLIC'} =~ /Microsoft Internet Explorer/ );
$NEWData[3]++ if( $in{'BVERSION'} =~ /4\./ );
print STATSLOG join("\t", @NEWData),"\n";
}
close STATSLOG;
---------------------------------------------
HTH
Christian
------------------------------
Date: Mon, 15 May 2000 22:29:12 GMT
From: gounis <gounis@my-deja.com>
Subject: Re: text file and perl
Message-Id: <8fptn7$9if$1@nnrp1.deja.com>
i just try to describe my problem, my friend...
i dont want a full working perl code,
there is nothing more than Perl Learning, i try to learn perl
solving hypothetical problems, and some code from an expert is what
i'm looking for, to understand the steps for building a Perl Program
if u dont be able to help me, OK there is no problem
but I AM WILLING TO SHARE ANY KIND OF INFORMATION I GET
if u visit my web site u will see that i share every Perl Code i
have write. (unfortunatly is in Greek language, sorry about that)
and think about that a reply to my post maybe help other people that R
looking for some similar
gounis
Kounis Stavros
gounis@clubmobil.com
http://www.clubmobil.com
In article <8fpkes$pik$1@news.smartworld.net>,
"Todd W" <trw@freewwweb.com> wrote:
> gounis wrote in message <8fph2a$qsv$1@nnrp1.deja.com>...
> >i need some perl code
>
> Hey so do i!!!Here are my requirements:
> 1)I dont want to pay for it.
> 2)I want to vaguely describe it and have it done correctly
> 3)I want it in my mailbox in 24 hours
>
> couldnt help but smart off a little gounis, I apologize. But it is
kind of
> rude to ask for free custom code without showing any type of effort
to do
> SOME of the job yourself.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 15 May 2000 15:54:32 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: text file and perl
Message-Id: <39208028.343266B7@vpservices.com>
gounis wrote:
>
> 1) open a litle .txt file into a text form in a web page (browser)
Use the open() function to open the text file and the diamond operator
<> to read its text into a scalar variable, e.g. $text. Use the print
command, possibly in conjunction with the CGI.pm textfield() method to
write the text to the value of the textfield e.g.
print textarea(-name=>'my_field',-value=>$text);
> 2) make some changes
Let the user do that on the web form and submit their changes.
> 3) save again the .txt
Use CGI.pm to read the value for the text field as submitted from the
form. Use the open() function and the print function to write the value
back to the file. Depending on how many people will be doing this and
how often, you may need to investigate some form of file locking, see
the flock() command and the FAQ on locking.
--
Jeff
------------------------------
Date: Mon, 15 May 2000 23:13:34 +0200
From: Christian Winter <thepoet1@arcormail.de>
Subject: Re: using an array from the disk
Message-Id: <u9ppf8.905.ln@usenet-autoren.de>
Baris <sumengen@hotelspectra.com> schrob:
> I am using a stack (array) in my program, I (shift) elements once in a
> while, but I (push) more elements to the array. The array gets bigger and
> bigger (upto 20,000+ elements) and it will become a memory hog.
> I want to use this array on harddisk to solve this problem. What is the best
> way to handle this array?
Hi,
as Tad said, tie(), but having this number of elements I would think
of using a database (maybe mysql).
HTH
Christian
------------------------------
Date: Mon, 15 May 2000 20:36:46 +0200
From: Christian Winter <thepoet1@arcormail.de>
Subject: Re: Using Net::FTP in a subroutine
Message-Id: <u3gpf8.hc1.ln@usenet-autoren.de>
juump@my-deja.com schrob:
> What I thought I could do was open the connection in the main part of
> the script, and then refer to $ftp (my FTP socket) in the subroutine.
> However, the subroutine does not recognize $ftp as anything at all. (The
> command $ftp->cwd(...) fails in the subroutine.)
What does "does not recognize $ftp as anything at all" mean?
-----------------------------------
#!/usr/bin/perl -w
use Net::FTP;
my $ftp=Net::FTP->new("localhost");
do_login();
$ftp->quit();
exit 0;
sub do_login
{
$ftp->login("user","password");
print $_."\n" foreach($ftp->ls());
}
------------------------------------
This code works on Linux and Solaris Perl here without problems.
I think the error is somewhere else (maybe something misspelled? -
try switch '-w' and 'use strict').
HTH
Christian
------------------------------
Date: Mon, 15 May 2000 17:03:10 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: VBScript and Perl in same asp page.
Message-Id: <Pine.GSO.4.10.10005151702030.25459-100000@user2.teleport.com>
On Mon, 15 May 2000, Bill Dowhaniuk wrote:
> How do I do the same thing with the Perl script in the input box?
Probably you rewrite your VB program in Perl. But I'm not sure that I
understand your problem. Do the docs for the CGI module help you any? Good
luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 15 May 2000 20:24:05 +0200
From: Christian Winter <thepoet1@arcormail.de>
Subject: Re: where can i find perl?
Message-Id: <5cfpf8.hc1.ln@usenet-autoren.de>
Andrew N. McGuire <anmcguire@ce.mediaone.net> schrob:
> Christian Winter wrote:
>> P.S.:
>> A real name for real people is a nice thing to have.
> True, but the netiquette specifies that people should
> respect other peoples wish for anonymity. I, do however
> agree that a real name is nice. :-)
That's what I say. It's just that I've sometimes little
problems imaginating a real person behind a lsjkfl@flsdjfl.
No problems with fakenames, just a "real sounding" name
is something you remember more easily and may also
belong to the same person it did some postings ago.
But I think this gets very OffTopic now, and as there
is no NNTP::RealName module, I set a F'Up2 Poster.
Regards
Christian
------------------------------
Date: Mon, 15 May 2000 15:39:36 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: zen and the art of trolling [OT]
Message-Id: <39207CA8.FC5A699E@vpservices.com>
Tintin wrote:
>
> I think we can say with 99% certainty that it is her. Notice how quiet she
> has been now that we know who she really is and what she looks like (even
> what her knickers look like).
As you will be able to see from looking at the archives of this
newsgroup, I have been active in trying to prevent misinformation caused
by this person and I would sincerely like it if she contented herself
with criticizing cabal members and in philosophizing and stopped with
the bad advice to newbies.
HOWEVER, I am thoroughly against this kind of tactic where you feel free
to "expose" a person by publishing information about them they did not
personally reveal and where you consider making remarks of a sexual
nature fair game. Please let us not sink to the level of trolls
ourselves. Criticize people on their contribution (or lack of it) to
the Perl community but leave personal details and sexual innuendo out of
the conversation.
--
Jeff
------------------------------
Date: Tue, 16 May 2000 01:12:13 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: zen and the art of trolling [OT]
Message-Id: <Pine.GHP.4.21.0005160111350.13206-100000@hpplus03.cern.ch>
On Mon, 15 May 2000, Jeff Zucker wrote:
[...]
> Please let us not sink to the level of trolls
> ourselves. Criticize people on their contribution (or lack of it) to
> the Perl community but leave personal details and sexual innuendo out of
> the conversation.
Hear, hear.
------------------------------
Date: Mon, 15 May 2000 17:08:28 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: zen and the art of trolling [OT]
Message-Id: <3920917C.D2338697@stomp.stomp.tokyo>
Jeff Zucker wrote:
> Tintin wrote:
> > I think we can say with 99% certainty that it is her.
> > Notice how quiet she has been now that we know who she
> > really is and what she looks like (even what her
> > knickers look like).
(snip)
> HOWEVER, I am thoroughly against this kind of tactic where
> you feel free to "expose" a person by publishing information
> about them they did not personally reveal and where you
> consider making remarks of a sexual nature fair game.
> Please let us not sink to the level of trolls ourselves.
> Criticize people on their contribution (or lack of it) to
> the Perl community but leave personal details and sexual
> innuendo out of the conversation.
My email address, my site addresses and my full
name have been provided by me, many times over
the past, oh, four to five months, openly and
freely, by myself. These claims of "discovery"
are nothing more than bogus lies. Archived
articles well evidence this as do my site
log records dating back to January showing
almost all of you visiting my sites, many
times, daily, for many months.
Joining with Mr. Zucker on his objections to
Ad Hominem attacks on people, it would be just
as wise for those few of you who have elected
to commit crimes against our family, to stop.
These crimes are being pursued aggressively.
On May 12th our family was left with no choice,
even after issuing warnings, left no choice but
to report several serious crimes to Superintendent
Ron Dicks, Officer In Charge of Burnaby Detachment
of The Royal Canadian Mounted Police, after one of
you was caught and confessed to crimes committed
against our family with a clearly stated intent
to benefit this newsgroup, to benefit each person
participating here. This is ludricrous.
I find no benefit in spreading hatred and
committing crimes. This person who was caught,
his only benefit is he may lose his job and
he may face criminal indictment. This is most
regrettable and upsets our family greatly. We
do not enjoy causing such serious impact on
a person's life and, especially his family.
However, making a decision to commit crimes
is a freewill choice, with consequences.
I don't bluff.
Kiralynne Schilitubi and family
------------------------------
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 3056
**************************************
