Hi,
should I use $ENV{HTTP_REFERER} to check wether a form was sent from my
site.
Because I don't want people to download my webpage, put a link to a form,
and modify some of the forms so it can crash the script.(eventough i tried
to protect from that).
The best way i can think of for the moment
Hello, I've been trying to write a cgi script that will clear and restart
the printers on our server. We have 3 printers that just give me fits
running through a Linux server. I have no problem getting everything back
up and running on the command line but when I go on vacation the office
staff
On 6/26/03 at 10:48 AM, [EMAIL PROTECTED] (anthony) wrote:
Hi,
should I use $ENV{HTTP_REFERER} to check wether a form was sent from
my site. Because I don't want people to download my webpage, put a
link to a form, and modify some of the forms so it can crash the
script.(eventough i tried
Rob,
The problem is in the permissions of the user id that is running the
script, not the owner of the script. In this case, your webserver is
the person running the script. So more than likely, you should use
'clearpq.cgi' to kick off a different script 'clearpl.pl' as ROOT. The
script
should I use $ENV{HTTP_REFERER} to check wether a form was sent from my
site.
Because I don't want people to download my webpage, put a link to a form,
and modify some of the forms so it can crash the script.(eventough i tried
to protect from that).
Enough error handling in your script will
I have found CGI::FormBuilder a great way to do the validation for you.
First it ignores anything you didn't specifically ask for. Second, you can
easily validate using regexes. An additional benefit is that this module
provides client side (for legitimate users of your form), and server side
How would I go about saving the textarea of an HTML page to a text file?
Bob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Wrong. Try:
use CGI;
my $q = new CGI;
my $record = $q-param('text_field');
open(OUTFILE, output.txt) or die Can't open output.txt: $!;
print OUTFILE $record;
close OUTFILE;
Andrew Brosnan wrote:
On 6/26/03 at 10:14 PM, [EMAIL PROTECTED] (Bob X) wrote:
How would I go about
Bare in mind that I am still a beginner at coding. Why is it good
practice to create an object when using CGI, rather than just diving
in?
For example:
use CGI ':standard';
my $q=new CGI;
my $input=$q-param('input');
and
use CGI ':standard';
my $input=param('input');
both put the contents of
Bare in mind that I am still a beginner at coding. Why is it good
practice to create an object when using CGI, rather than just diving
in?
Maintainability.
For example:
use CGI ':standard';
my $q=new CGI;
my $input=$q-param('input');
and
use CGI ':standard';
my
- Original Message -
From: mario kulka [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 6:37 PM
Subject: errors installing MD5 module
Hi,
I'm trying to install the MD5 module and following the steps from CPAN
website.
I got to the part
C. BUILD- by typing:
Mario Kulka wrote at Wed, 25 Jun 2003 19:36:45 +:
Few days ago I sent a message about uploading modules but I just realized I
wasn't subscribed to the list. I just re-subscribed but I missed the replys;
is there a way to view the last messages posted to the list by date or
something?
dear all
i have got two linux systems with perl on it
i want perl programming workable code through which i can transfer
files from one system to another using sftp or ssh.
hoping a reply early
with regards
uday
___
Click below to experience
vemulakonda uday bhaskar wrote:
dear all
i have got two linux systems with perl on it
i want perl programming workable code through which i can transfer
files from one system to another using sftp or ssh.
sftp
http://search.cpan.org/search?query=sftpmode=module
ssh
case wrote at Tue, 24 Jun 2003 15:17:48 +:
2.9 Other tips before posting to the list
* Check the FAQs first
once
* Don't send questions asking ... will this work?. Try it first, then
report errors and ask the list why it *didn't* work. A good answer to
will this
On Wed, 25 Jun 2003, Paul Kraus wrote:
Ok this lets me compile them. As long as I don't end my emacs
session all the modes are available but if I exit emacs and go
back into I have to re-byte compile them in order to have
access to the modes. Any ideas?
The simplest thing is to have the .el
Anthony == Anthony Beaman [EMAIL PROTECTED] writes:
Anthony Any advice on getting through the LP/Win 32 book? I know I
Anthony can do it but I'm getting tripped up. I've moved on to other
Anthony chapters and I'm about to read Chapter 7 but I still haven't
Anthony gotten arrays and hashes. My
Charles == Charles K Clarkson [EMAIL PROTECTED] writes:
Charles Whenever I do an exercise from one of the
Charles books that assume a unix environment, I skip
Charles the code that gets user input. If the code
Charles is written like this:
Charles my @names = STDIN;
Charles I change it
hello to everyone. when i have a path like that:
/usr/X11R6/lib/X11/locale
how can i cut this path into strings like that:
/
/usr
/usr/X11R6
/usr/X11R6/lib
/usr/X11R6/lib/X11
/usr/X11R6/lib/X11/locale
and write this at the beginning of a file? i tried many things, but all
things i tried
Hi All
I am having a problem with linefeed. I have written a program that writes records to
an output file. The program that uses this file as input requires that all records are
ended with \x0A and not CRLF (\x0D\x0A). This program runs on UNIX.
How do I ensure that records are ended only
-Original Message-
Charles Scheepers wrote:
Hi All
I am having a problem with linefeed. I have written a program that writes records
to an output file. The program that uses this file as input requires that all
records are ended with \x0A and not CRLF (\x0D\x0A). This program runs on
Thanks for the reply...
I an actually running the program on an UNIX platform, but it still uses CRLF in the
output. I have actually tried: print FILHNDL Text...\012; and the output is still
translated to CRLF. Will utilities like dos2unix make a difference?
Regards,
Charles Scheepers
-Original Message-
Charles Scheepers wrote:
I an actually running the program on an UNIX platform, but it still uses CRLF in
the output. I have actually tried: print FILHNDL Text...\012; and the output
is still translated to CRLF. Will utilities like dos2unix make a difference?
[EMAIL PROTECTED] wrote:
hello to everyone. when i have a path like that:
/usr/X11R6/lib/X11/locale
how can i cut this path into strings like that:
/
/usr
/usr/X11R6
/usr/X11R6/lib
/usr/X11R6/lib/X11
/usr/X11R6/lib/X11/locale
You have multiple options
1) split (perldoc -f split)
2) index and
Charles Scheepers wrote:
Thanks for the reply...
I an actually running the program on an UNIX platform, but it still uses CRLF in the output. I have actually tried: print FILHNDL Text...\012; and the output is still translated to CRLF. Will utilities like dos2unix make a difference?
Is the
In article [EMAIL PROTECTED], Sudarshan Raghavan
wrote:
[EMAIL PROTECTED] wrote:
hello to everyone. when i have a path like that:
/usr/X11R6/lib/X11/locale
how can i cut this path into strings like that:
/
/usr
/usr/X11R6
/usr/X11R6/lib
/usr/X11R6/lib/X11
/usr/X11R6/lib/X11/locale
You
sir
please help me with the code which does the following :
transfer of files from one system through another system which are
both working on linux through ssh
as iam in need of it urgently, exepecting a working codee
Regards
uday bhaskar
___
Kevin Pfeiffer wrote:
In article [EMAIL PROTECTED], Sudarshan Raghavan
wrote:
[EMAIL PROTECTED] wrote:
hello to everyone. when i have a path like that:
/usr/X11R6/lib/X11/locale
how can i cut this path into strings like that:
/
/usr
/usr/X11R6
/usr/X11R6/lib
/usr/X11R6/lib/X11
Hi,
I have this rather critical problem, I am trying to download quite huge
files from a remote server through ftp. (The file being in a zipped
format). I have an array which stores the names of the files to be
downloaded. I am opening each of them up at my end and extracting data
out of it and
vemulakonda uday bhaskar wrote:
sir
Please don't address me as sir, sudarshan would do
as u asked me to do i have gone thru the below site for ssh tranfer of
files in two linux systems
http://search.cpan.org/author/IVAN/Net-SCP-0.06/SCP.pm
I would appreciate it if you would keep this
vemulakonda uday bhaskar said:
sir
please help me with the code which does the following :
transfer of files from one system through another system which are
both working on linux through ssh
as iam in need of it urgently, exepecting a working codee
Whilst your candour is doubtless
-Original Message-
Vasudev.K. wrote:
.
Q1. After unzipping, the file is huge (even the zipped one is :(( )..
almost 5GB. The system throws an errorFile too large and exits.
How do I get around this ache? One way I want to do it is unzipped file
into many parts and process
From: Janek Schleicher [EMAIL PROTECTED]
case wrote at Tue, 24 Jun 2003 15:17:48 +:
2.9 Other tips before posting to the list
* Check the FAQs first
once
* Don't send questions asking ... will this work?. Try it
first, then report errors and ask the list why it
Vemulakonda Uday Bhaskar wrote at Thu, 26 Jun 2003 10:14:22 +:
please help me with the code which does the following :
Where is the code?
transfer of files from one system through another system which are
both working on linux through ssh
as iam in need of it urgently, exepecting a
HI John eveyone,
I did solve the syntax error with regards to the format utility. However,
when I tried including the format utility into the contents of the mail, the
contents of the mail were empty.
Hence I tried writting the formatted contents into a text file and it
worked. The only
Ya.. I guess .. I got a part of the answer..
I am unzipping it onto the STDOUT and reading it from there
But... still stuck with parallel processing :p:D
-Original Message-
From: Vasudev.K. [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 1:06 PM
To: [EMAIL PROTECTED]
Hi everyone,
I'm getting this warning: Possible unintended interpolation of @pkg::array1
in string
What does it mean and how do I fix it?
Errr, sorry, I cut the IO::Socket::INET to put it in the subject, I
should have done a copy...
Here is what it should have been...
code
use IO::Socket;
my $socket = IO::Socket::INET-new(localhost:80)
or die cannot connect to localhost:80 : [EMAIL PROTECTED];
print $socket GET /
hello to all
first of all i would like to pay my regrets for my earlier mail
asking the code. sorry for that.
i have wriiten a code for file tranfer between linux systems
so i used Net::SCP qw(scp iscp).
i downloaded it from the site
http://serach.cpan.org/author/IVAN
but after gunzip and tar
hello all
please tell me from where can i download scp modules for perl
regards
uday
___
Click below to experience Sooraj Barjatya's latest offering
'Main Prem Ki Diwani Hoon' starring Hrithik Roshan,
Abhishek Bachchan Kareena Kapoor
I've always found the CPAN website of great help for any module.
http://www.cpan.org/modules/00modlist.long.html
sulabh
-Original Message-
From: vemulakonda uday bhaskar [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 8:40 AM
To: [EMAIL PROTECTED]
Subject: scp : perl :help
Jenda Krynicky wrote at Thu, 26 Jun 2003 14:05:14 +0200:
case wrote at Tue, 24 Jun 2003 15:17:48 +:
2.9 Other tips before posting to the list
* Check the FAQs first
once
* Don't send questions asking ... will this work?. Try it
first, then report errors and ask
Motherofperl wrote at Thu, 26 Jun 2003 08:35:05 -0400:
I'm getting this warning: Possible unintended interpolation of @pkg::array1
in string
What does it mean and how do I fix it?
Let Perl explain it to you,
include not only strict and warnings, also
use diagnostics;
If you still don't
Vemulakonda Uday Bhaskar wrote at Thu, 26 Jun 2003 12:41:16 +:
i have wriiten a code for file tranfer between linux systems
so i used Net::SCP qw(scp iscp).
i downloaded it from the site
http://serach.cpan.org/author/IVAN
but after gunzip and tar -xvf..
when i gave the command as
Is there any methods or documents I can refer to learn how to write a file
at any desire position with any length without to write the whole again ?
I mean, I dont want to write to a new file, kill the old file, rename the new file,
or read the old file, modify it and rewrite the old file etc...
LI NGOK LAM said:
Is there any methods or documents I can refer to learn how to write a file
at any desire position with any length without to write the whole again ?
I mean, I dont want to write to a new file, kill the old file, rename the
new file, or read the old file, modify it and
Hi Todd
Thanks a lot for the pointer.
WWW::Mechanize was exactly what I needed.
Using it's field replacement, I could log in to the site without any problem
with the cookies.
However, the next web page from where I actually want to send the message
contains a text box for the mobilenumber and
You want seek(), and possibly tell().
perldoc -f seek
Thanks for reply, but seems I have to clarify my question.
'seek' and 'tell' only helping me to target my position within
a file handle.
Say, if I have a 1MB file, and I just want to over write
bytes from 0 to 1000 byte then my job
I just did this myself (see the item from this list from the 24th with title
duh...)
I had to mess with chomp and chop both (you might have to play with
them to get your format exactly right), there might be a more efficient way
to do this, but this works:
LI NGOK LAM said:
You want seek(), and possibly tell().
perldoc -f seek
Thanks for reply, but seems I have to clarify my question.
'seek' and 'tell' only helping me to target my position within
a file handle.
Say, if I have a 1MB file, and I just want to over write
bytes from 0 to
ok I want to bookmark this link, but it seems it is only one week's
worth of questions, even though there is a [Prev Page][Next Page] on the
page (which if it is a link, doesn't work).
-JW
--- Janek Schleicher [EMAIL PROTECTED] wrote:
case wrote at Tue, 24 Jun 2003 15:17:48 +:
This is a snippet from an cgi based file uploader I wrote once. I think this
is what you're after
#/!perl -w
use strict;
use IO::File;
my $offset = 3;
my $file_binary = fg;
sysopen(OUTFILE, out.txt, O_WRONLY) or print Couldn't open file for
read/write ($!)\n;
binmode OUTFILE;
sysseek OUTFILE,
You will probably want to open the file with a mode of +.
Yes and thank you! That does what I want now. Thank you very much !!
But I found new problem now. I did what I want if I try on a bitmap file,
but for text file, my new contents will overwrite the whole file, what's
that about
or
#/!perl -w
use strict;
use IO::File;
my $offset = 3;
my $file_binary = fg;
sysopen(OUTFILE, out.txt, O_WRONLY) or print Couldn't open file for
read/write ($!)\n;
binmode OUTFILE;
sysseek OUTFILE, $offset, 0;
syswrite OUTFILE, $file_binary, length($file_binary);
close OUTFILE;
Hi Again,
You're right, if we were dealing with a text file, you wouldn't have to use
binmode. However, my original script **was** for uploading binarys, and you
mentioned mp3, so it made sense to leave it in.
Hope I've been of some help
Rob
Li Ngok Lam [EMAIL PROTECTED] wrote in message
On 26 Jun 2003 10:14:22 -, [EMAIL PROTECTED] (Vemulakonda
Uday Bhaskar) wrote:
sir
please help me with the code which does the following :
transfer of files from one system through another system which are
both working on linux through ssh
as iam in need of it urgently, exepecting a
Hi,
Is there anyway to match a string in a 2-dimensional array only at one
index? For example, say I have this 2-d array:
@AoA = (
[ABC, BCD],
[CDE, DEF],
[EFG, FGH],
);
Then I wanted to see if CD exist, but only in column index 1
Hi all,
Again, I drown in the muddy watters of child processes:
What I want to achieve is: spawn up to $max_child processes and setup pipes in such
away that all child processes can 'print' to the parent. This because I want to inform
the parent about the exit value of the process
(I know I
- Original Message -
From: mario kulka [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 6:37 PM
Subject: errors installing MD5 module
Hi,
I'm trying to install the MD5 module and following the
steps from CPAN
website.
I got to the part
C.
I have a case where I need to use a command-line switch such as -X or /x
Could anyone help me with information as to how I read this into a perl
script and test it - along the lines of if /x then... ??
I've searched but can't seem to find any concrete example that a newbie
like me can use as a
Sitha Nhok wrote at Thu, 26 Jun 2003 12:47:25 -0400:
Is there anyway to match a string in a 2-dimensional array only at one
index? For example, say I have this 2-d array:
@AoA = (
[ABC, BCD],
[CDE, DEF],
[EFG, FGH],
);
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Is there some way that I can write a bit of code that will watch a directory
and as soon as a file is written to that directory, something is run against
that file? What would be the best way to turn this into a daemon?
Thanks.
-BEGIN PGP
[EMAIL PROTECTED] wrote:
I have a case where I need to use a command-line switch such as -X or /x
Could anyone help me with information as to how I read this into a perl
script and test it - along the lines of if /x then... ??
perldoc Getopt::Std
and
perldoc Getopt::Long
-- Brett
--
To
Richard here is an example of code that gets the switch variables from the command
line and checks it before continuing with the script. The shift function is operating
on the @_ array and the @_ array contains the parameters passed to that subroutine
from the command line(reference perlvar).
Thank you! This is exactly what I need. The 17 pages in the PERLDOC lib
info on Getopt::Long were a bit daunting/intimidating and for me like
driving a nail with a shotgun This sample code gives me a really
good example that shows the concept! Thank you for sharing it!
-Original
No problem, glad to help.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 1:56 PM
To: Miller, Joseph S; [EMAIL PROTECTED]
Subject: RE: How to use command-line switches...
Thank you! This is exactly what I need. The 17 pages in the
Hi Janek,
In article [EMAIL PROTECTED], Janek Schleicher
wrote:
Sitha Nhok wrote at Thu, 26 Jun 2003 12:47:25 -0400:
Is there anyway to match a string in a 2-dimensional array only at one
index? For example, say I have this 2-d array:
@AoA = (
[ABC, BCD],
This will work for the most part, but I would really recommend against it.
Check out the docs for Getopt::Std. It is much simpler than Getopt::Long,
and will really end up simplifying your scripts, although it might not seem
like it at first look.
Here's an example of a script that uses
I think this is a very basic warning, but I coudn't find the way to avoid it
(tried google, faq, and archive):
Use of uninitialized value in pattern match (m//) at poComen.cgi line 138.
line 138:
if ($q-param('template') =~ /^[1234]$/) { # trying to find out if the
value of a form parameter is
Chris Zimmerman wrote:
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Is there some way that I can write a bit of code that will watch a
directory and as soon as a file is written to that directory, something is
run against
that file? What would be the best way to turn this into a daemon?
Cancel help:about file format
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Howdy:
I am trying to write a script to get table
info from PostgreSQL. Basically, I want to
generate a list of tables from a sub function
and pass that and then use that returned
variable and put it inside a NEW sql loop
and create more output files based.
My problem is (and I'm sure there are
I keep forgetting to post the hold group. Hopes this helps.
#!/usr/bin/perl -w
use strict;
use POSIX qw(setsid);
# set costants
my$MAKEPORT=/home/jspencer/bin/make-port;
# daemonize the program
daemonize;
while(1) {
# set costants
[EMAIL
Hi. I have a perl script that calls various programs. I would like to be able to
verify that a given program is being called from the right place - what I would use
whence for in the korn shell.
I tried
$path = `whence $cmdname`;
but I don't get anything in $path. I'm undoubtedly missing
Singing Banzo wrote:
I think this is a very basic warning, but I coudn't find the way to avoid it
(tried google, faq, and archive):
Use of uninitialized value in pattern match (m//) at poComen.cgi line 138.
line 138:
if ($q-param('template') =~ /^[1234]$/) { # trying to find out if the
Hello,
I should add that in the below script MAKEPORT is another script that I have
performing once there is a change in the directory.
From: [EMAIL PROTECTED]
Date: 2003/06/26 Thu PM 05:20:51 EDT
To: [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: Re: Re: Hmmis a hot directory
From: Chris Zimmerman [EMAIL PROTECTED]
Is there some way that I can write a bit of code that will watch a
directory and as soon as a file is written to that directory,
something is run against that file? What would be the best way to
turn this into a daemon?
Depends on the OS.
Under
Hi All,
Reading through Learning Perl (3rd Ed), and messing around with Binary
Assignment Operators (2.5.3).
Code is as follows :
#!perl -w
$fred = 4;
print Fred is now : $fred \n;
$fred += 4;
print Add 4 to Fred : $fred \n;
$fred *= 2;
print Multiply by 2 : $fred \n;
$fred -= 6;
print
Just a note - running win2k and perl v5.8.0 (built for
MSWin32-x86-multi-thread).
-Original Message-
From: Derek Byrne
Sent: 27 June 2003 00:13
To: [EMAIL PROTECTED]
Subject: Re : Compilation Errors
Hi All,
Reading through Learning Perl (3rd Ed), and messing around with Binary
-Original Message-
From: Derek Byrne [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 4:15 PM
To: '[EMAIL PROTECTED]'
Subject: FW: Re : Compilation Errors
Just a note - running win2k and perl v5.8.0 (built for
MSWin32-x86-multi-thread).
-Original Message-
Oopsie - just saw my own mistake, forgot to add the ; at the end of the line
preceding the last print.. Doh!
Thank you Mark, just tried it again, and it works without the '' surrounding
the 5.. to be proper, should it have the ''?
-Original Message-
From: LoBue, Mark [mailto:[EMAIL
-Original Message-
From: Derek Byrne [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 4:44 PM
To: 'LoBue, Mark'; Derek Byrne; '[EMAIL PROTECTED]'
Subject: RE: Re : Compilation Errors
Oopsie - just saw my own mistake, forgot to add the ; at the
end of the line
preceding
Perfect! It works great. Thank you very much!
Thanks Steve also, but I WANT warnings and all errors I can get as early as
posible! =)
Regards,
SB.
- Original Message -
From: John W. Krahn [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 6:29 PM
Subject: Re: Use of
David Parker wrote:
Hi. I have a perl script that calls various programs. I would like to be able to verify that a given program is being called from the right place - what I would use whence for in the korn shell.
I tried
$path = `whence $cmdname`;
but I don't get anything in $path. I'm
Last question on this, but, is there anything I should be aware of if I code
the Fred prog like this :
#!perl -w
$Add = 4;
$Mul = 2;
$Sub = 6;
$Div = 2;
$Append = 5;
$fred = 4;
print Fred is now : $fred \n;
$fred += $Add;
print Add 4 to Fred : $fred \n;
$fred *= $Mul;
print Multiply by 2 : $fred
[EMAIL PROTECTED] writes:
I keep forgetting to post the hold group. Hopes this helps.
#!/usr/bin/perl -w
[...]
Jeez.. I wish you wouldn't over comment like that. Makes it too easy
to figure out what is going on : )
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
david [EMAIL PROTECTED] writes:
you could take a look at the stat function provided by Perl to see if the
directory's last modified time or inode change time changed:
This is not what the OP asked. But I wondered if one can determine
if a file has been writen to or changed inside a
Harry,
Please don't ever tell someone how to code their source. Jeez! Is right.
-Original Message-
From: Harry Putnam [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 6:19 PM
To: [EMAIL PROTECTED]
Subject: Re: Hmmis a hot directory possible?
[EMAIL PROTECTED] writes:
I
Sorry, Chris.
Harry, is right I should have explained better with my comments.
Regards,
Jaimee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
jandrspencer [EMAIL PROTECTED] writes:
Please don't ever tell someone how to code their source. Jeez! Is right.
I don't see any smileys here so I guess you were offended. Even
though it was clearly said in complete jest. Not sure how to
respond. I guess its enough to say no ill intent was
Sorry, Harry.
I emailed to soon. I read the email as I commented to much, but really
didn't comment at all. Which is not good!
Best Regards,
Jaimee
-Original Message-
From: news [mailto:[EMAIL PROTECTED] Behalf Of Harry Putnam
Sent: Thursday, June 26, 2003 9:44 PM
To: [EMAIL
91 matches
Mail list logo
