Hi Mike,
Are you sure sendmail is up and running ok on the box?
joel
-Original Message-
From: Mike Butler [mailto:[EMAIL PROTECTED]]
Sent: 13 January 2003 14:18
To: [EMAIL PROTECTED]
Subject: Problem Installing the NMS FormMail program
I'm trying to install the NMS FormMail program on
use the following sub to read post input
I got this from a book
if you only want the regxp its in this code
ex:-
%postdata= readPostInout(Max Total Size of Data in Bytes);
# this will return form data as Field=Value pares to the %postdata hash
# if the Total size of data is grater than Given
On Mon, Jan 13, 2003 at 10:55:35PM +0600, LRMK wrote:
use the following sub to read post input
I got this from a book
if you only want the regxp its in this code
But why use this over CGI.pm? The wheel has already been invented, and
quite well I might add.
--
Michael
[EMAIL PROTECTED]
Hello All,
The code below shows lines in a text file with all the lines in this format
parameter=value, now I want to read lines starting with # signs and put
them as headings in the html output, any idea , how I can achieve this.
Thanks for your help.
if ($rec =~ /=/)
{
Hello all,
I am trying to use the Apache::Session module to create and store session
information. This is my first attempt at using a session to store user
info, so please stick with me. The book that I have been using for
direction is Paul Dubois' MySQL and Perl for the Web. In it (pg. 329),
hi,
I have installed perl dbi dbd::mysql using ppm as
ppminstall dbi
ppminstall DBD::mysql
The installation happened fine with no
problems.However,now when I try to connect to the
mysql server from my script ,I get an error:
install_driver(mysql) failed: Can't locate
DBD/mysql.pm in @INC (@INC
as far as I can make out, apache needs to be running as a sybase user,
you may also need to set some $ENV variables within the script
eg: $ENV{'DSQUERY'}='SQLCAS'
HTH
Terry
-Original Message-
From: Dan Muey [mailto:[EMAIL PROTECTED]]
Sent: 10 January 2003 17:41
To: Andy Bridger;
Rob Dixon said:
In general a string is undefined if nothing has yet been assigned to it.
It's not a real value in that you can compare against it ( $x == undef
doesn't work properly ) but you can test for it (if undef $x) and set a
if (defined $x) { ... }
variable back to being undefined
I have an nice script that lest me list stuff from a certian date in time. It based on:
DD-MON-YY (say 01-jan-03) that will be from the first of january. I am trying to add
more functionality to the script. I need a function where i get an variable $days say
90, then i must subtract 90 days
I need to slice an array such that it gives me the first through the 4th to
last in a variable length array. I thought I could just do:
@comments[0..-4]
but Perl seems to choke on this. It's perfectly okay with a slice using two
negative #s:
@comments[-2..-4]
Anyone know why
John W. Krahn [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
This will work but it will also remove the space in front of the match:
s/(\s|^)#ba(?=\s|$)//;
s/((?=\s)|^)#ba(?=\s|$)//;
/R
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
Hey dhoubrechts,
My MUA believes you used Mozilla 4.75 [fr] (X11; U; Linux 2.2.17-21mdk i686)
to write the following on Saturday, January 11, 2003 at 6:06:11 PM.
d It's just what I want to do, a new sheet of paper out of the
d printer. I'm waiting for your page on next monday
Here it
Hi -
I would like to pass a string scalar to an involked process
as STDIN; I can do this with IO::File and IO::Socket
classes, but not IO::String. A snippitt (sp?):
my $fh = new IO::File;
$fh-open( something) or die cannont open post.request;
open SAVEIN, 'STDIN';
open (STDIN,''
From: Beau E. Cox [EMAIL PROTECTED]
I would like to pass a string scalar to an involked process
as STDIN; I can do this with IO::File and IO::Socket
classes, but not IO::String.
snipped
I get 'cannot dup: Invalid Argument' when trying IO::String as the
source. It seems 'fileno' returns
Oops sorry about that, I was trying to change it form html to text format and hit
send. It's Monday.
Any who, so you ran the -print $query;- bit and copied and pasted what that printed
out directly into your
Db program and it worked?
You didn't just type in the same thing thinking it's the same
For some reason when I use NET:FTP's get. I will get an error of Bad
file descriptor. What does this mean. Here is my code.
I left stuff out last time.
use Net::FTP;
$ftp = Net::FTP -new($ip_address,
Timeout = 200,
debug = 1,
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Irina Volkova) writes:
Stefan Lidman [EMAIL PROTECTED] wrote:
David Gerler wrote:
Hi,
I have a line of text that is all uppercase and I need to change it
to titlecase.
Try
$title =~ s/\b(\w+)\b/\u\L$1/g;
The \b are redundant
Can you turn off the html and send mail as text instead?
So basically you tested it on an Oracle database but your script was using CSV not
oracle?
Bad form my friend.
http://www.tuxedo.org/~esr/faqs/smart-questions.html
That wasted much time trailing the wrong stuff.
Please do better
On Fri, 2003-01-10 at 00:33, Philip Newton wrote:
On Thu, 9 Jan 2003 22:59:03 +0800 (CST), [EMAIL PROTECTED] (Gary fung)
wrote:
My coding is similar as:
$value2 = $dbh-prepare(SELECT page FROM $Table
GROUP BY page) || die Couldn't add record, .$dbh-errstr();
Whenever I use
I'm trying to argue my somewhat biased opinion that perl is better than
tcl. I want to embed perl in a c program we use because of it's speed
and object oriented nature. They want to use tcl because they don't
know perl and are comfortable with tcl. I'm not as familiar with tcl as
I am with
I think that before anyone can tell you whether it's better, you might have
to explain what you're trying to do. Are you trying to create a GUI for a
program? Are you parsing text? etc, etc...
-Original Message-
From: Sean Rowe [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 13, 2003
i'm building a routine in a module (ISD.pm) that will clear a list of
variables (set them to ), with the intent of expanding the
functionality further in the future. when called, the sub is passed a
list of strings that are variable names without the leading $.
my goal is to append the $ to each
David Samuelsson (PAC) wrote:
I have an nice script that lest me list stuff from a certian date in
time. It based on:
DD-MON-YY (say 01-jan-03) that will be from the first of january. I
am trying to add more functionality to the script. I need a function
where i get an variable $days say
foreach $f(@fields) {
$$f = ; # or use undef, whatever
}
If strict refs is in use this won't work unless you turn them off do the $$f = ; bit
then turn them back on if stricy refs was in use
So actually ( or somehting like it, I'm in a hurry and may have been sloppy )...
foreach
I'm assuming that yours rob will just remove the #ba, without the space.
While this was what I was originally looking for, John's solution removing
the #ba and the space before is more convenient, saves me having to do s/ /
/g; then.
dan
Network Administrator Head Coder
http://www.abovenet.org
Original Message
Subject: Re: perl vs tcl?
Date: Mon, 13 Jan 2003 11:14:51 -0600
From: Sean Rowe [EMAIL PROTECTED]
To: Timothy Johnson [EMAIL PROTECTED]
References: C0FD5BECE2F0C84EAA97D7300A500D50046DD3F0@SMILEY
No gui programming. I think it's used more for logic than
-Original Message-
From: Sean Rowe [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 13, 2003 9:15 AM
To: Timothy Johnson
Subject: Re: perl vs tcl?
No gui programming. I think it's used more for logic than anything
else. Not really for string manipulation. It's hard to explain
This was the issue - thanks for your help!
-Original Message-
From: Michael Peppler [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 13, 2003 4:50 PM
To: [EMAIL PROTECTED]
Subject: Re: Sybase::DBlib and CGI issue
You wrote:
The CGI bit is working - am able to display text, forms etc
No gui programming. I think it's used more for logic than anything
else. Not really for string manipulation. It's hard to explain
because the program is so huge, no one person really knows everything
about it. It seems to be more for extending the programs functionality
so that we don't
thanks Dan, but no go. here is the current incarnation, based on your
suggestion:
sub clear_input
{
no strict 'refs';
my %options = @_;
my $fields = $options{FIELDS};
my (@field) = split /, /, $fields;
print \$fields = $fields br /;
print \@field = @field br /;
Are there actually variables earlier in the script?
$school_id = SKOOL ID;
$school_name = SKOOL NM;
$school_address = SKOOL AD;
Print ID - $school_id \n NM - $school_name \n AD - $school_address \n;
Run that then the code you have now and see what you get.
Also print \$f = $f = .$$f. may be
yes, the variables exist in the calling program (school_data), defined
at the beginning of the program (my $school_id, my $school_name, etc).
if i pass the actual variable, i get the stored value (135 in the 2nd
printout listing. i've tried using my and our, to no effect.
this is part of an
Try just this :
#!/usr/bin/perl
use ISD; # or whatever you need to be able to use you module
$school_id = SKOOL ID;
$school_name = SKOOL NM;
$school_address = SKOOL AD;
Print BEFORE :: ID - $school_id \n NM - $school_name \n AD - $school_address \n;
ISD::clear_input(FIELDS = school_id,
update:
i copied the clear_input() from ISD.pm to school_data and the values do
appear as expected, so the problem is in how to pass the strings from
the script to the module (or how to manipulate them in the module) and
still have them be referenced as variables. any ideas in that
direction?
Hi Joe
I got a bit lost amongst all those 'print' statements, but what you need to
know is this:
$current_field = 'school_id';
${$current_field} = 1234;# same as $school_id = 1234
HTH,
Rob
Joe Mecklin [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL
Hi Joe
I got a bit lost amongst all those 'print' statements, but what you need to
know is this:
$current_field = 'school_id';
${$current_field} = 1234;# same as $school_id = 1234
HTH,
Rob
Joe Mecklin [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL
Hi Michael
First, and most obviously, your actual parameters for new() are a little
odd. 'debug' needs to be 'Debug' (and that fix on its own will give you a
lot more information) and 'ftp_passive' should be 'Passive' (although it
shouldn't make mucxh difference).
See what you get with debug
Hi Dan
Dan [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
I'm assuming that yours rob will just remove the #ba, without the space.
While this was what I was originally looking for, John's solution removing
the #ba and the space before is more convenient, saves
I was having him print the variables before and after the module was supposed to
modify them to see what happened. That's what all the print statements are.
IE if the variables stil have values after the module then look in the module.
IE if they don't the module is working like it should.
The
What is the output of the code I sent when you use 'clear_input2'?
If it makes the variables blank then the module code works ok and we need to figure
out why your module can't use refs or otherwise access your variables. Then we need to
determin if it's all variables or just refs.
If not then
I don't know of any module, but it would be easy to build one. The example
below isn't great, but it gets the job done. I works with nested tags, but
will have problems if you use [b] or [i] inside of [url]. If you need to
add more, just add them to the %replace hash, where 'DATA' is the data
Dan,
here is the output with your additions.
BEFORE :: ID - 101
NM - Arapaho Elementary
AD - 1300 Cypress Dr.
# this is the call to clear_input in ISD.pm
$fields = school_id, school_name, school_address
@field = school_id school_name school_address
$f = school_id = ..
$f = school_name =
Gotcha. Did you do the test that has the module just print a variable by name?
IE
print ID - $school_id \n; # from within the module
That is to see if it has to with refs or all variables.
IE the module isn't seeing the refs ($$f) obviously but can it see the actual non ref
version?
If it can
Hi all,
forgive me if this is not the forum to ask this question, and would appreciate any
help.
working on a system where I do not have root privileges, I have installed quite a
number of local modules under my home directory. No one of the modules that I am
installing requires couple of
one respondent suggested if i gave out more of the code for a better
overview of the entire process i may get better results. it was not my
intention to keep anything out of sight, i just didn't want to include a
lot of fluff code. if anyone wants the entire code (there's not a lot,
actually) -
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
It has been asked that I print some code. I found this nifty site so I figure this is
the best time to use it:
http://www.nomorepasting.com/paste.php?pasteID=222
-BEGIN PGP SIGNATURE-
Version: PGPfreeware 6.5.8 for non-commercial use
Joe Mecklin wrote:
Dan,
here is the output with your additions.
BEFORE :: ID - 101
NM - Arapaho Elementary
AD - 1300 Cypress Dr.
# this is the call to clear_input in ISD.pm
$fields = school_id, school_name, school_address
@field = school_id school_name school_address
$f =
Excellent info!
-Original Message-
From: david [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 13, 2003 1:59 PM
To: [EMAIL PROTECTED]
Subject: RE: reference problem (i think)
Joe Mecklin wrote:
Dan,
here is the output with your additions.
BEFORE :: ID - 101
NM - Arapaho
David,
this appears to be exactly what i was looking for, and i thank you with
infinite groveling *g*. the reason i wanted something like this is
because i like to name my variables and cgi parameters the same as my
database fields - $school_id = school_id (cgi parameter) = school_id
(mysql
Can someone tell me what is going wrong with my conditional hook tests as marked below?
#!/usr/bin/perl -w
use warnings;
#this program's specification is on page 167
#in the Llama book under exercise 1
my ($source, $go, $dest, $expression, $over);
print\$over = 1 if($ARGV[0] eq -o);
until($go){
On Mon, Jan 13, 2003 at 10:36:46AM -0600, Sean Rowe wrote:
I'm trying to argue my somewhat biased opinion that perl is better than
tcl. I want to embed perl in a c program we use because of it's speed
and object oriented nature. They want to use tcl because they don't
know perl and are
I have tried to read a file in backwards in stead of from the top
without any success !!!
The original code looks like this .
open(DATABASE, requests.log) || die Cannot open ProdView Log for
read!\n;
I have tried the following.
I do not get any errors from Perl, it just ignores the
On Mon, Jan 13, 2003 at 04:15:20PM -0500, Larry Sandwick wrote:
I have tried to read a file in backwards in stead of from the top
without any success !!!
http://search.cpan.org/author/URI/File-ReadBackwards-0.99/
Any suggestion would be helpful.
_Always_ search CPAN first :-)
--
Paul
Larry Sandwick wrote:
I have tried to read a file in backwards in stead of from the top
without any success !!!
The original code looks like this .
open(DATABASE, requests.log) || die Cannot open ProdView Log for
read!\n;
I have tried the following.
I do not get any errors from
Hi All,
I'm experiencing some odd results using the x file tests on files and
directories.
When I run the following:
opendir(CURDIR, c:\\) or die cant open directory: $!\n;
foreach $direntry (readdir CURDIR) {
if (-f $direntry) { print $direntry is a file..\n; }
HENRY,MARK (HP-Roseville,ex1) wrote:
Hi All,
I'm experiencing some odd results using the x file tests on files and
directories.
When I run the following:
opendir(CURDIR, c:\\) or die cant open directory: $!\n;
foreach $direntry (readdir CURDIR) {
if (-f $direntry)
Hi,
Due to a latency issue I want to time a particular intranet web page
response
It is a web page that looks for the dsl availability for an address being
input
When you hit submit it checks for the availability of dsl and output a
response
I want to time that response from the time the user
Rob Dixon [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Deborah Scott [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
I thought I understood the answer, but I need more details.
What exactly would I enter if I want a
David,
Indeed you're right - good eye.
Thanks!
Mark
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]]
Sent: Monday, January 13, 2003 1:58 PM
To: 'HENRY,MARK (HP-Roseville,ex1)'; '[EMAIL PROTECTED]'
Subject: RE: x-file tests
OK, that worked fine, until a \ character was introduced into the variable
which contains the information to be removed, for example, #blah\
I tried both john's rob's methods, both crashed the service. Any clues?
Cheers.
--
dan
Network Administrator and Head Coder
http://www.abovenet.org IRC
Todd W wrote:
[trwww@devel_rh trwww]$ perl
use Time::Local;
($day, $month, $year) = ( localtime() )[3 .. 5];
$epoch = timelocal( 0, 0, 0, $day, $month, $year );
print( scalar( localtime( $epoch ) ), \n );
Ctrl-D
Fri Jan 10 00:00:00 2003
$epoch holds the seconds between the epoch and
Korthrun [EMAIL PROTECTED] wrote in message
000b01c2ba92$be2f07e0$22cf483f@korth">news:000b01c2ba92$be2f07e0$22cf483f@korth...
I have written a program in perl that collects some data and prints it to
the screen based on parameters that are given
on the command line (gee original idea for perl
Top posting eh? We won't get in trouble will we? :)
Thanks for that Rob, building it myself was going to be a last resort, as I
figured it must have been done before a million times, with the amount of
forum software there is out there. Maybe there is something in Sporum I
could liberate...
...does any one have an idea how to install a perl modules locally, that in turn
requires other locally installed modules.
Edwin
Hi Edwin,
Look for Perl Package Manager in your installation. If Perl is installed, you should
be able to call it by entering ppm at the command line. You will then
Hello,
Sorry to bother but...
I have a script that I have to do an eval on code that someone else has put in a
database.
...
$code = $row[1] $row[2] $row[3]; # @row is from a database query
eval $code;
if($@) Print sorry -$@-;
...
It works great except there is one variable that the
Hi
Dan [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
OK, that worked fine, until a \ character was introduced into the variable
which contains the information to be removed, for example, #blah\
I tried both john's rob's methods, both crashed the service. Any
you can try to use alarm and time your aperation. if times expires catch
sig{alar}, and do your erro stuff inside .
Mark
- Original Message -
From: Najamuddin, Junaid [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, January 13, 2003 5:03 PM
Subject: Timing the response
Hi,
Due
From: Dan Muey [EMAIL PROTECTED]
Sorry to bother but...
I have a script that I have to do an eval on code that someone else
has put in a database. ...
Are you sure you want to do that? Are you sure you want them to be
able to run any code they with inside your script? Deleting files
they
Hi. I'm confused.
I don't have a copy of the Llama, and don't understand what the -o option is
supposed to do. I also don't know what a 'conditional hook test' is.
I may be being ignorant, but all I can point out is this:
[EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL
-BEGIN PGP SIGNED MESSAGE-
Thanks for pointing out that I was not setting $over anywhere, the code snippet
below clears that up.
#!/usr/bin/perl -w
use strict;
#this program's specification is on page 167
#in the Llama book under exercise 1
my ($source, $go, $dest, $expression, $over);
Why dont you pipe your programs output to more?
Good tip. Portable too, as it works precisely the same in Windows command and Unix.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
71 matches
Mail list logo
