From sneex at mac.com Fri May 3 16:31:15 2002 From: sneex at mac.com (Bill -OSX- Jones) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] [OT] CIS4DL Project Message-ID: <19463910-5EDD-11D6-AC02-0003930CAF62@mac.com> On the jacksonville-pm-list; Jax.PM'er Bill -OSX- Jones wrote - [I hid the recipient list under BCC until such time as all participants wish to make it known to each other who is playing on the CIS4DL project... OT Note - this was also posted on the Jax.PM list - you will see why later in this mailing.] If you are interested in working on the CIS4DL.SF.NET project, please create your own account at sf.net and e-mail me the member ID you get after you register; I will add you to the developer list. Also, please review https://sourceforge.net/softwaremap/trove_list.php to help me determine what categories we should see about the project fitting into. I will say I have 6 verbal commitments so far, which is what I had last year when this project started, so we shall see how many survive this go around :) In the To: and CC: fields are my private addresses (sneex at mac dot com is my public address which gets heavily filtered.) Some of you may get duplicates, I apologize for this as I cannot remember which address you wished to be contacted at. If you wish not to be contacted in the future please send a "Remove" reply to this email and I will remove you (if you got dups and what only certain ones removed, then please specify which or all for all.) About InSecurity.Org - http://insecurity.org/ was my private domain and security testing play ground at FCCJ, however since I no longer handle data security there and I no longer handle webmaster nor hostmaster duties, I am in jepordy of losing the use of that domain. I have made an application to purchase it from the college, but so far have not gotten a response. So, for all intents and purposes I will continue on as if it will not be moving with me into my new primary responsibilities of CWS. About the Jax.PM group - I apologize for the apparent lack of updates on the jacksonville.pm.org site - that will be addressed on the Jax.PM group site later this month. Currently I am finishing up writing the Web Server chapter of the Internet Encyclopedia. Once done I will devote all of my free time to CIS4DL and Jax.PM pursuits exclusively - no more consulting... The CIS4DL project will revolve around Apache/Perl/PHP and ANY other Open Source as deemed necessary - therefore I will remove the Perl Monger affiliations from the cis4dl.sf.net site this evening. That doesn't mean you can't participant - all are welcome :) Anyhow, I've wasted enough electrons this posting - more later... _Sx____________________ ('> -Sx- IUDICIUM //\ Have Computer - v_/_ Will Hack... Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Tue May 7 09:41:48 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Modified RO vars ? Message-ID: <8FB72A16-61C8-11D6-9F3D-0003930CAF62@mac.com> On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - A summary of a recent discussion on FWP list: perl -e '(*a,*b,*c)=(\1,\2,\3); for ( @x = ($a,$b,$c) ) { $_++; print }' Other opinions? _Sx____________________ ('> -Sx- IUDICIUM //\ Have Computer - v_/_ Will Hack... "iudicium ferat" Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sml at zfx.com Tue May 7 09:48:57 2002 From: sml at zfx.com (Steve Lane) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Modified RO vars ? References: <8FB72A16-61C8-11D6-9F3D-0003930CAF62@mac.com> Message-ID: <3CD7E959.ECF84D00@zfx.com> On the jacksonville-pm-list; Jax.PM'er Steve Lane wrote - -Sx- IUDICIUM wrote: > > On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - > > A summary of a recent discussion on FWP list: > > perl -e '(*a,*b,*c)=(\1,\2,\3); for ( @x = ($a,$b,$c) ) { $_++; print }' it does exactly what i'd expect it to do. here's a slightly appended-to example: $ perl -le '(*a,*b,*c)=(\1,\2,\3); for ( @x = ($a,$b,$c) ) { $_++; print } print "$a $b $c"' 2 3 4 1 2 3 -- Steve Lane Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Tue May 7 10:07:50 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Modified RO vars ? In-Reply-To: <3CD7E959.ECF84D00@zfx.com> Message-ID: <329EE2FB-61CC-11D6-832C-0003930CAF62@mac.com> On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - Yes, but the argument is for MODIFICATION of RO vars (or constants in this case :) It shouldn't?happen. -Sx- :] On Tuesday, May 7, 2002, at 10:48 AM, Steve Lane wrote: > it does exactly what i'd expect it to do.? here's > a slightly appended-to example: > > $ perl -le '(*a,*b,*c)=(\1,\2,\3); for ( @x = ($a,$b,$c) ) { $_++; > print } print "$a $b $c"' > 2 > 3 > 4 > 1 2 3 Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sml at zfx.com Tue May 7 10:38:12 2002 From: sml at zfx.com (Steve Lane) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Modified RO vars ? References: <329EE2FB-61CC-11D6-832C-0003930CAF62@mac.com> Message-ID: <3CD7F4E4.2F20D144@zfx.com> On the jacksonville-pm-list; Jax.PM'er Steve Lane wrote - -Sx- IUDICIUM wrote: > > On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - > > Yes, but the argument is for MODIFICATION of RO vars (or constants > in this case :) > > It shouldn't happen. > -Sx- :] i'm confused. what is happening here that shouldn't happen? -- Steve > On Tuesday, May 7, 2002, at 10:48 AM, Steve Lane wrote: > > > it does exactly what i'd expect it to do. here's > > a slightly appended-to example: > > > > $ perl -le '(*a,*b,*c)=(\1,\2,\3); for ( @x = ($a,$b,$c) ) { $_++; > > print } print "$a $b $c"' > > 2 > > 3 > > 4 > > 1 2 3 > > Jax.PM Moderator's Note: > This message was posted to the Jacksonville Perl Monger's Group listserv. > The group manager can be reached at -- owner-jacksonville-pm-list@pm.org > to whom send all praises, complaints, or comments... -- Steve Lane Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From jproctor at marlboro.edu Tue May 7 13:58:14 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Modified RO vars ? In-Reply-To: <8FB72A16-61C8-11D6-9F3D-0003930CAF62@mac.com> Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - > perl -e '(*a,*b,*c)=(\1,\2,\3); for ( @x = ($a,$b,$c) ) { $_++; print }' Let's pare this down. *a = \1; for (@x = ($a)) { $_++; print; } My first throught was that the assignment in the for was making a copy-by-value. Sounded fishy, but I couldn't find a rule on that either way in the camel. So I looked at what happens with $_. $_ works because it "is an implicit alias for each item in the list". But, "if no lexical declaration is in scope, the loop variable will be a localized (dynamically scoped) global variable; ... any previous value ... will be restored automatically upon loop exit." (Camel 3, p. 119) My next theory was that $_++ is modifying a local copy of the read-only variable, and that there is no conflict. It's not hard to imagine code along the lines of "if this is localized, it can't be read-only". But $x[0]++ works, too. And it works after the for loop's closing brace. So I'm back to my original. *a = \1 creates a typeglob *a which refers to the read-only value 1. Interpreting *a as a scalar (i.e. $a) gets you a 1. Assigning a list with this roundabout read-only 1 in it is no different from: for (@x = (1)) {$_++; print;} which we all know should work just fine. j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Tue May 7 14:04:56 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Re: Modified RO vars ? In-Reply-To: Message-ID: <52484689-61ED-11D6-832C-0003930CAF62@mac.com> On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - Spoken like a true teacher and researcher :) On Tuesday, May 7, 2002, at 02:58 PM, J Proctor wrote: > Let's pare this down. > > *a = \1; > for (@x = ($a)) > ??? { $_++; print; } > ... > this roundabout read-only 1 in it is no different from: > > for (@x = (1)) {$_++; print;} > > which we all know should work just fine. Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From amcdowall at hotmail.com Wed May 15 08:11:25 2002 From: amcdowall at hotmail.com (Andre McDowall) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Error message Message-ID: On the jacksonville-pm-list; Jax.PM'er "Andre McDowall" wrote - Hi, I am have a problem with an “email this page to a friend” script. Some users are able to access the email form just fine, while others receive an error message telling them they do not have access to the form. The .cgi script is set-up to allow all users to access the email form by clicking on a link from an HTML page. If a user tries to access the .cgi script directly, they are given an error message from within the .cgi script. However, the users that are currently having problems entering the email form are not trying to enter the .cgi script directly; the are accessing the script like everyone else (from an HTML page), yet they are being given the error message. Any idea why the script would let some people access the page and others not? Below, is the part of the .cgi script which gives the error message. Thanks! if (!$ENV{'HTTP_REFERER'}) { print "Access denied\n"; print "\n"; print "You may not access this page.\n"; print "Your attempt has been logged.\n"; print "Your Ip address has been logged.\n\n"; print "\n"; print "\n\n"; print "\n"; exit; } _________________________________________________________________ Chat with friends online, try MSN Messenger: http://messenger.msn.com Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Wed May 15 09:10:04 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Error message In-Reply-To: Message-ID: <73F22E3C-680D-11D6-9C9E-0003930CAF62@mac.com> On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - It is highly likely that the HTTP Referrer is broken. Can you give details about the script, who wrote it, and how it was installed? Does it work in off-line mode? IE, does it work like: perl -w?script_name.cgi [off-line mode] ^D (Use Ctrl-D to exit...) That sort of thing. Also, what does your Apache(?) logs say concerning the access events? Thx/Sx :] On Wednesday, May 15, 2002, at 09:11 AM, Andre McDowall wrote: < ... snip ... > > part of the .cgi script which gives the error message. Thanks! > > if (!$ENV{'HTTP_REFERER'}) { > > print "Access denied\n"; > _Sx____________________ "iudicium ferat" Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Wed May 15 09:13:59 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Error message In-Reply-To: Message-ID: <00564BD6-680E-11D6-9C9E-0003930CAF62@mac.com> On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - Also, as a side note - On Wednesday, May 15, 2002, at 09:11 AM, Andre McDowall wrote: > if (!$ENV{'HTTP_REFERER'}) { > > print "Access denied\n"; > print "\n"; > print "You may not access this page.\n"; > print "Your attempt has been logged.\n"; > print "Your Ip address has been logged.\n\n"; > > print "\n"; > print "\n\n"; > print "\n"; > > exit; > > } Would be better written as a HERE_DOC: if (!$ENV{'HTTP_REFERER'}) { print<Access denied You may not access this page. Your attempt has been logged. Your Ip address has been logged. Referrer_Error exit; } And, in case you were not aware, the \n\n newlines will not be rendered in the HTML, if you want two \n\n you would need two

or a

html tag. HTH; _Sx____________________ "iudicium ferat" Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Wed May 15 10:01:55 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Error message In-Reply-To: Message-ID: On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - On Wednesday, May 15, 2002, at 10:43 AM, Andre McDowall wrote: > Thanks for responding to my request. To say that I am new to Perl > would be an understatement. I downloaded this script from > cgi-resources and I have been trying to fix it for a 2weeks. I > finally decided to seek help. What I would like to do, is get rid > of that part of the script all-together. But when I remove it, > although it does allow all users to access the email form, it > continues to send emails and continues to do so untill the user > hits stop on their browser. How can I remove it and still have the > scirpt perform as it should (i.e. sedn only one email.) Not a problem - just delete that script. Here is some homework - make this into a CGI. BTW - I will be teaching Perl here at FCCJ this Fall - see CGS2557... See #!/usr/bin/perl -w require 5.004; use strict; use diagnostics; my $mailAdmin = 'nobody@fccj.org'; # Send Reports to? my $mailProject = 'bill@fccj.org'; # Responsible for Project? my $SENDMAIL = '/usr/lib/sendmail'; # The location of your sendmail binary... $| = 1; # Use unbuffered I/O... # open (MAIL, "| $SENDMAIL -t -v") || die ("$0: Fatal Error! Cannot open sendmail: $!\n"); open (MAIL, "| $SENDMAIL $mailProject") || die ("$0: Fatal Error! Cannot open sendmail: $!\n"); print MAIL< HTML via SMTP?
... ... Here's looking at you... ...
--This_is_the_boundary_hip_ho-- EndOfMailer close (MAIL); __END__ # Physical end of the script... http://cpan.valueclick.com/authors/id/S/SN/SNEEX/ _Sx____________________ "iudicium ferat" Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From jproctor at marlboro.edu Wed May 15 10:15:43 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Error message In-Reply-To: <73F22E3C-680D-11D6-9C9E-0003930CAF62@mac.com> Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - > It is highly likely that the HTTP Referrer is broken. >> if (!$ENV{'HTTP_REFERER'}) { While it is not always the best way to debug stuff, I am a firm advocate of peppering with print statements to see if variables hold what you think they should. In the print block, try printing the contents of $ENV{HTTP_REFERER} as part of the error message. I recommend enclosing in some "neutral" character like ()s so you can "see" null values. Also, is it specific browser(s) that break the script? It may be that a browser isn't reporting things properly. Don't know how you get around that; most scripts I see that require form submission do something like make sure there's a value for "submit". j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From solution at gina.net Wed May 15 10:37:46 2002 From: solution at gina.net (Aaron Johnson) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Error message In-Reply-To: References: Message-ID: <1021477071.5229.11.camel@hank.hank.net> On the jacksonville-pm-list; Jax.PM'er Aaron Johnson wrote - I might also suggest the use of the MIME::Lite module if available. It makes creating and sending email much easier IMHO Aaron On Wed, 2002-05-15 at 11:01, -Sx- IUDICIUM wrote: > On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM wrote - > > > On Wednesday, May 15, 2002, at 10:43 AM, Andre McDowall wrote: > > > Thanks for responding to my request. To say that I am new to Perl > > would be an understatement. I downloaded this script from > > cgi-resources and I have been trying to fix it for a 2weeks. I > > finally decided to seek help. What I would like to do, is get rid > > of that part of the script all-together. But when I remove it, > > although it does allow all users to access the email form, it > > continues to send emails and continues to do so untill the user > > hits stop on their browser. How can I remove it and still have the > > scirpt perform as it should (i.e. sedn only one email.) > > > Not a problem - just delete that script. Here is some homework - > make this into a CGI. > BTW - I will be teaching Perl here at FCCJ this Fall - see CGS2557... > > See > #!/usr/bin/perl -w > > require 5.004; > > use strict; > use diagnostics; > > my $mailAdmin = 'nobody@fccj.org'; # Send Reports to? > my $mailProject = 'bill@fccj.org'; # Responsible for Project? > my $SENDMAIL = '/usr/lib/sendmail'; # The location of your > sendmail binary... > > $| = 1; # Use unbuffered I/O... > > # open (MAIL, "| $SENDMAIL -t -v") || die ("$0: Fatal Error! > Cannot open sendmail: $!\n"); > open (MAIL, "| $SENDMAIL $mailProject") || die ("$0: Fatal > Error! Cannot open sendmail: $!\n"); > > print MAIL< User-Agent: IUDICIUM HTMLMailer v0.0 Alpha: Sx 09/21/2001 @ 10:40AM > X-Sender: html sender project > X-Comments: A message from the $0 script... > Subject: How does one send HTML via an SMTP server? > MIME-Version: 1.0 > Content-Type: multipart/alternative; charset=us-ascii; > boundary="This_is_the_boundary_hip_ho" > Content-Transfer-Encoding: 7bit > > --This_is_the_boundary_hip_ho > Content-Type: text/html; charset=us-ascii > Content-Transfer-Encoding: 7bit > > > HTML via SMTP? > > > > > > > > > > > > > >
SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_top.gif" ALT="" > WIDTH=600 HEIGHT=15 BORDER=0>
BACKGROUND="http://web.fccj.org/~wcjones/Jax.PM.org/table_left.gif"> SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_left.gif" ALT="" > WIDTH=10 HEIGHT=10 BORDER=0 ALT=""> > > .. > .. Here's looking at you... > .. > > BACKGROUND="http://web.fccj.org/~wcjones/Jax.PM.org/table_right.gif"> SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_right.gif" > ALT="" WIDTH=20 HEIGHT=10 BORDER=0 ALT="">
SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_bottom.gif" > ALT="" WIDTH=600 HEIGHT=15 BORDER=0>
> > > > > --This_is_the_boundary_hip_ho-- > > EndOfMailer > > close (MAIL); > > __END__ > > # Physical end of the script... > > > http://cpan.valueclick.com/authors/id/S/SN/SNEEX/ > > _Sx____________________ > "iudicium ferat" > > > Jax.PM Moderator's Note: > This message was posted to the Jacksonville Perl Monger's Group listserv. > The group manager can be reached at -- owner-jacksonville-pm-list@pm.org > to whom send all praises, complaints, or comments... > > Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at mac.com Thu May 16 11:38:12 2002 From: sneex at mac.com (-Sx- IUDICIUM) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Fwd: boston perl classes Message-ID: <505D69AE-68EB-11D6-AE57-0003930CAF62@mac.com> [Admin Announcement] ??????? 2002 Perl Classes in Boston Mon. July 1???? Damian Conway?? Practical Parsing with Perl Mon. July 1???? Peter Scott???? Debugging Perl Tue. July 2???? Damian Conway?? Advanced Perl Module Development Tue. July 2???? Peter Scott???? Maintaining Legacy Perl Wed. July 3???? Damian Conway?? Intermediate Object Oriented Perl Wed. July 3???? Dan Sugalski??? Embedded Systems with Perl Tuition will be $499 per class and $1399 for any 3. Each class is from 9-5 and includes a continental breakfast and buffet lunch. The classes will be held at the Cambridge Marriott. For more information and to register for classes, go to: ??????? http://stemsystems.com/class/ -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: text/enriched Size: 890 bytes Desc: not available Url : http://mail.pm.org/archives/jacksonville-pm/attachments/20020516/8b96e81b/attachment.bin From jproctor at marlboro.edu Thu May 16 13:36:15 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:02:58 2004 Subject: [JaxPM] Fwd: boston perl classes In-Reply-To: <505D69AE-68EB-11D6-AE57-0003930CAF62@mac.com> Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - >         2002 Perl Classes in Boston What? I saw those announced a week ago. One of the joys of being on the Boston.pm list. :) 1. If anyone from Jax.PM is going, let me know. I don't live particularly close (and am not planning on attending myself), but it's a lot closer than, say, where *you* live. 2. Damian's going there from YAPC. Any of you going to YAPC this year? It's in St. Louis, the last week of june. I'm going if I can find a job in reasonably short order (so I'll have some hope of paying for the trip). j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments...