[8620] in Perl-Users-Digest
Perl-Users Digest, Issue: 2237 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 2 21:07:26 1998
Date: Thu, 2 Apr 98 18:00:32 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 2 Apr 1998 Volume: 8 Number: 2237
Today's topics:
Re: A SSI question :-) <scriptabuser@127.0.0.1>
Cross platform 'distributed' perl? (Leslie Mikesell)
Re: current week <sowmaster@juicepigs.com>
Re: Delete file on server! (Anthony)
File::Find Module on NT sadri@macsch.com
Re: How do I strip newlines from a var (Craig Berry)
Re: How do I strip newlines from a var (Kevin Reid)
Re: Multidimensional hashes <bruce@cenderis.demon.co.uk>
Re: Multidimensional hashes (Craig Berry)
Re: need help with regexp alternation problem smitty77@pacbell.net
Re: printing in windows (Anthony)
problem calling programs with ` (Kevin D Ruggiero)
processing big file <sekchye@singnet.com.sg>
Re: PROPOSAL: The Perl Dictionary (Martien Verbruggen)
Re: Refcounts when XSUB creates PERL objects. (Gurusamy Sarathy)
Re: Someone put my munged e-mail address on a spam list (Ken Fox)
Re: Someone put my munged e-mail address on a spam list (John Stanley)
Re: Someone put my munged e-mail address on a spam list (John Stanley)
Re: verifying email address -- how? <metcher@spider.herston.uq.edu.au>
Re: verifying email address -- how? (Abigail)
Re: verifying email address -- how? (John Stanley)
Win32 CGI troubles <punch@mail.danbbs.dk>
Re: Win32 CGI troubles <sowmaster@juicepigs.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 3 Apr 1998 00:09:09 +0100
From: Mark Worsdall <scriptabuser@127.0.0.1>
Subject: Re: A SSI question :-)
Message-Id: <D$vPHWAVqBJ1Ew2y@worsdall.demon.co.uk>
Hi,
1) to get round the dynamic IP's etc problem, try builing a database
that snapshots and banned users ENV variables and reference them with
the surfers ISP, still likely to loose a lot of genuine surfers.
Anyway that aside as it is your site policy try using the redirect
command withing the .htaccess file, redirect them to a program that
decides whether they are banned or not.
If they are banned you can then throught them offsite with a:-
print "Location: $gotosite[$randomnumber]\n\n";
I used to send all my unwanted to a Government/Military web sites, then
into an area that asked them to logon :-)
I had a list of about twenty sites (I got these URL's from themselves as
they browsed my site).
Not to sure on whether you are responsible for them being at the doorway
of a restricted area as you redirected them there or whether it is the
surfers responsibility, whatever I would loved to have seen the faces of
them!!
If not banned then try:-
print "Content-type: text/html\n\n";
open(DAT,"<$webpage") or die "Error opening for read $webpage: $!";
@web = <DAT>;
close (DAT);
for ($index = 0; $index <= $#web; $index++) {
print $web[$index];
}
$webpage would be got from the ENV variables (can't remember which one)
In article <891392662.6491.0.nnrp-11.c2de5b4a@news.demon.co.uk>, Ben
<ben@wallroyds.demon.co.uk> writes
>Hello all :-) ...
>
>First of all ... I'm so sorry about my bad English.
>
>I have a .shtml webpage. It runs a CGI script ... The script is to detect
>the surfer's IP address and look up the "Banned surfers" database and if
>it's matched ... It will print "Sorry, but you're banned from viewing the
>page" ... But, the problem is, it also show the *.shtml page in which it
>shouldn't ...
>
>I wonder if anyone can tell me how to tell them that they're banned and NOT
>showing the .shtml page?
>
>The script was written in Perl.
>
>Best Regards
>
>Ben :-)
>
>(PS - I apologise if the newsgroup is the wrong place to post the message or
>if any of you don't like this newcomers' message being around - If so, I'm
>really sorry)
>
>
--
Mark Worsdall (Webmaster) - WEB site:- http://www.shadow.org.uk
Shadow:- webmasterATshadow.org.uk
Home :- shadowwebATworsdall.demon.co.uk
Any opinion given is my own personal belief...
------------------------------
Date: 2 Apr 1998 18:43:06 -0600
From: les@MCS.COM (Leslie Mikesell)
Subject: Cross platform 'distributed' perl?
Message-Id: <6g1baq$din$1@Venus.mcs.net>
Has anyone done a generic remote interface where a program on one
host can hand a more or less arbitrary chunk of perl code to
a server on another host and get back results from an 'eval'?
I'm thinking in terms of a long-running server, probably with
persistant connections from clients. Would it be better to just
use mod_perl and http than to cobble up a way to return perl
arrays and hashes?
Les Mikesell
les@mcs.com
------------------------------
Date: Thu, 02 Apr 1998 19:06:42 -0500
From: Bob Trieger <sowmaster@juicepigs.com>
To: FRANCOIS GERT <GERT.FRANCOIS@SD.BE>
Subject: Re: current week
Message-Id: <35242812.6561@juicepigs.com>
FRANCOIS GERT wrote:
>
> Hi,
>
> I'm using perl 5.004_02 on an NT-platform;
>
> Can anyone can give me a piece of code, or just a method I can
> use to calculate the current weeknumber (1 - 52) ?
> Can I use the localtime -function ?
a start would be:
@date = localtime();
$week = $date[7]/7;
That is of course if DateCalc or Manip don't do this function.
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: Fri, 03 Apr 1998 00:40:59 GMT
From: anthony@SPAMISBADpce.net (Anthony)
Subject: Re: Delete file on server!
Message-Id: <35242fec.348008704@darius>
On Mon, 30 Mar 1998 17:28:39 +0800, "PRC IE 4.0 feedback"
<msiezhs@microsoft.com> wrote:
try system("rm filename");
as to getting the file name from a form, that's a completely different
story and that one is up to you to figure out :)
>I am a newcomer of CGI and have an issue need help!
>
>I want to delete the file on server useing perl. But can not find the
>suitable function of delete file,
>The name of the file would be deleted was submitted by form in home page.
>
>Pls help me!
>
Anthony DiPasquale - DiPCo Digital Creations
Webmaster, Hardware World: http://pce.net/anthony
remove 'SPAMISBAD' from address to reply.
------------------------------
Date: Thu, 02 Apr 1998 18:02:17 -0600
From: sadri@macsch.com
Subject: File::Find Module on NT
Message-Id: <6g18u9$vo6$1@nnrp1.dejanews.com>
Hi Folks, I am using File::Find Module which I copied from the perl site to
traverse the directory and check for files more than 5 days old and delete
empty directories. Now, the code works great as long as I use a regular
directory path such as : c:\temp\test. However, I am runing to a problem when
I use network path names such as: \\machiname\c$\temp\test.
I was wondering if you could use " \\machinename\c$\path" in the following
code.
Thanks in advance for any help!!!!
here is the code.:
=============================================================
###################################################################
# This program traverses tree files. It deletes the content in #
# any subdirectory if it is: #
# 1) an empty directory #
# 2) a normal file AND older than specified (5) days old #
###################################################################
# These are modules defined in PERL 5
use Cwd;
use File::Find;
# This is the parent directory. $starting_dir =
("\\\\cambay\\c\$\\tmp\\test"); # if I use c:\\tmp\\test # instead, it
works great
# Main program
find(\&traverseIt, $starting_dir);
# Subroutine to traverse tree file
sub traverseIt {
# The following code below is a find2perl
/^\.nfs.*$/ &&
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
int(-M _) > 7 &&
unlink($_) ||
($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
$dev < 0 &&
($File::Find::prune = 1);
#end of find2perl code
$cdir = $File::Find::dir; # current directory
$entry = $_; # current entry
$fullfilename = $cdir . "/" . $entry; # whole path entry
print ("\tfull path filename: $fullfilename\n");
if (($entry ne ".")&&($entry ne "..")) {
if ( -f $entry ) { #Is normal file
#print ("\t\tNormal file: $entry\n");
&del_File($fullfilename);
}
if (-d $entry) { #Is a directory
$del_success = rmdir ($fullfilename);
if ($del_success) {
print ("\t\tDeleted directory: $fullfilename\n");
}
}
}
}
# This subroutine checks if incoming file is more than 5 days old.
# If it is, delete it! Else do nothing...
sub del_File {
my($fileName) = @_;
print ("\t\tNormal filename: $fileName\n");
$old = (-M $fileName);
print ("\t\told: $old\n");
if ($old > 5) { #File is more than 5 days old. Delete it.
print ("Deleting $fileName...\n");
unlink($fileName);
}
}
=============================================================
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 2 Apr 1998 22:52:47 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: How do I strip newlines from a var
Message-Id: <6g14rv$m58$1@marina.cinenet.net>
Abigail (abigail@fnx.com) wrote:
: Bryan Sapot (bsapot@office1.gundaker.com) wrote on MDCLXXV September
: MCMXCIII in <URL: news:6g11rf$pmf$1@newsin-1.starnet.net>:
: ++ how can i strip new lines out at var.
:
: Removing new lines is very tricky, as the manual tells you so.
: Ignore the complicated things in the manual, and put in this
: neat little trick:
:
: $var=join+q,,,grep{ord${qq$\137$}<10 or+10<ord}split+q,,,$var;
Sure, that's the usual 'wizard' approach, but I prefer 'undef $var;'.
Gets rid of all the newlines very quickly and efficiently.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 2 Apr 1998 20:54:08 -0500
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: How do I strip newlines from a var
Message-Id: <1d6vfvy.1dt7zq1fxgg8gN@slip166-72-108-82.ny.us.ibm.net>
Bryan Sapot <bsapot@office1.gundaker.com> wrote:
> how can i strip new lines out at var.
$var =~ s/\n//g;
If you want to replace the newlines with a space: $var =~ s/\n/ /g;
This will remove all newlines anywhere in the string. If you just want
to remove newlines at the end of the string then use:
chomp($var);
(I am posting this message partly to reduce the unhelpful atmosphere of
c.l.p.m)
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: 02 Apr 1998 23:39:32 +0100
From: Bruce Stephens <bruce@cenderis.demon.co.uk>
Subject: Re: Multidimensional hashes
Message-Id: <m3d8ez26hn.fsf@cenderis.demon.co.uk>
webmaster@dataplusnet.com writes:
> $multi_d_lastcode{"$line_1"}{"$i"} = $code_count;
> $recent_last = $multi_d_lastcode{$pm_block}{$pm_c};
Maybe it's something that's changed since 5.002? Seems to work OK in
5.004.
------------------------------
Date: 2 Apr 1998 23:12:24 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Multidimensional hashes
Message-Id: <6g160o$m58$2@marina.cinenet.net>
webmaster@dataplusnet.com wrote:
: Both of these lines of code generate the error. These are the exact lines
: from the script.
: Remarking these lines allows the program to operate normally.
:
: $multi_d_lastcode{"$line_1"}{"$i"} = $code_count;
[other line snipped]
This doesn't answer your question -- which is a very puzzling one -- but...
You needn't string-interpolate those variables being used as hash keys.
Doing so just burns cycles without accomplishing anything useful.
As for your question, would you try replacing the two instances of '}{'
with '}->{' and see what happens. It shouldn't matter, but with your
back-leveled Perl, who knows?
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 2 Apr 1998 15:21:21 -0800
From: smitty77@pacbell.net
Subject: Re: need help with regexp alternation problem
Message-Id: <6g16hh$t3l@co-op.newsguy.com>
In article <35240F80.D62348E8@emrtc.nmt.edu>, Rebecca says...
>
>I have written a script which is supposed to build a regular expression
>to match a series of dates. For instance if I want to match 3/5/98 -
>3/27/98, it builds the following:
>
>/Mar\s{1,2}([5-9]|[1][0-9]|[2][0-7]).{12}98/
>
>It searches through something similar to the unix 'date' ouput; the
>\s{1,2} and .{12} is just skipping over stuff.
>The above regular expression works great; it matches exactly as it
>should.
>However, when I want to match 1/5/98 - 3/27/98, it builds:
>
>/(Jan\s{1,2}([5-9]|[1-2][0-9]|[3][0-1]).{12}98|
>(Feb)\s{1,2}([1-9]|[1-2][0-9]|[3][0-1]).{12}98|
>Mar\s{1,2}([1-9]|[1][0-9]|[2][0-7]).{12}98)/
This worked fine for me, but I had to change your .{12} to .{16} to work for the
output of HP-UX's 'date' command (which I assume is the same as every other UNIX
'date' command - I don't know why yours would be different). I used your exact
regex without any new parens.
Dave
>and it doesn't match anything. The 3rd line in the above regexp is
>almost identical to the first regexp above. I've tried all combination
>of parentheses around everything and it still does not match. It's as
>if putting the | is screwing it up. Is something wrong, or do I just
>not understand alternation right? Please help.
>
------------------------------
Date: Fri, 03 Apr 1998 00:45:49 GMT
From: anthony@SPAMISBADpce.net (Anthony)
Subject: Re: printing in windows
Message-Id: <352630cb.348231732@darius>
On Thu, 02 Apr 1998 18:42:09 +0100, Fergal Daly <fergal@clubi.ie>
wrote:
If you wish to talk directly to the printer, you can do just like we
did in the old days in dos, call LPT1 as your file name. Example:
open(PRINTER,">LPT1");
print PRINTER "Some text here\n";
close PRINTER;
I didn't actually test this myself (I write perl strictly on unix
platforms), but I see no reason as to why this would not work. Of
course if your printer is located somewhere other then LPT1 you will
need to adjust for that :)
>Is it possible to do proper printing in windows using perl? If not, is
>it possible to talk directly to the printer and send epson codes
>(assumig it understands them)? Thanks,
>
>Fergal
>
>P.S. I'd appreciate if you could cc answers to fergal@clubi.ie as I
>don't get a chance to read news that often.
Anthony DiPasquale - DiPCo Digital Creations
Webmaster, Hardware World: http://pce.net/anthony
remove 'SPAMISBAD' from address to reply.
------------------------------
Date: 3 Apr 1998 00:36:38 GMT
From: kdr@cs.buffalo.edu (Kevin D Ruggiero)
Subject: problem calling programs with `
Message-Id: <6g1aum$9l5$1@prometheus.acsu.buffalo.edu>
I am new to perl, and I was trying to write a script to help me do
something. Basically, what I am trying to get it to do is to create
two windows for me in x-windows. This is what I'm doing now:
#!/util/bin/perl
unlink "/home/kdr/SOCKET";
`xterm -T "Server" -e server_1 &`;
`xterm -T "Client" &`;
This works fine, except for one problem. When using ` to call programs,
it waits for them to complete. Is there any way to call a program and not
wait for it to finish? The problem here is, I create the first window,
but the second window won't be created until I destroy the first window,
which I don't want. Any help would be appreciated. Thanks.
Kevin
------------------------------
Date: Fri, 03 Apr 1998 08:17:07 +0800
From: sekchye <sekchye@singnet.com.sg>
Subject: processing big file
Message-Id: <35242A83.C371B545@singnet.com.sg>
Hi! I am quite new to Perl so please accept my apology if this question
bothers anyone.
I have a perl script to process a system log file. This log file can be
quite huge, say 5-10 MB. I am using the perl open() function to read in
the file for processing and I am running into some problem. The program
complains out of memory and did not process the log file correctly. My
question is:
1. Is there a limit in the size of the file open() can read in line by
line?
2. For huge file (5-10 MB), are there more other efficient functions I
can use to read in line by line?
Thank you very much for the help!
------------------------------
Date: 3 Apr 1998 01:15:23 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: PROPOSAL: The Perl Dictionary
Message-Id: <6g1d7b$784$1@comdyn.comdyn.com.au>
In article <35187584.F3740951@vais.net>,
Ed Finch <efinch@vais.net> writes:
> Perl is going to take over the world. Therefore, the word perl and its
> More entries, anyone?
perly gates - The way to perl; Enter hackerdom.
perly Gates - Contradictio in Terminis.
Martien
------------------------------
Date: 2 Apr 1998 23:41:04 GMT
From: gsar@engin.umich.edu (Gurusamy Sarathy)
Subject: Re: Refcounts when XSUB creates PERL objects.
Message-Id: <6g17mg$679@srvr1.engin.umich.edu>
[ mailed and posted ]
In article <6g14p3$38j@srvr1.engin.umich.edu>, I said:
>The above advice is more in the nature of a thumbrule though.
>There _are_ situations where you may want to mortalize
>things even when you're not going anywhere near the stack with
>them. One example is when you are using a temporary SV that
>must be cleaned up, but the code you may call will C<die>
>and result in a non-local exit out of your code (before you
>have a chance to clean up the temporary yourself). In such
>a case, mortalization is an elegant way to clean up temporaries.
Had I read Ken's post with half the patience that it deserved,
I'd have seen that he had said exactly the same thing in there:
>>Normally whenever you put an SV on the stack it should be made
>>mortal. You should also make temporary values mortal if your code
>>can't guarantee that they'll always be cleaned up (e.g. if you
>>create a non-mortal SV and then call a perl sub, the sub may die
>>and then you have a leak).
My most humble apologies.
- Sarathy.
gsar@umich.edu
------------------------------
Date: 2 Apr 1998 23:30:26 GMT
From: kfox@pt0204.pto.ford.com (Ken Fox)
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <6g172i$n0v4@eccws1.dearborn.ford.com>
stanley@skyking.OCE.ORST.EDU (John Stanley) writes:
> Ken Fox <kfox@pt0204.pto.ford.com> wrote:
> >I always forget to check whether a poster is
> >using some munged address -- a day or an hour later I get a bounce and
> >then I have to try to figure out what the hell happened.
>
> You have an unusual news system that bounces news when you followup to
> someone else's article when they use a munged address.
I'm talking about mail here. Obviously. Most questions deserve an
out-of-band reply. It used to be the common courtesy that the original
poster collected e-mail replies and then posted a summary. I guess
we're way beyond that level of discipline, but I still like to send
e-mail instead of add to a newsgroup that's already bursting at the
seams.
> >Basically, a person who uses a munged address cares more about her
> >time than about the time of the person trying to answer the post.
>
> That is incorrect. It is not an issue of time, it is an issue of cost.
> In case you didn't know this, spam can cost people money.
That is incorrect. In case you didn't know this, bounced messages
cost people money. It takes time to figure out why a reply bounced
and fix it. Spam *and* munged addresses *both* cost money. One
costs the receiver and one costs the sender. Address munging also
makes very nice features like the auto-reply daemon useless.
I'm strongly opposed to spam, but I don't want to see it become
standard to obscure your identity just to avoid spammers.
Instead of munging an e-mail address, perhaps a secondary e-mail
address should be used. Anybody want to start a hotmail.com that
automatically filters spam? It should be pretty easy since the
volume of inbound mail is very high and duplicate messages should
be easy to detect.
It could even work on a store-and-forward basis. A message would
site on the central site for a day. If no identical messages
come in during that time then the message is forwarded on.
> >P.S. I always de-munge an address in a follow up. Otherwise the
> > attributions get messed up
>
> Oh, please. The attributions do not get messed up. If your newsreader
> can't generate an attribution correctly for an article with a munged
> address, get one that isn't broken.
Oh, please. The attributions *do* get messed up. Newsreaders generate
accurate attributions with the From: header. If that's munged, then
there's no way to contact the original author. Particularly common
on high volume groups with short expirations.
- Ken
--
Ken Fox (kfox@ford.com) | My opinions or statements do
| not represent those of, nor are
Ford Motor Company, Powertrain | endorsed by, Ford Motor Company.
Analytical Powertrain Methods Department |
Software Development Section | "Is this some sort of trick
| question or what?" -- Calvin
------------------------------
Date: 3 Apr 1998 01:44:01 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <6g1et1$cb$1@news.orst.edu>
In article <6g172i$n0v4@eccws1.dearborn.ford.com>,
Ken Fox <kfox@pt0204.pto.ford.com> wrote:
>stanley@skyking.OCE.ORST.EDU (John Stanley) writes:
>> You have an unusual news system that bounces news when you followup to
>> someone else's article when they use a munged address.
>
>I'm talking about mail here. Obviously.
Obvious to whom? We were talking about munged addresses in news.
>Most questions deserve an out-of-band reply.
I disagree with that opinion. I would point out that a question asked in
public is usually not unique, and that there is probably someone else
who is interested in the answer. I would also point out that, were all
questions answered "out of band" there would be no DejaNews to tell
people to search and you would look silly telling people to refer to a
discussion that occurred just a week ago. Yes a question was asked a
week ago, perhaps, but the answer was deemed too trivial to deserve a
public expression.
>It used to be the common courtesy that the original
>poster collected e-mail replies and then posted a summary.
Yes, it used to be. Times change. Today, many times, if someone says
"send email", they get the answer in news anyway, on the grounds that
someone who posts to a group without bothering to read it looking for
followups is considered rude.
And you have my permission, if someone does say "send email" but uses a
munged address, to flame them to a crisp.
>I guess
>we're way beyond that level of discipline, but I still like to send
>e-mail instead of add to a newsgroup that's already bursting at the
>seams.
And some people don't like to get spam. It's their mailbox. When you pay
for their mailbox, you get to set the rules regarding what email they
must deal with.
>> That is incorrect. It is not an issue of time, it is an issue of cost.
>> In case you didn't know this, spam can cost people money.
>
>That is incorrect. In case you didn't know this, bounced messages
>cost people money.
So don't send them. Who has forced you to send email, lately?
>Spam *and* munged addresses *both* cost money.
Yes. One cost is involuntary, the other completely voluntary.
>Address munging also
>makes very nice features like the auto-reply daemon useless.
If you are running an auto-reply demon for news articles, then you need
to read RFC 1036. If you are referring to the one for this group, then
you should be aware that it doesn't seem to be working even when the
addresses are spammable. That's why there's a new group being
discussed.
>I'm strongly opposed to spam, but I don't want to see it become
>standard to obscure your identity just to avoid spammers.
Unfortunately, that is one way that works.
>Instead of munging an e-mail address, perhaps a secondary e-mail
>address should be used.
Yes, of course. Get another account.
>> >P.S. I always de-munge an address in a follow up. Otherwise the
>> > attributions get messed up
>>
>> Oh, please. The attributions do not get messed up. If your newsreader
>> can't generate an attribution correctly for an article with a munged
>> address, get one that isn't broken.
>
>Oh, please. The attributions *do* get messed up.
Prove it. Show me one that is messed up.
>Newsreaders generate accurate attributions with the From: header.
Yes, they do. Whatever happens to be there.
>If that's munged, then
>there's no way to contact the original author.
So what? When did the law pass that says you must be able to contact
him?
>Particularly common on high volume groups with short expirations.
So don't contact him. Problem solved.
I notice that you elided my comments about net-identity. I guess the
identity you put on the net isn't important to you. To some people, it
is. I dare say that messing with some people's identities would cause
them to get rather irate. Changing attributions is messing with their
identities.
------------------------------
Date: 3 Apr 1998 01:50:24 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <6g1f90$4bb$1@news.orst.edu>
In article <3527c6bb.6112987@news.tornado.be>,
Bart Lateur <bart.mediamind@tornado.be> wrote:
>John Stanley wrote:
>
>>I have yet to have a munged address waste any of my bandwidth.
>
>YOUR bandwidth?
Yes. You said that munged addresses wasted bandwidth. Since I read
news, the same news articles you do I would expect, I would also expect
to see the munged addresses wasting bandwidth here. I see none of that.
If I don't see it here, then I can make one of two assumptions. Either
YOUR system is very much different than mine, or you are wrong.
>I've heard estimates that over half of Internet's total bandwidth is
We weren't talking about the Internet's total bandwidth. Maybe you
were, but I seriously doubt that half the Internet's total bandwidth is
caused by munged addresses.
>wasted on transferring spam emails. Which is EVERBODY's bandwidth.
Munged addresses are not spam emails. Apples and oranges.
>BTW this has nothing to do with arguments pro or con address munging.
No, it doesn't.
>It's just to show that just not receiving spam isn't the solution. The
>spam getting sent is the real problem.
Until you can come up with a way to stop the spam from being sent, it is
appropriate to take steps to stop receiving it.
------------------------------
Date: Fri, 03 Apr 1998 09:12:40 +1000
From: Jaime Metcher <metcher@spider.herston.uq.edu.au>
Subject: Re: verifying email address -- how?
Message-Id: <35241B68.C896033B@spider.herston.uq.edu.au>
Hi John
(Reply to the group one last time, even though straying further
off-topic, because email to you bounced).
John Stanley wrote:
>
> In article <352352CE.2706ABFB@spider.herston.uq.edu.au>,
> Jaime Metcher <metcher@spider.herston.uq.edu.au> wrote:
> >> Nope, you get one of two results: "obviously bogus" and "who knows".
> >
> >In more detail, my three results are (in order): got an OK result from a
> >EXPN or RCPT (after necessary MX lookups),
>
> Then you aren't really trying to verify the email address, you are
> doing something I can't even really figure out a name for. An OK from
> a RCPT can mean simply "I will accept it for delivery", which is NOT
> verification of the address.
>
You're right of course. I still think it's a valuable first step - if
you can't send an email, it certainly won't get to person you're trying
to reach! It certainly catches Mr Cilnton/Clinton's error (I know it's
an error, because I made it up!). Sure, it might not be an error - but
it's certainly worth checking up on.
> >couldn't find the hostname at all and/or the address looks weird,
>
> Again, not the same as verifying the address. Please do an MX lookup on
> a .UUCP address. You can't. As for "looks weird", you better stay away
> from X.400 addresses.
>
I'm happy to stay away from both UUCP and X.400. Maybe these things are
more common in the U.S., but in two years of running our departmental
mail server, I've never seen one. I'm happy to say that 90% of the
addresses that fail my checks are suffering from typos. For the other
10%, I'll spend a few minutes verifying by other means if possible. If
they turn out to be correct, fine. That still makes the checks more
than useful.
Please note that I'm not posting a module that I claim will verify email
addresses. I just think a blanket statement (not from you, but common
in this c.l.p.m) that "You can't verify an email address" is misleading.
As I R A Aggie wrote:
>But let us drop down to the bottom line, here: what is the cost/benefit
>ratio to checking an email address? IMHO, not terribly high. In fact,
>its so low as to become a worthless endeavor.
There's a lot of useful checking you *can* do. You can't give a
definite answer, but that's not the only kind of answer there is.
Tom Christiansen wrote an email address checking script. Why did he do
that? Just an idle exercise?
> >I can't get my SMTP host to accept mail for that address. InterNIC says
> >the domain doesn't exist.
>
> Yep, I tried dyslexia.com. This one is bogus. But how about
> dyslexia.UUCP?
>
> >words/names. You assumed I'd made a typo in the domain name - I'd
>
> Please don't try to guess what I assumed. You are wrong.
I don't know what I assumed you assumed. I'm confused: I said
dyselxia.com is bogus. You said dyslexia.com exists. In this last post
you seem to be saying that dyslexia.com *is* bogus. Well, my check of
InterNIC says that dyslexia.com *does* exist as a registered domain. I
don't know if it is accepting mail - is that what you mean? Anyway,
it's beside the point, because that's not the domain name I originally
typed. I typed dyselxia.com, *not* dyslexia.com. So rather than assume
(you're right, that was rude), I'll ask - *did* you assume that I'd made
a typo in the domain name?
--
Jaime Metcher
------------------------------
Date: 3 Apr 1998 00:30:42 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: verifying email address -- how?
Message-Id: <6g1aji$bfd$7@client3.news.psi.net>
Jaime Metcher (metcher@spider.herston.uq.edu.au) wrote on MDCLXXV
September MCMXCIII in <URL: news:35241B68.C896033B@spider.herston.uq.edu.au>:
++
++ I'm happy to stay away from both UUCP and X.400. Maybe these things are
++ more common in the U.S., but in two years of running our departmental
++ mail server, I've never seen one.
That might be because you didn't recognize them.
abigail@mars.ic.iaf.nl will be delivered by UUCP, even while it
has an RFC 822 addressing style.
Abigail
--
perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: 3 Apr 1998 01:59:12 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: verifying email address -- how?
Message-Id: <6g1fpg$9v5$1@news.orst.edu>
In article <35241B68.C896033B@spider.herston.uq.edu.au>,
Jaime Metcher <metcher@spider.herston.uq.edu.au> wrote:
>John Stanley wrote:
>> In article <352352CE.2706ABFB@spider.herston.uq.edu.au>,
>> Jaime Metcher <metcher@spider.herston.uq.edu.au> wrote:
>> >words/names. You assumed I'd made a typo in the domain name - I'd
>>
>> Please don't try to guess what I assumed. You are wrong.
>
>I don't know what I assumed you assumed.
You just told me what I assumed. Now you say you don't know what you
think I assumed. Please don't quote yourself answering your own
question.
>In this last post you seem to be saying that dyslexia.com *is* bogus.
I seem to be saying nothing of the sort. Dyselxia is bogus, but not
dyslexia.com.
>Well, my check of
>InterNIC says that dyslexia.com *does* exist as a registered domain. I
That is what I said last time. You pointed out that I tested the wrong
address. Now you don't seem to recall that I tested the wrong address.
>don't know if it is accepting mail - is that what you mean? Anyway,
>it's beside the point, because that's not the domain name I originally
>typed. I typed dyselxia.com, *not* dyslexia.com.
I know that. I said I tested the wrong one. Do I need to come to your
house and hand you a personal apology for seeing dyselxia and typing
dyslexia? Give up already. You won.
>So rather than assume
>(you're right, that was rude), I'll ask - *did* you assume that I'd made
>a typo in the domain name?
No, I did not. I told you that you were wrong when you told me what I
assumed.
------------------------------
Date: Thu, 02 Apr 1998 23:04:47 +0200
From: Brian Rasmussen <punch@mail.danbbs.dk>
Subject: Win32 CGI troubles
Message-Id: <3523FD6F.41D3@mail.danbbs.dk>
I'm using perl 5 to write a number of CGI scripts to be executed by MS
Personal Web Server (IIS in disguise) on my NT 4.0 Workstation.
>From my perl days on UNIX I4m in the habbit of executing shell stuff
from within my script using the "back-ping" notation, e.g.
@stuff = `somecommand`;
This works fine on NT as long as the script is run from cmd, but as soon
as I let my web server execute the script, it seems that all shell
interaction is simply ignored?!
Now, I don't think perl is the one to blame here but does anybody know
if MS Personal Web Server imposes some kind of weird restrictions which
prohibits my perl script from accessing shell commands as described
above? And furthermore, does anybody have any suggestions on how I get
around this? (The task I'm trying to accomplish from within my script is
to send somebody a mail via Blat).
Every clue to this mystery is greatly appreciated as I getting bald all
too soon from thinking about this problem. Thanks in advance!
Please reply by e-mail to: punch@mail.danbbs.dk
Best
Brian
------------------------------
Date: Thu, 02 Apr 1998 18:49:35 -0500
From: Bob Trieger <sowmaster@juicepigs.com>
To: Brian Rasmussen <punch@mail.danbbs.dk>
Subject: Re: Win32 CGI troubles
Message-Id: <3524240F.1A85@juicepigs.com>
Brian Rasmussen wrote:
>
> I'm using perl 5 to write a number of CGI scripts to be executed by MS
> Personal Web Server (IIS in disguise) on my NT 4.0 Workstation.
>
> From my perl days on UNIX I4m in the habbit of executing shell stuff
> from within my script using the "back-ping" notation, e.g.
>
> @stuff = `somecommand`;
>
> This works fine on NT as long as the script is run from cmd, but as soon
> as I let my web server execute the script, it seems that all shell
> interaction is simply ignored?!
>
> Now, I don't think perl is the one to blame here but does anybody know
> if MS Personal Web Server imposes some kind of weird restrictions which
> prohibits my perl script from accessing shell commands as described
> above? And furthermore, does anybody have any suggestions on how I get
> around this? (The task I'm trying to accomplish from within my script is
> to send somebody a mail via Blat).
>
> Every clue to this mystery is greatly appreciated as I getting bald all
> too soon from thinking about this problem. Thanks in advance!
>
> Please reply by e-mail to: punch@mail.danbbs.dk
Your problem is not with perl but with NT. You'd have much better luck
finding help in a newsgroup which deals with NT problems.
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 2237
**************************************
