From sporter at rit.net Wed Dec 1 09:55:06 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] Stronghold Message-ID: If you have experience with Stronghold, please contact me. I have some questions about it. -- Shawn Porter http://www.rit.net/sporter work - 716-223-3610 x116 home - 716-242-8742 sporter@rit.net From fedm at pkcommunications.com Wed Dec 1 10:49:04 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: Message-ID: <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> Does anyone know anything about Oracle databases and Perl? I'm trying to enter just a few fields, and it's not coming together well.. Here's the error I get from my script... DBD::Oracle::st execute failed: ORA-01722: invalid number (DBD: oexfet error) at mydb.pl line 11, <> chunk 1. Couldn't execute statement: ORA-01722: invalid number (DBD: oexfet error) at myd b.pl line 11, <> chunk 1. I know the $sth and settings on line 11 are corect, anyone know anything about this? Thanks in advance! Fred Edmister PK Communications CGI Web Developer fedm@pkcommunications.com From havoc at shell1.eznet.net Wed Dec 1 11:25:25 1999 From: havoc at shell1.eznet.net (Pat) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com>; from Fred Edmister on Wed, Dec 01, 1999 at 11:49:04AM -0500 References: <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> Message-ID: <19991201122525.A21765@shell1.eznet.net> On Wed, Dec 01, 1999 at 11:49:04AM -0500, Fred Edmister wrote: > Does anyone know anything about Oracle databases and Perl? I'm trying to > enter just a few fields, and it's not coming together well.. Here's the > error I get from my script... > > DBD::Oracle::st execute failed: ORA-01722: invalid number (DBD: oexfet > error) at > mydb.pl line 11, <> chunk 1. > Couldn't execute statement: ORA-01722: invalid number (DBD: oexfet error) > at myd > b.pl line 11, <> chunk 1. > ORA-01722 error indicates a failed conversion of a character string to a number. It's likely that the insert statement in misordered. Be sure that the columns match up correctly. It's also possible that you didn't strip a '$' of a currency amount or something similar. If you post your code, I'd be able to help more. Hope this helps, --Pat Ludwig From fedm at pkcommunications.com Wed Dec 1 11:39:28 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: <19991201122525.A21765@shell1.eznet.net> References: <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991201123928.00915100@mail1.pkcommunications.com> At 12:25 PM 12/1/99 -0500, you wrote: Ok... Here's the code... :) {begin code} use DBI; my $dbh = DBI->connect('DBI:Oracle:pkcom2','username','passwd') or die "Couldn't connect to database: " . DBI->errstr; my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE store_id = ?') or die "Couldn't prepare statement: " . $dbh->errstr; print "Enter name> "; while ($lastname = <>) { # Read input from the user my @data; chomp $lastname; $sth->execute($lastname) # Execute the query or die "Couldn't execute statement: " . $sth->errstr; # Read the matching records and print them out while (@data = $sth->fetchrow_array()) { my $firstname = $data[1]; my $id = $data[2]; print "\t$id: $firstname $lastname\n"; } if ($sth->rows == 0) { print "No names matched `$lastname'.\n\n"; } print "\n"; print "Enter name> "; } $sth->finish; $dbh->disconnect; {end code} At this point, it's just a "hacked" version of the example from where I got the files.. I've managed to make it connect... Now I'm getting that error... Thank you very much! :) >ORA-01722 error indicates a failed conversion of a character string to a number. >It's likely that the insert statement in misordered. Be sure that the columns match up >correctly. > >It's also possible that you didn't strip a '$' of a currency amount or something similar. > >If you post your code, I'd be able to help more. > >Hope this helps, > >--Pat Ludwig > > Fred Edmister PK Communications CGI Web Developer fedm@pkcommunications.com From havoc at shell1.eznet.net Wed Dec 1 12:18:37 1999 From: havoc at shell1.eznet.net (Pat) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: <3.0.6.32.19991201123928.00915100@mail1.pkcommunications.com>; from Fred Edmister on Wed, Dec 01, 1999 at 12:39:28PM -0500 References: <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <19991201122525.A21765@shell1.eznet.net> <3.0.6.32.19991201123928.00915100@mail1.pkcommunications.com> Message-ID: <19991201131837.A22937@shell1.eznet.net> On Wed, Dec 01, 1999 at 12:39:28PM -0500, Fred Edmister wrote: > At 12:25 PM 12/1/99 -0500, you wrote: > Ok... Here's the code... :) > > {begin code} > my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE store_id = ?') > or die "Couldn't prepare statement: " . $dbh->errstr; > print "Enter name> "; > while ($lastname = <>) { # Read input from the user > chomp $lastname; > $sth->execute($lastname) # Execute the query > or die "Couldn't execute statement: " . $sth->errstr; OK, I stripped the code down to the prepare and the execute for clarity. It seems to me that there is some confusion here. The prepare statement is looking for a variable to match with the field 'store_id', you are prompting for a 'last name'. The oracle error you were getting 'ORA01722' supports that you are trying to match a character string to a numeric field. The prepare and execute statements should be related, as: $sth=$dhp->prepare(blah blah WHERE somefield = '?'); $sth->execute($some_possible_value_of_somefield); In your code, 'last name' bears no relation to 'store_id' I believe the above code should look like: {begin code} # the change is store_id => last_name my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name = ?') # changed above line store_id => last_name or die "Couldn't prepare statement: " . $dbh->errstr; print "Enter name> "; while ($lastname = <>) { # Read input from the user chomp $lastname; $sth->execute($lastname) # Execute the query or die "Couldn't execute statement: " . $sth->errstr; Of course this presuposes that a 'last_name' field exists, your field may be named something different, just change to suit. One other option is to ask for the 'store_id' as input, but that seems to be not as useful to me, YMMV. Let us know how it goes, if you have any problems just ask. :-) --Pat Ludwig From bmathis at directedge.com Wed Dec 1 12:36:12 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] Stronghold In-Reply-To: Message-ID: Are you talking about stronghold specific stuff? or stuff related to certificates, etc? --- Brian Mathis Direct Edge On Wed, 1 Dec 1999, Shawn Porter wrote: > If you have experience with Stronghold, please contact me. I have some > questions about it. > > -- > Shawn Porter > http://www.rit.net/sporter > work - 716-223-3610 x116 > home - 716-242-8742 > sporter@rit.net > From fedm at pkcommunications.com Wed Dec 1 12:23:13 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] Pat, P.S. In-Reply-To: <19991201122525.A21765@shell1.eznet.net> References: <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991201132313.0091d350@mail1.pkcommunications.com> Right now this script is just connecting, and reading from the database... What I'm eventually trying to get this to do is input info from a form into the database... :) Just so you know what's going on with this script... It is VERY early stages! (as you can tell!) Thanks again for the help!! Fred From fedm at pkcommunications.com Wed Dec 1 12:37:24 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: <19991201131837.A22937@shell1.eznet.net> References: <3.0.6.32.19991201123928.00915100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <19991201122525.A21765@shell1.eznet.net> <3.0.6.32.19991201123928.0091> Message-ID: <3.0.6.32.19991201133724.0090eca0@mail1.pkcommunications.com> Ok, so let me make sure I understand this... The variable $lastname should be the name of the column in the database itself, not the feild being entered at the prompt? Sorry I sound so behind on this... Perl, I'm not bad with, but this DBI thing is really gettin' my brain fried! :) Guess I'll be gettin' more books too!! (as if reading the code isn't enough for us right, we have to read reference books too, and docs, and manuals, and... (chuckle) Sorry, kinda went off on a tangent.. Anyway, so is that the way it works? THat would explain a TON! Also, is there a list of commands and thier "options" available for this? (lemme guess the DBI Perl book...) I think I'm gonna get that this afternoon... Thanks again for all the help!! Fred At 01:18 PM 12/1/99 -0500, you wrote: >On Wed, Dec 01, 1999 at 12:39:28PM -0500, Fred Edmister wrote: >> At 12:25 PM 12/1/99 -0500, you wrote: >> Ok... Here's the code... :) >> >> {begin code} >> my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE store_id = ?') >> or die "Couldn't prepare statement: " . $dbh->errstr; >> print "Enter name> "; >> while ($lastname = <>) { # Read input from the user >> chomp $lastname; >> $sth->execute($lastname) # Execute the query >> or die "Couldn't execute statement: " . $sth->errstr; > >OK, I stripped the code down to the prepare and the execute for clarity. >It seems to me that there is some confusion here. The prepare statement is looking >for a variable to match with the field 'store_id', you are prompting for a 'last name'. The >oracle error you were getting 'ORA01722' supports that you are trying to match a character >string to a numeric field. > >The prepare and execute statements should be related, as: >$sth=$dhp->prepare(blah blah WHERE somefield = '?'); >$sth->execute($some_possible_value_of_somefield); > >In your code, 'last name' bears no relation to 'store_id' > >I believe the above code should look like: > {begin code} ># the change is store_id => last_name > my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name = ?') ># changed above line store_id => last_name > or die "Couldn't prepare statement: " . $dbh->errstr; > print "Enter name> "; > while ($lastname = <>) { # Read input from the user > chomp $lastname; > $sth->execute($lastname) # Execute the query > or die "Couldn't execute statement: " . $sth->errstr; > >Of course this presuposes that a 'last_name' field exists, your field may be named something >different, just change to suit. > >One other option is to ask for the 'store_id' as input, but that seems to be not as useful to me, YMMV. > >Let us know how it goes, if you have any problems just ask. :-) > >--Pat Ludwig > > > From sporter at rit.net Wed Dec 1 13:01:12 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:52 2004 Subject: [rochester-pm-list] Stronghold In-Reply-To: Message-ID: I recently discovered that I may be working with Stronghold soon. I don't have any details. I may be looking for somebody to ask a few questions or possibly a paid consultant. Depends on how things work out. -- Shawn Porter http://www.rit.net/sporter work - 716-223-3610 x116 home - 716-242-8742 sporter@rit.net -- On Wed, 1 Dec 1999, Brian Mathis wrote: > Are you talking about stronghold specific stuff? or stuff related to > certificates, etc? > > --- > Brian Mathis > Direct Edge > > > On Wed, 1 Dec 1999, Shawn Porter wrote: > > > If you have experience with Stronghold, please contact me. I have some > > questions about it. > > > > -- > > Shawn Porter > > http://www.rit.net/sporter > > work - 716-223-3610 x116 > > home - 716-242-8742 > > sporter@rit.net > > > From fedm at pkcommunications.com Wed Dec 1 13:40:34 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Pat... In-Reply-To: <19991201131837.A22937@shell1.eznet.net> References: <3.0.6.32.19991201123928.00915100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <3.0.6.32.19991201114904.008fa100@mail1.pkcommunications.com> <19991201122525.A21765@shell1.eznet.net> <3.0.6.32.19991201123928.0091> Message-ID: <3.0.6.32.19991201144034.008f6aa0@mail1.pkcommunications.com> I'm still getting the same error... :( No matter what I do... I went through and changed the "lastname" to "store_id" which is a valid column in the database.... What I actually need to do, is have a script that will take fields from a form, and throw them in the DB columns... Is there an easy way to do that? (sorry if I'm being a pest... I don't mean to be...) Thank you for everything... Fred From havoc at eznet.net Wed Dec 1 14:02:52 1999 From: havoc at eznet.net (Patrick Ludwig) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: <3.0.6.32.19991201133724.0090eca0@mail1.pkcommunications.com> Message-ID: Hmm, I'm not sure we're talking the same thing still, consider this simple table. first_name last_name store_id Pat Ludwig 3 Fred Edmister 2 Now if the prepare reads my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name='?'); and you use $sth->execute($x); The only values of $x that will return non null values are 'Ludwig' and 'Edmister' for documentation, nothing beats perldoc, try perldoc DBI and perldoc DBD::Oracle. I don't think there is a book for DBI, but id'd be cool if there was, especially if it was put out by O'Reilly. :-) --Pat From: owner-rochester-pm-list@pm.org [mailto:owner-rochester-pm-list@pm.org]On Behalf Of Fred Edmister Sent: Wednesday, December 01, 1999 1:37 PM To: rochester-pm-list@happyfunball.pm.org Subject: Re: [rochester-pm-list] DBI-DBD and Oracle Ok, so let me make sure I understand this... The variable $lastname should be the name of the column in the database itself, not the feild being entered at the prompt? Sorry I sound so behind on this... Perl, I'm not bad with, but this DBI thing is really gettin' my brain fried! :) Guess I'll be gettin' more books too!! (as if reading the code isn't enough for us right, we have to read reference books too, and docs, and manuals, and... (chuckle) Sorry, kinda went off on a tangent.. Anyway, so is that the way it works? THat would explain a TON! Also, is there a list of commands and thier "options" available for this? (lemme guess the DBI Perl book...) I think I'm gonna get that this afternoon... Thanks again for all the help!! Fred At 01:18 PM 12/1/99 -0500, you wrote: >On Wed, Dec 01, 1999 at 12:39:28PM -0500, Fred Edmister wrote: >> At 12:25 PM 12/1/99 -0500, you wrote: >> Ok... Here's the code... :) >> >> {begin code} >> my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE store_id = ?') >> or die "Couldn't prepare statement: " . $dbh->errstr; >> print "Enter name> "; >> while ($lastname = <>) { # Read input from the user >> chomp $lastname; >> $sth->execute($lastname) # Execute the query >> or die "Couldn't execute statement: " . $sth->errstr; > >OK, I stripped the code down to the prepare and the execute for clarity. >It seems to me that there is some confusion here. The prepare statement is looking >for a variable to match with the field 'store_id', you are prompting for a 'last name'. The >oracle error you were getting 'ORA01722' supports that you are trying to match a character >string to a numeric field. > >The prepare and execute statements should be related, as: >$sth=$dhp->prepare(blah blah WHERE somefield = '?'); >$sth->execute($some_possible_value_of_somefield); > >In your code, 'last name' bears no relation to 'store_id' > >I believe the above code should look like: > {begin code} ># the change is store_id => last_name > my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name = ?') ># changed above line store_id => last_name > or die "Couldn't prepare statement: " . $dbh->errstr; > print "Enter name> "; > while ($lastname = <>) { # Read input from the user > chomp $lastname; > $sth->execute($lastname) # Execute the query > or die "Couldn't execute statement: " . $sth->errstr; > >Of course this presuposes that a 'last_name' field exists, your field may be named something >different, just change to suit. > >One other option is to ask for the 'store_id' as input, but that seems to be not as useful to me, YMMV. > >Let us know how it goes, if you have any problems just ask. :-) > >--Pat Ludwig > > > From ALEX.MACUR at MDCONSULT.COM Wed Dec 1 14:06:36 1999 From: ALEX.MACUR at MDCONSULT.COM (Alex Macur) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Pat... Message-ID: If all you want to do is simple selects/insert/updates and the only DB you need to connect to is Oracle you may want to look at using oraperl.pm It provides another layer above DBD/DBI and (IMHO) is simpler to use than the raw DBI/DBD interface. -- alex -----Original Message----- From: Fred Edmister [mailto:fedm@pkcommunications.com] Sent: Wednesday, December 01, 1999 14:41 To: rochester-pm-list@happyfunball.pm.org Subject: [rochester-pm-list] Pat... I'm still getting the same error... :( No matter what I do... I went through and changed the "lastname" to "store_id" which is a valid column in the database.... What I actually need to do, is have a script that will take fields from a form, and throw them in the DB columns... Is there an easy way to do that? (sorry if I'm being a pest... I don't mean to be...) Thank you for everything... Fred From fedm at pkcommunications.com Wed Dec 1 14:14:11 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle In-Reply-To: References: <3.0.6.32.19991201133724.0090eca0@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991201151411.00919a40@mail1.pkcommunications.com> As a matter of fact... There is a book, and it looked like it IS by O'Riely... :) I've found it on the net, but now can't remember where.. I was hoping to find it at B&N... I'll let you know if I find it again... I'll work in this theory, and see how I make out... :) At 03:02 PM 12/1/99 -0500, you wrote: >Hmm, I'm not sure we're talking the same thing still, consider this simple >table. > >first_name last_name store_id >Pat Ludwig 3 >Fred Edmister 2 > >Now if the prepare reads >my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name='?'); > >and you use >$sth->execute($x); > >The only values of $x that will return non null values are 'Ludwig' and >'Edmister' > >for documentation, nothing beats perldoc, >try perldoc DBI and perldoc DBD::Oracle. >I don't think there is a book for DBI, but id'd be cool if there was, >especially if it was put out by O'Reilly. :-) > >--Pat >From: owner-rochester-pm-list@pm.org >[mailto:owner-rochester-pm-list@pm.org]On Behalf Of Fred Edmister >Sent: Wednesday, December 01, 1999 1:37 PM >To: rochester-pm-list@happyfunball.pm.org >Subject: Re: [rochester-pm-list] DBI-DBD and Oracle > > > Ok, so let me make sure I understand this... The variable $lastname should >be the name of the column in the database itself, not the feild being >entered at the prompt? Sorry I sound so behind on this... Perl, I'm not >bad with, but this DBI thing is really gettin' my brain fried! :) Guess >I'll be gettin' more books too!! (as if reading the code isn't enough for >us right, we have to read reference books too, and docs, and manuals, >and... (chuckle) Sorry, kinda went off on a tangent.. Anyway, so is that >the way it works? THat would explain a TON! Also, is there a list of >commands and thier "options" available for this? (lemme guess the DBI Perl >book...) I think I'm gonna get that this afternoon... Thanks again for all >the help!! > > Fred > > >At 01:18 PM 12/1/99 -0500, you wrote: >>On Wed, Dec 01, 1999 at 12:39:28PM -0500, Fred Edmister wrote: >>> At 12:25 PM 12/1/99 -0500, you wrote: >>> Ok... Here's the code... :) >>> >>> {begin code} >>> my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE store_id >= ?') >>> or die "Couldn't prepare statement: " . $dbh->errstr; >>> print "Enter name> "; >>> while ($lastname = <>) { # Read input from the user >>> chomp $lastname; >>> $sth->execute($lastname) # Execute the >query >>> or die "Couldn't execute statement: " . $sth->errstr; >> >>OK, I stripped the code down to the prepare and the execute for clarity. >>It seems to me that there is some confusion here. The prepare statement >is looking >>for a variable to match with the field 'store_id', you are prompting for a >'last name'. The >>oracle error you were getting 'ORA01722' supports that you are trying to >match a character >>string to a numeric field. >> >>The prepare and execute statements should be related, as: >>$sth=$dhp->prepare(blah blah WHERE somefield = '?'); >>$sth->execute($some_possible_value_of_somefield); >> >>In your code, 'last name' bears no relation to 'store_id' >> >>I believe the above code should look like: >> {begin code} >># the change is store_id => last_name >> my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name >= ?') >># changed above line store_id => last_name >> or die "Couldn't prepare statement: " . $dbh->errstr; >> print "Enter name> "; >> while ($lastname = <>) { # Read input from the user >> chomp $lastname; >> $sth->execute($lastname) # Execute the query >> or die "Couldn't execute statement: " . $sth->errstr; >> >>Of course this presuposes that a 'last_name' field exists, your field may >be named something >>different, just change to suit. >> >>One other option is to ask for the 'store_id' as input, but that seems to >be not as useful to me, YMMV. >> >>Let us know how it goes, if you have any problems just ask. :-) >> >>--Pat Ludwig >> >> >> > > > > From fedm at pkcommunications.com Wed Dec 1 14:37:01 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] DBI-Oracle Update.. In-Reply-To: References: <3.0.6.32.19991201133724.0090eca0@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991201153701.0091caa0@mail1.pkcommunications.com> UGH!! Well, it seems this whole time I've been going by a printout given to me a couple days ago by our DBA with ALPHA entries as the store id, I find that it's been changed, and is now all NUMERIC (and forced to be numbers only) entries... Now I see the problem... Thanks you all for the help!! I might go check that oraperl and see how that works... :) Thanks again for everything everyone!! Fred At 03:02 PM 12/1/99 -0500, you wrote: >Hmm, I'm not sure we're talking the same thing still, consider this simple >table. > >first_name last_name store_id >Pat Ludwig 3 >Fred Edmister 2 > >Now if the prepare reads >my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name='?'); > >and you use >$sth->execute($x); > >The only values of $x that will return non null values are 'Ludwig' and >'Edmister' > >for documentation, nothing beats perldoc, >try perldoc DBI and perldoc DBD::Oracle. >I don't think there is a book for DBI, but id'd be cool if there was, >especially if it was put out by O'Reilly. :-) > >--Pat >From: owner-rochester-pm-list@pm.org >[mailto:owner-rochester-pm-list@pm.org]On Behalf Of Fred Edmister >Sent: Wednesday, December 01, 1999 1:37 PM >To: rochester-pm-list@happyfunball.pm.org >Subject: Re: [rochester-pm-list] DBI-DBD and Oracle > > > Ok, so let me make sure I understand this... The variable $lastname should >be the name of the column in the database itself, not the feild being >entered at the prompt? Sorry I sound so behind on this... Perl, I'm not >bad with, but this DBI thing is really gettin' my brain fried! :) Guess >I'll be gettin' more books too!! (as if reading the code isn't enough for >us right, we have to read reference books too, and docs, and manuals, >and... (chuckle) Sorry, kinda went off on a tangent.. Anyway, so is that >the way it works? THat would explain a TON! Also, is there a list of >commands and thier "options" available for this? (lemme guess the DBI Perl >book...) I think I'm gonna get that this afternoon... Thanks again for all >the help!! > > Fred > > >At 01:18 PM 12/1/99 -0500, you wrote: >>On Wed, Dec 01, 1999 at 12:39:28PM -0500, Fred Edmister wrote: >>> At 12:25 PM 12/1/99 -0500, you wrote: >>> Ok... Here's the code... :) >>> >>> {begin code} >>> my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE store_id >= ?') >>> or die "Couldn't prepare statement: " . $dbh->errstr; >>> print "Enter name> "; >>> while ($lastname = <>) { # Read input from the user >>> chomp $lastname; >>> $sth->execute($lastname) # Execute the >query >>> or die "Couldn't execute statement: " . $sth->errstr; >> >>OK, I stripped the code down to the prepare and the execute for clarity. >>It seems to me that there is some confusion here. The prepare statement >is looking >>for a variable to match with the field 'store_id', you are prompting for a >'last name'. The >>oracle error you were getting 'ORA01722' supports that you are trying to >match a character >>string to a numeric field. >> >>The prepare and execute statements should be related, as: >>$sth=$dhp->prepare(blah blah WHERE somefield = '?'); >>$sth->execute($some_possible_value_of_somefield); >> >>In your code, 'last name' bears no relation to 'store_id' >> >>I believe the above code should look like: >> {begin code} >># the change is store_id => last_name >> my $sth = $dbh->prepare('SELECT * FROM stores_master WHERE last_name >= ?') >># changed above line store_id => last_name >> or die "Couldn't prepare statement: " . $dbh->errstr; >> print "Enter name> "; >> while ($lastname = <>) { # Read input from the user >> chomp $lastname; >> $sth->execute($lastname) # Execute the query >> or die "Couldn't execute statement: " . $sth->errstr; >> >>Of course this presuposes that a 'last_name' field exists, your field may >be named something >>different, just change to suit. >> >>One other option is to ask for the 'store_id' as input, but that seems to >be not as useful to me, YMMV. >> >>Let us know how it goes, if you have any problems just ask. :-) >> >>--Pat Ludwig >> >> >> > > > > From ALEX.MACUR at MDCONSULT.COM Wed Dec 1 14:48:24 1999 From: ALEX.MACUR at MDCONSULT.COM (Alex Macur) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] DBI-DBD and Oracle Message-ID: Unfortunately, according to O'Reilly it won't be out until February http://www.oreilly.com/catalog/perldbi/ As suggested by pat check the perldoc An advanced search in Alta Vista for (dbi NEAR tutorial) AND oracle yields lots of hits I would not be surprised if you could find something you could cut & paste If you are not in a big rush and if you want to post the DDL for your table (from sql*plus do a describe) I could probably post a quick hack oraperl hack in a day or so as soon as I finish EOM processing at my day job -- Alex From fedm at pkcommunications.com Wed Dec 1 15:00:56 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Alex... Here :) In-Reply-To: Message-ID: <3.0.6.32.19991201160056.008f5460@mail1.pkcommunications.com> Well, if you'd like... I'm searching for oraperl to use as well... Here's the desc of our table "cust_stores_lnk"; SQL> desc cust_stores_lnk Name Null? Type ------------------------------- -------- ---- CUST_EMAIL_ID NOT NULL VARCHAR2(40) CUST_PASSWD NOT NULL VARCHAR2(8) STORE_ID NOT NULL NUMBER(10) STORE_NAME NOT NULL VARCHAR2(40) STORE_ADD1 NOT NULL VARCHAR2(30) STORE_ADD2 NOT NULL VARCHAR2(30) STORE_CITY NOT NULL VARCHAR2(20) STORE_STATE NOT NULL VARCHAR2(10) STORE_COUNTRY NOT NULL VARCHAR2(40) STORE_ZIP NOT NULL VARCHAR2(10) STORE_URL NOT NULL VARCHAR2(50) CUST_STORES_PURCH NUMBER(7,2) I'm not in a huge hurry, but I would LOVE to get everything working... This is just the begining... Once I can dump to the database, the rest is simple!! :) Those fields are the only ones that will ever be written... I'll be working on this as well... I do appreciate the help!! If ever I can return the favor... Let me know... I'll do my best! :) I have my own server, as well as many resources here! :) Thank you again for everything! Fred At 02:48 PM 12/1/99 -0600, you wrote: >Unfortunately, according to O'Reilly it won't be out until February > >http://www.oreilly.com/catalog/perldbi/ > >As suggested by pat check the perldoc > >An advanced search in Alta Vista for >(dbi NEAR tutorial) AND oracle >yields lots of hits > >I would not be surprised if you could find something you could >cut & paste > >If you are not in a big rush and if you want to post the DDL for your table >(from sql*plus do a describe) I could probably post a quick >hack oraperl hack in a day or so as soon as I finish EOM processing at >my day job > >-- > >Alex > > From fedm at pkcommunications.com Wed Dec 1 16:47:48 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Alex In-Reply-To: <3.0.6.32.19991201160056.008f5460@mail1.pkcommunications.co m> References: Message-ID: <3.0.6.32.19991201174748.0090b100@mail1.pkcommunications.com> Hey, if you don't mind... and have the time, That script that you mentioned... Is there ANY possible chance to have it done by say around 11:00 or noon tomorrow? I just may be able to do something to make it worth your while, but I just got a message and I have to try to show an active right to the DB tomorrow afternoon... :) So, if you can, I will make it up to you!! Hope to hear from you soon! Fred At 04:00 PM 12/1/99 -0500, you wrote: > Well, if you'd like... I'm searching for oraperl to use as well... Here's >the desc of our table "cust_stores_lnk"; > >SQL> desc cust_stores_lnk > Name Null? Type > ------------------------------- -------- ---- > CUST_EMAIL_ID NOT NULL VARCHAR2(40) > CUST_PASSWD NOT NULL VARCHAR2(8) > STORE_ID NOT NULL NUMBER(10) > STORE_NAME NOT NULL VARCHAR2(40) > STORE_ADD1 NOT NULL VARCHAR2(30) > STORE_ADD2 NOT NULL VARCHAR2(30) > STORE_CITY NOT NULL VARCHAR2(20) > STORE_STATE NOT NULL VARCHAR2(10) > STORE_COUNTRY NOT NULL VARCHAR2(40) > STORE_ZIP NOT NULL VARCHAR2(10) > STORE_URL NOT NULL VARCHAR2(50) > CUST_STORES_PURCH NUMBER(7,2) > > > I'm not in a huge hurry, but I would LOVE to get everything working... >This is just the begining... Once I can dump to the database, the rest is >simple!! :) Those fields are the only ones that will ever be written... >I'll be working on this as well... I do appreciate the help!! If ever I >can return the favor... Let me know... I'll do my best! :) I have my own >server, as well as many resources here! :) Thank you again for everything! > > Fred > >At 02:48 PM 12/1/99 -0600, you wrote: >>Unfortunately, according to O'Reilly it won't be out until February >> >>http://www.oreilly.com/catalog/perldbi/ >> >>As suggested by pat check the perldoc >> >>An advanced search in Alta Vista for >>(dbi NEAR tutorial) AND oracle >>yields lots of hits >> >>I would not be surprised if you could find something you could >>cut & paste >> >>If you are not in a big rush and if you want to post the DDL for your table >>(from sql*plus do a describe) I could probably post a quick >>hack oraperl hack in a day or so as soon as I finish EOM processing at >>my day job >> >>-- >> >>Alex >> >> > > > From fedm at pkcommunications.com Thu Dec 2 08:57:05 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Closer With DBI In-Reply-To: Message-ID: <3.0.6.32.19991202095705.0091e380@mail1.pkcommunications.com> If anyone can help with this, it'll be great... I now am INCHES away from being where I need to be... (long night) I've got a basic script that starts with the dbh->blah blah, and then sth->blah blah... Thing is... Now at the end of the script, AFTER the info is read, I can't seem to get it to process... I woulda thought that a simple sth->execute(blah); woulda dumped the info into the database... Any suggestions? Also, with this script, right now I have it prompt for info to be typed in, all I have to do is uncomment that for it to read from the HTML form correct? Any assistance anyone can provide on this would be great! I was told yesterday afternoon that I'm supposed to be presenting this today and UGH! Nothing like notice!! :) One thing for sure... I'm gonna owe a few people here a drink or two... Thanks for all your help!! Fred From fedm at pkcommunications.com Thu Dec 2 09:25:12 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Check This :) In-Reply-To: Message-ID: <3.0.6.32.19991202102512.009003b0@mail1.pkcommunications.com> Here's the code I'm using this morning... SO close... Please tell me why it doesn't write the info in... :) Anyone know? {begin code} use DBI; my $dbh = DBI->connect('DBI:Oracle:pkcom2','test1','tiger1') or die "Couldn't connect to database: " . DBI->errstr; my $sth=$dbh->prepare('INSERT INTO perl_test (fname,lname,pwd) VALUES (?,?,?)') or die "Couldn't Connect To Database: " . DBI->errstr; print "Enter First Name>"; my $fname = <>; chomp($fname); print "Enter Last Name>"; my $lname = <>; chomp($lname); print "Enter Password>"; my $pwd = <>; chomp($pwd); $sth->execute($fname,$lname,$pwd); $sth->end; $dbh->disconnect; {end code} Thank you all in advance! Fred From fedm at pkcommunications.com Thu Dec 2 10:10:27 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] DBI Book In-Reply-To: <3.0.6.32.19991201174748.0090b100@mail1.pkcommunications.co m> References: <3.0.6.32.19991201160056.008f5460@mail1.pkcommunications.co m> Message-ID: <3.0.6.32.19991202111027.008fc4b0@mail1.pkcommunications.com> Here's where I found that DBI Book... :) You can order it online right now!! :) Go here... http://www.symbolstone.org/technology/perl/DBI/index.html I know I want one BAD!! :) From havoc at shell1.eznet.net Thu Dec 2 12:57:38 1999 From: havoc at shell1.eznet.net (Pat) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Check This :) In-Reply-To: <3.0.6.32.19991202102512.009003b0@mail1.pkcommunications.com>; from Fred Edmister on Thu, Dec 02, 1999 at 10:25:12AM -0500 References: <3.0.6.32.19991202102512.009003b0@mail1.pkcommunications.com> Message-ID: <19991202135738.A19676@shell1.eznet.net> 2 things 1) you can always check DBI->errstr 2) I think Oracle requires a commit statement, $dbh->commit right before the disconnect should do it. 2a) Or use {AUTOCOMMIT=>1} in the connect statement Good Luck! --Pat On Thu, Dec 02, 1999 at 10:25:12AM -0500, Fred Edmister wrote: > Here's the code I'm using this morning... SO close... Please tell me why > it doesn't write the info in... :) Anyone know? > > {begin code} > use DBI; > > my $dbh = DBI->connect('DBI:Oracle:pkcom2','test1','tiger1') > or die "Couldn't connect to database: " . DBI->errstr; > my $sth=$dbh->prepare('INSERT INTO perl_test (fname,lname,pwd) VALUES > (?,?,?)') > or die "Couldn't Connect To Database: " . DBI->errstr; > > print "Enter First Name>"; > my $fname = <>; chomp($fname); > print "Enter Last Name>"; > my $lname = <>; chomp($lname); > print "Enter Password>"; > my $pwd = <>; chomp($pwd); > > $sth->execute($fname,$lname,$pwd); > > $sth->end; > $dbh->disconnect; > {end code} > > Thank you all in advance! > > Fred > > From fedm at pkcommunications.com Thu Dec 2 13:03:38 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Check This :) In-Reply-To: <19991202135738.A19676@shell1.eznet.net> References: <3.0.6.32.19991202102512.009003b0@mail1.pkcommunications.com> <3.0.6.32.19991202102512.009003b0@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991202140338.0092a100@mail1.pkcommunications.com> Thanks Pat... It ended up being that I was using "sth->end();" instead of "sth->finish;" :) That part is done now... YIPPIE!! Now the server is having trouble... I can do everything just hunkey dorey if I run the script from a dos window (ie perl mydb.pl) but when implimented to the form, and through http it just times out.. :( So I'm debugging that now.. :) Thank you all for everything!! :) Fred At 01:57 PM 12/2/99 -0500, you wrote: >2 things > >1) you can always check DBI->errstr >2) I think Oracle requires a commit statement, $dbh->commit right before the disconnect should do it. >2a) Or use {AUTOCOMMIT=>1} in the connect statement > > >Good Luck! > >--Pat > > >On Thu, Dec 02, 1999 at 10:25:12AM -0500, Fred Edmister wrote: >> Here's the code I'm using this morning... SO close... Please tell me why >> it doesn't write the info in... :) Anyone know? >> >> {begin code} >> use DBI; >> >> my $dbh = DBI->connect('DBI:Oracle:pkcom2','test1','tiger1') >> or die "Couldn't connect to database: " . DBI->errstr; >> my $sth=$dbh->prepare('INSERT INTO perl_test (fname,lname,pwd) VALUES >> (?,?,?)') >> or die "Couldn't Connect To Database: " . DBI->errstr; >> >> print "Enter First Name>"; >> my $fname = <>; chomp($fname); >> print "Enter Last Name>"; >> my $lname = <>; chomp($lname); >> print "Enter Password>"; >> my $pwd = <>; chomp($pwd); >> >> $sth->execute($fname,$lname,$pwd); >> >> $sth->end; >> $dbh->disconnect; >> {end code} >> >> Thank you all in advance! >> >> Fred >> >> > > From alex_macur at compuserve.com Thu Dec 2 14:02:19 1999 From: alex_macur at compuserve.com (Alexander G. Macur) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] sample cgi/oraperl script Message-ID: <3846D04A.130E2FDD@compuserve.com> First of Month while I'm running End of Month processing is really bad for my Attached is a something I hacked up quick over lunch I tested it on my sun. YMMV good luck -- alex -------------- next part -------------- #!/export/home/mdc/bin/perl # # Quick hack to illustrate oraperl insert # # tested on # # Oraperl emulation interface version 1.39 # DBD::Oracle 1.02 using OCI8 by Tim Bunce # pandora$ perl -v # This is perl, version 5.005_02 built for sun4-solaris # # pandora$ uname -a # SunOS pandora 5.6 Generic_105181-14 sun4m sparc SUNW,SPARCstation-5 sub insert_data # # insert 1 record into the table #SQL> desc agm_test # Name Null? Type # ------------------------------- -------- ---- # CUSTOMER_NAME NOT NULL VARCHAR2(32) # # Inputs # pDB - reference to hash containing db connection information # username # password # system_id # pCustomer - reference to hash containing customer information # to insert # { use Oraperl; my $pDB = shift; my $pCustomer = shift; my $csr; my $istat; # # make sure we have some place to pass error messages back to CGI script # if ( ! $pDB->{pERROR} ) { $pDB->{pERROR} = []; } my $pERR = $pDB->{pERROR}; # # sanity check arguments # if ( ! $pDB->{username} ) { push @$pERR,"Oracle username may not be null"; return 0; } if ( ! $pDB->{password} ) { push @$pERR, "Oracle password may not be null"; return 0; } if ( ! $pDB->{system_id} ) { push @$pERR,"Oracle system id may not be null"; return 0; } # # can't pass SID in as parameter because of bizzare oracle 8 'feature' # $ENV{ORACLE_SID} = $pDB->{system_id}; $pDB->{lda} = ora_login('', $pDB->{username}, $pDB->{password}); if ($ora_errno ) { push @$pERR, $ora_errstr; return 0; } # # open up a cursor # my $sql = <{lda},$sql); if (( ! $csr ) || ( $ora_errno)) { push @$pERR, $ora_errstr; return 0; } # # bind the cursor # $istat = ora_bind( $csr, $pCustomer->{name}); if ( $ora_errno ) { push @$pERR, $ora_errstr; return 0; } # # # commit # if ( ! ora_commit( $pDB->{lda} )) { push @$pERR, $ora_errstr; return 0; } # # log off # ora_logoff( $pDB->{lda} ); if ($ora_errno) { push @$pERR, $ora_errstr; return 0; } return 1; } $SCCS="%Z%"; if ( $SCCS =~ /^@\(#\)/ ) { $CHECKED_IN = $CHECKED_IN = 'true'; $MYVERSION = '%I%'; } else { $MYVERSION = '991202'; } use CGI; my $q = new CGI; my @jourindx; # # oracle set up # if ( ! defined $ENV{ORACLE_HOME} ) { $ENV{ORACLE_HOME} = '/oradb/app/oracle/product/8.0.4'; } print $q->header; print $q->start_html('-title' => "sample CGI script ", '-text' => "#000000", '-link' => "#330099", '-vlink' => "#003366", '-author' => 'alex_macur@compuserve.com'); print $q->h3("Oraperl/DBI insert example"); print $q->startform; print $q->b("Oracle User Id "),$q->textfield(-name=> 'username', -default=> ''),$q->br; print $q->b("Oracle Password"),$q->password_field(-name=> 'password', -default=> ''),$q->br; print $q->b("Oracle SID"),$q->textfield(-name=>'oracle_sid', -default=>''), $q->br; print $q->b("Customer name"); print $q->textfield(-name=>'customer_name', -size=>72, -maxlength=>100, -default=>''), $q->br; print $q->submit(-name=>'Insert', -value=>'Insert'), $q->reset, $q->br; print $q->end_form; if ( $q->param ) { my $errmsg; my $i; my $ier = 0; my $istat; my $jtc; my $nr; my $tmp; my %db; my %jourindx; my @error; my $sid; my %customer_data; $istat = 0; $db{perror} = \@error; $db{username} = $q->param('username'); if ( $q->param('password') ) { $db{password} = $q->param('password'); } else { $db{password} = $db{username}; } if ( $q->param('oracle_sid') ) { $db{system_id} = $q->param('oracle_sid'); } if ( $q->param('customer_name')) { $customer_data{name} = $q->param('customer_name'); } if (( $istat = insert_data(\%db, \%customer_data))) { print "Record Inserted", $q->br; } else { print $q->em("Insert could not be completed"),$q->br; $errmsg = join( '
', @{$db{pERROR}} ); $errmsg =~ s/\n/
/g; print $q->em("ERROR: $errmsg"); } } print $q->end_html; From webmaster at rochester.rr.com Fri Dec 3 10:49:00 1999 From: webmaster at rochester.rr.com (Justin C. Sherrill) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Crazy question - spellchecker In-Reply-To: <3846D04A.130E2FDD@compuserve.com> Message-ID: <000001bf3dae$4c767a20$d401a8c0@rochester.rr.com> I want to be able to note words that aren't in a regular dictionary in user-submitted text. Is there a Perl resource out there to check spelling? (I looked at CPAN but didn't see anything...) All I want to do is highlight words that aren't recognized. I could seach repetitively through a text file containing all known good words, but that's slow and redundant. Is there a better solution I'm not thinking of because I'm in a hurry? Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From Craig.Steinberger at usa.xerox.com Fri Dec 3 11:59:27 1999 From: Craig.Steinberger at usa.xerox.com (Steinberger, Craig J) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Crazy question - spellchecker Message-ID: <58BE2730680ED3118E6700805FC796A621AEC0@USA0102MS1> Justin, It's not a quick and easy solution, but here is the UNIX spell program in Perl. http://www.perl.com/pub/language/ppt/src/spell/ Maybe the easiest thing to do is open a system call to the UNIX spell command in the first place? -- Craig Steinberger Xerox Corporation craig.steinberger@usa.xerox.com -----Original Message----- From: Justin C. Sherrill [mailto:webmaster@rochester.rr.com] Sent: Friday, December 03, 1999 11:49 AM To: rochester-pm-list@happyfunball.pm.org Subject: [rochester-pm-list] Crazy question - spellchecker I want to be able to note words that aren't in a regular dictionary in user-submitted text. Is there a Perl resource out there to check spelling? (I looked at CPAN but didn't see anything...) All I want to do is highlight words that aren't recognized. I could seach repetitively through a text file containing all known good words, but that's slow and redundant. Is there a better solution I'm not thinking of because I'm in a hurry? Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From sbarton at ufosys.com Fri Dec 3 13:15:35 1999 From: sbarton at ufosys.com (Scott Barton) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] remove Message-ID: please remove sab0276@rit.edu from the list thank you From webmaster at rochester.rr.com Fri Dec 3 13:40:30 1999 From: webmaster at rochester.rr.com (Justin C. Sherrill) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Crazy question - spellchecker In-Reply-To: <58BE2730680ED3118E6700805FC796A621AEC0@USA0102MS1> Message-ID: <000001bf3dc6$418027c0$d401a8c0@rochester.rr.com> >http://www.perl.com/pub/language/ppt/src/spell/ > >Maybe the easiest thing to do is open a system call to the UNIX spell >command in the first place? It would be... except I'm not on Unix. I'm actually checking a relatively small chunk of text (100-150 words), so what may work is to read in a dictionary file once, and then compare it against the text. (As opposed to searching for each of the 100-150 words in the dictionary file reapeatedly.) Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From bmathis at directedge.com Fri Dec 3 13:59:45 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Crazy question - spellchecker In-Reply-To: <000001bf3dae$4c767a20$d401a8c0@rochester.rr.com> Message-ID: You might want to check out ispell. You might be able to pipe stuff through it and get some results back. There's 2 versions, GNU and non-GNU, although they are both free. They each work a little different. http://ficus-www.cs.ucla.edu/ficus-members/geoff/ispell.html http://mohawk.cat.rpi.edu/~tibbetts/ispell_toc.html --- Brian Mathis Direct Edge On Fri, 3 Dec 1999, Justin C. Sherrill wrote: > I want to be able to note words that aren't in a regular dictionary in > user-submitted text. Is there a Perl resource out there to check spelling? > (I looked at CPAN but didn't see anything...) > > All I want to do is highlight words that aren't recognized. I could seach > repetitively through a text file containing all known good words, but that's > slow and redundant. Is there a better solution I'm not thinking of because > I'm in a hurry? > > Justin C. Sherrill > Rochester Road Runner Webmaster > http://www.rochester.rr.com/ > "Think slow, type fats" > From ALEX.MACUR at MDCONSULT.COM Fri Dec 3 14:13:15 1999 From: ALEX.MACUR at MDCONSULT.COM (Alex Macur) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Crazy question - spellchecker Message-ID: also not quick & easy is the FSF (www.fsf.org) version of spell - ispell will compile on windows. Since ispell is actually integrated with my favorite editor xemacs I would guess that there are hooks for accessing ispell from other applications. If you are going to code the spell check yourself you may be able to gain some speed by storing the dictionary as keys to a hash Then you can just use if ( exists( $dictionary{$word_from_text} ) instead of having to loop through each word of the dictionary for each word of text. -- Alex -----Original Message----- From: Justin C. Sherrill [mailto:webmaster@rochester.rr.com] Sent: Friday, December 03, 1999 14:41 To: rochester-pm-list@happyfunball.pm.org Subject: RE: [rochester-pm-list] Crazy question - spellchecker >http://www.perl.com/pub/language/ppt/src/spell/ > >Maybe the easiest thing to do is open a system call to the UNIX spell >command in the first place? It would be... except I'm not on Unix. I'm actually checking a relatively small chunk of text (100-150 words), so what may work is to read in a dictionary file once, and then compare it against the text. (As opposed to searching for each of the 100-150 words in the dictionary file reapeatedly.) Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From Craig.Steinberger at usa.xerox.com Fri Dec 3 14:26:45 1999 From: Craig.Steinberger at usa.xerox.com (Steinberger, Craig J) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Crazy question - spellchecker Message-ID: <58BE2730680ED3118E6700805FC796A621AEC1@USA0102MS1> In that case you can use the Perl version of spell at the URL I sent you and do system call to it. Or, you can just include it into your own code. -Craig -----Original Message----- From: Justin C. Sherrill [mailto:webmaster@rochester.rr.com] Sent: Friday, December 03, 1999 2:41 PM To: rochester-pm-list@happyfunball.pm.org Subject: RE: [rochester-pm-list] Crazy question - spellchecker >http://www.perl.com/pub/language/ppt/src/spell/ > >Maybe the easiest thing to do is open a system call to the UNIX spell >command in the first place? It would be... except I'm not on Unix. I'm actually checking a relatively small chunk of text (100-150 words), so what may work is to read in a dictionary file once, and then compare it against the text. (As opposed to searching for each of the 100-150 words in the dictionary file reapeatedly.) Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From fedm at pkcommunications.com Mon Dec 6 14:28:14 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: <58BE2730680ED3118E6700805FC796A621AEC1@USA0102MS1> Message-ID: <3.0.6.32.19991206152814.00917d70@mail1.pkcommunications.com> Does anyone know why our servers are not running right... All it does is sit there for any cgi... It thinks for a while, and MSIE comes back and says the page can't be displayed, and Netscape just times out... :( If anyone knows what might be causing this it would be great!! Fred Edmister PK Communications CGI Web Developer fedm@pkcommunications.com From sporter at rit.net Mon Dec 6 14:39:16 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: <3.0.6.32.19991206152814.00917d70@mail1.pkcommunications.com> Message-ID: "our servers" is pretty vague. What server are you having the problem with? What is running on it? -- Shawn Porter http://www.rit.net/sporter sporter@rit.net -- On Mon, 6 Dec 1999, Fred Edmister wrote: > Does anyone know why our servers are not running right... All it does is > sit there for any cgi... It thinks for a while, and MSIE comes back and > says the page can't be displayed, and Netscape just times out... :( If > anyone knows what might be causing this it would be great!! > > > Fred Edmister > PK Communications > CGI Web Developer > fedm@pkcommunications.com > From fedm at pkcommunications.com Mon Dec 6 14:48:39 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: References: <3.0.6.32.19991206152814.00917d70@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991206154839.00927100@mail1.pkcommunications.com> Sorry... We're running NT servers... Any perl script tries to run, and it just hangs there... At 03:39 PM 12/6/99 -0500, you wrote: >"our servers" is pretty vague. What server are you having the problem >with? What is running on it? > >-- >Shawn Porter >http://www.rit.net/sporter >sporter@rit.net > >-- >On Mon, 6 Dec 1999, Fred Edmister wrote: > >> Does anyone know why our servers are not running right... All it does is >> sit there for any cgi... It thinks for a while, and MSIE comes back and >> says the page can't be displayed, and Netscape just times out... :( If >> anyone knows what might be causing this it would be great!! >> >> >> Fred Edmister >> PK Communications >> CGI Web Developer >> fedm@pkcommunications.com >> > > > From webmaster at rochester.rr.com Mon Dec 6 15:22:33 1999 From: webmaster at rochester.rr.com (Justin C. Sherrill) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: <3.0.6.32.19991206154839.00927100@mail1.pkcommunications.com> Message-ID: <000701bf4030$027b34e0$d401a8c0@rochester.rr.com> > Sorry... We're running NT servers... Any perl script tries > to run, and it > just hangs there... Did you just add a new service pack? (SP6a is the newest one and just out, as I recall) That manages to break Perl just about every time for me, by happily reconfiguring IIS. Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From fedm at pkcommunications.com Mon Dec 6 15:28:53 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: <000701bf4030$027b34e0$d401a8c0@rochester.rr.com> References: <3.0.6.32.19991206154839.00927100@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991206162853.0092ae30@mail1.pkcommunications.com> Actually, I found out that someone had installed an older version (5.001 that came with a "teach yourself perl" book) So I removed that, reinstalled Activestate 5, build 522, and everything is back to "normal"... (if that can be said...) Hmm, an "upgrade" from Microsoft that breaks other things... Somehow this doesn't suprise me!! :) Thanks for that piece of info though!! I'll be sure to wait to another release!! :) Fred At 04:22 PM 12/6/99 -0500, you wrote: > >> Sorry... We're running NT servers... Any perl script tries >> to run, and it >> just hangs there... > >Did you just add a new service pack? (SP6a is the newest one and just out, >as I recall) That manages to break Perl just about every time for me, by >happily reconfiguring IIS. > >Justin C. Sherrill >Rochester Road Runner Webmaster >http://www.rochester.rr.com/ >"Think slow, type fats" > > > From bmathis at directedge.com Mon Dec 6 15:48:18 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: <3.0.6.32.19991206162853.0092ae30@mail1.pkcommunications.com> Message-ID: You've got people on that same machine installing software that comes with books things like "Teach yourself perl"? You've GOT to change the admin password and make sure EVERYONE understands that YOU DON'T DO ANYTHING TO A PRODUCTION SERVER WITHOUT PERMISSION. --- Brian Mathis Direct Edge On Mon, 6 Dec 1999, Fred Edmister wrote: > Actually, I found out that someone had installed an older version (5.001 > that came with a "teach yourself perl" book) So I removed that, > reinstalled Activestate 5, build 522, and everything is back to "normal"... > (if that can be said...) > Hmm, an "upgrade" from Microsoft that breaks other things... Somehow this > doesn't suprise me!! :) Thanks for that piece of info though!! I'll be > sure to wait to another release!! :) > Fred From fedm at pkcommunications.com Mon Dec 6 15:44:44 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl... In-Reply-To: References: <3.0.6.32.19991206162853.0092ae30@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991206164444.0092ac30@mail1.pkcommunications.com> Tell me about it... I'm sure the "upper office" people won't be to happy with 3 days worth of downtime due to someone else deciding that they were going to install something on a production server... The main thing (from MY standpoint anyway) is that it turned out to NOT be MY fault!! ROFL! :) Fred At 04:48 PM 12/6/99 -0500, you wrote: > >You've got people on that same machine installing software that >comes with books things like "Teach yourself perl"? You've GOT to change >the admin password and make sure EVERYONE understands that YOU DON'T DO >ANYTHING TO A PRODUCTION SERVER WITHOUT PERMISSION. > >--- >Brian Mathis >Direct Edge > > >On Mon, 6 Dec 1999, Fred Edmister wrote: >> Actually, I found out that someone had installed an older version (5.001 >> that came with a "teach yourself perl" book) So I removed that, >> reinstalled Activestate 5, build 522, and everything is back to "normal"... >> (if that can be said...) >> Hmm, an "upgrade" from Microsoft that breaks other things... Somehow this >> doesn't suprise me!! :) Thanks for that piece of info though!! I'll be >> sure to wait to another release!! :) >> Fred > > > From fedm at pkcommunications.com Tue Dec 7 07:43:00 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Quick Question... In-Reply-To: References: <3.0.6.32.19991206162853.0092ae30@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991207084300.009158b0@mail1.pkcommunications.com> I have my script running from the command prompt now, and was wondering if someone could give me an idea on how to read info from a form instead... (I know there is plenty of information on this, and I have a couple of books as well, but it's kinda a "hurry rush" thing from upper level...) If anyone can help, it would be great!! I just have a couple fields to read from a form, the rest I can figure out... (do they just keep the name they have in the form when sent? {ie, can I just assume that when the "SUBMIT" button is clicked, that the "Name" field on the form will become $name in the script}) Thank you anyone who can help!! Fred From ALEX.MACUR at MDCONSULT.COM Tue Dec 7 08:19:13 1999 From: ALEX.MACUR at MDCONSULT.COM (Alex Macur) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Quick Question... Message-ID: Attached is an example I posted last week of a CGI script that reads an item and inserts it into the database. All you need to do is add some more text fields for the additional data you need to input, copy them into the hash, and edit the SQL to match your table. For help on CGI.PM I use Lincoln Stien's "Official Guide to Programming with CGI.PM" for most simple CGI stuff you can use the examples in the book as a starting point. It should be available at the usual places (B&N, Borders or CompuUSA) -- Alex -----Original Message----- From: Fred Edmister [mailto:fedm@pkcommunications.com] Sent: Tuesday, December 07, 1999 08:43 To: rochester-pm-list@happyfunball.pm.org Subject: [rochester-pm-list] Quick Question... I have my script running from the command prompt now, and was wondering if someone could give me an idea on how to read info from a form instead... (I know there is plenty of information on this, and I have a couple of books as well, but it's kinda a "hurry rush" thing from upper level...) If anyone can help, it would be great!! I just have a couple fields to read from a form, the rest I can figure out... (do they just keep the name they have in the form when sent? {ie, can I just assume that when the "SUBMIT" button is clicked, that the "Name" field on the form will become $name in the script}) Thank you anyone who can help!! Fred -------------- next part -------------- A non-text attachment was scrubbed... Name: customer.cgi Type: application/octet-stream Size: 5147 bytes Desc: not available Url : http://mail.pm.org/archives/rochester-pm/attachments/19991207/8b56ae0e/customer.obj From info at inexchange.net Tue Dec 7 19:50:24 1999 From: info at inexchange.net (Info Desk) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Special Webhosting and Dedicated Server Offer Message-ID: <19991208015024567.BYQC130@infomail.inexchange.net@outbox.infowatch.net> If you wish to be excluded from any future mailings, reply with "remove" in the subject header. ------------------------------------------------------------ http://www.inexchange.net Internet Exchange would like to introduce our Special Hosting and Dedicated Server Plans * Budget Plans from $14.95 Mo. * E-commerce Plans from $49.95 Mo. * Dedicated Server Plan from $99.00 Mo. (Ask about YOUR FREE Server!) * Sign up for 6 months, and we'll WAIVE the setup fee * Sign up for 10 months, and we'll WAIVE the setup fee and give you 2 FREE months * Sign up for 12 months, and we'll give you a FULL FREE 2nd year of hosting * UNLIMITED E-mail, E-mail forwarding, auto responders and vacation reply * FREE registration of your domain with over 950 search engines * Multiple, Redundant, High-Speed connections to the web * INTERNATIONAL Hosting * Access to your account anytime from your own browser * Full Microsoft Front Page support * Unlimited FTP updates * Personal CGI directory for your own scripts (or use ours) * Comprehensive statistics program shows you everything * Domain name registration (www.yourname.com) * Friendly customer support * Additional plans also available If for any reason you are not satisfied with InfoWatch's service after 30 days, we will transfer you back to your original host and pay any transfer fees. http://www.inexchange.net info@inexchange.net From bwalton at rochester.rr.com Tue Dec 7 21:25:18 1999 From: bwalton at rochester.rr.com (Bob Walton) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Quick Question... References: <3.0.6.32.19991206162853.0092ae30@mail1.pkcommunications.com> <3.0.6.32.19991207084300.009158b0@mail1.pkcommunications.com> Message-ID: <384DCF9E.1D205B2D@rochester.rr.com> Fred Edmister wrote: > > I have my script running from the command prompt now, and was wondering if > someone could give me an idea on how to read info from a form instead... (I > know there is plenty of information on this, and I have a couple of books > as well, but it's kinda a "hurry rush" thing from upper level...) If > anyone can help, it would be great!! I just have a couple fields to read > from a form, the rest I can figure out... (do they just keep the name they > have in the form when sent? {ie, can I just assume that when the "SUBMIT" > button is clicked, that the "Name" field on the form will become $name in > the script}) Thank you anyone who can help!! > > Fred Fred, for light-duty CGI, you can use the following little subroutine: #sub to read CGI input and return it as a hash sub read_input { local ($buffer, @pairs, $pair, $name, $value, %FORM); # Read in text $ENV{"REQUEST_METHOD"} =~ tr/a-z/A-Z/; if ($ENV{"REQUEST_METHOD"} eq "POST") { read(STDIN, $buffer, $ENV{"CONTENT_LENGTH"}); } else { $buffer = $ENV{"QUERY_STRING"}; } # Split information into name/value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%(..)/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; while(exists($FORM{$name})){$name++;} #handle multiple instances $FORM{$name} = $value; } %FORM; } Call it like: %form=&read_input; and use the returned parameters like: $paramvalue1=$form{paramname1}; In the above case, "paramname1" is the name given in the name="paramname1" field of the tag in the HTML
. Note that if a name appears more than once in your HTML form and is sent more than once, the instances after the first instance will be identified by the name with the automagical string increment operator applied, once for each appearance of the name. If you don't like that, just remove the "while" line from the sub, in which case only the last instance will be returned. This sub will decode either GET or POST requests. You'll have to set up your web server so it will run Perl CGI scripts. For serious CGI work, use CGI; The little subroutine above can make your script a bit quicker to run than using the CGI module. But it doesn't even come close in terms of goodies. Best wishes. -- Bob Walton From sbarton at ufosys.com Wed Dec 8 09:13:41 1999 From: sbarton at ufosys.com (Scott Barton) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] remove Message-ID: From webmaster at rochester.rr.com Wed Dec 8 09:25:49 1999 From: webmaster at rochester.rr.com (Justin C. Sherrill) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Special Webhosting and Dedicated Server Offer In-Reply-To: <19991208015024567.BYQC130@infomail.inexchange.net@outbox.infowatch.net> Message-ID: <000701bf4190$81dfff20$d401a8c0@rochester.rr.com> It looks like this list is getting spammed... Can it be set so that subscribers only can post/read? Or is that the case already? Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" > -----Original Message----- > From: owner-rochester-pm-list@pm.org > [mailto:owner-rochester-pm-list@pm.org]On Behalf Of Info Desk > Sent: Tuesday, December 07, 1999 8:50 PM > To: rochester-pm-list@pm.org > Subject: [rochester-pm-list] Special Webhosting and Dedicated Server > Offer > > > If you wish to be excluded from any future mailings, > reply with "remove" in the subject header. > ------------------------------------------------------------ From sporter at rit.net Wed Dec 8 09:24:52 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Special Webhosting and Dedicated Server Offer In-Reply-To: <19991208015024567.BYQC130%infomail.inexchange.net@outbox.infowatch.net> Message-ID: Do NOT reply to this. Somebody SPAMed the list as a whole, not you individually. -- Shawn Porter http://www.rit.net/sporter sporter@rit.net -- On Tue, 7 Dec 1999, Info Desk wrote: > If you wish to be excluded from any future mailings, > reply with "remove" in the subject header. > ------------------------------------------------------------ > > http://www.inexchange.net > > Internet Exchange would like to introduce our Special Hosting and Dedicated Server Plans > > * Budget Plans from $14.95 Mo. > * E-commerce Plans from $49.95 Mo. > * Dedicated Server Plan from $99.00 Mo. (Ask about YOUR FREE Server!) > > * Sign up for 6 months, and we'll WAIVE the setup fee > * Sign up for 10 months, and we'll WAIVE the setup fee and give you 2 FREE months > * Sign up for 12 months, and we'll give you a FULL FREE 2nd year of hosting > * UNLIMITED E-mail, E-mail forwarding, auto responders and vacation reply > * FREE registration of your domain with over 950 search engines > * Multiple, Redundant, High-Speed connections to the web > * INTERNATIONAL Hosting > * Access to your account anytime from your own browser > * Full Microsoft Front Page support > * Unlimited FTP updates > * Personal CGI directory for your own scripts (or use ours) > * Comprehensive statistics program shows you everything > * Domain name registration (www.yourname.com) > * Friendly customer support > * Additional plans also available > > If for any reason you are not satisfied with InfoWatch's service after 30 days, we will transfer you back to your original host and pay any transfer fees. > > http://www.inexchange.net > info@inexchange.net > From fedm at pkcommunications.com Wed Dec 8 11:45:38 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Win32 In-Reply-To: <19991208015024567.BYQC130@infomail.inexchange.net@outbox.i nfowatch.net> Message-ID: <3.0.6.32.19991208124538.00937af0@mail1.pkcommunications.com> Anyone have any idea what %1 is not a valid Windows NT application. means on an NT server running perl 5.22? Its just a simple perl script, and runs fine on a linux machine! :) Thanks! Fred From bmathis at directedge.com Wed Dec 8 12:26:25 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Win32 In-Reply-To: <3.0.6.32.19991208124538.00937af0@mail1.pkcommunications.com> Message-ID: On Wed, 8 Dec 1999, Fred Edmister wrote: > Anyone have any idea what %1 is not a valid Windows NT application. means > on an NT server running perl 5.22? Its just a simple perl script, and runs > fine on a linux machine! :) Thanks! > > Fred Sounds like the perl mime type is messed up. %1 means "the first argument passed on the command line. The mime type default action mapping for perl files in windows will look something like this: c:\perl\perl.exe %1 When you double-click a .pl file, windows runs it as if it were run from the command line like: c:\perl\perl.exe file.pl by substituting the file name for %1. Check your quoting etc, in the mime type mappings. -- Brian Mathis Direct Edge From fedm at pkcommunications.com Wed Dec 8 12:36:58 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Win32 In-Reply-To: References: <3.0.6.32.19991208124538.00937af0@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991208133658.00933da0@mail1.pkcommunications.com> Hmmm... I checked the MIMEs on the server... There wasn't an entry for .cgi, so I added it... Now it just sits there... :( Cute little bar going back and fourth, waiting for reply.. Been sitting there waiting for almost 10 minutes now.. ROFL! :) Is there supposed to be an entry for cgis or does it just automatically assume perl for them? At 01:26 PM 12/8/99 -0500, you wrote: >On Wed, 8 Dec 1999, Fred Edmister wrote: >> Anyone have any idea what %1 is not a valid Windows NT application. means >> on an NT server running perl 5.22? Its just a simple perl script, and runs >> fine on a linux machine! :) Thanks! >> >> Fred > >Sounds like the perl mime type is messed up. %1 means "the first argument >passed on the command line. The mime type default action mapping for >perl files in windows will look something like this: > c:\perl\perl.exe %1 > >When you double-click a .pl file, windows runs it as if it were run from >the command line like: > c:\perl\perl.exe file.pl >by substituting the file name for %1. > >Check your quoting etc, in the mime type mappings. > >-- >Brian Mathis >Direct Edge > > > > From bmathis at directedge.com Wed Dec 8 13:04:14 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Win32 In-Reply-To: <3.0.6.32.19991208133658.00933da0@mail1.pkcommunications.com> Message-ID: On Wed, 8 Dec 1999, Fred Edmister wrote: > Hmmm... I checked the MIMEs on the server... There wasn't an entry for > .cgi, so I added it... Now it just sits there... :( Cute little bar going > back and fourth, waiting for reply.. Been sitting there waiting for almost > 10 minutes now.. ROFL! :) Is there supposed to be an entry for cgis or > does it just automatically assume perl for them? Please go to: http://www.access.digex.net/~jurlwin/ and read some stuff there. There's also a knowledgebase article at Microsoft, you'll have to hunt it down though. Also look at the support pages from Activestate: http://www.activestate.com/ActivePerl/docs/Perl-Win32/perlwin32faq.html We're gladly willing to help you, but I get the feeling you're not really looking anywhere else. -- Brian Mathis Direct Edge From fedm at pkcommunications.com Wed Dec 8 14:50:29 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Win32 In-Reply-To: References: <3.0.6.32.19991208133658.00933da0@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991208155029.0093c8f0@mail1.pkcommunications.com> I do look around for info :) I'm not really that concerned with it though... I've got a linux server here that I can run this one on... :) That one kinda get's moved to the back burner cause of the time restraint I have on some other "projects" :) Thanks for the resources though! You can NEVER have too many of those!! :) Fred At 02:04 PM 12/8/99 -0500, you wrote: >On Wed, 8 Dec 1999, Fred Edmister wrote: >> Hmmm... I checked the MIMEs on the server... There wasn't an entry for >> .cgi, so I added it... Now it just sits there... :( Cute little bar going >> back and fourth, waiting for reply.. Been sitting there waiting for almost >> 10 minutes now.. ROFL! :) Is there supposed to be an entry for cgis or >> does it just automatically assume perl for them? > >Please go to: > http://www.access.digex.net/~jurlwin/ >and read some stuff there. > >There's also a knowledgebase article at Microsoft, you'll have to hunt it >down though. > >Also look at the support pages from Activestate: >http://www.activestate.com/ActivePerl/docs/Perl-Win32/perlwin32faq.html > >We're gladly willing to help you, but I get the feeling you're not really >looking anywhere else. > >-- >Brian Mathis >Direct Edge > > > > From fedm at pkcommunications.com Wed Dec 8 14:54:40 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Libwww-Perl In-Reply-To: References: <3.0.6.32.19991208133658.00933da0@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991208155440.00911dd0@mail1.pkcommunications.com> This one should be easy... And I've looked EVERYWHERE for this answer... I just installed a few modules on my linux server... (libwww 5.47 being one of them...) Mainly because I was getting a processing error with one of my scripts "Can't locate auto/LWP/UserAgent/env_proxy.al in @INC... {etc}" Here's the kicker... Everywhere I go, says that that files is "suposed to be" in the libwww distribution? I know I'm not a total genius at this... But has anyone had this happen to them? Fred From sporter at rit.net Wed Dec 8 15:05:08 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Libwww-Perl In-Reply-To: <3.0.6.32.19991208155440.00911dd0@mail1.pkcommunications.com> Message-ID: Is the file actually there? If so, check the permissions. -- Shawn Porter http://www.rit.net/sporter sporter@rit.net -- On Wed, 8 Dec 1999, Fred Edmister wrote: > This one should be easy... And I've looked EVERYWHERE for this answer... I > just installed a few modules on my linux server... (libwww 5.47 being one > of them...) Mainly because I was getting a processing error with one of my > scripts "Can't locate auto/LWP/UserAgent/env_proxy.al in @INC... {etc}" > > Here's the kicker... Everywhere I go, says that that files is "suposed to > be" in the libwww distribution? I know I'm not a total genius at this... > But has anyone had this happen to them? > > Fred > > From bmathis at directedge.com Wed Dec 8 17:53:59 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Special Webhosting and Dedicated Server Offer In-Reply-To: <000701bf4190$81dfff20$d401a8c0@rochester.rr.com> Message-ID: On Wed, 8 Dec 1999, Justin C. Sherrill wrote: > It looks like this list is getting spammed... Can it be set so that > subscribers only can post/read? Or is that the case already? > > Justin C. Sherrill If spam becomes a real problem I will get this going. This is only our first incident. :) -- Brian Mathis Direct Edge From bmathis at directedge.com Wed Dec 8 18:18:34 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] remove In-Reply-To: Message-ID: -- If you ever want to remove yourself from this mailing list, you can send mail to with the following command in the body of your email message: unsubscribe rochester-pm-list or from another account, besides email@domain.com: unsubscribe rochester-pm-list email@domain.com -- Brian Mathis Direct Edge From sbarton at ufosys.com Wed Dec 8 18:06:17 1999 From: sbarton at ufosys.com (Scott Barton) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] unsubscribe rochester-pm-list sab0276@rit.edu Message-ID: unsubscribe rochester-pm-list sab0276@rit.edu From webmaster at rochester.rr.com Thu Dec 9 08:07:12 1999 From: webmaster at rochester.rr.com (Justin C. Sherrill) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Win32 In-Reply-To: <3.0.6.32.19991208133658.00933da0@mail1.pkcommunications.com> Message-ID: <001101bf424e$b0a440a0$d401a8c0@rochester.rr.com> > Hmmm... I checked the MIMEs on the server... There wasn't > an entry for > .cgi, so I added it... Now it just sits there... :( Cute little bar going > back and fourth, waiting for reply.. Been sitting there waiting for almost > 10 minutes now.. ROFL! :) Is there supposed to be an entry for cgis or > does it just automatically assume perl for them? What is the server program? IIS, or different? Did you have Perl CGIs working here before? Justin C. Sherrill Rochester Road Runner Webmaster http://www.rochester.rr.com/ "Think slow, type fats" From fedm at pkcommunications.com Fri Dec 10 12:48:16 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Blank Info... Message-ID: <3.0.6.32.19991210134816.008f4a40@mail1.pkcommunications.com> Ok, here's the last bit.. If I have the script write to a text file, it's ok, and if I hard code the values then the script writes to the database ok... If I use it like this; {clip} my $sth=$dbh->prepare('INSERT INTO cust_stores_lnk_dummy (cust_purch_no,cust_no,stores_cust_purch,store_total_purchase,store_id) VALUES (?,?,?,?,?)') or die "Couldn't Connect To Database: " . DBI->errstr; $sth->execute($purch_no,$cust_id,$purchase,$store_total,$store_id); $sth->finish; $dbh->disconnect; {end clip} It doesn't write anything, and doesn't get any errors either... Any thoughts... Fred From bmathis at directedge.com Tue Dec 14 13:32:05 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Meeting reminder - CHANGES! Message-ID: This is a reminder about our meeting tomorrow, Wed, Dec 15. At the last meeting, we decided to move the meeting to a more social atmosphere that involves beer. Our next meeting will be held at Monty's Crown (Rose & Crown), a pub right next to where we usually meet. Literally, right next door. We will meet at 8pm. Look forward to seeing you there. I will have the web site updated as soon as I can figure out the problems with the password... -- Brian Mathis Direct Edge http://www.directedge.com From bmathis at directedge.com Wed Dec 15 08:52:06 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Perl included in "Top 10 Hacks of all Time" Message-ID: Found this on Slashdot. Looks like Perl will be remembered forever. Glad I didn't choose Python :). http://slashdot.org/features/99/12/13/0943241.shtml It's the 6th one down, under "Winners" -- Brian Mathis Direct Edge http://www.directedge.com From fedm at pkcommunications.com Thu Dec 16 11:50:57 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Thank you all! In-Reply-To: <3.0.6.32.19991210134816.008f4a40@mail1.pkcommunications.co m> Message-ID: <3.0.6.32.19991216125057.00931980@mail1.pkcommunications.com> Thank you all for all the assistance you've given me ofer the last few weeks! I must say that if it weren't for many here, and a couple on hte DBI conference as well, I wouldn't have made it! I must also say, the scripts I've been working on are now fully functional!! Again, thank you all for helping out, and I hope I can return the favor someday!! :) Hope you all have a safe and happy holiday season!! Fred Edmister PK Communications CGI Web Developer fedm@pkcommunications.com From lch3120 at yahoo.co.kr Sat Dec 18 09:53:35 1999 From: lch3120 at yahoo.co.kr (lch3120@yahoo.co.kr) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] Do You Like Getting The Last Word? Message-ID: <612.656183.55360@www.giridc.org> Global Internet Research & Information Distribution Coalition (GIRIDC) About Us: Global Internet Research & Information Distribution Coalition, (GIRIDC) is a FOR FREE entity sharing with consumers an opportunity to explore non-biased informational portals offering services for which we have no financial interest or gain. We feature sites that have been researched and have delivered responsibly on their product or service. Please note, we do not have any direct affiliation with the sites present in this E-Link Bulletin. We are consumers like you, seeking the use of legitimate value-added services via the Internet. Our Goal: To introduce the many value-added products and services offered on the Internet. Consumers have a right to know about the mass resources available and the wealth of legitimate sites that may benefit their needs. Corporate giants and others are attempting to sensor what you see, read and hear via the Internet, forcing you to purchase products and service through their vendors and portals. This is not the purpose for which the Net was intended. Here are a few great sites we have visited and found very useful. ***************************************************************** ******************************** Featured Site: http://www.scambusters.org This site is a must see! If you are concerned with email ads or websites offering opportunities or programs that may seem suspicious, report it to this site. They have all the latest and most common scams that are being circulated on the Internet and will post any fraudulent materials. Free Internet: http://www.freei.net Don't want to continue paying $19.95 or more just to Surf the Net? This site offers the future of the Internet, Today. Never pay to Surf again. In this case, Free Does Mean Free! Internet Service Providers: http://www.thelist.com Don't like the service you've been getting from your present Internet Service Provider? Take a look at the more than 6,000 ISP's you have to choose from. You're Not Stuck! Need To Send A Large File: http://www.whalemail.com The is a great service for sending large files up to 50 megs, your regular ISP just can't handle that kind of load. Go ahead, transfer you entire C Drive to the ones you love most. It's even FREE! Nice guys huh? Cheap Phone Rates: http://www.4centsld.resourcez.com We found a .04cents long distance rate, no switching, no fees and low international rates using 10-10 access numbers. If you can handle the 10 minute minimum, you're in business. Nothing But FREE Stuff: http://www.thefreesite.com Now who doesn't like Free Stuff that is really Free? This site is a ton-of-fun and there is something for everyone. It offers a multitude of freebies and we are sure you may find something that interest you. Free Fax Service: http://www.fax4free.com Here you can get a free fax phone number and receive you faxes on your computer. You can print your faxes out on your printer. Print quality is much higher than normal fax machines. Looking For A Job or Career? http://www.jobfinders.com This site is very user friendly. If you are in need of searching for that one job you can't seem to locate anywhere else, this site is up to the challenge. International Directory Assistance Online: http://www.infobel.com If you have ever gotten International Directory Assistance from AT&T then you are aware that you can easily pay up to $9.00 dollars for that information. Here is an online solution and it's free. A Ladies Choice: http://www.skindeep.escape.to This site offers the latest in beauty tips, secrets, fashion trends and more. No need to worry about the "IN Crowd", because here you're always "IN". They even have a 100% satisfaction guarantee on their products. Looking For Someone? http://www.anywho.com Yes, this site will assist you in finding that someone special or not so special, whatever the case maybe. You will need to have some basic information regarding your search, but the site does deliver. ***************************************************************** ***************************** We Value Your Input: If you know of a site that would be a value-added service to the Net community we welcome your inquiry. We seek to introduce sites that do not have an existing corporate or commercial presence. Provide us with the WWW address and we will visit the site and share it with the community in a future mailing. We welcome your ideas and value your suggestions regarding our E-Link Bulletin. Tell us what you think of the sites we've presented. Leave your inquiry at our 24 Hour Message Center Toll Free: 1-877-410-1062 Due to the popularity of our concept, thanks to you, we are now 100,000 members strong and growing. We do not seek to offend those who do not wish to receive our mailings. To guarantee your removal from any future mailings, please leave your email address at this toll free number: 1-877-410-1027 From dkalweit at nesfiles.com Tue Dec 21 22:27:20 1999 From: dkalweit at nesfiles.com (Derek Kalweit) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] New Member and a question Message-ID: Hello all! I just discovered this Perl Mongers user group, and look forward to meeting you all at the January meeting! I saw the site. I have to say it's impressive-- I like the use of style sheets for the calendars, and the colors are extremely complementary of each other. I sure do hope you use a perl script to generate those calendars and don't do it by hand for each month.. :-> Anyways, what had me searching the web for PERL info that caused me to stumble across this group, is this. I'm writing a script to help in some system administration. It can only be run(or even read) by root, and it's even still hidden in a directory only accessable by root. Currently, I need to run this script by hand, as it calls the 'passwd' command to change a couple passwords. This is tedius, and I'd like to pipe the password in through my script. I know the whole idea of piping to passwd is a possible security hole, and I'm sure that's why it's not working when I try it(I can pipe to other apps just fine). Is there any way around this, or some other way to change the passwords on the system with my script? As for where the passwords to be used are stored, they're stored in an SQL database on the local machine(only accessable on the local machine by a specific user), and they're encrypted. Any suggestions? Thank you! From bmathis at directedge.com Wed Dec 22 10:12:29 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] New Member and a question In-Reply-To: Message-ID: On Tue, 21 Dec 1999, Derek Kalweit wrote: > Hello all! I just discovered this Perl Mongers user group, and look > forward to meeting you all at the January meeting! I saw the site. I have > to say it's impressive-- I like the use of style sheets for the calendars, > and the colors are extremely complementary of each other. I sure do hope > you use a perl script to generate those calendars and don't do it by hand > for each month.. :-> Heh. Sadly, I do them by hand. A Perl script would be nice, but it only takes about 5 minutes every 2 months. :) I'm glad you like the site though. > Anyways, what had me searching the web for PERL info that caused me to > stumble across this group, is this. I'm writing a script to help in some > system administration. It can only be run(or even read) by root, and it's > even still hidden in a directory only accessable by root. Currently, I > need to run this script by hand, as it calls the 'passwd' command to > change a couple passwords. This is tedius, and I'd like to pipe the > password in through my script. I know the whole idea of piping to passwd > is a possible security hole, and I'm sure that's why it's not working when > I try it(I can pipe to other apps just fine). Is there any way around > this, or some other way to change the passwords on the system with my > script? As for where the passwords to be used are stored, they're stored > in an SQL database on the local machine(only accessable on the local > machine by a specific user), and they're encrypted. Any suggestions? Thank > you! Well, there a quite a few ways to do this. Doing any sort of password stuff is a pain though. One method I've used before is using the Net::Telnet module. You use it to telnet to localhost, log in as that user, then you can invoke the passwd program. The thing with the passwd program is that it checks to see if it's on an interactive tty, and won't accept input from anything except that. Net::Telnet acts like an interactive tty, so passwd never knows the difference. This also eliminates the need to run suid root. One small issue with this method is you need to handle all the possible responses that 'passwd' could possibly throw at you, including "password too short", etc. You could read this from the output stream though and just pass it right on to the user. I think there's also a way to connect Net::Telnet to an already open pty, but I've never done it. If this is a 1 time run type of thing, you could just operate on the passwd file directly. It's not as safe, but much easier. -- Brian Mathis Direct Edge http://www.directedge.com From dkalweit at nesfiles.com Wed Dec 22 18:27:28 1999 From: dkalweit at nesfiles.com (Derek Kalweit) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] New Member and a question In-Reply-To: Message-ID: > > Hello all! I just discovered this Perl Mongers user group, and look > > forward to meeting you all at the January meeting! I saw the site. I have > > to say it's impressive-- I like the use of style sheets for the calendars, > > and the colors are extremely complementary of each other. I sure do hope > > you use a perl script to generate those calendars and don't do it by hand > > for each month.. :-> > Heh. Sadly, I do them by hand. A Perl script would be nice, but it only > takes about 5 minutes every 2 months. :) I'm glad you like the site > though. Ah-- such a script should take just minutes to write! :-> You do have use of server-side includes on that website, right? > > Anyways, what had me searching the web for PERL info that caused me to > > stumble across this group, is this. I'm writing a script to help in some > > system administration. It can only be run(or even read) by root, and it's > > even still hidden in a directory only accessable by root. Currently, I > > need to run this script by hand, as it calls the 'passwd' command to > > change a couple passwords. This is tedius, and I'd like to pipe the > > password in through my script. I know the whole idea of piping to passwd > > is a possible security hole, and I'm sure that's why it's not working when > > I try it(I can pipe to other apps just fine). Is there any way around > > this, or some other way to change the passwords on the system with my > > script? As for where the passwords to be used are stored, they're stored > > in an SQL database on the local machine(only accessable on the local > > machine by a specific user), and they're encrypted. Any suggestions? Thank > > you! > Well, there a quite a few ways to do this. Doing any sort of password > stuff is a pain though. One method I've used before is using the > Net::Telnet module. You use it to telnet to localhost, log in as that > user, then you can invoke the passwd program. The thing with the passwd > program is that it checks to see if it's on an interactive tty, and won't > accept input from anything except that. Net::Telnet acts like an > interactive tty, so passwd never knows the difference. This also > eliminates the need to run suid root. > One small issue with this method is you need to handle all the possible > responses that 'passwd' could possibly throw at you, including "password > too short", etc. You could read this from the output stream though and > just pass it right on to the user. > > I think there's also a way to connect Net::Telnet to an already open pty, > but I've never done it. Good alternative, but not for me, as the users that I need to change the passwords for don't have a valid shell(FTP access only). I'd also like to call this as one of root's Cron jobs at specific intervals. Handling different output from the passwd function isn't a requirement, as that's checked before the password can be put into the SQL database-- I would like to be able to call the passwd file as root, however, so I don't have to worry about this output. How about telneting to the localhost as a valid user for this purpose, doing an 'su'(adding one barrier of security, instead of allowing root access via telnet), and then issueing passwd with the username? Do you think that would work? > If this is a 1 time run type of thing, you could just operate on the > passwd file directly. It's not as safe, but much easier. I thought about writing to the passwd file directly, but thought that it would be a difficult proposition, considering the shadow file, passwd file, MD5 hashing, etc-- all of which I've never touched before... How easy would it be? ---- Derek J. Kalweit http://www.nesfiles.com/ Visit firstlook.com-- an excellent place to try new music! http://click.linksynergy.com/fs-bin/stat?id=GDiolOztENs&offerid=11036.12&type=4&subid=0 From whyte at eznet.net Wed Dec 22 21:41:46 1999 From: whyte at eznet.net (The Whytes) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] New Member and a question References: Message-ID: <386199FA.7F8EE33E@eznet.net> I think your on the right track . There was a similar problem discussed in tpj at http://www.itknowledge.com/tpj/programs/Issue_10_CGI/passwd. Derek Kalweit wrote: > > > Hello all! I just discovered this Perl Mongers user group, and look > > > forward to meeting you all at the January meeting! I saw the site. I have > > > to say it's impressive-- I like the use of style sheets for the calendars, > > > and the colors are extremely complementary of each other. I sure do hope > > > you use a perl script to generate those calendars and don't do it by hand > > > for each month.. :-> > > > Heh. Sadly, I do them by hand. A Perl script would be nice, but it only > > takes about 5 minutes every 2 months. :) I'm glad you like the site > > though. > > Ah-- such a script should take just minutes to write! :-> You do have > use of server-side includes on that website, right? > > > > Anyways, what had me searching the web for PERL info that caused me to > > > stumble across this group, is this. I'm writing a script to help in some > > > system administration. It can only be run(or even read) by root, and it's > > > even still hidden in a directory only accessable by root. Currently, I > > > need to run this script by hand, as it calls the 'passwd' command to > > > change a couple passwords. This is tedius, and I'd like to pipe the > > > password in through my script. I know the whole idea of piping to passwd > > > is a possible security hole, and I'm sure that's why it's not working when > > > I try it(I can pipe to other apps just fine). Is there any way around > > > this, or some other way to change the passwords on the system with my > > > script? As for where the passwords to be used are stored, they're stored > > > in an SQL database on the local machine(only accessable on the local > > > machine by a specific user), and they're encrypted. Any suggestions? Thank > > > you! > > > Well, there a quite a few ways to do this. Doing any sort of password > > stuff is a pain though. One method I've used before is using the > > Net::Telnet module. You use it to telnet to localhost, log in as that > > user, then you can invoke the passwd program. The thing with the passwd > > program is that it checks to see if it's on an interactive tty, and won't > > accept input from anything except that. Net::Telnet acts like an > > interactive tty, so passwd never knows the difference. This also > > eliminates the need to run suid root. > > > One small issue with this method is you need to handle all the possible > > responses that 'passwd' could possibly throw at you, including "password > > too short", etc. You could read this from the output stream though and > > just pass it right on to the user. > > > > I think there's also a way to connect Net::Telnet to an already open pty, > > but I've never done it. > > Good alternative, but not for me, as the users that I need to change the > passwords for don't have a valid shell(FTP access only). I'd also like to > call this as one of root's Cron jobs at specific intervals. Handling > different output from the passwd function isn't a requirement, as that's > checked before the password can be put into the SQL database-- I would > like to be able to call the passwd file as root, however, so I don't have > to worry about this output. How about telneting to the localhost as > a valid user for this purpose, doing an 'su'(adding one barrier of > security, instead of allowing root access via telnet), and then issueing > passwd with the username? Do you think that would work? > > > > If this is a 1 time run type of thing, you could just operate on the > > passwd file directly. It's not as safe, but much easier. > > I thought about writing to the passwd file directly, but thought that it > would be a difficult proposition, considering the shadow file, passwd > file, MD5 hashing, etc-- all of which I've never touched before... How > easy would it be? > > ---- > > Derek J. Kalweit > http://www.nesfiles.com/ > > Visit firstlook.com-- an excellent place to try new music! > http://click.linksynergy.com/fs-bin/stat?id=GDiolOztENs&offerid=11036.12&type=4&subid=0 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/rochester-pm/attachments/19991222/2cf87322/attachment.htm From bmathis at directedge.com Thu Dec 23 16:55:28 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:53 2004 Subject: [rochester-pm-list] New Member and a question References: <386199FA.7F8EE33E@eznet.net> Message-ID: <3862A85F.52DAE76@directedge.com> The Whytes wrote: > I think your on the right track . There was a similar problem > discussed in tpj at > > http://www.itknowledge.com/tpj/programs/Issue_10_CGI/passwd. Ouch, that uses the old "chat.pl" script (perl4). I don't know if there are any suitable replacements though. A similar perl5 module would be the "Expect" module. It's made for interacting with apps on the system. http://search.cpan.org/search?module=Expect -- Brian Mathis Direct Edge http://www.directedge.com From fedm at pkcommunications.com Tue Dec 28 15:21:08 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: <3862A85F.52DAE76@directedge.com> References: <386199FA.7F8EE33E@eznet.net> Message-ID: <3.0.6.32.19991228162108.0093c580@mail1.pkcommunications.com> Please forgive me in advance for this one... I'm done with my perl script, and am debugging the form that sends the variable "store_id" through to the script... In the begining stages, it was a hard coded and now the variable is being sent as a session variable... Here's my question... The variable name is "storeid" (purposly name differently from store_id as store_id is the variable in perl, and didn't want to confuse the two...) anyway, so needs to reflect the variable... Does anyone have any ideas on what the value= line should say? I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm not an html person, and was hoping someone may know... I tried to find an HTML mailing list like this one, but couldn't... Thank you all in advance for any assistance you may be able to provide! Fred Edmister PK Communications CGI Web Developer fedm@pkcommunications.com From sporter at rit.net Tue Dec 28 16:12:28 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: <3.0.6.32.19991228162108.0093c580@mail1.pkcommunications.com> Message-ID: What is generating the form? Perl? I'm confused. -- Shawn Porter http://www.rit.net/sporter sporter@rit.net -- On Tue, 28 Dec 1999, Fred Edmister wrote: > Please forgive me in advance for this one... I'm done with my perl script, > and am debugging the form that sends the variable "store_id" through to the > script... In the begining stages, it was a hard coded name="store_id" value="999999"> and now the variable is being sent as a > session variable... Here's my question... The variable name is "storeid" > (purposly name differently from store_id as store_id is the variable in > perl, and didn't want to confuse the two...) anyway, so type="hidden" name="store_id" value="storeid"> needs to reflect the > variable... Does anyone have any ideas on what the value= line should say? > I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm > not an html person, and was hoping someone may know... I tried to find an > HTML mailing list like this one, but couldn't... Thank you all in advance > for any assistance you may be able to provide! > > > > > Fred Edmister > PK Communications > CGI Web Developer > fedm@pkcommunications.com > From fedm at pkcommunications.com Tue Dec 28 16:16:58 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: References: <3.0.6.32.19991228162108.0093c580@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991228171658.00935cb0@mail1.pkcommunications.com> No, the form is html, but sends to a perl script I wrote... If it were ALL in perl (that is if it were possible for me to make it that way) then I would just fin in tha variable that way... the html part where "" is stated... I need the value to be set to a value that is a session variable... :) (ie cookie info, or flowting variable...) Hope that helps... :) I've been staring at this so long *I* am getting confused!! :) At 05:12 PM 12/28/99 -0500, you wrote: >What is generating the form? Perl? > >I'm confused. > >-- >Shawn Porter >http://www.rit.net/sporter >sporter@rit.net > >-- >On Tue, 28 Dec 1999, Fred Edmister wrote: > >> Please forgive me in advance for this one... I'm done with my perl script, >> and am debugging the form that sends the variable "store_id" through to the >> script... In the begining stages, it was a hard coded > name="store_id" value="999999"> and now the variable is being sent as a >> session variable... Here's my question... The variable name is "storeid" >> (purposly name differently from store_id as store_id is the variable in >> perl, and didn't want to confuse the two...) anyway, so > type="hidden" name="store_id" value="storeid"> needs to reflect the >> variable... Does anyone have any ideas on what the value= line should say? >> I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm >> not an html person, and was hoping someone may know... I tried to find an >> HTML mailing list like this one, but couldn't... Thank you all in advance >> for any assistance you may be able to provide! >> >> >> >> >> Fred Edmister >> PK Communications >> CGI Web Developer >> fedm@pkcommunications.com >> > > > Fred Edmister PK Communications CGI Web Developer fedm@pkcommunications.com From sporter at rit.net Tue Dec 28 16:34:46 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: <3.0.6.32.19991228171658.00935cb0@mail1.pkcommunications.com> Message-ID: If you want to insert the "storeid" on the server-side, you'll need something on the server to generate that HTML file. Perl would do the trick. If you want to fill in the "storeid" on the client side and it is being stored in a cookie, you can probably have Javascript insert it... but I wouldn't recommend that. HTML alone won't do it. On the other hand... if this info is being stored in a cookie, simply have the Perl script read the cookie. Of course, this will only work if the Perl script resides in the same domain that the cookie was set in. -- Shawn Porter http://www.rit.net/sporter work - 716-223-3610 x116 home - 716-242-8742 sporter@rit.net -- On Tue, 28 Dec 1999, Fred Edmister wrote: > No, the form is html, but sends to a perl script I wrote... If it were ALL > in perl (that is if it were possible for me to make it that way) then I > would just fin in tha variable that way... the html part where " type="hidden" name="store_id" value="storeid">" is stated... I need the > value to be set to a value that is a session variable... :) (ie cookie > info, or flowting variable...) Hope that helps... :) I've been staring at > this so long *I* am getting confused!! :) > > > At 05:12 PM 12/28/99 -0500, you wrote: > >What is generating the form? Perl? > > > >I'm confused. > > > >-- > >Shawn Porter > >http://www.rit.net/sporter > >sporter@rit.net > > > >-- > >On Tue, 28 Dec 1999, Fred Edmister wrote: > > > >> Please forgive me in advance for this one... I'm done with my perl script, > >> and am debugging the form that sends the variable "store_id" through to the > >> script... In the begining stages, it was a hard coded >> name="store_id" value="999999"> and now the variable is being sent as a > >> session variable... Here's my question... The variable name is "storeid" > >> (purposly name differently from store_id as store_id is the variable in > >> perl, and didn't want to confuse the two...) anyway, so >> type="hidden" name="store_id" value="storeid"> needs to reflect the > >> variable... Does anyone have any ideas on what the value= line should say? > >> I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm > >> not an html person, and was hoping someone may know... I tried to find an > >> HTML mailing list like this one, but couldn't... Thank you all in advance > >> for any assistance you may be able to provide! > >> > >> > >> > >> > >> Fred Edmister > >> PK Communications > >> CGI Web Developer > >> fedm@pkcommunications.com > >> > > > > > > > Fred Edmister > PK Communications > CGI Web Developer > fedm@pkcommunications.com > From bmathis at directedge.com Tue Dec 28 16:55:53 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: <3.0.6.32.19991228162108.0093c580@mail1.pkcommunications.com> Message-ID: On Tue, 28 Dec 1999, Fred Edmister wrote: > Please forgive me in advance for this one... I'm done with my perl script, > and am debugging the form that sends the variable "store_id" through to the > script... In the begining stages, it was a hard coded name="store_id" value="999999"> and now the variable is being sent as a > session variable... What do you mean by "session variable"? A "session variable" is only a concept, there is no structure called "session variable" that exists separately from a regular variable. There are only 2 ways for a form to send a variable to the server, through a form variable or a cookie. Figure out how the session variable is stored, and read the cookie or form var accordingly. Then it should be simple. :) > Here's my question... The variable name is "storeid" > (purposly name differently from store_id as store_id is the variable in > perl, and didn't want to confuse the two...) anyway, so type="hidden" name="store_id" value="storeid"> needs to reflect the > variable... Does anyone have any ideas on what the value= line should say? > I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm > not an html person, and was hoping someone may know... I tried to find an > HTML mailing list like this one, but couldn't... Thank you all in advance > for any assistance you may be able to provide! > > > > > Fred Edmister > PK Communications > CGI Web Developer > fedm@pkcommunications.com > -- Brian Mathis Direct Edge http://www.directedge.com From fedm at pkcommunications.com Wed Dec 29 07:06:34 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: References: <3.0.6.32.19991228162108.0093c580@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991229080634.0094a100@mail1.pkcommunications.com> Thanks Brian... I was told that the variable is a "session variable" that stays with the browser untill it's closed... That part of the programming is being done in Cold Fusion, I'll get with them and see where the variable is held! Thank you! Fred At 05:55 PM 12/28/99 -0500, you wrote: >On Tue, 28 Dec 1999, Fred Edmister wrote: >> Please forgive me in advance for this one... I'm done with my perl script, >> and am debugging the form that sends the variable "store_id" through to the >> script... In the begining stages, it was a hard coded > name="store_id" value="999999"> and now the variable is being sent as a >> session variable... > >What do you mean by "session variable"? A "session variable" is only a >concept, there is no structure called "session variable" that exists >separately from a regular variable. There are only 2 ways for a form to >send a variable to the server, through a form variable or a cookie. >Figure out how the session variable is stored, and read the cookie or form >var accordingly. Then it should be simple. :) > >> Here's my question... The variable name is "storeid" >> (purposly name differently from store_id as store_id is the variable in >> perl, and didn't want to confuse the two...) anyway, so > type="hidden" name="store_id" value="storeid"> needs to reflect the >> variable... Does anyone have any ideas on what the value= line should say? >> I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm >> not an html person, and was hoping someone may know... I tried to find an >> HTML mailing list like this one, but couldn't... Thank you all in advance >> for any assistance you may be able to provide! >> >> >> >> >> Fred Edmister >> PK Communications >> CGI Web Developer >> fedm@pkcommunications.com >> > >-- >Brian Mathis >Direct Edge >http://www.directedge.com > > > From sporter at rit.net Wed Dec 29 07:29:43 1999 From: sporter at rit.net (Shawn Porter) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: <3.0.6.32.19991229080634.0094a100@mail1.pkcommunications.com> Message-ID: Try this: or if they're using client variables: Reply to me, not the list, as this isn't a Perl thing. Enjoy. -- Shawn Porter http://www.rit.net/sporter work - 716-223-3610 x116 home - 716-242-8742 sporter@rit.net -- On Wed, 29 Dec 1999, Fred Edmister wrote: > Thanks Brian... I was told that the variable is a "session variable" that > stays with the browser untill it's closed... That part of the programming > is being done in Cold Fusion, I'll get with them and see where the variable > is held! Thank you! > > Fred > > > > At 05:55 PM 12/28/99 -0500, you wrote: > >On Tue, 28 Dec 1999, Fred Edmister wrote: > >> Please forgive me in advance for this one... I'm done with my perl script, > >> and am debugging the form that sends the variable "store_id" through to the > >> script... In the begining stages, it was a hard coded >> name="store_id" value="999999"> and now the variable is being sent as a > >> session variable... > > > >What do you mean by "session variable"? A "session variable" is only a > >concept, there is no structure called "session variable" that exists > >separately from a regular variable. There are only 2 ways for a form to > >send a variable to the server, through a form variable or a cookie. > >Figure out how the session variable is stored, and read the cookie or form > >var accordingly. Then it should be simple. :) > > > >> Here's my question... The variable name is "storeid" > >> (purposly name differently from store_id as store_id is the variable in > >> perl, and didn't want to confuse the two...) anyway, so >> type="hidden" name="store_id" value="storeid"> needs to reflect the > >> variable... Does anyone have any ideas on what the value= line should say? > >> I tried value=%storeid%, $storeid, #storeid# and a few others... :( I'm > >> not an html person, and was hoping someone may know... I tried to find an > >> HTML mailing list like this one, but couldn't... Thank you all in advance > >> for any assistance you may be able to provide! > >> > >> > >> > >> > >> Fred Edmister > >> PK Communications > >> CGI Web Developer > >> fedm@pkcommunications.com > >> > > > >-- > >Brian Mathis > >Direct Edge > >http://www.directedge.com > > > > > > > From fedm at pkcommunications.com Wed Dec 29 10:31:49 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Cookies with perl... Message-ID: <3.0.6.32.19991229113149.00942760@mail1.pkcommunications.com> I'm trying to write a cookie to hold the information for my previous problem I was talking about with the variable not being passed... Every reference I find for cookies all refer to writing back to an HTML file... Suppose the following.. I make a cookie like this... use CGI qw/:standard/; use CGI::Cookie; # Create new cookies and send them $cookie = new CGI::Cookie(-name=>'siteinfo', -value=>{storeid} Will this work for then pulling the info back into the final form and then passed to the perl script? The variable would then be cookie.storeid correct? :) Thanks to all for any assistance you may have!! Fred From bmathis at directedge.com Wed Dec 29 15:43:18 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Quick One... In-Reply-To: <3.0.6.32.19991229080634.0094a100@mail1.pkcommunications.com> Message-ID: On Wed, 29 Dec 1999, Fred Edmister wrote: > Thanks Brian... I was told that the variable is a "session variable" that > stays with the browser untill it's closed... That part of the programming > is being done in Cold Fusion, I'll get with them and see where the variable > is held! Thank you! > > Fred I was guessing this was Cold Fusion. If it's already in Cold Fusion, why do you need to throw perl into the mix? Have fun trying to figure out how to decode whatever format CF uses for it's session variables. -- Brian Mathis Direct Edge http://www.directedge.com From bmathis at directedge.com Wed Dec 29 15:44:09 1999 From: bmathis at directedge.com (Brian Mathis) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Cookies with perl... In-Reply-To: <3.0.6.32.19991229113149.00942760@mail1.pkcommunications.com> Message-ID: On Wed, 29 Dec 1999, Fred Edmister wrote: > I'm trying to write a cookie to hold the information for my previous > problem I was talking about with the variable not being passed... Every > reference I find for cookies all refer to writing back to an HTML file... > Suppose the following.. I make a cookie like this... > > use CGI qw/:standard/; > use CGI::Cookie; > > # Create new cookies and send them > $cookie = new CGI::Cookie(-name=>'siteinfo', > -value=>{storeid} > > Will this work for then pulling the info back into the final form and then > passed to the perl script? The variable would then be cookie.storeid > correct? :) Thanks to all for any assistance you may have!! > > Fred Did you *try* it? -- Brian Mathis Direct Edge http://www.directedge.com From fedm at pkcommunications.com Wed Dec 29 15:33:01 1999 From: fedm at pkcommunications.com (Fred Edmister) Date: Thu Aug 5 00:19:54 2004 Subject: [rochester-pm-list] Cookies with perl... In-Reply-To: References: <3.0.6.32.19991229113149.00942760@mail1.pkcommunications.com> Message-ID: <3.0.6.32.19991229163301.0094a730@mail1.pkcommunications.com> Yes, and nothing shows up in the cookies.. :( At 04:44 PM 12/29/99 -0500, you wrote: >On Wed, 29 Dec 1999, Fred Edmister wrote: > >> I'm trying to write a cookie to hold the information for my previous >> problem I was talking about with the variable not being passed... Every >> reference I find for cookies all refer to writing back to an HTML file... >> Suppose the following.. I make a cookie like this... >> >> use CGI qw/:standard/; >> use CGI::Cookie; >> >> # Create new cookies and send them >> $cookie = new CGI::Cookie(-name=>'siteinfo', >> -value=>{storeid} >> >> Will this work for then pulling the info back into the final form and then >> passed to the perl script? The variable would then be cookie.storeid >> correct? :) Thanks to all for any assistance you may have!! >> >> Fred > >Did you *try* it? > >-- >Brian Mathis >Direct Edge >http://www.directedge.com > > >