[7172] in Perl-Users-Digest
Perl-Users Digest, Issue: 797 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 31 02:22:00 1997
Date: Wed, 30 Jul 97 23:00:19 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 30 Jul 1997 Volume: 8 Number: 797
Today's topics:
$$Make your own luck$$ <gareaur@istar.ca>
Re: [Q] Checkbox forms in Perl (Greg Zevin)
Re: Any nice "Powered by Perl" gifs? <drummj@mail.mmc.org>
flocking files.... <a.cox@rbgkew.org.uk>
io/pipe...FAILED test 9 (John Mohr)
Re: password protecting a directory <keys@babylon5fan.org>
Re: Perl String truncation (Eric Bohlman)
Re: perl: cgi variable MChing@POBoxes.com
Re: Q: perlembed and memory leaks - help! <dougm@osf.org>
Relative link points to cgi-bin -- HELP (Rick Barkhouse)
Re: security holes in perl 5.00401 @_@ <rra@stanford.edu>
Re: Substitution (Eric Bohlman)
Re: Too many people in this group are arrogant #*(@# (R (Bart Lateur)
Unexecuted stmt adds array elem?? (Dave Hollenbeck)
WEB ARCHITECT - #73097 <recruiter@lds.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 30 Jul 1997 22:29:42 -0400
From: bob gareau <gareaur@istar.ca>
Subject: $$Make your own luck$$
Message-Id: <33DFF896.6277@istar.ca>
/1dQQwAFAAABCgIBAAAAAgUAAABENgAAAAIAAI6MfctYjrw0dDw+NEJuJroiM4cAMg6vM6ic
dwevSG/CYPg26MDDk7PpQykLqkFkKAjz7RZDwqplgttllpoSFefH7W4ZA8idI5/wlVFUHZs/
sjgcW5OtmqGcVF6jpcylSgty8mG4srzXS+sd2Qp86SmhO6PWbd1S812ugnFpJeTczkU0ghTm
950lx51nyIWqsIl4jPMWl0XfSSoee+a0xudmFo9cpn9nAuhRqr9QPkDtDU3tvDwnf6ke/Frp
p2MWGlcB/tQlTCG1N8+vnBSaNE2z9vXk60vjmQPqSJYP101q1SDjtf9pZ3NMlSv+viyX9zFh
+0M65tOaFpclIsYyZc4RY/gfEWtwkJk49xwqizrae/5ehqu7W7l/QIUom5LoKh9C0sT4w5zf
o4LxiUK2tfIL9900XRbQQT5Z3v5PqPeOg3pANRjVIZlpBAZqtDznxolZU+8tJRF8iVpz/J7O
Mm/DKOZVsG3TOE2wHexUCxQsWeQTYV558YDzvT+DTEpM/paEhYmeiV0BrHvr3dg2+F+HGUC8
t4x2YtgmNqJ4o6VY+1nseKVt4TjBWRxXmgOGQtKyQ/cYPmo+XtilMUxx9fQHoPC6WsaX8ASB
MVqbpPykq8XJfsykQEgEcqIooIbrrkzfe7ECAAwAAAAAAAAAAAAAAAswAgAAAM0AAACoAgAA
CW0BAAAAFwAAAHUDAAAAVQEAAABOAAAAjAMAAAklAQAAAAYAAADaAwAACBYBAAAAUgAAAOAD
AAAJRAMAAAArAAAAMgQAAABVBAAAAD4AAABdBAAACHcBAAAAQAAAAJsEAAAINAEAAAAUAAAA
2wQAAAgCAQAAAA8AAADvBAAACBABAAAAAgAAAP4EAAABAAAABAAoAAAApQAAAAAAAAAAAAAA
AAAAAAESyOMkAKEAAAChAAAA0QAOAAACACwBsAQOANHRAQ4AAAIALAGwBA4A0dMPSwCAAgYA
AAAoAAAAAAAAAAAAAAAAAAAAGAAAgBQAAFgCAgAAAAAAAAAAeAB4AHgAeAAAACwBAAAAAAAA
AAAAAAAAAAAAAEsA09QaHwCAAQcACABYAnqAAQBYAgAAWAIBAFgCAAAfANTUGx8AgAEHAAgA
WAJ6gAEAWAIBAFgCBgBYAnqAHwDUAgAAAAAAAQAAAAAAAP9VGov/AADAwMB4AAUfFRAKCAAA
EQkAAABaABsBAIsUNgBUAGkAbQBlAHMAIABOAGUAdwAgAFIAbwBtAGEAbgAgAFIAZQBnAHUA
bABhAHIAAAAAAAAAAAABAAMAWAJjADoAXABDAG8AcgBlAGwAXABPAGYAZgBpAGMAZQA3AFwA
VABlAG0AcABsAGEAdABlAFwAVwBlAGIAXAB3AGIAbABhAG4AawAuAHcAcAB0AAAAAAAnAAQA
AAAAAB8AAAAAAAAAAAAAAAAAyADIAMgAyAAAAABkAHgAAAAAZHgA1h7DDzkIAAARCQAAAFoA
GwEAixQmAFQAaQBtAGUAcwAgAE4AZQB3ACAAUgBvAG0AYQBuAAAAAAAAAAAACgAAAJcAAQB7
A5gAAgACAJkABQACAJoAAgACAJsAAgACAJwAAgACAJ0AAgACAJ4AAQACAJ8AAQBEAKAAAQAC
AAA4oiAAAAAAePCUggQAAAB0hYIACDN8AHgAAQIAAKAAAAADBADdChAAgwEBAAMAyOMhEADd
0QAOAAACACwBsAQOANHRAQ4AAAIALAGwBA4A0dMPSwCAAgYAAAAoAAAAAAAAAAAAAAAAAAAA
GAAAgBQAAFgCAgAAAAAAAAAAeAB4AHgAeAAAACwBAAAAAAAAAAAAAAAAAAAAAEsA09QaHwCA
AQcACABYAlFVAABYAgAAWAIDAFgCAAAfANTUGx8AgAEHAAgAWAJRVQAAWAIAAFgCBwBYAlFV
HwDU3QsLAAMAAAQLAN2bTUFLRYBUSEWATU9ORVmAVEhBVIBZT1WAREVTRVJWRYAtgEFORIBV
U0WAWU9VUoBUSU1FgFRPgFBVUlNVRYBZT1VS0AEVAAALAAkAASwBAAAAAAEgFQDQRFJFQU1T
ISEhgElmgHlvdYBoYXZlgHJlYWSAdGhpc4BmYXKAeW91gGhhdmWAYWxyZWFkeYBwcm92ZWSA
aXSAd29ya3MhIYCAVGFrZYBqdXN0gDWAbWludXRlc4B0b89yZWFkgHRoaXOAYW5kgHNlZS6A
gMxUaGlzgGlzgHRoZYBuZXdlc3SAdXBkYXRlZIB2ZXJzaW9uLoBBc4BJgHdhc4BzdXJmaW5n
gHRoZYBuZXQsgEmAcmVhZIBhbGyAdGhlc2WAcG9zdGluZ3OAb26AaG93gHlvdc9jYW6AbWFr
ZYBvdmVygCQ1MCwwMDAsgGV2ZW6AJDgwMCwwMDAugIBXZWxsgEmAYmVsaWV2ZYB0aGF0gGlm
gGFsbIBnb2VzgHdlbGwsgGFuZIB5b3WAZm9sbG93gHRoZc9ydWxlc4BFWEFDVExZLIBpdIB3
aWxsgHdvcmsugIBKdXN0gGZvbGxvd4B0aGWAaW5zdHJ1Y3Rpb25zgGdpdmVugGlugHRoaXOA
bGV0dGVyLIBhbmSAeW91gHRvb4BjYW7PbWFrZYBvdmVygCQ4MDAsMDAwLIBwZXJmZWN0bHmA
bGVnYWxseYBhY2NvcmRpbmeAdG+AVVNBgFBvc3SAT2ZmaWNlgExhd3OAKHJlYWSAb26AZm9y
z3NwZWNpZmljcykugIBEb24ndIBsb29rgGF0gHRoaXOAYXOAYYBtb25leS1tYWtpbmeAc2Nh
bSyAYnV0gHJhdGhlcoBhgHRydWUtdG8tbGlmZYBleGFtcGxlgHRvgHRlc3TPdGhlgGFib3Zl
gHN0YXRlbWVudC6AgEl0gHdpbGyAb25seYBjb3N0gHlvdYAkNoBkb2xsYXJzgHBsdXOANoBz
dGFtcHMsgGFuZIBhgGZld4Bob3Vyc4BvZoB5b3Vyz3RpbWUugIBUaHVzLIB0aGVyZYBpc4Bz
b21lgGVmZm9ydIBpbnZvbHZlZCyAYmVjYXVzZYBub3RoaW5ngGlugGxpZmWAaXOAYWJzb2x1
dGVseYBmcmVlLoCAQXJlgHlvdc9yZWFkeYBhbmSAd2lsbGluZ4B0b4BhY2NlcHSAdGhhdIB5
b3WAZGVzZXJ2ZYB0b4ByZWNlaXZlgGGAZmFpcoBhbW91bnSAb2aAbW9uZXk/gElmgHNvLIBw
bGVhc2XPY29udGludWWAcmVhZGluZy6AgEJ1dIBpZoB5b3WAdGhpbmuAdGhpc4Bpc4BqdXN0
gGFub3RoZXKAc2NhbSyASYBzdWdnZXN0gHRoYXSAeW91gGRvbid0gHRyeYBpdC7MgFBMRUFT
RYBOT1RFOoBUSElTgElTgEGANoBQRVJTT06ATElTVCyATk9UgFRIRYBVU1VBTIA1LoCAUExF
QVNFgERPgE5PVIBUUlnPVE+AQ0hFQVSAVEhJU4BQUk9HUkFNLoCASlVTVIBBRESAT05FgE5B
TUWAQU5EgKJSRVBPU1SjgFRIRYBBUlRJQ0xFLoCASUbPWU9VgERPgE5PVIBJVIBXSUxMgE5P
VIBXT1JLLIBBTkSAWU9VgFdJTEyAQkWAUkVNT1ZFRIBGUk9NgFRIRYBMSVNUIYDPRk9MTE9X
gFRIRVNFgERJUkVDVElPTlOAQU5EgEpPSU6AVVOASU6AQYBHUkVBVIBPUFBPUlRVTklUWS6A
zFBlb3BsZYBoYXZlgGFza2VkgG1lgGlmgHRoaXOAaXOAcmVhbGx5gGxlZ2FsLoCASXSAaXMh
gIBZb3WAYXJlgHVzaW5ngHRoZYBJbnRlcm5ldIB0b4BhZHZlcnRpc2WAeW91cs9idXNpbmVz
cy6AgFdoYXSAaXOAdGhhdIBidXNpbmVzcz+AgFlvdYCAYXJlgGFzc2VtYmxpbmeAYYBtYWls
aW5ngGxpc3SAb2aAcGVvcGxlgHdob4BhcmWAaW50ZXJlc3RlZM9pboBob21lgGJhc2VkgGNv
bXB1dGVygGFuZIBvbi1saW5lgGJ1c2luZXNzZXOAYW5kgG1ldGhvZHOAb2aAZ2VuZXJhdGlu
Z4BpbmNvbWWAYXSAaG9tZS6Az1JlbWVtYmVygC2AcGVvcGxlgHNlbmSAeW91gGGAc21hbGyA
ZmVlgHRvgGJlgGFkZGVkgHRvgHlvdXKAbGlzdC6AgEl0gGlzgGxlZ2FsLoCAV2hhdIB3aWxs
gHlvdYBkb893aXRogHlvdXKAbGlzdIBvZoB0aG91c2FuZHOAb2aAbmFtZXM/gIBUaGF0J3OA
dXCAdG+AeW91LIBidXSAdGhpc4Bpc4Bob3eAaXSAYmVjb21lc4BsZWdhbC6AgFRvgGJlz2xl
Z2FsgHlvdYBtdXN0gGFjdHVhbGx5gHNlbGyAYYBwcm9kdWN0gG9ygHNlcnZpY2WAaWaAeW91
gGV4cGVjdIB0b4ByZWNlaXZlgGGAZG9sbGFyLoCAQW55b25lz3NlbmRpbmeAYYBkb2xsYXKA
YmFja4B0b4B5b3WAbXVzdIByZWNlaXZlgHNvbWV0aGluZ4BpboByZXR1cm4ugIBZb3WAaGF2
ZYBhbHJlYWR5gHJlY2VpdmVkgHRoaXPPbGV0dGVygGR1ZYB0b4B0aGWAcGFydGljaXBhdGlv
boBvZoBlYWNogG9mgHRoZYA2gHBlcnNvbnOAbGlzdGVkgGJlbG93LoCAVGhpc4BsZXR0ZXKA
YW5kgHRoZYBwbGFuz2dpdmVugHdpdGhpboB0aGlzgGxldHRlcoBhcmWAYYAicHJvZHVjdCKA
dGhhdIB5b3WAaGF2ZYByZWNlaXZlZC6AgFRodXMsgHlvdYB3aWxsgGJlgHNlbmRpbmeAJDEu
MDDPdG+AZWFjaIBvZoB0aGWANoBwZXJzb25zgGdpdmVugGJlbG93gGlugGV4Y2hhbmdlgGZv
coByZWNlaXZpbmeAdGhpc4BsZXR0ZXKAYW5kgGZvcoBhc2tpbmeAdGhlbYB0b89wcm92aWRl
gHRoZYAic2VydmljZSKAb2aAYWRkaW5ngHlvdYB0b4B0aGVpcoBtYWlsaW5ngGxpc3QugIDM
VGhlgHByb2dyYW2AaGFzgGJlZW6AcmV2aXNlZIBhbmSAeW91gHdpbGyAbm90aWNlgHNpeIBu
YW1lc4BpbnN0ZWFkgG9mgGZpdmUugIBUaGWAcmVhc29ugGZvcoB0aGlzz2lzgHRoZYBmbG9v
ZIBvZoBmaXZlgG5hbWWAcHJvZ3JhbXOAYW5kgHRoZYBzaXh0aIBuYW1lgHdpbGyAYWRkgCQ1
MCwwMDCAdG+AJDEwMCwwMDAugIBUaGlzgGlzz3Byb3ZlboBtYXRoZW1hdGljYWxseS6AgEp1
c3SAYmWAcGF0aWVudIBhbmSAZm9sbG93gHRoZYBkaXJlY3Rpb25zgGV4YWN0bHkugFByaW50
gHRoaXOAYXJ0aWNsZYBub3csz3NvgHlvdYBoYXZlgGFsbIB0aGWAaW5mb3JtYXRpb26AZm9y
gHlvdXKAgHZlcnNpb24ugIBSZW1lbWJlcoB0b4BrZWVwgHRoZYBuYW1lc4ByaWdodC6AgExl
dCdzgGdvIYDMVEhJU4BJU4BBgFNFUlZJQ0WAQU5EgElTgEGAMTAwJYBMRUdBTIBCVVNJTkVT
U4BPUFBPUlRVTklUWYBXSElDSIBJU89DT1ZFUkVEgElOgFRJVExFgDE4LIBTRUNUSU9OgDEz
MDKAQU5EgDEzNDKAT0aAVEhFgFBPU1RBTIBBTkSATE9UVEVSWc9MQVdTLoCAUGxlYXNlgGNh
bGyAdGhlgFUuUy6AUG9zdGFsgFNlcnZpY2WAYXSAMS04MDAtNzI1LTIxNjGAZm9ygHZlcmlm
aWNhdGlvbi6AzFNURVCAMYBJbW1lZGlhdGVseYBzZW5kgCQxgFVTgGNhc2iAKGGAb25lgGRv
bGxhcoBiaWxsLIBub4BjaGVja3MsgG5vgG1vbmV5gG9yZGVycymAdG+AZWFjaIBvZs90aGWA
NoBwZW9wbGWAb26AdGhlgGxpc3SAYmVsb3cugIBXcmFwgHRoaXOAZG9sbGFygGlugGGAbm90
ZYB3aXRogHRoZYB3b3JkczqAgCJQbGVhc2WAcHV0gG1lgG9uz3lvdXKAbWFpbGluZ4BsaXN0
LiKAgChJboB0aGlzgHdheSyAeW91J3JlgG5vdIBqdXN0gHNlbmRpbmeAYYBkb2xsYXKAdG+A
c29tZW9uZSyAeW91J3JlgHBheWluZ4Bmb3KAYc9sZWdpdGltYXRlgHNlcnZpY2UuKYBBbHNv
LIB0b4BkaXNjb3VyYWdlgHRob3NlgHdob4BwcmV5gG9ugGNhc2iAaW6AdGhlgG1haWwsgGJl
gHN1cmWAdGhlgGJpbGyAaXPPY29tcGxldGVseYBoaWRkZW6AYnmAdGhlgG5vdGUugIBBgHdv
dmVugGVudmVsb3BlgGlzgHJlY29tbWVuZGVkLoCASW5jbHVkZYB5b3VygGFkZHJlc3MugIBZ
b3XPZG+Abm90gG5lZWSAdG+AaW5jbHVkZYB5b3VygG5hbWUugIBUaGlzgGlzgHRoZYBrZXmA
dG+AdGhlgHByb2dyYW0hgIBBbHNvLIBsZXSAZWFjaIBwZXJzb26Aa25vd893aGF0gG51bWJl
coB0aGV5gGFyZYBpboB5b3VygGxldHRlcoBzb4BoZS9zaGWAa25vd3OAd2hpY2iAY3ljbGWA
aGWAaXOAcmVjZWl2aW5ngHRoZYAkMS4wMIBmcm9tLoDPTWFrZYBzdXJlgHRoYXSAeW91gHJl
dGFpboBFVkVSWYBuYW1lgGFuZIBhZGRyZXNzgHNlbnSAdG+AeW91LIBlaXRoZXKAb26AY29t
cHV0ZXKAb3KAaGFyZM9jb3B5LIBidXSAZG+Abm90gGRpc2NhcmSAdGhlgG5hbWVzgGFuZIBu
b3Rlc4B0aGF0gHBlb3BsZYBzZW5kgHRvgHlvdS6AgFRoaXOAaXOAUFJPT0aAdGhhdIB5b3XP
YXJlgHRydWx5gHByb3ZpZGluZ4BhgHNlcnZpY2UsgGFuZIBzaG91bGSAdGhlgElSU4BvcoBz
b21lgG90aGVygGdvdmVybm1lbnSAYWdlbmN5gHF1ZXN0aW9ugHlvdSzPeW91gGNhboBwcm92
aWRlgHRoZW2Ad2l0aIB0aGlzgHByb29mLoBUaGVyZWZvcmUsgHlvdYB3aWxsgHN0YXJ0gGGA
bGlzdIBvZoBhbGyAdGhlgHBlb3BsZYB3aG+Ac2VuZM95b3WAYYBkb2xsYXKAcmVxdWVzdGlu
Z4B0b4BiZYBhZGRlZIB0b4BhgG1haWxpbmeAbGlzdC6AgEFjdHVhbGx5LIB5b3WAd2lsbIB3
YW50gHRvgHNhZmVndWFyZIB0aGlzz2xpc3SAYmVjYXVzZYBpdIBjYW6AZ2VuZXJhdGWAZXZl
boBiZXR0ZXKAcmVzcG9uc2VzgGFuZIBtdWNogG1vcmWAbW9uZXmAbGF0ZXIhgEZvbGSAYYAk
MYBiaWxsz2luc2lkZYBlYWNogHBhcGVyLIBhbmSAbWFpbIB0aGVtgGJ5gHN0YW5kYXJkgG1h
aWyAdG+AdGhlgGZvbGxvd2luZ4BzaXiAYWRkcmVzc2VzOoCA0AYVAAALAAkAAX8vUy4vAAEg
FQDQMS6AgEJyZXR0gKJCZWxpc2xlo8yAgICAgDI28gXydGjzBfOAU3QugFcugEFwdC6AokY5
MaPQBBUAAAsACQABkQJlAQEAASAVANCAgICAgKJCcmFkZW50b26jLIBGTIAzNDIwN8yAgICA
gFVTQcwyLoCAUm9igEIuzICAgICAODOAQ2hpZWZ0YWlugENyZXNjZW50zICAgICAQmFycmll
LIBPbnRhcmlvzICAgICAQ2FuYWRhzICAgICAokw0TqOAojZKMqPMMy6AgEFsZXiARC7MgICA
gIBUaGWAT2FrcyyAQnl3YXlzzICAgICAR3JhdmVsgFBhdGgsgKJCZXJraGFtc3RlZKPMgICA
gICiSGVydHOjLICiSFA0o4CiMlBKo8yAgICAgEVuZ2xhbmTMNC6AgEJyYWRsZXmAUy7MgICA
gIAxOTk0gFMugFNwYXJ0YW6AU3QuzICAgICAR2lsYmVydCyAQVqAODUyMzOAgMyAgICAgFVT
Qcw1LoCAQmVsbGGATS7MgICAgIAyNDMwgE9jZWFugFZpZXeAQXZlLiyAdW5pdIA0MDbMgICA
gIBMb3OAQW5nZWxlcyyAQ0HxAJcA8fEClADxgPEDlADx8QGXAPGAOfECmADxMDA1N/EDmADx
8QCYAPE1MjMz8QGYAPHMgICAgIBVU0HMNi6AgJzxApkA8VLxA5kA8fEAnwDx8QKZAPFvYmVy
dPEDmQDx8QKZAPGAR/EDmQDx8QGfAPHxApkA8S7xA5kA8fECoADxR2FyZWF18QOgAPHxAJkA
8UJlbGxhgE0u8QGZAPGbzICAgICA8QKaAPFSUiMygEJveIA58QOaAPHxAJoA8TI0MzCAT2Nl
YW6AVmlld4BBdmUuLIBVbml0gDQwNvEBmgDxzICAgICA8QKbAPFXYWtlZmllbGTxA5sA8fEA
mwDxTG9zgEFuZ2VsZXPxAZsA8SyA8QKcAPFRQ/EDnADx8QCcAPFDQYCAOTAwNTfxAZwA8cyA
gICAgPECngDxokowWKOAojNHMKPMgICAgIDxA54A8fECnQDxQ2FuYWRh8QOdAPHxAJ0A8VVT
QfEBnQDxzFNURVCAMoBOb3eAcmVtb3ZlgHRoZYB0b3CAbmFtZYBmcm9tgHRoZYBsaXN0LIBh
bmSAbW92ZYB0aGWAb3RoZXKAbmFtZXOAdXAugIBUaGlzgHdheYAjNs9iZWNvbWVzgCM1gGFu
ZIBzb4Bvbi6AgFB1dIB5b3VygG5hbWWAaW6AYXOAdGhlgCM2gG9ugHRoZYBsaXN0gC7MgFNU
RVCAM4BMRVSATUWAVEVMTIBZT1WASE9XgE1VQ0iATU9ORVmAWU9VgENBToBNQUtFLoBIb3eA
ZG+AdGhlgG51bWJlcnPPd29ya4Bmb3KAcG90ZW50aWFsgGluY29tZYBlYXJuaW5ncz+AgEFz
c3VtZYBmb3KAdGhlgHNha2WAb2aAZXhhbXBsZYB0aGF0gHlvdYBnZXSAYYA3LjUlgHJldHVy
bs9yYXRlLoCAVGhpc4Bpc4B2ZXJ5gGNvbnNlcnZhdGl2ZTuAbXmAZmlyc3SAYXR0ZW1wdIB3
YXOAYWJvdXSAOSUuzDEugFlvdYBzZW5kgG91dIAyMDCAbGV0dGVycyyAYW5kgDE1gHBlb3Bs
ZYAoNy41JYB4gDIwMCmAd2lsbIBzZW5kgHlvdYAkMYBlYWNogD2AJDE1LjAwgMwyLoBUaG9z
ZYAxNYBzZW5kgG91dIAyMDCAbGV0dGVyc4BlYWNoLIBhbmSAMjI1gHBlb3BsZYBzZW5kgHlv
dYAkMYBlYWNogD2AJDIyNS4wMIDMMy6AgFRob3NlgDIyNYBzZW5kgG91dIAyMDCAbGV0dGVy
c4BlYWNoLIBhbmSAMywzNzWAcGVvcGxlgHNlbmSAeW91gCQxgGVhY2iAPYAkMywzNzUuMDAu
gNAGFQAACwAJAAEuLwIuIgABIBUA0DQugIBUaG9zZYAzLDM3NYBzZW5kgG91dIAyMDCAbGV0
dGVyc4BlYWNoLIBhbmSANTAsNjI1LjAwgHBlb3BsZYBzZW5kgHlvdYAkMYBlYWNogD2AJDUw
LDYyNS4wMM81LoCAVGhvc2WANTAsNjI1gHNlbmSAb3V0gDIwMIBsZXR0ZXJzgGVhY2gsgGFu
ZIA3NTksMzc1gHBlb3BsZYBzZW5kgHlvdYAkMYBlYWNogD2AJDc1OSwzNzUuMDCAgMxUT1RB
TIAkODEzLDYxNS4wMCEhzElmgHRob3NlgGZpZ3VyZXOAc291bmSAaW5jcmVkaWJseYBoaWdo
LIBmaWd1cmWAdGhhdIBldmVugHdpdGiAaGFsZoB0aGWAcmV0dXJugHJhdGUsgG9ygGV2ZW6A
Yc9xdWFydGVyLIB0aGWAdG90YWyAaXOAc3RpbGyAc3BlY3RhY3VsYXIugIBJdIB3b3Jrc4Bl
dmVyeYB0aW1lLIBidXSAaG93gHdlbGyAd2lsbIBkZXBlbmSAb26AaG93z21hbnmAbGV0dGVy
c4B5b3WAc2VuZC6AgElugHRoZYBhYm92ZYBleGFtcGxlgHlvdYBtYWlsZWSAb3V0gDIwMIBs
ZXR0ZXJzLoCAVGhpc4Bzb3VuZHOAbGlrZYAicGllz2lugHRoZYBza3ksIoBidXSAdGhlgG51
bWJlcnOAYWRkgHVwLIBhbmSAd2l0aIBvdmVygDQwgG1pbGxpb26AcGVvcGxlgG9ugHRoZYBO
RVQsgGl0gHdvcmtzIYCAzFRJUDqAgEZvcoBhboBldmVugGdyZWF0ZXKAcmV0dXJuLIBwb3N0
gHRvgE1PUkWAdGhhboAyNTCAom5ld3Nncm91cHOjgGluaXRpYWxseTuAdHJ5gGZvcoAzMDAt
MzUwLoDPV2hlboB5b3VygG5hbWWAZHJvcHOAb2ZmgGGAbGlzdCyAc2ltcGx5gGFjY2Vzc4Bh
bm90aGVygG1lc3NhZ2WAZnJvbYBhgKJuZXdzZ3JvdXCjgGFuZIBzdGFydIB0aGXPcHJvY2Vz
c4BvdmVygGFnYWluLoCAUG9zdIB0aGWAbmV3gGFydGljbGWAdG+AYXSAbGVhc3SAMjUwgKJu
ZXdzZ3JvdXBzoy6AgFJlbWVtYmVyLIB0aGWAbW9yZYB5b3XPcG9zdCyAdGhlgG1vcmWAcGVv
cGxlgHNlZSyAYW5kgHRoZYBtb3JlgHlvdYBnZXQugIBUaGVyZYBhcmWAYXSAbGVhc3SAMjUs
MDAwgKJuZXdzZ3JvdXBzo4BhdIBhbnnPb25lgHRpbWUugIBUaGlzgGlzgGGAJDcuOTKAaW52
ZXN0bWVudC6AgEl0gHRha2VzgGFib3V0gGGAd2Vla4BvcoBzb4B0b4BzdGFydIBzZWVpbmeA
YYByZXR1cm6Ac2+AYmXPcGF0aWVudC6AgFRoZYBtb25leYBzaG91bGSAZmxvd4Bmb3KAYWJv
dXSAM4Btb250aHMugIBBdIB0aGF0gHBvaW50LIBzaW1wbHmAYWRkgHlvdXKAbmFtZYB0b4B0
aGXPbGlzdIBhbmSAc3RhcnSAb3Zlci6ASSd2ZYBkb25lgHRoaXOAdHdpY2WAYW5kgG5vd4BJ
gGNhboBxdWl0gG15gGpvYoBhbmSAc3RhcnSAZGV2b3RpbmeAbXmAdGltZYB0b890aGluZ3OA
dGhhdIByZWFsbHmAaW50ZXJlc3SAbWUugIBJgGFzc3VyZYB5b3WAdGhpc4BjYW6Ad29yay6A
SWaAeW91gG1haWxlZIBvdXSANTAwgGxldHRlcnMsgHlvdYBjb3VsZM9oYXZlgHJlY2VpdmVk
gGV2ZW6AbW9yZSGAgENoZWNrgHRoZYBtYXRogHlvdXJzZWxmLIBidXSASYBndWFyYW50ZWWA
aXQnc4Bjb3JyZWN0LoCAV2l0aIB0aGlzgGtpbmTPb2aAcmV0dXJuLIB5b3WAaGF2ZYBnb3SA
dG+AZ2l2ZYBpdIBhgHRyeSGAgFRyeYBpdIBvbmNlLIBhbmSAeW91J2xsgGRvgGl0gGFnYWlu
LoCASnVzdIBtYWtlgHN1cmWAeW91z3NlbmSAYYBkb2xsYXKAdG+AZWFjaIBvZoB0aGWAYWRk
cmVzc2VzgG9ugHRoZYBsaXN0gGFib3ZlgHdpdGiAYYBub3RlgGFza2luZ4B0b4BiZYBhZGRl
ZIB0b4B0aGVpcs9tYWlsaW5ngGxpc3QugIBUb2dldGhlcoB3ZYB3aWxsgGFsbIBwcm9zcGVy
gGFuZIB3ZYB3aWxsgGJlgGFibGWAdG+Ac2hhcmWAb3VygHdlYWx0aIB3aXRogHRob3NlgGxl
c3PPZm9ydHVuYXRlgHRoYW6Ab3Vyc2VsdmVzLoBEb4B5b3WAcmVhbGl6ZYB0aG91c2FuZHOA
b2aAcGVvcGxlgGFsbIBvdmVygHRoZYB3b3JsZIBhcmWAam9pbmluZ4B0aGXPSW50ZXJuZXSA
YW5kgHJlYWRpbmeAdGhlc2WAYXJ0aWNsZXOAZXZlcnlkYXksgEpVU1SATElLRYBZT1WAQVJF
gE5PVyEhIYCAQ2FugHlvdYBhZmZvcmTPJDYuNzKAYW5kgHNlZYBpZoBpdIByZWFsbHmAd29y
a3M/P4CASYB0aGlua4Bzby4uLlBlb3BsZYBoYXZlgHNhaWQsgCJXaGF0gGlmgHRoZYBwbGFu
gGlzgHBsYXllZIBvdXTPYW5kgG5vgG9uZYBzZW5kc4B5b3WAdGhlgG1vbmV5P4CAU2+Ad2hh
dCGAgFdoYXSAYXJlgHRoZYBjaGFuY2VzgG9mgHRoYXSAaGFwcGVuaW5ngHdoZW6AdGhlcmXP
YXJlgHRvbnOAb2aAbmV3LIBob25lc3SAdXNlcnOAYW5kgG5ld4Bob25lc3SAcGVvcGxlgHdo
b4BhcmWAam9pbmluZ4B0aGWASW50ZXJuZXSAYW5kz6JuZXdzZ3JvdXBzo4BldmVyeWRheYBh
bmSAYXJlgHdpbGxpbmeAdG+AZ2l2ZYBpdIBhgHRyeT+AgEVzdGltYXRlc4BhcmWAMjAsMDAw
gHRvgDUwLDAwMIBuZXeAdXNlcnPPZXZlcnlkYXksgHdpdGiAdGhvdXNhbmRzgG9mgHRob3Nl
gGpvaW5pbmeAdGhlgGFjdHVhbIBJbnRlcm5ldC6AgFJFTUVNQkVSLIBwbGF5gEZBSVJMWYBh
bmTPSE9ORVNUTFmAYW5kgHRoaXOAd2lsbIB3b3JrLoCAWW91gGp1c3SAaGF2ZYB0b4BiZYBo
b25lc3QugIBNYWtlgHN1cmWAeW91gHByaW50gHRoaXOAYXJ0aWNsZYBvdXTPUklHSFSATk9X
LoCAQWxzbyyAdHJ5gHRvgGtlZXCAYYBsaXN0gG9mgGV2ZXJ5b25lgHRoYXSAc2VuZHOAeW91
gG1vbmV5gGFuZIBhbHdheXOAa2VlcIBhboBleWXPb26AdGhlgKJuZXdzZ3JvdXBzo4B0b4Bt
YWtlgHN1cmWAZXZlcnlvbmWAaXOAcGxheWluZ4BmYWlybHkugIBSZW1lbWJlciyASE9ORVNU
WYBJU4BUSEXPQkVTVIBQT0xJQ1khISGAgFlvdYBkb24ndIBuZWVkgHRvgGNoZWF0LIB0aGWA
YmFzaWOAaWRlYYBpc4B0b4BtYWtlgG1vbmV5gGhvbmVzdGx5ISGAzEdPT0SATFVDSyEhgMxH
RU5FUkFMgFNURVBTgE9OgEFVVE9NQVRJTkeAVEhFgFBST0NFU1OAzC0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS2ASWaAeW91gGhhdmWATmV0c2NhcGWAMy4wgGRvgEVYQUNUTFmAdGhlgGZv
bGxvd2luZ4CEhISEhISEhISEhISEhISEhISEhISEzDEpgIBDbGlja4BvboBhbnmAom5ld3Nn
cm91cKOAbGlrZYBub3JtYWwsgFRIRU6AY2xpY2uAb26AJ1RPgE5FV1MnLIB3aGljaIBpc4Bv
boB0aGWAZmFygGxlZnTPd2hlboB5b3UncmWAaW6AdGhlgKJuZXdzZ3JvdXBzo4BwYWdlLoCA
VGhpc4B3aWxsgGJyaW5ngHVwgGGAYm94gHRvgHR5cGWAYYBtZXNzYWdlgGluLswyKYCATGVh
dmWAdGhlgKJuZXdzZ3JvdXCjgGJveIBsaWtlgGl0gGlzLIBDSEFOR0WAdGhlgHN1YmplY3SA
Ym94gHRvgHNvbWV0aGluZ4BmbGFzaHksgGxpa2UszyJORUVEgENBU0iAJCQkgFJFQUSASEVS
RYAkJCSAb3KAIkZBU1SAQ0FTSCIhISGAzDMpgIBUYWKAb25jZYBhbmSAeW91gHNob3VsZIBi
ZYByZWFkeYB0b4B0eXBlLoCATm93LIByZXR5cGWAKG9ubHmAb25jZSmAVEhJU4B3aG9sZYBh
cnRpY2xlz1dPUkSARk9SgFdPUkQsgGV4Y2VwdIBpbnNlcnSAeW91coBuYW1lgGF0gCM2LICA
YW5kgHJlbW92ZYAjMYBvZmaAdGhlgGxpc3QsgHBsdXOAYW55gG90aGVyz3NtYWxsgGNoYW5n
ZXOAeW91gHRoaW5rgHlvdYBuZWVkgHRvgG1ha2UugIBLZWVwgGFsbW9zdIBhbGyAb2aAaXSA
dGhlgFNBTUUhgMw0KYCAV2hlboB5b3UncmWAZG9uZYB0eXBpbmeAdGhlgFdIT0xFgGFydGlj
bGUsgGNsaWNrgG9ugEZJTEWAaW6AVEhJU4BCT1gsgFJJR0hUgEFCT1ZFz1NFTkQsgE5PVIBX
SEVSRYBJVIBTQVlTgE5FVFNDQVBFgE5FV1OAT06AVEhFgEZJUlNUgIBCT1gugIBDbGlja4Bv
boBTQVZFz0FTgHdoZW6AeW91J3JlgHVuZGVygEZJTEUugIBTYXZlgHlvdXKAYXJ0aWNsZYBh
c4BhgHRleHSAgGZpbGWAdG+AeW91coBDOoBvcoBBOoBkcml2ZS6AgERPgE5PVM9TRU5EgE9S
gFBPU1SAWU9VUoBBUlRJQ0xFgFVOVElMgFlPVYBET4BUSElTLoCAT25jZYBzYXZlZCyAbW92
ZYBvboB0b4BudW1iZXKANc9iZWxvdy6AgE5PVEU6gIBJZoB5b3WAZG9uJ3SAd2FudIB0b4B0
eXBlgGlugHRoZYB3aG9sZYBhcnRpY2xlgGJ5gGhhbmQsgEFORIB5b3WAa25vd4Bob3eAdG/P
dXNlgGGAcGxhaW6AdGV4dIBlZGl0b3KAKGxpa2WATm90ZXBhZCksgHlvdYBjYW6AZWRpdIB0
aGWAZmlsZYBhaGVhZIBvZoB0aW1lLIB0aGVugGF0dGFjaIBpdIBhc4BzaG93btADFQAACwAJ
AAGFL1kuLQABIBUA0GlugHN0ZXCANi6AzDUpgIBJZoB5b3WAc3RpbGyAaGF2ZYBhbGyAb2aA
eW91coB0ZXh0LIBzZW5kgG9ygHBvc3SAdG+AdGhpc4CibmV3c2dyb3Vwo4Bub3eAYnmAanVz
dIBjbGlja2luZ4BzZW5kLM93aGljaIBpc4ByaWdodIBiZWxvd4BGSUxFLIBhbmSAcmlnaHSA
YWJvdmWAQ2M6gPECbwDxzPEDbwDxNimAgEhlcmUnc4B3aGVyZYB5b3UncmWAZ29pbmeAdG+A
cG9zdIBhbGyAMjAwLoCAT0ssgGNsaWNrgG9ugGFueYCibmV3c2dyb3Vwo4B0aGVugGNsaWNr
gG9ugCdUT89ORVdTJyyAYWdhaW6AaW6AdGhlgHRvcIBsZWZ0gGNvcm5lci6ATGVhdmWAdGhl
gKJORVdTR1JPVVBTo4BCT1iAYWxvbmWAYWdhaW4sgHB1dIBhgGZsYXNoec9zdWJqZWN0gHRp
dGxlgGlugHRoZYBTVUJKRUNUgEJPWCyAaGl0gFRBQoBvbmNlgHlvdSdyZYBpboB0aGWAYm9k
eYBvZoB0aGWAbWVzc2FnZS6AgENsaWNrgG9uz0FUVEFDSE1FTlRTLIB3aGljaIBpc4BiZWxv
d4B0aGWAU1VCSkVDVIBCT1gugIBZb3WAd2lsbIBnZXSAYW5vdGhlcoBib3iAdG+AY29tZYB1
cC6Az0NsaWNrgG9ugEFUVEFDSIBGSUxFLIB0aGVugGZpbmSAWU9VUoBmaWxlgHRoYXSAaWaA
eW91gGRpZIB0aGlzgHJpZ2h0LIB5b3WAc2hvdWxkgHNlZYB5b3VygGZpbGXPbmFtZYBpboB0
aGWAYXR0YWNobWVudHOAYm94LIBhbmSAaXSAd2lsbIBiZYBzaGFkZWSAZ3JlZW4ugIDxAnAA
8czxA3AA8U5PVEU6gIBJZoB5b3WAZG9uJ3SAd2FudIB0b4B0eXBlgGlugHRoZYB3aG9sZYBh
cnRpY2xlgGFuZIB5b3WAa25vd4Bob3eAdG+AdXNlgGGAcGxhaW6AdGV4dIBlZGl0b3LPKE5v
dGVwYWQpLIB5b3WAY2FugGVkaXSAdGhlgGZpbGWAYWhlYWSAb2aAdGltZSyAdGhlboBhdHRh
Y2iAaXQu8QJxAPHM8QNxAPHxAHIA8YDxAXIA8UlGgFlPVYBVU0WASS5FLoBFWFBMT1JFUoBJ
VCdTgEpVU1SAQVOARUFTWS4uLoDxAnMA8czxA3MA8fEAdADx8QJzAPHM8QNzAPHxAXQA8TEp
gIBIT0xESU5HgERPV06AVEhFgExFRlSATU9VU0WAQlVUVE9OLIBoaWdobGlnaHSAdGhpc4Bh
cnRpY2xlLoCAVGhlboBwcmVzc4B0aGXPImN0cmwigGtleYBhbmSAdGhlgCJjIoBrZXmAYXSA
dGhlgHNhbWWAdGltZYB0b4Bjb3B5gHRoaXOAYXJ0aWNsZS6AgFRoZW6AcHJpbnSAdGhpc4Bh
cnRpY2xlgGZvcoB5b3Vyz3JlY29yZHMsgHRvgGhhdmWAdGhlgG5hbWVzgG9mgHRob3NlgHlv
dYB3aWxsgGJlgHNlbmRpbmeAJDGAYmlsbHOAdG8ugPECdQDxzPEDdQDxMimAgEdvgHRvgHRo
ZYBuZXdzgGdyb3Vwc4BhbmSAcHJlc3OAInBvc3SAYW6AYXJ0aWNsZSIugIBBgHdpbmRvd4B3
aWxsgG9wZW4ugIBUeXBlgGlugHlvdXLPaGVhZGxpbmWAaW6AdGhlgHN1YmplY3SAYXJlYYBh
bmSAdGhlboBjbGlja4BpboB0aGWAbGFyZ2WAd2luZG93gGJlbG93LoCAUHJlc3OAImN0cmwi
gGFuZIB0aGVugCJ2Is9hbmSAdGhlgGFydGljbGWAd2lsbIBiZYBwbGFjZWSAaW6AdGhlgHdp
bmRvdy6AgElmgHlvdYB3YW50gHRvgGVkaXSAdGhlgGFydGljbGUsgGRvgHNvgGFuZIB0aGVu
z2hpZ2hsaWdodIBhbmSAY29weYBpdIBhZ2Fpbi6AgE5vd4BldmVyeYB0aW1lgHlvdYBwb3N0
gHRoZYBhcnRpY2xlgGlugGGAbmV3gKJuZXdzZ3JvdXCjgGFsbIB5b3XPaGF2ZYB0b4ByZXBl
YXSAaXOAImN0cmwigGFuZIAidiKAYW5kgHByZXNzgHBvc3QugPECdgDxzPEDdgDxMymAgFRo
YXQnc4BpdC6AgEVhY2iAdGltZYB5b3WAZG+AdGhpcyyAYWxsgHlvdYBoYXZlgHRvgGRvgGlz
gHR5cGWAaW6AYYBkaWZmZXJlbnSAom5ld3Nncm91cKMsgHNvgHRoYXTPd2F5gGl0gHBvc3Rz
gHRvgDIwMIBESUZGRVJFTlSAom5ld3Nncm91cHOjLIBvcoBtb3JlLoBZb3WAc2VlP4CATm93
gHlvdYBqdXN0gGhhdmWAMTk5gHRvgGdvISGAzyhEb24ndIB3b3JyeSyAZWFjaIBvbmWAdGFr
ZXOAYWJvdXSAMzCAc2Vjb25kcyyAb25jZYB5b3WAZ2V0gHVzZWSAdG+AaXQuKYCAUkVNRU1C
RVKAMjAwgElTz1RIRYBNSU5JTVVNLoCAQnV0gHRoZYBtb3JlgHlvdYBwb3N0gHRoZYBtb3Jl
gG1vbmV5gHlvdYB3aWxsgHJlY2VpdmUugEFORIBUSEFUJ1OASVQhIYDPVEhFU0WAQVJFgFRI
RYBPTkxZgFNURVBTISEhgFBMRUFTRYBORVZFUoBwb3N0gHRvgG1hbnmAbW9yZYB0aGFugDEw
gHdpdGiAYW55gG9uZc9tZXNzYWdlgHNpbmNlgHRoZYByZXN1bHRpbmeAbG9uZ4BsaW5lc4Bv
ZoCibmV3c2dyb3Vwo4BsaXN0aW5nc4BhdIB0aGWAdG9wgG9mgEVWRVJZgG1lc3NhZ2WAd2ls
bM9hbm5veYBtYW55gEFORIB3aWxsgHZhc3RseYByZWR1Y2WAdGhlgGVmZmVjdGl2ZW5lc3OA
b2aAeW91coBwb3N0aW5nLvECdwDxzPEDdwDx8QB4APGA8QF4APFKVVNUgE9ORYBPVEhFUoBU
SElORzqATGV0J3OAcmVtZW1iZXKAdGhhdIB0aGVyZYBhcmWAbWFueYBwZW9wbGWAZmFygGxl
c3OAZm9ydHVuYXRlgHRoYW7Pb3Vyc2VsdmVzgHdob4B3aWxsgG5ldmVygGJlgGFibGWAdG+A
YWZmb3JkgGGAY29tcHV0ZXKAYW5kgGhlbmNlgHdpbGyAYmWAdW5hYmxlgHRvgGpvaW6AaW6A
b3Vyz2VudGVycHJpc2UugIBUaGVyZWZvcmWAcGxlYXNlgGNvbnNpZGVygGRvbmF0aW5ngGGA
KHNpZ25pZmljYW50KYBwb3J0aW9ugG9mgHlvdXKAZWFybmluZ3OAZnJvbYB0aGXPdmVudHVy
ZYB0b4BjaGFyaXR5Lpw=
------------------------------
Date: 31 Jul 1997 10:29:19 +1000
From: greg@turing.une.edu.au (Greg Zevin)
Subject: Re: [Q] Checkbox forms in Perl
Message-Id: <5rom8v$412@turing.une.edu.au>
Adam Grayson <dyrewolf@worldnet.att.net> writes:
>I'm new to this, so please pardon any taboos.
>I have an HTML form with a list of items, each with a checkbox next to
>it. The purpose of the script is to see which were checked off, and to
>run a function as a result of it. I was told by one person to give each
>checkbox the name, but different values, and by another to give each
>different names, and put "yes" as the value on each. I know that's more
>an HTML issue, but please excuse it.
Both advices are correct. I tried both and the first one
looks easier to program. If you use CGI.pm, then it will be easy
to get all ticked checkboxes' values, e.g:
@checkboxes = param('checkboxes'); (where'checkboxes' is the name
of your checkboxes).
Hope this helps
Greg Zevin
>Thanks in advance to anyone who can help.
>Adam Grayson
>P.S. If possible, please reply via e-mail as well as posting a reply to
>the newsgroup. Thanks
------------------------------
Date: 30 Jul 1997 11:49:52 GMT
From: "Jeffrey R. Drumm" <drummj@mail.mmc.org>
Subject: Re: Any nice "Powered by Perl" gifs?
Message-Id: <01bc9cde$d3c64370$111e71c6@ohmigod>
Hey, I hear Joe Camel is looking for work . . . and the obvious inference
that "Perl Smokes" shouldn't displease the readers of this group.
May be hard to find artwork, though. Looks like someone nuked www.rjr.com's
htdocs directory.
(my apologies for the waste of bandwidth).
--
- Jeffrey R. Drumm - Systems Integration Specialist
Maine Medical Center - IS Department
420 Cumberland Ave - Portland ME 04101
Voice: 207-871-2150 - FAX: 207-871-6440
drummj@mail.mmc.org
nospam@domain.com wrote in article <5rmbfb$rpf$1@news2.voicenet.com>...
> Has anyone ever seen any nice "Powered by Perl" gifs?
>
> (Maybe with a really muscular-looking camel...)
> --
> ##--------------------------------
> ## J o h n N o l a n
> ## jpn acm org
> ##--------------------------------
>
------------------------------
Date: Wed, 30 Jul 1997 06:34:02 GMT
From: "Tony Cox" <a.cox@rbgkew.org.uk>
Subject: flocking files....
Message-Id: <EE4Cu5.10q@news.rbgkew.org.uk>
I'm struggling a bit with flocking files :-)
The Camel book says that you perform a flock on a _file handle_
obtained after a valid "open" command.
Theoretically a return from flock of 0 (zero) is success and -1 is an
error.
If I flock a filehandle I get an unexpected return value of 1 (one) - this
return value is not mentioned in the flock manpages.
If I flock on a filename (not file handle) I get a return value of 0
(zero) - which is theoretically successful...but then it is not a
filehandle I'm working with, so I don't know what worked....
Can anyone shed any light on this...like an easy way to test if a file is
locked?
I'm using a Data General Aviion which implements its own flvor of flock
called dg_flock....but the return codes are as stated above a(according to
man pages).
thanks
*******************************************************************
Dr. Tony Cox email: a.cox@rbgkew.org.uk
Jodrell Laboratory http: www.rbgkew.org.uk
Royal Botanic Gardens tel: (44)-181-332-5360
Kew, U.K. fax: (44)-181-332-5310
*******************************************************************
------------------------------
Date: Wed, 30 Jul 1997 19:38:17 -0600
From: jmohr@grizzly.ccsd.k12.wy.us (John Mohr)
Subject: io/pipe...FAILED test 9
Message-Id: <199707310138.TAA05630@grizzly.ccsd.k12.wy.us>
Linux 1.2.13
Upgrading from Perl 5.003 to Perl 5.004_01
My compile went fairly smooth until I ran "make test". At that point I got :
io/pipe..........FAILED test 9
Failed 1/10 tests, 90.00% okay
Here is the code snippet in pipe.t that generates the error.
--------------------------------------------------------------------------
# VMS doesn't like spawning subprocesses that are still connected to
# STDOUT. Someone should modify tests #9 and #10 to work with VMS.
if ($^O eq 'VMS') {
print "ok 9\n";
print "ok 10\n";
exit;
}
if ($Config{d_sfio} || $^O eq machten) {
# Sfio doesn't report failure when closing a broken pipe
# that has pending output. Go figure. MachTen doesn't either,
# but won't write to broken pipes, so nothing's pending at close.
print "ok 9\n";
}
else {
local $SIG{PIPE} = 'IGNORE';
open NIL, '|true' or die "open failed: $!";
sleep 2;
print NIL 'foo' or die "print failed: $!";
if (close NIL) { <--------------------------caused failure of test.
print "not ok 9\n";
}
else {
print "ok 9\n";
}
}
----------------------------------------------------------------------------
------
I found that the statement
if (close NIL) {
print "not ok 9\n";
}
ran true and probably caused the test to fail. Why is this undesirable?
Can it be fixed?
TIA
John
John Mohr Educational Services Center
Campbell County School District Email: jmohr@grizzly.ccsd.k12.wy.us
P.O. Box 3033 Voice: 307-682-5171 ext. 293
Gillette, Wyoming 82717-3033 Technology-R-Us
------------------------------
Date: Wed, 30 Jul 1997 22:27:50 -0600
From: Keys <keys@babylon5fan.org>
Subject: Re: password protecting a directory
Message-Id: <33E01446.1833BA63@babylon5fan.org>
Kurt wrote:
> Is there anyway to password protect a directory of webpages with Perl? I
Somewhat... and you can find suggestions by looking at the DejaNews
archives of this ng, as this question has been raised many times...
> know that you can do it with .htacess and so forth. The only drawback
> that I can see with this is that, although one can protect a directory,
> it is limited to the use of 'one' password for the directory.
Ah, there's the problem... good old .htaccess in fact lets you use
about as many user/password combinations as you want... Take a look at
your server's documentation or maybe ask in the
comp.infosystems.www.servers.* hierarchy...
> Perl, write the usernames and passwords to the .htpasswd file so that
> every time the directory is accessed and .htacess is invoked that
> .htpasswd can be scanned through to see if the user entered a valid
> username and password.
You can use perl programs to maintain your password database(s)...
that's another story, again you will find answers in dejanews...
--
Keys
Spam sucks. To reply, please change "org" to "com" in my return
address...
For my PGP key, mail me with "send PGP key" in the subject...
------------------------------
Date: Thu, 31 Jul 1997 02:54:02 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Perl String truncation
Message-Id: <ebohlmanEE5xE2.2BJ@netcom.com>
Mwebernet (mwebernet@aol.com) wrote:
: I have a string that is very long. I want to chop it off at 50
: charectors. How can I do this?
Take a look at the entry for substr() in perlfunc.
------------------------------
Date: Wed, 30 Jul 97 20:05:28 -0800
From: MChing@POBoxes.com
Subject: Re: perl: cgi variable
Message-Id: <MChing870318328@forumsweb.com>
I would simply use an array...
it would be $key[$count], which is probably what you want.
Doug Seay <seay@absyss.fr> wrote:
>
> Jack Lawrence wrote:
> >
> > Hey there,
> >
> > I'm trying to search for a variable, and if it exists, copy it into a new
> > variable called key#. If it's the first variable, it would then be named
> > $key1, etc. $key.$count isn't the right way to do it, and I'm not sure what
> > I'm doing wrong. Do I need quotes around key or something of that nature?
> > Please shed some light on this one for me! :)
> >
> > if ($keyb) {
> > $count++;
> > $key.$count=$keyb;
> > }
>
> If I understand what you are saying, if $keyb is TRUE, you want to
> create a variable $keyN where N is one greater than the last on and the
> value is the value of the $keyb variable. Here is a simple example of
> that using eval(). Note that this isn't the most secure/safest code
> ever written, but it should give you an idea of how to do this. I used
> $main::VARn because I prefer "use strict" and without "main::" this
> would mean lots of warnings.
>
> - doug
>
> #!/usr/local/bin/perl -w
> use strict;
>
> my ($var,$val);
> my $num = 0;
>
> # build $main::VARn for each environment variable
> while ( ($var,$val) = each %ENV )
> {
> $num++;
> my $command = sprintf '$main::VAR%s = "%s %s"', $num, $var,
> q($val);
> eval $command;
> die "error with eval '$command': $@\n" if ( $@ );
> }
>
> # print all the $main::VARn variables
> foreach ( 1 .. $num )
> {
> my $dummy = 'undefined value';
> my $command = sprintf '$dummy = $main::VAR%s', $_;
> eval $command;
> die "error with eval: $@\n" if ( $@ );
> print "VAR$_ : $dummy\n";
> }
-------------------------- http://forumsweb.com -------------------------
Free private/public online conferencing and Usenet newsgroups
------------------------------
Date: Wed, 30 Jul 1997 09:02:12 -0400
From: Doug MacEachern <dougm@osf.org>
To: radev@news.cs.columbia.edu
Subject: Re: Q: perlembed and memory leaks - help!
Message-Id: <33DF3B54.290D@osf.org>
Dragomir R. Radev wrote:
>
> I am using perlembed to access several Perl scripts from within a C
> program. Everything works the way that I want, except for the memory
> leaks. The main C process keeps growing at a very fast rate with every call
> to perl_parse().
>
> I have declared all relevant variable as "my". I have made sure that the
> perl interpreter gets initialized only once.
>
> Any solution to my problem?
Make sure you set 'perl_destruct_level = 1;' before calling
perl_destruct().
-Doug
>
> Thanks in advance.
>
> D.
>
> --
> Dragomir R. Radev Graduate Research Assistant
>
> Natural Language Processing Group Columbia University CS Department
>
> H: 212-749-9770 O: 212-939-7121 http://www.cs.columbia.edu/~radev
------------------------------
Date: 30 Jul 97 14:57:32 GMT
From: 015691b@news.acadiau.ca (Rick Barkhouse)
Subject: Relative link points to cgi-bin -- HELP
Message-Id: <33df565c.0@131.162.2.91>
Hello,
I have a CGI program which does the following:
1. Takes input from a form in my public_html directory.
2. Runs a Perl program in my cgi-bin directory.
3. Writes two files to my public_html directory.
4. Prints out a "Thank You" page.
My problem is this: on my Thank You page, I have a link back to the
preceding page, which is also in the public_html directory, so at the end
of the Thank You page I have the following link:
<A HREF="home.html">Back to the Home Page</A>
But the link is actually pointing to cgi-bin/home.html when it should be
pointing to public_html/home.html. I know I could get around this by
using <BASE HREF="http://mydomain.com/"> but I want to understand why
this is acting this way. Can anyone help me? I can mail a copy of the
CGI program if requested. Thank you.
--
Rick Barkhouse
Acadia E-mail: <015691b@dragon.acadiau.ca>
RevCan E-mail: <rbarkhou@rc.gc.ca>
http://dragon.acadiau.ca/~015691b
------------------------------
Date: 30 Jul 1997 18:36:32 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: security holes in perl 5.00401 @_@
Message-Id: <m367tsvw7z.fsf@windlord.Stanford.EDU>
Gil <mingtian@hotmail.com> writes:
> I and he also don't know, he had Perl 5.003 and there were two web chat
> Perl script that is using META tag to reload and print to the browser.
> and what he dubious is that that chat script called /usr/local/bin/perl
> (perl 5.003) and due to perl 5.003's security hole it called the hacker
^^^^^
Then what the hell was the subject line talking about?
There is a known hole in Perl 5.003's suid Perl used to implement suid
Perl scripts on hosts without safe shell scripts. The solution is to
upgrade to 5.004, in which this hole has been patched, or apply the
patches to 5.003 on CPAN.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Wed, 30 Jul 1997 08:33:41 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Substitution
Message-Id: <ebohlmanEE4IG5.CrH@netcom.com>
Mark Schwartz (mcs@in.net) wrote:
: I have a Perl script that contains about 100 instances of the variable
: $zds.
: I wish to replace the letters 'zds' with the letters 'ftc'.
: So:
: #!/usr/bin/perl -w
: open (CNV,"/home/httpd/cgi-bin/ftc1.cgi") || die "cannot open file";
: while (CNV)
[you followed up to point out that this was actually "while (<CNV>)"
: {
: $_ =~ s/zds/ftc/;
: }
: close (CNV) || die "cannot close file";
: Nothing. No errors, but no replacement of 'zds' with 'ftc'.
Let's see. You have a loop. It reads each line from the file into the
"$_" variable. Then it substitutes the first occurrence of "zds" in that
line with "ftc" (did you really want to substitute only the *first*
occurrence?). Then it does *what*? It reads the next line into $_,
wiping out the previous line with the changes, that's what!
Try reading up on the "-i" and "-p" command-line options, which will let
you invoke a lot of pre-built functionality that's designed for tasks
like this. Once you do that, you'll be able to write a one-liner that
does what you want.
------------------------------
Date: Wed, 30 Jul 1997 17:02:19 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Too many people in this group are arrogant #*(@# (Re: Checking for valid Email...)
Message-Id: <33e17321.705511@news.tornado.be>
Just HOW do you do it? I bet you download every post in this newsgroup,
and then grep through the files looking for your name. I dare even bet
that it's written in Perl. :-)
Randal Schwartz <merlyn@stonehenge.com> wrote:
>Yes. I have my moments. :-)
Incredible. A guy who gets up on his hind legs for being called NOT
arrogant.
It's not the ranting in se I mind, but the self-pronounced Perl experts
that seem blissfully unaware of doing it, and who get REALLY agressive
when pointed out so.
Introspection is a beautiful thing. Far too few people in this newsgroup
practise this. Ever.
HTH,
Bart.
------------------------------
Date: 30 Jul 1997 16:53:21 GMT
From: dbh@fc.hp.com (Dave Hollenbeck)
Subject: Unexecuted stmt adds array elem??
Message-Id: <5rnri1$gnj@fcnews.fc.hp.com>
I have some code which produces an array element count even though
it doesn't execute. In the code below, when printing the element
count of $a->{somearray}, the result should be zero, since we
haven't actually put anything in the array. However, it seems
to have one element.
Is this _supposed_ to work?
#!/usr/bin/perl -w
package BugTester;
sub new {
my $type = shift;
my $self = {};
$self->{somearray} = [];
bless $self, $type;
}
sub _secret_call {
my $self = shift;
my $dont_do_it = shift;
my $hashref = shift;
$$hashref = "whocares";
}
sub maybe_fill {
my $self = shift;
my $dont_do_it = shift;
my $which_one = 0;
unless ($dont_do_it) {
print "Adding an element...\n";
$self->_secret_call($dont_do_it,
\$self->{somearray}[$which_one]{name});
} else {
print "NOT adding an element.\n";
}
}
package main;
$a = new BugTester;
$a->maybe_fill(1);
@foo = $a->{somearray};
$foo = @foo;
print "Number of elements: $foo\n";
------------------------------
Date: Wed, 30 Jul 1997 09:24:15 -0400
From: Recruiter <recruiter@lds.com>
Subject: WEB ARCHITECT - #73097
Message-Id: <33DF407F.7726@lds.com>
Logical Design Solutions, a leader in the design and development of
Interactive Business Communications has an immediate full-time opening
in their Morristown, NJ office for a Web Architect.
Job Description:
In this visible role, the ideal candidate will possess experience in
configuration of Internet technologies as part of a multi-tiered
information technology architecture. Keeping up-to-date with
current technology trends is essential, as is the ability to evaluate
appropriate technology components for development and delivery
environments. This individual must also have the ability to integrate
application support technologies with preexisting client IT
infrastructure. Experience with C/C++, Perl, HTML, Java, CGI and
knowledge of Internet protocols and standards is required.
Knowledge of Active X a plus.
Send resume with cover letter and salary requirements or contact:
Technical Recruiter
Logical Design Solutions
Phone: (201) 971-0100
Fax: (201) 971-0103
email: recruiter@lds.com
For further info: http://www.lds.com
------------------------------
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 797
*************************************
