[18842] in Perl-Users-Digest
Perl-Users Digest, Issue: 1010 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 29 06:10:27 2001
Date: Tue, 29 May 2001 03:10:11 -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: <991131011-v10-i1010@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 29 May 2001 Volume: 10 Number: 1010
Today's topics:
sending binary files via HTTP (William Herrera)
The FlakeyMind/Bryce Jacobs FAQ (v0.1) (Thaddeus L Olczyk)
Re: The FlakeyMind/Bryce Jacobs FAQ (v0.1) <godzilla@stomp.stomp.tokyo>
Re: The FlakeyMind/Bryce Jacobs FAQ (v0.1) (Thaddeus L Olczyk)
VMSPerl v5.005_03 built for OpenVMS V5.5-2H4 with DEC C <Jac@Oppers.nl>
Workgrounds for perl2exe ?? <>
writing to text files using forms <lying_happy_eyes@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 May 2001 04:51:16 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: sending binary files via HTTP
Message-Id: <3b13296a.12463619@news.rmi.net>
Is this a proper way to send a file via HTTP in perl?
Any comments on potential security or server-idiosyncratic flaws in the code
below would be appreciated!
# begin snippet ------------------------------------
# $f contains a validated path of a binary file we are sending.
# We don't always know for sure whether it is a zip file,
# a Word document, or whatever, but the
# downloader presumably does.
open(BINFILE, $f) or die "Can't open $f: $!";
binmode(BINFILE, ":raw");
binmode(STDOUT, ":raw");
print "Content-type: application/octet-stream\n\n";
while(<BINFILE>) { print }
# end snippet ---------------------
---
The above from: address is spamblocked. Use wherrera (at) lynxview (dot) com for the reply address.
------------------------------
Date: Tue, 29 May 2001 08:16:06 GMT
From: olczyk@interaccess.com (Thaddeus L Olczyk)
Subject: The FlakeyMind/Bryce Jacobs FAQ (v0.1)
Message-Id: <3b1bd57d.558879812@nntp.interaccess.com>
Cross posted the first time to comp.lang.perl.misc so that
people over there can contribute. My plan is not to keep crossposting.
If there is interest I can either keep crossposting or let someone
there post also.
Q1: Who is CrappyMind?
A: He is a burned out dbase programmer named Bryce Jacobs.
Q2: What is ShitForMind?
A: Basically he is a troll who spends most of his time in comp.object.
His history: For a while he spent his time in comp.lang.perl.misc.
There he earned his reputation as a troll that other trolls are
compared to. ( This guy isn't that bad. Remember "Ain'tGotNoMind"
now that was a troll ?) After a while he came to comp.object
touting a web page critical of OO. On this page he demonstrated
his total ignorance of what OO is by making stupid claims such as
"OO=GUI". After getting tired of the group he left for
approximately a year and a half. In that period he spend his time
on some object oriented mailing list. Since that time he came back
to comp.object.
Q3: Why does FriedMind troll?
A: As best as I can figure out, BJ started out life as a dbase
programmer. He failed to keep up with technology and has
let his career suffer for it. ( It is my belief ) that he blames
perl and OO for the fate of his career. ( It is also my belief
that ) in the beginning he may have been trying to legitimize
himself by building a grass roots movement against perl and OO.
Certainly he uses his posts to refine his arguments by removing
the most stupid arguments out. ( Not only does he not say "OO is
GUI" anymore. He now denies that he ever said it.
Certain of his posts reveal a basic insanity typical of many
trolls ie citing the Einstein fallacy. This insanity is often
enough for many people to troll.
Q4: What do I do about IsThereAHintOfMind?
A: There are several things you can try to do.
You can:
* Try to engage BJ in constructive debate.
The key words are "try" and "constructive". Everyone
who has tried this has gone away in frustration. Not
because they lose the argument, but because BJ doesn't
want to debate constructively. If a wreckers ball came
swooping down and smacked him with the truth, he would
deny it if it was not what he wanted. He does not want to
engage in rational discussion.
Several times engage BJ in a discussion where he winds
up making major concessions. After a while he suddenly
reverts to his original positions. The others throw up
their hands and give up. Several times people have tried to
present case studies and designs
* You can killfile him.
Killfiling such people is often a good idea. I should warn
you that often times killfiling is only a partial solution.
Often times killfiled posts are quoted in responses.
* You can ignore him.
Same as killfiling.
* You can try to warn others about BJ.
There are constantly new people coming on this group asking
advice about OO. One of BJ's goals is to pervert these
peoples thinking. Educating these people can often be a
satisfying goal.
Q5: What is the "Einstein fallacy"?
A: The Einstein fallacy at is simplest is:
Einstein was laughed at by the orthodoxy.
Einstein was a genius.
I am laughed at by the orthodoxy.
I must be a genius.
The argument is clearly wrong on the face. For every genius who
is looked down on by the orthodoxy, there are thousands of idiots
who are looked down on by the orthodoxy. ( We all know which
group BJ belongs in. Of course I expect BJ to reply the genius
category. [WRONG!] That is of course the nature of trolls. )
one way of stating the Einstein fallacy is "People laugh at me
because I am a genius." Of course there is another name for
the Einstein fallacy. Psychiatrists call it paranoia.
Stupid WastedMind quotes.
( to be significantly expanded )
On functional programming:
Thread: Struggling with OO
Group: comp.object
Date: 5/26/1
>I wish they would pick a different name for "functional programming"
>because it often gets confused with "procedural" or "structural"
>programming.
>
>Any new name suggestions?
Functional programming has had that name for twenty years with no
one complaining about the name. Typical troll behavior to think that
people should change established names just because the troll wants
to.
------------------------------
Date: Tue, 29 May 2001 01:45:53 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: The FlakeyMind/Bryce Jacobs FAQ (v0.1)
Message-Id: <3B1361C1.A5411B92@stomp.stomp.tokyo>
Thaddeus L Olczyk wrote:
> Cross posted the first time to comp.lang.perl.misc so that
> people over there can contribute. My plan is not to keep crossposting.
> If there is interest I can either keep crossposting or let someone
> there post also.
(snipped blatherings)
I personally am not interested in reading this type of
village idiot tripe. There are plenty of village idiots
over here in comp.lang.perl.misc as it is. Please stay
in your own village. Do your trolling there, not here.
Godzilla!
------------------------------
Date: Tue, 29 May 2001 09:48:11 GMT
From: olczyk@interaccess.com (Thaddeus L Olczyk)
Subject: Re: The FlakeyMind/Bryce Jacobs FAQ (v0.1)
Message-Id: <3b136f26.663752140@nntp.interaccess.com>
On Tue, 29 May 2001 01:45:53 -0700, "Godzilla!"
<godzilla@stomp.stomp.tokyo> wrote:
>
>I personally am not interested in reading this type of
>village idiot tripe. There are plenty of village idiots
>over here in comp.lang.perl.misc as it is. Please stay
>in your own village. Do your trolling there, not here.
>
Another troll characteristic. They never think that people
will recognise them as such. Did you really think that I would
not check out your postings in comp.lang.perl.misc ?
Perhaps you fear that the regulars there will follow my example
and create a Godzilla! FAQ.
------------------------------
Date: Tue, 29 May 2001 11:48:21 +0200
From: Jac.m.a.m.Oppers <Jac@Oppers.nl>
Subject: VMSPerl v5.005_03 built for OpenVMS V5.5-2H4 with DEC C v5.2-003 and USO HTTPDServer 2.0-A.
Message-Id: <0m4TOw1TU4RtexoE=t51QQc2VurQ@4ax.com>
Hi,
Took some snapshots while installing perl 5.005_03 on OpenVMS V5.5-2H4
with DEC C v5.2-003 and USO HTTPDServer 2.0-A (don't forget to scroll
down to take a close look at the read test).
During configuration (simply choosing the defaults) :
First let's make sure your kit is complete. Checking...
Some of the files not found include:
[-.eg.cgi]dna.small_gif_uu
[-.eg.cgi]wilogo.gif_uu
In case that's all what is missing I decided to continue,
however maybe I am using a stripped version for a limited
number of platforms ? I don't know. Lets see what happens.
Checking for Dec C's version number...
You are using Dec C DEC C V5.2-003
Okay, it knows what kind of compiler it has to use, but
then take a look at this :
%CONFIG-I-RESULT cpp_stuff is DEC C V5.2-003
The corresponding #define's will not work during
compilation :
%CONFIG-I-RESULT doublesize is DEC C V5.2-003 (8)
%CONFIG-I-RESULT longdblsize is DEC C V5.2-003 (8)
%CONFIG-I-RESULT longlongsize is DEC C V5.2-003 (8)
%CONFIG-I-RESULT intsize is DEC C V5.2-003 (4)
%CONFIG-I-RESULT shortsize is DEC C V5.2-003 (2)
%CONFIG-I-RESULT longsize is DEC C V5.2-003 (4)
Had to set the sizes of these types manually (x) by editting config.h
using the values of the configuration of the perl (development)
kit v5.7.0 (seeing and assuming those defined values were properly
set automatically in config.h during configuration phase on exactly
the same vax machine).
During MMK (looks okay to me) :
Please specify prototyping behavior for dclsym.xs (see
perlxs manual)
Note (probably harmless): No library found for posix
Note (probably harmless): No library found for cposix
During MMK TEST :
%DELETE-W-SEARCHFAIL, error searching for
DKA300:[HTTPD.PERL5_003.T]PERL.;*
-RMS-E-FNF, file not found
The following tests were skipped because they rely extensively on
Unixisms not compatible with the current version of perl for VMS:
[.comp]cpp.t
[.io]argv.t
[.io]dup.t
[.io]fs.t
[.io]pipe.t
[.lib]db-btree.t
[.lib]db-hash.t
[.lib]db-recno.t
[.lib]gdbm.t
[.lib]io_dup.t
[.lib]io_pipe.t
[.lib]io_sel.t
[.lib]io_sock.t
[.lib]ndbm.t
[.lib]odbm.t
[.lib]open2.t
[.lib]open3.t
[.lib]ph.t
[.lib]posix.t
[.op]die_exit.t
[.op]exec.t
[.op]fork.t
[.op]glob.t
[.op]groups.t
[.op]magic.t
[.op]misc.t
[.op]stat.t
The following 3 tests failed :
1. [.lib]dirhand...........FAILED on test 2
@[.VMS]TEST .EXE "-v" [.LIB]DIRHAND.T
[.LIB]DIRHAND...........1..5
ok 1 :
$dot = new DirHandle ".";
print defined($dot) ? "ok" : "not ok", " 1\n";
not ok 2 :
@a = sort <*>;
do { $first = $dot->read } while defined($first) && $first =~
/^\./;
print +(grep { $_ eq $first } @a) ? "ok" : "not ok", " 2\n";
FAILED on test 2
Failed 1 test, 0.00% okay.
u=801.96 s=0 cu=0 cs=0 files=1 tests=5
2. [.op]defins.............FAILED on test 9
@[.VMS]TEST .EXE "-v" [.OP]DEFINS.T
[.OP]DEFINS.............1..14
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
not ok 9 :
$seen = 0;
while (my $name = glob('*'))
{
$seen++ if $name eq $wanted_filename;
}
print "not " unless $seen;
print "ok 9\n";
FAILED on test 9
Failed 1 test, 0.00% okay.
u=805.89 s=0 cu=0 cs=0 files=1 tests=14
3. [.op]read...............FAILED on test 1
@[.VMS]TEST .EXE "-v" [.OP]READ.T
[.OP]READ...............1..4
not ok 1 :
#!./perl
open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || die "Can't open
op.read";
seek(FOO,4,0);
$got = read(FOO,$buf,4);
print ($got == 4 ? "ok 1\n" : "not ok 1\n");
FAILED on test 1
Failed 1 test, 0.00% okay.
u=807.9 s=0 cu=0 cs=0 files=1 tests=4
The following 4 tests were skipped :
[.lib]io_udp............skipping test on this platform
[.lib]ipc_sysv..........skipping test on this platform
[.lib]socket............skipping test on this platform
[.lib]thread............skipping test on this platform
Failed 3/167 tests, 95.81% okay.
u=51.46 s=0 cu=0 cs=0 files=163 tests=6154
Results of MCR []MINIPERL "-V"
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
Platform:
osname=VMS, osvers=V5.5-2H4, archname=VMS_VAX
uname='VMS t426 V5.5-2H4 MicroVAX 3100-90'
hint=none, useposix=false, d_sigaction=undef
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='CC/DECC', optimize='undef', gccversion=undef
cppflags='undef'
ccflags
='/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList'
stdchar='char', d_stdstdio=define, usevfork=true
intsize=DEC C V5.2-003, longsize=DEC C V5.2-003, ptrsize=DEC C
V5.2-003,
doublesize=DEC C V5.2-003
d_longlong=define, longlongsize=DEC C V5.2-003, d_longdbl=define,
longdblsize=DEC C V5.2-003
alignbytes=8, usemymalloc=N, prototype=define
Linker and Libraries:
ld='Link', ldflags ='/NoTrace/NoMap'
libpth=/sys$share /sys$library
libs=
libc=(DECCRTL), so=exe, useshrplib=undef, libperl=undef
Dynamic Linking:
dlsrc=dl_vms.c, dlext=exe, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags='/Share'
Characteristics of this PERLSHR image:
Compile-time options: DEBUGGING
Built under VMS
Compiled at May 29 2001 08:35:49
%ENV:
PERLSHR="PERL_ROOT:[000000]PERLSHR.EXE"
PERL_ROOT="DKA300:[PERL.]"
@INC:
perl_root:[lib.VMS_VAX.5_00503]
perl_root:[lib]
perl_root:[lib.site_perl.VMS_VAX]
perl_root:[lib.site_perl]
.
Now, lets take a close look at the read test :-)
After installing this perl version 5.005_003 I wrote
the following perl script.
#!./perl
# print to file
open(FOO,">jac.txt");
print FOO "hallo\n";
print FOO "Jac\n";
close FOO;
# open file
open (FILENAM,"jac.txt");
seek (FILENAM,2,0);
$got = read(FILENAM,$buf,3);
print "$got\n"; # --> output "3"
print "$buf\n"; # --> output "llo"
close FILENAM;
So, this read test works, BUT read.t does not work yet !
Why ?
$ dir/full of the original [.t.op]read.t shows :
READ.T;1 File ID: (16635,2,0)
Size: 1/3 Owner: [SYSTEM]
Created: 30-JUL-1998 03:52:34.00
Revised: 30-JUL-1998 03:52:34.00 (0)
Expires: <None specified>
Backup: <No backup recorded>
File organization: Sequential
File attributes: Allocation: 3, Extend: 0, Global buffer count: 0
No version limit
Record format: Variable length, maximum 77 bytes
Record attributes: Carriage return carriage control
RMS attributes: None
Journaling enabled: None
File protection: System:RWED, Owner:RWED, Group:RE, World:
Access Cntrl List: None
Now lets change that into (copying the contents of read.t into
jac.txt and renaming jac.txt into read.t):
$ dir [.t.op]read.t;2/full
READ.T;2 File ID: (17975,20,0)
Size: 1/3 Owner: [SYSTEM]
Created: 29-MAY-2001 11:15:51.66
Revised: 29-MAY-2001 11:18:23.79 (4)
Expires: <None specified>
Backup: <No backup recorded>
File organization: Sequential
File attributes: Allocation: 3, Extend: 0, Global buffer count: 0
No version limit
Record format: Stream_LF, maximum 77 bytes
Record attributes: Carriage return carriage control
RMS attributes: None
Journaling enabled: None
File protection: System:RWED, Owner:RWED, Group:RE, World:
Access Cntrl List: None
and perform the read test again :
@[.VMS]TEST .EXE "-v" [.OP]READ.T
[.OP]READ...............1..4
ok 1
ok 2
ok 3
ok 4
ok
All tests successful.
u=837.1 s=0 cu=0 cs=0 files=1 tests=4
Now the read test works ! So, if I change the record format
from "variable length" to "Stream_LF" the read test seems to
work well. This perl version seems to prefer "Stream_LF" ...
That are the results for today.
Best regards,
Jac.
jac.oppers@philips.com (replaces jac@natlab.research.philips.com)
j.m.a.m.oppers@(hccnet|hetnet|chello).nl
------------------------------
Date: Mon, 28 May 2001 13:53:10 -0700
From: Darius <>
Subject: Workgrounds for perl2exe ??
Message-Id: <sce5htki2d5tjtcv32kpueivi9jdiu4qf8@4ax.com>
Hi all,
I have recently been playing around with writing GUI apps in Win32 and
using perl2exe in order to make executables, so that other people
without perl compilers can run my programs.
However, in order to use the -gui command line option of perl2exe to
get rid of the console window, it costs $150, which I currently don't
have (and wouldn't pay anyway, since programming is a hobby for me and
I don't make money doing it).
One thing I wanted to try was using the program editbin to change the
console apps to GUI/windows apps like this:
editbin /subsystem:windows <filename>
(I learned this from reading Win32:GUI docs.)
However, the version of editbin I have is with VC++ 5, which doesn't
seem to support the /subsystem command line switch. Is there any other
way to remove the console window from perl2exe-made executables,
besides coughing up the $150?
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Tue, 29 May 2001 09:55:00 +0100
From: "lying_happy_eyes" <lying_happy_eyes@hotmail.com>
Subject: writing to text files using forms
Message-Id: <9evnve$q28$1@plutonium.btinternet.com>
http://freewarejava.com/ubb/Forum5/HTML/002031.html
can someone help me with this problem? sorry for just using the link but it
has all the information i need to give... thanks in advance for any hep!!
--
lying_happy_eyes
XXX
http://go.to/nypihas
http://balder.prohosting.com/thenyp/cgi-bin/ikonboard/ikonboard.cgi
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 1010
***************************************
