RE: help with HTTP::Request for POST

I think I am going to move this over to the CGI list! :o) Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.pacificonline.com -Original Message- From: Scott Lutz Sent: February 17, 2003 4:58 PM To: [EMAIL PROTECTED] Subject

help with HTTP::Request for POST

7;https://domains/perl/reg_system.cgi', [ domain => $q->param("domain"), affiliate_id => $q->param("affiliate_id"), action => $q->param("lookup"), ]); } Please do not hesitate to contact me directly i

Can't make Storable

I need some pointers as to why the Storable module won't compile on my Intel/Debian machine. I am not sure if recompiling DynaLoader would help, so if any one has any ideas, I would be most grateful. This has failed using both CPAN and using the older 2.05 version I have. Here is the complete ou

Installed Modules don't run Properly

Hello All! I have searched Google, but it turned up nothing useful on this, so I figured that this would be a good place to ask next. I just installed the DBD::mysql through the Debian package manager, but it doesn't seem to bode well with the compiled version of Perl I installed on the machine

RE: ?????????:failure notice

Change that line from : use Win32:ODBC; to : use Win32::ODBC; (note the double colon) -Original Message- From: Angel Iliev Kafazov [mailto:angel.kafazov@;mail.bg] Sent: November 9, 2002 10:38 AM To: [EMAIL PROTECTED] Subject: ?:failure notice Hi, I am trying to write a scipt wh

RE: removing modules

Never mind. A small case of the Mondays :o) scott lutz -Original Message- From: Scott Lutz Sent: November 8, 2002 10:37 AM To: Beginners (E-mail) Subject: removing modules Does anyone have experience with removing modules installed using CPAN? A Debian machine seg faults everytime I

removing modules

Does anyone have experience with removing modules installed using CPAN? A Debian machine seg faults everytime I try to install a module, and so I want to try to remove the Compress::Zlib module. Thanks for the help! scott lutz -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

RE: Mail Problem

Dan, you might want to post the line in which you call config.cgi. Are you using 'require'? cheers, scott -Original Message- From: Palm Optins [mailto:bootscat@;bellsouth.net] Sent: Wednesday, October 30, 2002 2:30 PM To: [EMAIL PROTECTED] Subject: Mail Problem Importance: High Hello E

Different ways of declaring variables

I am wondering about the different ways of initializing a single scalar. usual method: my $variable; but I am trying to get what (if anything) is being done differently by this : my ($variable); Thanks! Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free

map() definition help

What is the purpose of the following code? @list = keys %{{map{$_,1} @list}}; I am looking over someone else's code, and I am not familiar with the map() function. I have looked through the perl docs on www.perldoc.com, but it doesn't quite get this deep. Any help would be great. -- To unsu

Character Types

I am trying to do a split on a string with what looks like square boxes separating the data. Is this a tab? I was trying to find an ASCII value for this to split on it, but can't find one. Any ideas? Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll

RE: over-writing a file

Re : perldoc -q "I just want to increment the number in the file" How does one find (out about) these obscure perldoc functions? My word! Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.paconline.net -Origin

perldoc manual

Where can one find a good reference to the perldocs? I want to find out about "push", so I tried : perldoc list -> No documentation found for "push". perldoc array -> No documentation found for "array". perldoc list -> No documentation found for "list&

RE: Will not Work on the Server.

(I am going to guess that you are trying to access this through a web browser? If not then forgive me!) You need to include : print "Content-type: text/html\n\n"; before you attempt to print it out. Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020

Convert to a one liner

if ( $line =~ m'[EMAIL PROTECTED]' ) { rename "/home/slutz/temp/$file", "/home/slutz/temp/bad_email/$file" || die "$!"; print "moved file /home/slutz/temp/$file to /home/slutz/temp/bad_email/$file\n";

Friday afternoon help!

Why is it that you have to "\" out the @ symbol in the regex below? #!/usr/bin/perl -w use strict; opendir(TEMP_DIR, "/home/slutz/temp"); my @items = grep(/\.BAD/,readdir(TEMP_DIR)); closedir(TEMP_DIR); my ($file, $line); foreach $file (@items) { print "Going into file : $file\

accessing CGI.pm params directly

??? Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.paconline.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: .dat files

3:51 Morning To: Beginners Perl Subject: RE: .dat files > From: Scott Lutz [mailto:[EMAIL PROTECTED]] > > Does anyone have any ideas or suggestions to actually > reading/modifying/making the infamous .dat files that are spread all > over the Win32 file system? > > I would l

.dat files

Does anyone have any ideas or suggestions to actually reading/modifying/making the infamous .dat files that are spread all over the Win32 file system? I would like to see what is in them, and maybe edit if I choose, and wonder if there is a module out there for doing this? Anyone? (and thanks i

RE: Using require()

if (a = true) { require 'naveen.pl"; >>> note that the above line has mismatched quotes } else { Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.paconline.net -Original Message-

dynamic array values

Here is the story: "@array" with unknown number of elements, that I want to cycle through while assigning variables to each value in the loop like this: __snip__ foreach my $domain ( @DOMAINS_ORDERED ){ (my $DOM_NAME, my $TLD) = split(/\./, $domain, 2); #split the domain into 2, so we ca

Greedy 'split' ???

$DOM_NAME, my $TLD) = split(/\./, $domain); creates two variable out of an inputted domain name, until this comes along: domainname.org.uk which it interprets as : $DOM_NAME = domainname $TLD = org so is it possible to do a 'greedy split' ?? Scott Lu

formmail.pl security

I am curious if anyone is familiar with a way to tighten security on this script? We am experiencing some sort of script that is exploiting this code, and am looking for some previous experience here . . please Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free

RE: More formatting questions

$dotdate =~ s/\.//; $dashdate =~ s/-//; Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.paconline.net -Original Message- From: Scott [mailto:[EMAIL PROTECTED]] Sent: January 4, 2002 11:49 AM To: [EMAIL PROTECTED] Subject

RE: how to get and setup Perl

or %./program_name.pl will execute it. :O) Scott Lutz technical support Pacific Online http://www.paconline.net -Original Message- From: Edwin Davidson [mailto:[EMAIL PROTECTED]] Sent: January 2, 2002 3:39 PM To: [EMAIL PROTECTED] Subject: how to get and setup Perl Guys: This is a

RE: Win32 Process's

I picked up the book "Perl for System Administration", and it describes these type of projects to a "T". It is a great book, and it covers cross-platform, which is nice. Scott Lutz technical support Pacific Online http://www.paconline.net -Original Message-

executing system call

I am trying to get the date to create a file named after the current date. ( running under win32 ) here is the code : my $datestamp=`date`; print "File name created : $datestamp\n"; gives me no output. any ideas?? Scott Lutz technical support Pacific Online http://www.paconline.ne

Win32 disk usage

ectory . " /m /q:100 /l /d"; $output=`$command`; print FILE $output; } --- Scott Lutz technical support Pacific Online http://www.paconline.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: the smtp program

Here is a great place to find info an almost every module known to (Perl) man : http://www.perldoc.com Scott Lutz technical support Pacific Online http://www.paconline.net -Original Message- From: Naeemah Small [mailto:[EMAIL PROTECTED]] Sent: December 19, 2001 11:29 AM To: [EMAIL

RE: output into a csv file

I was looking for more of a way to print out the array, with inserting a comma (,) between every array value, like while ( @output ) { print $output[position] ."," } or something like that, I just figure that there would be an easy way to do it. Scott Lutz technical suppo

RE: How can I send an HTML format email using send mail

You have to make sure to include the appropriate content type. open (MAIL, "|/usr/sbin/sendmail -t -oi") || die "Can't fork for sendmail:$!\n"; print MAIL

output into a csv file

;Line $count parsed with FIRST -> $string[0] and LAST -> $string[34]\n"; } $count++; } __end_snip__ Scott Lutz technical support Pacific Online http://www.paconline.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: TEMPLETE

asign headers and footers: $pageheader = "/path/to/some/directory/pageheader.txt"; $pagefooter = "/path/to/some/directory/pagefooter.txt"; &header; put a bunch of Perl code here to spit out some fancy bits &footer; sub header { open (FILE,"$pageheader"); @pageheaderfile = ; close(FILE)

Re: Perl file creation

reation > In article <007101c1617a$9fd47590$58644c18@windomain>, > [EMAIL PROTECTED] (Scott Lutz) wrote: > > > I have a Perl script that is creating files. The only problem is that > > they are being created with the wrong username:group. Any idea as to > > why this

Perl file creation

I have a Perl script that is creating files. The only problem is that they are being created with the wrong username:group. Any idea as to why this is happening, and an easy way to fix it? --- scott lutz ---

Re: Flat File

($city,$name,$phone,$zip) = (s/\|/, $variable_representing_each_entry ) print "City=$city\n"; - Original Message - From: "Joe Echavarria" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, October 28, 2001 4:02 PM Subject: Flat File > Hi there, > >I have a flat file wit

connecting to MS Access

I am wondering what the best way to connect to a MS Access database table to extract email addresses is? DBI or is the some variety of Perl::ODBC? Thanks! --- scott lutz ---

Mac-to-*nix converter

Does anyone know of a reliable converter to convert Mac format files to = a *nix type? This would be a life saver! -- scott lutz --

RE: Sending Mail with attachments

Sweet. I will try that out! Thanks for the help. _ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Sending Mail with attachments

en (MAIL, "|/usr/sbin/sendmail -t -oi") || die "Can't fork for sendmail:$!\n"; print MAIL < To: Subject: Daily Order Conversion script X-MSMail-Priority: Normal X-Priority: 1 X-Mailer: scott lutz\'s massive mailer MIME-Version: 1.0 Content-Type: multipart/mix

Re: PPM

just type ppm from the comand prompt _ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Installed Modules

Is there a command to list all installed modules? _ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Matching one array against another

I have a question that to me seems like it would be part of the foundation of Perl. @possible_matches = qw( list of items to match against ); @list = qw( imagine that there is an unknown number of elements in here ); foreach $list (@list) { # now match againt

Re: CWD module

]> Delivered-To: mailing list [EMAIL PROTECTED] In-Reply-To: <[EMAIL PROTECTED]> Message-ID: <[EMAIL PROTECTED]> X-Spam-Rating: onion.valueclick.com 1.6.2 0/1000/N On Jun 8, scott lutz said: >I am trying to get some info on CWD.pm. Everywhere I look it seems to say >

CWD module

I am trying to get some info on CWD.pm. Everywhere I look it seems to say that it is part of the Perl distro, yet when I try a perldoc cwd or perldoc getcwd it gives me : No documentation found for "cwd". or No documentation found for "getcwd". and when I try to run my script I get : Can't loc

Gurus Wanted!!

I have a this fancy bit of recursive search and replace code that I picked up somewhere, but I would greatly appreciate it if one of the gurus could explain it in English for me: find . -type f -print0 | xargs -0 perl -pi -e 's/<>/<>

Net::SMTP and Bcc Usage

I have looked through all of the doc and even searched CPAN, but can find no reference to using the Bcc feature. # Send the header. $smtp->datasend("To: test <$address_1>\n"); $smtp->datasend("Bcc: test2 <$address_2>\n"); $smtp->datasend("From: $myname <$myemail>\n"); $smtp->datasend("\n"); I a