From tbc at who.net Tue Jun 5 12:51:08 2001 From: tbc at who.net (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: Perl Mongers memo (note lunch is THIS Thursday) Message-ID: <007f01c0ede8$1a86a080$80441d82@cos.agilent.com> Just a few items. Tim Chambers ><> Founder, Pikes Peak Perl Mongers http://pikes-peak.pm.org/ # # # LUNCH THIS THURSDAY Steve Smythe suggested Japanese. My preferences, in order: Ichiban (on Tejon), Tako, Jun, Suehiro. Reply to all with your preferences (Japanese or otherwise). # # # PROGRAM IDEAS Predictable names have been tossed out: Larry Wall (in CA), Tom Christenson (in Boulder), Nathan Torkington (in Fort Collins?). No volunteers right now to organize an invitation, though. Contact me if you want to lead the effort. # # # PPPM LIBRARY Title: DATA MUNGING WITH PERL Author: David Cross Publisher: Manning Publications Co. URL: http://www.manning.com/cross In Possession Of: Bob Gattis As of: 15 May 2001 Notes: Courtesy of Manning. Title: NETWORK PROGRAMMING WITH PERL Author: Lincoln D. Stein Publisher: Addison-Wesley URL: http://www.awlonline.com/product/0,2627,0201615711,00.html In Possession Of: Tim Chambers As of: 09 March 2001 Notes: this is only a galley copy, courtesy of Addison-Wesley Title: PROGRAMMING PYTHON, 2ND EDITION Author: Mark Lutz Publisher: O'Reilly URL: http://www.oreilly.com/catalog/python2/ In Possession Of: Matt Long As of: 3 May 2001 Notes: Matt said he's done with it. # # # From evansj at kilnar.com Tue Jun 5 12:57:30 2001 From: evansj at kilnar.com (John Evans) Date: Thu Aug 5 00:17:58 2004 Subject: Perl and setuid Message-ID: Greetings, I am trying to get a Perl script to run as a CGI under Apache 1.3.19 with suid privilages. The script that I am running is cvsweb (for those of you that are familiar with it.) The reason that I want to use suid, is that I don't want to have to make my $CVSROOT world read/write so that cvsweb (running as nobody via Apache) can access the files. I would like to retain the current permissions on the $CVSROOT, but allow cvsweb to read the files and write to the history if needed. The only way that I know how to do this is via setuid. I have done "chmod 6755" on the script, but it still appears to be running with the permissions of the nobody account. Is there something that needs to be done in the Perl script itself to make the setuid work properly? Thanks. -- John Evans http://evansj.kilnar.com/ From evansj at kilnar.com Tue Jun 5 13:10:13 2001 From: evansj at kilnar.com (John Evans) Date: Thu Aug 5 00:17:58 2004 Subject: Perl Mongers memo (note lunch is THIS Thursday) In-Reply-To: <007f01c0ede8$1a86a080$80441d82@cos.agilent.com> Message-ID: On Tue, 5 Jun 2001, Tim Chambers wrote: > LUNCH THIS THURSDAY > > Steve Smythe suggested Japanese. My preferences, in order: Ichiban (on > Tejon), Tako, Jun, Suehiro. > > Reply to all with your preferences (Japanese or otherwise). Japanese works for me, I guess. I was just told that we have something big coming down the path on Thursday, so I may not be able to make it. Depends on what the "big" thing is. -- John Evans http://evansj.kilnar.com/ From aksuska at webflyer.com Tue Jun 5 16:54:06 2001 From: aksuska at webflyer.com (Keary Suska) Date: Thu Aug 5 00:17:58 2004 Subject: Perl and setuid In-Reply-To: Message-ID: Isn't that supposed to be "chmod 4755" ? Remember that suid Perl scripts have taint checking automatically turned on, which can cause significant gotchas for scripts that aren't expecting it. Of course, any good cgi should be run under taint checking.... -K > From: John Evans > Date: Tue, 5 Jun 2001 13:57:30 -0400 (EDT) > To: Pikes Peak Perl Mongers > Subject: Perl and setuid > > Greetings, > I am trying to get a Perl script to run as a CGI under Apache > 1.3.19 with suid privilages. The script that I am running is cvsweb (for > those of you that are familiar with it.) > The reason that I want to use suid, is that I don't want to have > to make my $CVSROOT world read/write so that cvsweb (running as nobody via > Apache) can access the files. I would like to retain the current > permissions on the $CVSROOT, but allow cvsweb to read the files and write > to the history if needed. The only way that I know how to do this is via > setuid. > I have done "chmod 6755" on the script, but it still appears to be > running with the permissions of the nobody account. Is there something > that needs to be done in the Perl script itself to make the setuid work > properly? > > Thanks. > > -- > John Evans > http://evansj.kilnar.com/ > > > From evansj at kilnar.com Tue Jun 5 17:05:25 2001 From: evansj at kilnar.com (John Evans) Date: Thu Aug 5 00:17:58 2004 Subject: Perl and setuid In-Reply-To: Message-ID: On Tue, 5 Jun 2001, Keary Suska wrote: > Isn't that supposed to be "chmod 4755" ? 4755 is setuid. 6755 is setuid and setgid. Either one should work for what I'm doing and I've tried both to no avail. > > Remember that suid Perl scripts have taint checking automatically turned on, > which can cause significant gotchas for scripts that aren't expecting it. Of > course, any good cgi should be run under taint checking.... It was written with taint checking already in mind, so that's not a biggie. It's handling everything in that aspect fine. -- John Evans http://evansj.kilnar.com/ From aksuska at webflyer.com Tue Jun 5 17:35:55 2001 From: aksuska at webflyer.com (Keary Suska) Date: Thu Aug 5 00:17:58 2004 Subject: Perl and setuid In-Reply-To: Message-ID: Is the web server running a cgi wrapper program? Perhaps that is running interference. Another possibility is that the kernel isn't allowing setuid from nobody, but that's a long shot. I have heard that some systems are picky about the uid of nobody as regards setuid, notably Solaris, which won't allow setuid if from a uid of -2. That's all I can think of. Can you test the cgi from the command line to see if it will setuid from an account other than nobody? That's all I can think of... -K "Do not meddle in the affairs of wizards, for they are subtle and quick to anger." > From: John Evans > Date: Tue, 5 Jun 2001 18:05:25 -0400 (EDT) > To: Pikes Peak Perl Mongers > Subject: Re: Perl and setuid > > On Tue, 5 Jun 2001, Keary Suska wrote: > >> Isn't that supposed to be "chmod 4755" ? > > 4755 is setuid. 6755 is setuid and setgid. Either one should work for what > I'm doing and I've tried both to no avail. > > >> >> Remember that suid Perl scripts have taint checking automatically turned on, >> which can cause significant gotchas for scripts that aren't expecting it. Of >> course, any good cgi should be run under taint checking.... > > It was written with taint checking already in mind, so that's not a > biggie. It's handling everything in that aspect fine. > > -- > John Evans > http://evansj.kilnar.com/ > > > From evansj at kilnar.com Tue Jun 5 18:08:31 2001 From: evansj at kilnar.com (John Evans) Date: Thu Aug 5 00:17:58 2004 Subject: Perl and setuid In-Reply-To: Message-ID: On Tue, 5 Jun 2001, Keary Suska wrote: > Is the web server running a cgi wrapper program? Perhaps that is running > interference. Another possibility is that the kernel isn't allowing setuid > from nobody, but that's a long shot. I have heard that some systems are > picky about the uid of nobody as regards setuid, notably Solaris, which > won't allow setuid if from a uid of -2. > > That's all I can think of. Can you test the cgi from the command line to see > if it will setuid from an account other than nobody? To answer your questions: No wrapper program. I am not using the CGIWrap or SUExec options that come with Apache. Apache runs as nobody, but not sure if Linux 2.2.16 stops nobody from running suid programs. I can run the program from the command-line as other users and the suid portion is not working... I have the following code in the script: open(LOG, ">>/tmp/cvsweb.log"); printf LOG ("R: %d\t%d\n", $<, $(); ## Prints real uid/gid printf LOG ("E: %d\t%d\n", $>, $)); ## Prints effective uid/gid printf LOG ("-" x 40 . "\n"); close(LOG); The logfile is showing the real and effective IDs to be the same, so I'm not sure what's going on?? ls -l shows: -rwsr-sr-x 1 spear coders 79471 Jun 5 18:56 index.cgi The rws and r-s shows the sticky bits are on... I've searched through my Perl docs and have found nothing special that you have to do to allow for Perl scripts to allow suid to run as the proper user. Maybe I'm missing something. I've even written a simple script: #!/usr/bin/perl -w open(LOG, ">>/tmp/test.log"); printf LOG ("R: %d\t%d\n", $<, $(); printf LOG ("E: %d\t%d\n", $>, $)); printf LOG ("-" x 40 . "\n"); close(JOHN); ### end perl and it does not run suid even with chmod 4755. I really do appreciate the time and thoughts that you guys have given forth. Hopefully something will come to one of us in the near future. -- John Evans http://evansj.kilnar.com/ From tbc at who.net Wed Jun 6 13:05:21 2001 From: tbc at who.net (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: peer-to-peer conference Message-ID: <008901c0eeb3$41118dc0$80441d82@cos.agilent.com> For Immediate Release June 5, 2001 For more information contact: Denise Oliffe (707) 829-0515 ext 339 or deniseo@orelly.com P2P: THE NEXT GREAT THING FOR THE INTERNET "P2P is the prime driver of the emergent Internet operating system, a platform that will integrate PCs, servers, and devices with Internet services that go far beyond today's web sites." --Tim O'Reilly O'Reilly & Associates announced today that registration is now open for the O'Reilly Peer-to-Peer and Web Services Conference to be held September 18-21, 2001 at the Omni Shoreham Hotel in Washington D.C. O'Reilly & Associates' second peer-to-peer and web services conference will explore the technical, business, and legal dimensions of the fast-growing peer-to-peer and web services space. We'll bring together emerging, collaborative technologies into one definitive conference to explore the pioneering opportunities of web services and to confront the challenges of the peer-to-peer business model. Technology innovators will have the opportunity to participate in dialog that shapes the standards, legislation, and practices that will transform global computer interaction. O'Reilly conferences are renowned as a gathering of top-notch leaders, experts, and visionaries from all avenues of the technology industry. Scheduled speakers and panelists include: Ian Clarke, CTO, Uprizer, Inc. Cindy Cohn, Legal Director, Electronic Frontier Foundation Cory Doctorow, Co-Founder and Chief Evangelist, OpenCola, Inc. Rael Dornfest, O'Reilly Maven & Conference Program Chair Li Gong, Distinguished Engineer & Director of Engineering, Sun Microsystems Wesley Felter, Editor, Hack the Planet Lucas Gonze, Co-founder and CEO, WorldOS Corp. Dr. Andrew Grimshaw, CTO and Co-founder, Applied Meta Christian Huitema, Architect, Microsoft Gene Kan, CEO, InfraSearch Fred von Lohmann, Visiting Researcher, Berkeley Center for Law & Technology Michael R. Macedonia, PhD, US Army STRICOM Tim O'Reilly, Founder & President, O'Reilly & Associates Ray Ozzie, Founder and CEO, Groove Networks Gary Shapiro, President and CEO, Consumer Electronics Association Dave Stutz, Architect & P2P Conference Keynoter, Microsoft Kelly Truelove, Founder & CEO, Clip2 (For a complete list of speakers, see http://conferences.oreillynet.com/cs/p2pweb2001/pub/w/16/speakers.html) "P2P is the next great thing for the Internet. We haven't even begun to understand or imagine the possibilities," says Lawrence Lessig, Stanford Law professor and P2P Conference keynoter. Keynoter Clay Shirky would likely agree. In fact he addresses some of the P2P possibilities in an article, live today, on openp2p.com. "So many ideas and so many technologies are swirling around P2P--decentralization, distributed computing, web services, JXTA, UDDI, SOAP--that it's getting hard to tell whether something is or isn't P2P, and it's unclear that there is much point in trying to do so just for the sake of a label." For a taste of the thoughtful discussion the second O'Reilly Peer-to Peer and Web Services Conference will offer, read Shirky's article, "Hailstorm: Open Web Services Controlled by Microsoft." Go to: http://www.openp2p.com/pub/a/p2p/2001/05/30/hailstorm.html?page=1 O'Reilly Peer-to Peer and Web Services Conference Early Bird Registration through August 17, 2001. http://conferences.oreillynet.com/cs/p2pweb2001/pub/w/16/register.html About O'Reilly & Associates O'Reilly & Associates is the premier information source for leading-edge computer technologies. We communicate the knowledge of experts through our books, conferences, and web sites. Our books, known for their animals on the covers, occupy a treasured place on the shelves of the developers building the next generation of software. Our conferences and summits bring innovators together to shape the revolutionary ideas that spark new industries. From the Internet to the web, Linux, Open Source, and now peer-to-peer networking, we put technologies on the map. # # # O'Reilly is a registered trademark of O'Reilly & Associates, Inc. All other trademarks are property of their respective owners. From evansj at kilnar.com Wed Jun 6 15:48:42 2001 From: evansj at kilnar.com (John Evans) Date: Thu Aug 5 00:17:58 2004 Subject: RESOLVED: suid perl script Message-ID: The perl script that I wrote for suid is now working. It was a Perl configuration issue. Here's what was wrong: I installed perl 5.6.1 with this method: sh Configure -de make make test make install The "sh Configure -de" takes all defaults for the configuration, which turns off the suid perl wrapper. If you take the time to answer all of the questions, you can tell it to install the suid wrapper. A fast way of taking care of this is to use "sh Configure -de" and then vi config.sh and change: - d_dosuid='undef' + d_dosuid='define' - d_setresuid='undef' + d_setresuid='define' and then do: make make test make install The issue that I have is that no warnings or errors were thrown. It would have been nice if it had told me something like: suidperl wrapper missing. Executing script without suid rights. BTW: There is a security issue with suidperl in 5.6.0 and some older versions. If you use this, make sur etha tyou use verison 5.6.1. of Perl. -- John Evans http://evansj.kilnar.com/ From tbc at who.net Thu Jun 7 08:06:46 2001 From: tbc at who.net (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: Perl Mongers lunch TODAY Message-ID: <004301c0ef52$b67ee4a0$a781b88d@tc5570p> Based on feedback I've received, I'm announcing the following plan: WHAT: monthly Perl Mongers lunch WHERE: Ichiban, 333 N. Tejon WHEN: 11:30 a.m. Thursday, June 7th (TODAY) Hope to see you all there. <>< Tim 719.590.5570 (w) 719.651.0116 (cell) From tbc at who.net Thu Jun 7 11:08:48 2001 From: tbc at who.net (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: peer-to-peer conference Message-ID: <008001c0ef6c$2318ace0$80441d82@cos.agilent.com> Date: Wed, 6 Jun 2001 10:49:02 -0700 (PDT) From: Denise Olliffe Message-Id: <200106061749.f56Hn2015337@smtp.oreilly.com> Subject: A note from Denise A note from Denise and the O'Reilly UG Program: Yesterday, I sent you the announcement for the O'Reilly Peer-to-Peer and Web Services Conference, September 18-21 at the Omni Shoreham Hotel, Washington, D.C. I wanted your members to be aware that they are entitled to 20% discount on all conference and tutorial fees. If they register for the conference before August 17th, during the "Early Bird" pricing, they will receive the 20% discount off this already reduced pricing. After August 17th, the 20% discount will apply to standard fees. ... Thanks in advance for passing this info to your members. --Denise From ssmythe at channelpoint.com Thu Jun 7 14:18:45 2001 From: ssmythe at channelpoint.com (Steve Smythe) Date: Thu Aug 5 00:17:58 2004 Subject: Perl Mongers lunch TODAY Message-ID: My apologies for not showing up for fantastic Japanese! I'm still recovering from my gall bladder surgery last Thursday and couldn't get up this morning. :-) I'm feeling millions better though. Hope everyone had some great food today! Steve > -----Original Message----- > From: Tim Chambers [mailto:tbc@who.net] > Sent: Thursday, June 07, 2001 7:07 AM > To: Pikes Peak Perl Mongers > Subject: Perl Mongers lunch TODAY > > > Based on feedback I've received, I'm announcing the following plan: > > WHAT: monthly Perl Mongers lunch > WHERE: Ichiban, 333 N. Tejon > WHEN: 11:30 a.m. Thursday, June 7th (TODAY) > > Hope to see you all there. > > <>< Tim > 719.590.5570 (w) > 719.651.0116 (cell) > > > From tbc at who.net Fri Jun 8 13:39:01 2001 From: tbc at who.net (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: O'Reilly Releases "Perl CD Bookshelf, Version 2.0" Message-ID: <00b701c0f04a$4ca064c0$80441d82@cos.agilent.com> For Immediate Release June 7, 2001 Review copies, contact: Denise Olliffe (707) 829-0515 ext 339 or deniseo@oreilly.com NEW EDITION OF O'REILLY'S "PERL CD BOOKSHELF" RELEASED Sebastopol, CA--You've got five essential Perl books and you're about to hit the road. Which do you take with you? Fortunately this is a choice Perl programmers haven't needed to make since O'Reilly released the first "Perl CD Bookshelf" in 1999. Now, with the just-released "Perl CD Bookshelf, Version 2.0," Perl programmers have an up-to-date, exhaustive Perl reference library that's completely portable, so being without a favorite Perl reference is not a situation they're likely to face. Perl programmers increasingly rely on the Web, online help, and online information sources for solutions to complex problems. The second edition of O'Reilly's "Perl CD Bookshelf" provides convenient online access to updates of favorite Perl books on a single CD. This essential library features a master index for all five bestselling Perl books--with text extensively hyperlinked--and a powerful search engine, so sought-after information can be quickly located. Packaged with a hard copy of "Perl in a Nutshell," the entire library takes up less than two inches of bookshelf space, but programmers on the move can just grab the CD and go. Formatted in HTML, "The Perl CD Bookshelf, Version 2.0" can be read by any browser. The CD-ROM contains the complete, unabridged versions of: --"Perl in a Nutshell" http://www.oreilly.com/catalog/perlnut/ --"Programming Perl, 3rd Edition" http://www.oreilly.com/catalog/pperl3/ --"Perl Cookbook" http://www.oreilly.com/catalog/cookbook/ --"Advanced Perl Programming" http://www.oreilly.com/catalog/advperl/ --"Perl for System Administration" http://www.oreilly.com/catalog/perlsysadm/ The five books, when purchased separately, would retail for $189.75, but "The Perl CD Bookshelf, Version 2.0" retails for only $79.95. What the readers and critics said about the first edition: "This CD is a very handy collection of a number of well-known O'Reilly Perl books. If you work on Perl-related stuff on various sites, a CD with the content of 6 books is much easier on your back to carry around with you. If you're a programmer who works on different client sites, this is great replacement for a stack of good Perl books. For a reasonable price, you get a truckload of information on a handy portable medium."--Arjen Laarhoven, slashdot.org, Dec 1999 "...an excellent set of resources within a small package...an outstanding compendium of techniques, procedures, facts, and basics for any level of Perl programmer...This is an extraordinary collection. If you use Perl, you need 'The Perl CD Bookshelf.'"--Elizabeth Zinkann, "SYS ADMIN," Nov 1999 "I really had doubts about whether this publication would be of any use. Those doubts disappeared when I saw the product and realized that the search features could save oodles of time. I also plan to make judicious use of browser bookmarks so I can remember the common places in books that I need to access frequently...The prospect of being able to emit complex CD searches in addition to a well-constructed handbook makes it worthwhile."--Peter Collinson, "EXE," November 1999 For more information about "The Perl CD Bookshelf, Version 2.0," see: http://www.oreilly.com/catalog/perlcdbs2/ For a cover graphic in jpeg format, go to: ftp://ftp.ora.com/pub/graphics/book_covers/hi-res/0596001649.jpg The Perl CD Bookshelf, Version 2.0 By O'Reilly & Associates, Inc. 2nd Edition, May 2001 ISBN 0-596-00164-9, 672 pages, $79.95 (US) order@oreilly.com 1-800-998-9938 http://www.oreilly.com # # # O'Reilly is a registered trademark of O'Reilly & Associates, Inc. All other trademarks are property of their respective owners. From Robert.L.Harris at rdlg.net Fri Jun 8 13:47:02 2001 From: Robert.L.Harris at rdlg.net (Robert L. Harris) Date: Thu Aug 5 00:17:58 2004 Subject: O'Reilly Releases "Perl CD Bookshelf, Version 2.0" In-Reply-To: <00b701c0f04a$4ca064c0$80441d82@cos.agilent.com>; from tbc@who.net on Fri, Jun 08, 2001 at 12:39:01PM -0600 References: <00b701c0f04a$4ca064c0$80441d82@cos.agilent.com> Message-ID: <20010608124702.F6829@rdlg.net> Just ordered mine this morning. They also have a Unix Bookshelf, second version also. Robert Thus spake Tim Chambers (tbc@who.net): > > For Immediate Release > June 7, 2001 > Review copies, contact: Denise Olliffe > (707) 829-0515 ext 339 or deniseo@oreilly.com > > > NEW EDITION OF O'REILLY'S "PERL CD BOOKSHELF" RELEASED > > > Sebastopol, CA--You've got five essential Perl books and you're about > to hit the road. Which do you take with you? Fortunately this is a > choice Perl programmers haven't needed to make since O'Reilly released > the first "Perl CD Bookshelf" in 1999. Now, with the just-released > "Perl CD Bookshelf, Version 2.0," Perl programmers have an up-to-date, > exhaustive Perl reference library that's completely portable, so being > without a favorite Perl reference is not a situation they're likely to > face. > > Perl programmers increasingly rely on the Web, online help, and online > information sources for solutions to complex problems. The second > edition of O'Reilly's "Perl CD Bookshelf" provides convenient online > access to updates of favorite Perl books on a single CD. This essential > library features a master index for all five bestselling Perl > books--with text extensively hyperlinked--and a powerful search engine, > so sought-after information can be quickly located. Packaged with a > hard copy of "Perl in a Nutshell," the entire library takes up less > than two inches of bookshelf space, but programmers on the move can > just grab the CD and go. > > Formatted in HTML, "The Perl CD Bookshelf, Version 2.0" can be read by > any browser. The CD-ROM contains the complete, unabridged versions of: > --"Perl in a Nutshell" http://www.oreilly.com/catalog/perlnut/ > --"Programming Perl, 3rd Edition" http://www.oreilly.com/catalog/pperl3/ > --"Perl Cookbook" http://www.oreilly.com/catalog/cookbook/ > --"Advanced Perl Programming" http://www.oreilly.com/catalog/advperl/ > --"Perl for System Administration" > http://www.oreilly.com/catalog/perlsysadm/ > > The five books, when purchased separately, would retail for $189.75, > but "The Perl CD Bookshelf, Version 2.0" retails for only $79.95. > > What the readers and critics said about the first edition: > > "This CD is a very handy collection of a number of well-known O'Reilly > Perl books. If you work on Perl-related stuff on various sites, a CD > with the content of 6 books is much easier on your back to carry around > with you. If you're a programmer who works on different client sites, > this is great replacement for a stack of good Perl books. For a > reasonable price, you get a truckload of information on a handy > portable medium."--Arjen Laarhoven, slashdot.org, Dec 1999 > > "...an excellent set of resources within a small package...an > outstanding compendium of techniques, procedures, facts, and basics for > any level of Perl programmer...This is an extraordinary collection. If > you use Perl, you need 'The Perl CD Bookshelf.'"--Elizabeth Zinkann, > "SYS ADMIN," Nov 1999 > > "I really had doubts about whether this publication would be of any > use. Those doubts disappeared when I saw the product and realized that > the search features could save oodles of time. I also plan to make > judicious use of browser bookmarks so I can remember the common places > in books that I need to access frequently...The prospect of being able > to emit complex CD searches in addition to a well-constructed handbook > makes it worthwhile."--Peter Collinson, "EXE," November 1999 > > For more information about "The Perl CD Bookshelf, Version 2.0," see: > http://www.oreilly.com/catalog/perlcdbs2/ > > For a cover graphic in jpeg format, go to: > ftp://ftp.ora.com/pub/graphics/book_covers/hi-res/0596001649.jpg > > > The Perl CD Bookshelf, Version 2.0 > By O'Reilly & Associates, Inc. > 2nd Edition, May 2001 > ISBN 0-596-00164-9, 672 pages, $79.95 (US) > order@oreilly.com > 1-800-998-9938 > http://www.oreilly.com > > # # # > > O'Reilly is a registered trademark of O'Reilly & Associates, Inc. All > other trademarks are property of their respective owners. > :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From johnh at fgm.com Fri Jun 15 13:39:08 2001 From: johnh at fgm.com (John Hundley) Date: Thu Aug 5 00:17:58 2004 Subject: use lib Message-ID: Hi, Does anyone know how to send an array to use lib? Here is what I am trying to do: I have a given directory tree containing perl packages but I don't know where it will be installed. Also at the bottom of the tree there are directories containing perl packages that may or may not be there at install time. I will have an environment variable set called INSTALL_DIR that will tell me where I am starting from. Forgive me I am just learning perl but basically here is what I think the code should look like: $INSTALL_DIR=$ENV{INSTALL_DIR}; @dirs = ("$INSTALL_DIR/install", "$INSTALL_DIR/install/sql", "$INSTALL_DIR/install/sql/ORACLE", "$INSTALL_DIR/install/sql/SYBASE", "$INSTALL_DIR/install/sql/INFORMIX"); @valid_dirs= []; foreach $dir (@dirs){ if (-d $dir){ push @valid_dirs, $dir; } } use lib @valid_dirs; #this is not working I have tried every way I can think of to pass the array into lib and nothing works. Any Ideas? Thanks, John Hundley From tbchambers at yahoo.com Fri Jun 15 15:29:03 2001 From: tbchambers at yahoo.com (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: use lib References: Message-ID: <00b001c0f5d9$d1f55b00$80441d82@cos.agilent.com> John Hundley wrote: > Does anyone know how to send an array to use lib? John, After looking at you example, I have a suggestion. Could you set @INC instead? Then you wouldn't even have to call 'use lib.' <>< Tim From matt.long at matthew-long.com Fri Jun 15 16:17:59 2001 From: matt.long at matthew-long.com (Matthew J Long) Date: Thu Aug 5 00:17:58 2004 Subject: use lib References: Message-ID: <000c01c0f5e0$bd93e6c0$1f01a8c0@ebiztech.com> I think it would help if you could clarify your purpose here, but it occurs to me that this may do what you're looking for: BEGIN{ my $INSTALL_DIR=$ENV{INSTALL_DIR}; my @dirs = ( "$INSTALL_DIR/install", "$INSTALL_DIR/install/sql", "$INSTALL_DIR/install/sql/ORACLE", "$INSTALL_DIR/install/sql/SYBASE", "$INSTALL_DIR/install/sql/INFORMIX" ); foreach my $dir (@dirs) { if (-d $dir) { use lib $dir; } } } I didn't test this, so you'll have to play with it. As far as using @INC as Tim suggested--in essence that is what you are doing by calling 'use lib'. >From the Camel book (2 ed. pg 138) ... "If you need to modify this list [refers to @INC] at run-time, you should use the lib module in order to also get the machine-dependant library properly loaded." Good luck! -Matt ----- Original Message ----- From: "John Hundley" To: "Pikes Peak PM's" Sent: Friday, June 15, 2001 11:39 AM Subject: use lib > Hi, > Does anyone know how to send an array to use lib? Here is what I am trying > to do: I have a given directory tree containing perl packages but I don't > know where it will be installed. Also at the bottom of the tree there are > directories containing perl packages that may or may not be there at install > time. I will have an environment variable set called INSTALL_DIR that will > tell me where I am starting from. Forgive me I am just learning perl but > basically here is what I think the code should look like: > > $INSTALL_DIR=$ENV{INSTALL_DIR}; > @dirs = ("$INSTALL_DIR/install", "$INSTALL_DIR/install/sql", > "$INSTALL_DIR/install/sql/ORACLE", "$INSTALL_DIR/install/sql/SYBASE", > "$INSTALL_DIR/install/sql/INFORMIX"); > @valid_dirs= []; > foreach $dir (@dirs){ > if (-d $dir){ > push @valid_dirs, $dir; > } > } > use lib @valid_dirs; #this is not working > > > I have tried every way I can think of to pass the array into lib and nothing > works. Any Ideas? > > Thanks, > John Hundley > From Robert.L.Harris at rdlg.net Mon Jun 18 10:33:53 2001 From: Robert.L.Harris at rdlg.net (Robert L. Harris) Date: Thu Aug 5 00:17:58 2004 Subject: next in a for loop? Message-ID: <20010618093353.B26975@rdlg.net> @content is the result of a get($url) which is populated correctly. I have this: foreach $i (@content) { next if ($i =~ /^$/); print "\$i :$i:\n"; } In theory, if $i is empty ( i.e. "") it should skip to the next iteration. I've also done a 'next $i if ($i eq "");' and a number of combinations of those 2. It doesn't correctly skip the print statement. The print statement is just an exampla, I actually have a good bit of processing so I cant just say "print if ($i ne ""); or such... How do I get it to go to the next iteration of the loop if $i is empty? :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From erics at cos.agilent.com Mon Jun 18 11:02:37 2001 From: erics at cos.agilent.com (Eric Schwartz) Date: Thu Aug 5 00:17:58 2004 Subject: next in a for loop? In-Reply-To: <20010618093353.B26975@rdlg.net>; from Robert.L.Harris@rdlg.net on Mon, Jun 18, 2001 at 09:33:53AM -0600 References: <20010618093353.B26975@rdlg.net> Message-ID: <20010618100237.B8652@valdemar.cos.agilent.com> On Mon, Jun 18, 2001 at 09:33:53AM -0600, Robert L. Harris wrote: > I have this: > > foreach $i (@content) { > next if ($i =~ /^$/); > > print "\$i :$i:\n"; > > } > That works just fine for me. Here's a transcript: /home/erics$ perl @content = ('abc', 'def', '', 'fgh', 'ijk'); foreach $i (@content) { next if ($i =~ /^$/); print "\$i = [$i]\n"; } ^D $i = [abc] $i = [def] $i = [fgh] $i = [ijk] /home/erics$ > How do I get it to go to the next iteration of the loop if $i is empty? You could try using a label ("foo: foreach (...) { next foo; }"), I suppose, but I have a feeling $i may not be as empty as you think it is. I see you're printing it out with delimiters, so I'm kind of at a loss as to what the actual problem might be. :-\ -=Eric -- K is for Kara, had an un-IDd drink L is for Lana, who fell on a sink -- Doug Atkinson in rec.games.roguelike.nethack From Robert.L.Harris at rdlg.net Mon Jun 18 11:06:45 2001 From: Robert.L.Harris at rdlg.net (Robert L. Harris) Date: Thu Aug 5 00:17:58 2004 Subject: next in a for loop? In-Reply-To: <20010618100237.B8652@valdemar.cos.agilent.com>; from erics@cos.agilent.com on Mon, Jun 18, 2001 at 10:02:37AM -0600 References: <20010618093353.B26975@rdlg.net> <20010618100237.B8652@valdemar.cos.agilent.com> Message-ID: <20010618100645.I26975@rdlg.net> I found a work around but I tried "next if ($i eq "");" and "next if ($i =~ /%$/);" quite a few times and it still ran. Robert Thus spake Eric Schwartz (erics@cos.agilent.com): > On Mon, Jun 18, 2001 at 09:33:53AM -0600, Robert L. Harris wrote: > > I have this: > > > > foreach $i (@content) { > > next if ($i =~ /^$/); > > > > print "\$i :$i:\n"; > > > > } > > > > > > That works just fine for me. Here's a transcript: > > /home/erics$ perl > @content = ('abc', 'def', '', 'fgh', 'ijk'); > foreach $i (@content) { > next if ($i =~ /^$/); > > print "\$i = [$i]\n"; > } > ^D > $i = [abc] > $i = [def] > $i = [fgh] > $i = [ijk] > /home/erics$ > > > How do I get it to go to the next iteration of the loop if $i is empty? > > You could try using a label ("foo: foreach (...) { next foo; }"), I > suppose, but I have a feeling $i may not be as empty as you think it is. > I see you're printing it out with delimiters, so I'm kind of at a loss as > to what the actual problem might be. :-\ > > -=Eric > -- > K is for Kara, had an un-IDd drink > L is for Lana, who fell on a sink > -- Doug Atkinson in rec.games.roguelike.nethack :wq! --------------------------------------------------------------------------- Robert L. Harris | Micros~1 : Senior System Engineer | For when quality, reliability at RnD Consulting | and security just aren't \_ that important! DISCLAIMER: These are MY OPINIONS ALONE. I speak for no-one else. FYI: perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' From matt.long at matthew-long.com Mon Jun 25 11:28:07 2001 From: matt.long at matthew-long.com (Matthew J Long) Date: Thu Aug 5 00:17:58 2004 Subject: Part time (possibly full-time) Perl CGI Developer Needed References: <009301c0b8a0$8cd19f00$6a82b88d@tc5570p> Message-ID: <001101c0fd93$d1412060$1f01a8c0@ebiztech.com> All, My company is in need of a part time CGI developer--preferably on a contract basis. However, we don't want to go through a consulting firm. If you are or know someone who is an independant contractor that can do this type of work, please send me resumes. We are in the midst of trying to build a "my" site to provide a way for our customers to get updates for their products they have purchased previously as well as news and other information. It sounds like it's going to be data intensive. Should be a pretty fun gig. I wish I had the time to do it myself. Anyhow, please let me know if you know someone or if you would personally be interested. In all likelihood my company will want to see prior works. Just FYI. Thanks. -Matt From tbchambers at yahoo.com Mon Jun 25 11:41:01 2001 From: tbchambers at yahoo.com (Tim Chambers) Date: Thu Aug 5 00:17:58 2004 Subject: need a champion to plan July lunch Message-ID: <004c01c0fd95$9ee2ec00$80441d82@cos.agilent.com> I can't make lunch next week. I need a volunteer to coordinate the planning for the July lunch. Traditionally they've been the first Thursday of the month, which would make July's date the 5th. <>< Tim From matt.long at matthew-long.com Mon Jun 25 11:54:46 2001 From: matt.long at matthew-long.com (Matthew J Long) Date: Thu Aug 5 00:17:58 2004 Subject: need a champion to plan July lunch References: <004c01c0fd95$9ee2ec00$80441d82@cos.agilent.com> Message-ID: <001c01c0fd97$8a8e8960$1f01a8c0@ebiztech.com> I'd suggest pushing it out a week in July (which makes it July 12th) because of the holiday. We may get a better attendance that way. Just my 2 cents. -Matt ----- Original Message ----- From: "Tim Chambers" To: "Pikes Peak Perl Mongers" Sent: Monday, June 25, 2001 9:41 AM Subject: need a champion to plan July lunch > I can't make lunch next week. I need a volunteer to coordinate the planning > for the July lunch. Traditionally they've been the first Thursday of the > month, which would make July's date the 5th. > > <>< Tim > > From evansj at kilnar.com Mon Jun 25 11:51:23 2001 From: evansj at kilnar.com (John Evans) Date: Thu Aug 5 00:17:58 2004 Subject: need a champion to plan July lunch In-Reply-To: <004c01c0fd95$9ee2ec00$80441d82@cos.agilent.com> Message-ID: On Mon, 25 Jun 2001, Tim Chambers wrote: > I can't make lunch next week. I need a volunteer to coordinate the > planning for the July lunch. Traditionally they've been the first > Thursday of the month, which would make July's date the 5th. I'm up for the 5th or the 12th (as per Matt's suggestion.) If it's on the 5th, I won't be near a computer much that week so I can't help with planning things. If it's on the 12th, I could help with the plans and what-not. Because of the holiday, I'm actually in favor of pushing the lunch back a week to the 12th. That way we'll get more people. I have several here at work that are interested in attending, but they always seem to have meetings and other things planned. :( -- John Evans http://evansj.kilnar.com/ From kscott-list at pcisys.net Mon Jun 25 17:48:47 2001 From: kscott-list at pcisys.net (Ken Scott) Date: Thu Aug 5 00:17:58 2004 Subject: PPPM Logo on web page Message-ID: Tim, I just got to the web site and saw your "new" logo for PPPM. I'm not sure which rock formation that you have used, but it seems to me that it would be natural, if not required, to use a picture of Kissing Camels as the logo for the group. Ken -- <>< Ken Scott ken@optikos.net http://www.pcisys.net/~kscott This is the day that the Lord has made; Let us rejoice and be glad in it -- Psalm 118:24 From pwdrhound at pcisys.net Mon Jun 25 21:14:54 2001 From: pwdrhound at pcisys.net (Greg Walters) Date: Thu Aug 5 00:17:58 2004 Subject: need a champion to plan July lunch Message-ID: Matt wrote: >I'd suggest pushing it out a week in July (which makes it July 12th) because >of the holiday. We may get a better attendance that way. I can agree with this. Seems like many might be unavailable the week of Independence Day. Greg Walters