From dhowk at leading.net Thu May 6 11:39:14 1999 From: dhowk at leading.net (Doug Howk) Date: Thu Aug 5 00:03:03 2004 Subject: ms access Message-ID: <3731C5B1.19678F64@leading.net> On the Jax.PM jacksonville-pm-list 1.94.4; Doug Howk wrote - The agency I work for has an extranet web site running on NT using SuiteSpot & ms access . We've started using perl for much of database access. I created process using win32::ODBC module, that during testing worked fine. Same week it was put into production, another developer using win32::OLE ADODB went on production server. Now, any time I run my app, database access slows to a crawl (have to re-install JDB engine to restore speed on prod box). On dev box without adodb app, no speed problem. Is anyone aware of conflict between OLE's adodb & ODBC perl modules? Thanks, Doug Howk The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From dss at fccj.org Thu May 6 12:45:20 1999 From: dss at fccj.org (fccj dss) Date: Thu Aug 5 00:03:03 2004 Subject: ms access References: <3731C5B1.19678F64@leading.net> Message-ID: <3731D530.F3EB7A86@fccj.org> On the Jax.PM jacksonville-pm-list 1.94.4; fccj dss wrote - Doug Howk wrote: > > On the Jax.PM jacksonville-pm-list 1.94.4; > Doug Howk wrote - > > The agency I work for has an extranet web site running on NT using > SuiteSpot & ms access . We've started using perl for much of database > access. I created process using win32::ODBC module, that during testing > worked fine. Same week it was put into production, another developer > using win32::OLE ADODB went on production server. Now, any time I run my > app, database access slows to a crawl (have to re-install JDB engine to > restore speed on prod box). On dev box without adodb app, no speed > problem. > Is anyone aware of conflict between OLE's adodb & ODBC perl modules? > Thanks, Doug Howk um, no. i do not have that much experience with perl on winnt and none with 'OLE's adodb' you may wish to ask in the comp.lang.perl.misc newsgroup, however. anyone else know? The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From dstringf at fccjmail.fccj.cc.fl.us Thu May 6 14:15:22 1999 From: dstringf at fccjmail.fccj.cc.fl.us (Daniel Stringfield) Date: Thu Aug 5 00:03:03 2004 Subject: ms access In-Reply-To: <3731D530.F3EB7A86@fccj.org> Message-ID: On the Jax.PM jacksonville-pm-list 1.94.4; Daniel Stringfield wrote - On Thu, 6 May 1999, fccj dss wrote: > um, no. i do not have that much experience > with perl on winnt and none with 'OLE's adodb' > > you may wish to ask in the comp.lang.perl.misc > newsgroup, however. > > anyone else know? The only db interface I've used under PERL is DBD under Unix. I was slightly interested in playing with it under Windows, just to spite the NT people in the office. -- ======= 40 4B 36 58 A0 C7 5A 8A 49 E0 39 54 00 20 A3 AA ======= Daniel Stringfield Florida Community College at Jacksonville ================================================================ The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Thu May 6 22:10:49 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: Current Perl Module Listing Message-ID: <199905070315.XAA17830@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list 1.94.4; "Bill Jones" wrote - Hi Jax Perl Mongers :] For a current Perl Module List, see - http://www.perl.com/CPAN-local/modules/01modules.index.html Enjoy! -Sneex- :] _________________________________________________________________________ Bill Jones | Data Security Specialist | http://www.fccj.org/cgi/mail?dss FCCJ | 501 W State St | Jacksonville, FL 32202 | 1 (904) 632-3089 Trust the computer industry to shorten "Year 2000" to "Y2k". It was this kind of thinking that caused the problem in the first place. -- Tony Poldrugovac The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Sat May 8 09:49:00 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: [Bi-]Weekly Perl Script Message-ID: <199905081447.KAA28025@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list 1.94.4; "Bill Jones" wrote - Hi All :] (We are now 6 members strong!) Welcome! Here is the latest installment of what was supposed to be the Weekly Perl Script, but appears to be bi-weekly now. #!/usr/local/bin/perl use Cwd; use File::Find; # Do NOT run as root! ($> > 0) or die("\n\nWARNING: Do NOT run as root! Goodbye...\n\n"); unless (@ARGV && (@ARGV > 1)) { print "Usage: $0 number directory [Enter]\n\n"; exit; } my $directory = pop(@ARGV); my $number = pop(@ARGV); unless ($number > 0 && $number < 100) { print "Number entered $number: Not numeric or not between 1 thru 99...\n\n"; exit; } unless (-d $directory) { print "Directory specified does not exist...\n\n"; exit; } if (($directory eq "/") || (getcwd eq "/")) { print "Will not run from ROOT Directory, sorry...\n\n"; exit; } find (sub { $size{$File::Find::name} = -s if -f; }, $directory); @sorted = sort { $size{$b} <=> $size{$a} } keys %size; splice @sorted, $number if @sorted > $number; foreach (@sorted) { printf "%10d %s\n", $size{$_}, $_; } # # Some related ideas - # # $Example =~ /^((?:\d+\.??){$addrClass})/; # $two == (() = /\d+/g); # ?Huh? # # ...end of script... As always, please e-mail this list if you have any questions, etc. Enjoy, -Sneex- :] _________________________________________________________________________ Bill Jones | Data Security Specialist | http://www.fccj.org/cgi/mail?dss FCCJ | 501 W State St | Jacksonville, FL 32202 | 1 (904) 632-3089 Trust the computer industry to shorten "Year 2000" to "Y2k". It was this kind of thinking that caused the problem in the first place. -- Tony Poldrugovac The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Mon May 17 16:22:58 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: Jacksonville PM Page Updated! Message-ID: <199905172121.RAA06063@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list 1.94.4; "Bill Jones" wrote - See - http://jacksonville.pm.org There are a few new links. Thx, -Sneex- :] ______________________________________________________________________ Windows is a 32-bit extension for a 16-bit patch for a 8-bit operating system which was originally coded for a 4-Bit microprocessor by a 2-bit company that can't stand 1-bit of competition. :) Jacksonville Perl Mongers http://jacksonville.pm.org jax@jacksonville.pm.org The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Mon May 17 21:49:53 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: Weekly Perl Script Message-ID: <199905180248.WAA09437@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list 1.94.4; "Bill Jones" wrote - Here is an 'early' installment of "The Weekly Perl Script" series... (To make up for the week I missed...) Enjoy! -Sneex- :] ______________________________________________________________________ Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss ______________________________________________________________________ We are the CLPM... Lower your standards and surrender your code... We will add your biological and technological distinctiveness to our own... Your thoughts will adapt to service us... ...Resistance is futile... Jacksonville Perl Mongers http://jacksonville.pm.org jax@jacksonville.pm.org ---------- An explanation and the Scripts: Hi All :] As a new benefit for the Jacksonville Perl Monger membership (now at 4 :) I present the kick off of the "Weekly Perl Script" series. Each Week, around Saturday or Sunday, I will submit to the list a Perl Script which does something useful, but one which isn't too hard to follow along with and can be modified to attend other tasks. I will post a script to the Jax-PM listserv and allow one week for the group to discuss it; after the week has passed I will either post a follow-up, one which will help describe the functioning of the prior weeks post or we will move on to a new script to discuss that week. Fair enough? BTW: The 'other' members may post script and/or questions here as well. I'm not saying that any of them will be answered - but together I am sure we can discover a solution! Here is this weeks offering for your review - (Actually three (3) scripts, presented in the order I believe you should 'think' about them.) # Script Number 1... $_ = "Sneaker's Nest"; while (/([neaker])*/g) { print join(" : ", map { defined $_ ? $_ : "undef" } $`, $&, $', $+, $1, $2, $3), " ", $y++, "\n"; } # NOTES: Where - # # $` = the string preceding what was successfully matched... # $& = the string successfully matched... # $' = the string following what was successfully matched... # $+ = the last bracket matched in the last successful search... # $1...$9... = Contains matched subpatterns from corresponding # parentheses in the last successful match... # Script Number 2... $_ = "Sneaker's Nest"; while (/([Sneaker's Nest])/g) { print join(" : ", map { defined $_ ? $_ : "undef" } $`, $&, $', $+, $1, $2, $3), " ", $y++, "\n"; } # NOTES: Where - # # $` = the string preceding what was successfully matched... # $& = the string successfully matched... # $' = the string following what was successfully matched... # $+ = the last bracket matched in the last successful search... # $1...$9... = Contains matched subpatterns from corresponding # parentheses in the last successful match... # Script Number 3... $_ = "Just Another Perl Hacker"; while (/([$_])/g) { print join(".", map { defined $_ ? $_ : "." } $&), "\n"; } # Script Number 4... #!perl -w $_ = "Just Another Perl Hacker"; while (/([$_])/g) { print join(" ", map { defined $_ ? $_ : "undef" } (' ' x length($`)), $&, (' ' x length($')), $+), "\n"; } OK, OK; so there were four scripts... :] The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Wed May 19 09:49:17 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: redirects Message-ID: <199905191447.KAA26587@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list 1.94.4; "Bill Jones" wrote - >From: Daniel Stringfield >To: bill@fccjmail.fccj.cc.fl.us >Subject: redirects >Date: Wed, May 19, 1999, 10:09 AM > > With CGI.pm, whats the option to do a redirect? > > Printing header is done like this... > $q->header; > > So it must be something like... > $q->header(-redirect=>'http://www.fccj.org/blah.html'); > > is that it? Close :] Try - $q->redirect(-location=>'http://www.fccj.org/blah.html'); But why not simply use - print "Location: http://newserver.loc.com/somepage.html\n\n"; ??? -Sneex- :] ______________________________________________________________________ Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss http://certserver.pgp.com:11371/pks/lookup?op=get&search=0x37EFC00F http://www.networksolutions.com/cgi-bin/whois/whois?BJ1936 Jacksonville Perl Mongers http://jacksonville.pm.org jax@jacksonville.pm.org The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Fri May 21 12:16:19 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:03 2004 Subject: Hi. Message-ID: On the Jax.PM jacksonville-pm-list 1.94.4; j proctor wrote - Hi, all. Okay, so I escaped Jax a year and a half ago; I still visit occasionally, so I might as well watch what happens in the Perl community there. If there's a meeting while I'm there, I expect to be treated like a visiting dignitary, of course. :) Plus, I'm within a day trip of the fairly active groups in Boston and New York, so if something really exciting happens, I might even let y'all know before it would naturally filter all the way down the coast. j proctor The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From dss at fccj.org Fri May 21 19:55:23 1999 From: dss at fccj.org (fccj dss) Date: Thu Aug 5 00:03:03 2004 Subject: Hi. References: Message-ID: <3746007B.2F3B2354@fccj.org> On the Jax.PM jacksonville-pm-list 1.94.4; fccj dss wrote - > On the Jax.PM jacksonville-pm-list 1.94.4; > j proctor wrote - > > Hi, all. > > Okay, so I escaped Jax a year and a half ago; I still visit occasionally, > so I might as well watch what happens in the Perl community there. If > there's a meeting while I'm there, I expect to be treated like a visiting > dignitary, of course. :) > > Plus, I'm within a day trip of the fairly active groups in Boston and New > York, so if something really exciting happens, I might even let y'all know > before it would naturally filter all the way down the coast. > > j proctor Actually, since you are about the only subscriber who has posted anything, not much is happening here. Not on this list. Maybe I haven't advertised enough? I'll have to start a massive spam campaign to remedy that :] Cheers, Sneex The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From root at dss.insecurity.org Fri May 21 20:03:23 1999 From: root at dss.insecurity.org (root) Date: Thu Aug 5 00:03:03 2004 Subject: No subject Message-ID: <199905220103.VAA04210@dss.insecurity.org> On the Jax.PM jacksonville-pm-list 1.94.4; root wrote - ...Posting Test... The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Sat May 22 20:51:15 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:03 2004 Subject: Hi. In-Reply-To: <3746007B.2F3B2354@fccj.org> Message-ID: On the Jax.PM jacksonville-pm-list; j proctor wrote - > Actually, since you are about the only subscriber > who has posted anything, not much is happening here. Okay, everyone--it's time to wake up. Sound off! Everyone who's on this list sign in and let us know you're here. Don't be shy. We won't bite. Well, I won't. I'm a thousand miles away. Hi. I'm j. I do Perl, and I usually even get paid for it. Cool, huh? Currently, I'm the web guy for the Office of Information Technologies at the University of Massachusetts. Before you get any wild ideas, that sounds bigger than it is--I run OIT's web server (www.oit.umass.edu/), but I'm not associated with the web server that OIT runs for the rest of campus (www.umass.edu/). Go figure. And if you think my site needs work, you're right. If you'll kindly tell me that by email, though, I can collect user comments and help convince the powers that be. :) > Not on this list. Maybe I haven't advertised enough? Offer a prize to the person that convinces the most other Perl-using (or Perl-learning) people to participate. Somethin' useful, like an O'Reilly book. Of course, you'll still have to define "participate", but at least it's a start. There are lots of good computery businesses (and a couple of universities) around town. > I'll have to start a massive spam campaign to > remedy that :] Ooh! Ooh! I'm sure I'll get another "make money fast by bulk email" spam in the next couple weeks; I'll pass it on to you. :) j The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Thu May 27 12:00:09 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: [Announcement] Project SETI Message-ID: <199905271658.MAA26816@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - The Jacksonville Perl Mongers is proud to support the Search for Extraterrestrial Intelligence (SETI). See http://jacksonville.pm.org/ Or, directly: http://setiathome.ssl.berkeley.edu/cgi-bin/cgi?cmd=team_lookup&name=Jacksonv ille+Perl+Mongers /^Announcement$/ -Sneex- :] ______________________________________________________________________ Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss Need to get started in Perl? See http://jacksonville.pm.org/Letter.cgi The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Sat May 29 21:21:36 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: JaxPM - Modules Update Message-ID: <199905300219.WAA11206@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - There are now 918+ modules on CPAN - http://www.perl.com/CPAN-local/modules/01modules.index.html /^Enjoy\!$/ -Sneex- :] ______________________________________________________________________ Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss Need to get started in Perl? See http://jacksonville.pm.org/Letter.cgi The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Sat May 29 21:55:18 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:03 2004 Subject: Weekly Perl Script Message-ID: <199905300253.WAA11327@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - [Forth issue in a continuing series...] Hi All :] As a benefit for the Jacksonville Perl Monger membership (now at 7 :) I present the Forth Issue in the "Weekly Perl Script" series. Each Week, around Saturday or Sunday, I will submit to the list a Perl Script which does something useful, but one which isn't too hard to follow along with and can be modified to attend other tasks. I will post a script to the Jax-PM listserv and allow one week for the group to discuss it; after the week has passed I will either post a follow-up, one which will help describe the functioning of the prior weeks post or we will move on to a new script to discuss that week. Fair enough? BTW: The 'other' members may post scripts and/or questions here as well. I'm not saying that any of them will be answered - but together I am sure we can discover a solution! Here is this weeks offering for your review - (This weeks offering is actually in three portions: two scripts and some inetd.conf configuration stuff...) # Start of script one, called 'sniffer'... #!/usr/bin/perl -w # # Sniffer - Logs attempts to access 'watched' ports... # (based upon backsniff from the Perl Cookbook...) # Modifications Copyright (C) FCCJ DSS Sneex 1999; All Rights Reserved... # # Install this script (as often as needed) in inetd.conf like this: # # echo stream tcp nowait nobody /path/to/script/sniffer sniffer # (Obviously 'echo', the listed service above, is an example...) # use Sys::Syslog; use Socket; # identify my (Astro's) port and address... $sockname = getsockname(STDIN) or die "Couldn't identify myself: $!\n"; ($port, $iaddr) = sockaddr_in($sockname); $my_address = inet_ntoa($iaddr); # get name of the service we are interested in... $service = (getservbyport ($port, "tcp"))[0] || $port; # now identify the REMOTE (probing) address... $sockname = getpeername(STDIN) or die "Couldn't identify the PROBING system: $!\n"; ($port, $iaddr) = sockaddr_in($sockname); $ex_address = inet_ntoa($iaddr); $ex_hostname = gethostbyaddr($iaddr, AF_INET); #@name_lookup = gethostbyname() # or die "Couldn't lookup $ex_hostname: $!\n"; #@resolved_ipAddrs = map { inet_ntoa($_) } # @name_lookup[ 4 .. $#ips_for_hostname ]; # and finally - log what was found... openlog("sniffer", "ndelay", "daemon"); syslog("notice", "Connection from %s (%s) to %s:%s\n", $ex_address, $ex_hostname, $my_address, $service); closelog(); print "\nWARNING: All accesses and attempts are investigated!\n Attempted access from $ex_address (possibly hostname: $ex_hostname) ...\n Access attempt on ", scalar localtime, ".\n\n Have A Nice Day! :]\n"; exit; # End of script one called 'sniffer'... ########################################### # Start of second script, called in.fingerd #!/usr/bin/perl -w # This script will prevent people from # using 'finger', when installed # properly... use Sys::Syslog; print " This server is not allowing finger requests. If you are having trouble, or need to look up a user on this server, please contact either root\@yourhost.here or postmaster\@yourhost.here Thank you for your understanding in this matter, Signed, Whomever you are "; print "This notice was served (and logged) at ", scalar localtime, " local time.\n\n"; # Set the userID, if known... my $usrID = `/usr/bin/whoami`; my $target = @ARGV ? $ARGV[0] : 'unknown'; my $mailAdmin = 'root@localhost'; # Send Log-On Reports to? my $mailProject = 'root@localhost'; # Responsible for Project? my $SENDMAIL = '/usr/lib/sendmail'; # The location of your sendmail binary... $| = 1; # Use unbuffered I/O... open (MAIL, "| $SENDMAIL $mailAdmin") || die ("$0: Fatal Error! Cannot open sendmail: $!\n"); print MAIL "Reply-to: $mailProject\n"; print MAIL "From: 'in.fingerd.Tracking.Server'\n"; print MAIL "To: 'localhost.SysAdmin'\n"; print MAIL "Subject: 'fingerd' service request by $usrID\n"; print MAIL "X-Comments: ===== A Message from the $0 application... =====\n"; print MAIL "SECURITY: Access to $0 by (real $< )(effective $> )\n"; print MAIL "\n"; # To hide 'event' under X-Comments, comment out line... print MAIL "UserID: $usrID tried \'finger $target\' request on \@ ", scalar localtime; # Who requested what... #print MAIL "\n"; #print MAIL "Relevant data:\n\n"; #print MAIL `ps -ef ; who ; w ; /top -SnU$usrID`; print MAIL "\n"; close (MAIL); # and finally - log what was found... openlog("in.fingerd", "ndelay", "daemon"); syslog("notice", "Local %s tried %s finger request.\n", $usrID, $target); closelog(); exit; # End of second script, called in.fingerd ######################################### And now the changes you should make to your /etc/inetd.conf file: #ident "@(#)inetd.conf 1.22 95/07/14 SMI" /* SVr4.0 1.5 */ # Configuration file for inetd(1M). See inetd.conf(4). # # To re-configure the running inetd process, edit this file, then # send the inetd process a SIGHUP. # # Syntax for socket-based Internet services: # # # Syntax for TLI-based Internet services: # tli # # Some services I have booby-trapped: #finger stream tcp nowait nobody /usr/sbin/in.fingerd in.fingerd finger stream tcp nowait nobody /usr/sbin/sniffer sniffer #systat stream tcp nowait root /usr/bin/ps ps -ef systat stream tcp nowait nobody /usr/sbin/sniffer sniffer #netstat stream tcp nowait root /usr/bin/netstat netstat -f inet netstat stream tcp nowait nobody /usr/sbin/sniffer sniffer #echo stream tcp nowait root internal echo stream tcp nowait nobody /usr/sbin/sniffer sniffer # # WARNING: Syntax may be different for your particular # Unix/Linux platform... Research BEFORE changing... Look at them, think it over, and if you have any questions, please post to the list. Enjoy! -Sneex- :] _________________________________________________________________________ Bill Jones | Data Security Specialist | http://www.fccj.org/cgi/mail?dss FCCJ | 501 W State St | Jacksonville, FL 32202 | 1 (904) 632-3089 The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments...