I made a simple html form to input a password field :
form action=http://mydomain.homelinux.net/cgi-bin/login.pl;
method=GET
Password : input type=password name=passwordbrbr
input type=submit value=Login
And a cgi to compare that password :
#!/usr/bin/perl
use CGI;
print Content-type:
try using the POST method, instead of GET ?
-Original Message-
From: Admin-Stress [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 09, 2002 8:16 AM
To: perl cgi
Subject: how to hide form parameter from displayed in browser ?
I made a simple html form to input a password field :
form
Sorry about the vague topic, don't know how to describe the problem.
My code runs OK in the console and does what it is meant to do. In the
browser it doesn't die or give any errors, but only does about half of
what it is meant to do before it magically stops with no errors.
If you look at the
Yupe, thanks, I forgot to reload the browser after I changed to POST method.
silly me!
Sorry for consuming your bandwidth.
thanks
--- Kipp, James [EMAIL PROTECTED] wrote:
try using the POST method, instead of GET ?
__
Do you Yahoo!?
Yahoo! Mail
In the beginning of your script, put:
print Content-type: text/html\n\n;
This is because the browser need to know what content type is being printed,
and in the shell all is the same, so you don't need it. Anyway, any web page
you request is declared with a content type, but this is
Hi everyone,
I am using MIME::LIte to send out several mails a month. Due to
problems with several providers (i.e. not displaying HTML correct) I
switched to text only. Now I received this error message (see below)
from one of the people on the mailing list.
Does anyone of you maybe know:
-
Hi,
Could someone check my code below? I need to redirect to a html using CGI.pm perl
module. But when
I executed, I got blank page. If I commented out $cgi-start_html ... it's working
fine, but no
redirection.
$cgi = new CGI;
sub Error {
my ($msg) = @_;
print BRBRBRBRBRBRBRBRBRBR;
print
You might want to just use redirect(), check perldoc CGI
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: Admin-Stress [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 09, 2002 2:42 PM
To: perl cgi
Subject: html redirect using CGI.pm
Hi,
Could
Merritt,
Works as expected in the console, but not in the browser?
Let me introduce you to a friend of mine
use CGI::Carp qw( fatalsToBrowser );
Your script operates under different permissions in the console and the
browser. Look at the Apache error log (and use cgi carp) to get a better
Idea
print $query-redirect(-uri='http://somewhere.else/in/movie/land',
-nph=1);
I found the example, but I dont know how to put the 'seconds', like will be redirected
after 5
seconds.
--- Scot Robnett [EMAIL PROTECTED] wrote:
You might want to just use redirect(),
I just want to make a 'secure site' that need username and password.
The easiest way to do this is probably not in perl. I recommend putting an
.htaccess file in the directory where you have the file that you want
password protected. This is a good method if you do not have the ability to
I'm in desperate need of help. I have a website on a
third party hosting company server using IIS and I
have the libwww 5.53 source files copied into my
website directory in (/include/libwww). I've written
an ASP script that allows me to perform HTTP requests
and it works great. Here is a copy
First thing, if you are generating a redirect, then you can print the
content-type header within the same space using an array ref like below.
Your method looks like it should work, although I think you might want to
put the time and the URL within the content space.
With my host I'm getting an
if ($password ne $upassword) {
print Location: /pages/login.htm\n\n;
} else {
print Location: /pages/yourpage.htm\n\n;
}
Something like that may work.
-Original Message-
From: Scot Robnett[EMAIL PROTECTED]
To: Admin-Stress[EMAIL PROTECTED], perl cgi[EMAIL PROTECTED]
Date: Mon
I have an ongoing problem.
As you know, HTML encodes GET and POST requests using the format:
myurl.com?name1=value1name2=value2...
My problem is, I have users constantly using ampersands () in text fields
(ex: John Jane Doe), so my data comes across as:
?name1=value1name2=value2=name3=value3
Hi John
why don`t you use a small regex to replace the?
Something like :
if ($variable =~ m//) {$variable =~ s//-/g}
should replace the ampersand with a -. (I am not quite sure if you
have to write or \ )
Cheers,
Sven
(P.S.: I am definitely sure there are much faster, shorter and
If I do that, then all of them would be replaced and I'd have the same
problem with the - then.
How do I distinguish between an that HTML inserted as a delimiter vs. an
the user entered? (or an =, for that matter)
-John
On 12/9/02 4:50 PM, Sven Bentlage [EMAIL PROTECTED] wrote:
Hi John
Do you know what browser(s)? Most browsers should encode the as %26
and then your split would work properly. On a side note why re-invent
the wheel, when it has already been invented lots of times, see CGI
module on CPAN, or any one of the hundreds of CGI sites that give you
source code to
Thanks guys, that was only part of the script.
I am using CGI::Carp qw( fatalsToBrowser );
There are no errors in any of the apache logs, nor from Perl.
This is why I'm struggling to find the source of the problem.
I'm also doing this
print Content-type: text/html\n\n;
but like so
print
I thought the browser automaticly replaces the signs and other special
characters with their hex value, like %20 for space.
Isn't the character replaced?
Teddy,
Teddy's Center: http://teddy.fcc.ro/
Email: [EMAIL PROTECTED]
- Original Message -
From: John Stokes [EMAIL PROTECTED]
To:
Mark,
I've got the code you sent installed and working (or almost working
anyway) snippet below:
foreach my $rec (@machines) {
($host,$user,$pass,$sname) = split(/,/, $rec);
open2(*RD_HD, *WR_FH, ssh -l $user $host $user/@$host uptime)
|| die cant fork child;
print WR_FH
Hi,
I hope other users will excuse me for being so un-perl
If I understand you right You have already lots of shell scripts which
you will have to convert to perl If you use NET::ftp ( it is Net::FTP if
I remember right)
save the bother get a ftp module like ncftpget which allows you to
what is a p-value ?
Dario Greco wrote:
hi to all,
i need to calculate p-value of Student's t-test for many values.
i've in input a TAB-delimited txt file in which there are many columns of
numbers (they're means of values of alternatively row data) for thousands of
rows.
I need in output of
Hi,
I have a XML file like this :
Config
FTPServer
Passwordpassword/Password
Usernamedccftp/Username
PortNumber22/PortNumber
/FTPServer
DCCBox
IPAddress127.0.0.1/IPAddress
Serial1234567890/Serial
/DCCBox
/Config
Could you give me a working perl code to modify the entries? user
Hi -
Could you give me a working perl code to modify the entries? ...
Sorry - that's not the way this list works :)
How can you learn if we spoon-feed you?
We are more than happy to give you suggestions and point you
in productive directions. Then, you write the code. If you
still have
Well, of course I dont ask the complete working code ...
English is not my mother language, so maybe my writing was wrong, but I dont mean that
I asked the
complete working code.
Hmm ... I dont understand about 'hash' variable type in perl, could you give me any
'example' ?
thanks
--- Beau E.
Hi -
I understand...
The hash data type is a collection of key/value pairs.
Hash variables are denoted by thr '%' symbol. For example,
my %somehash;
declares an empty hash variable named 'somehash';
To populate a hash, assign values to keys. If the key doesn't
exist the key is created and
Alan moote wrote:
Hey gang,
As you will soon see, I am quite new to Perl. I am
trying to out put a list of IPs that are trying to
access cmd.exe on my webserver. The problem is, when
I run the script against my access_log the output is a
bunch of blank lines. Here's the script so far:
From:Alfa rOMEO [EMAIL PROTECTED]To:[EMAIL PROTECTED]:Please help
Simple Perl programmDate:Fri, 06 Dec 2002 21:32:22
+Mime-Version:1.0Content-Type:text/plain;
format=flowedMessage-ID:[EMAIL PROTECTED]
Plain Text Attachment [ Save to my Yahoo! Briefcase | Download File ]
Hi,I have a
Sorry for bothering you all I did some google research myself and found
the answer
I had to do
export W=`perl -MExtUtils::Embed -e ccopts -e ldopts `
gcc $W embed.c
and it compiles file
Ramprasad A Padmanabhan wrote:
hello all
I think i am missing out something very small but not able to
Hello,
How to get the total time took to transfer a file? i.e transfer rate. I am
using Net::FTP to do ftp. I could not find any method, which let me get
the
transfer rate.
Can anyone help me in this regard?
Thanks
Sharan Hiremath.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
hi everyone!
if I have a string, lets say
$word=perl;
I want to copy this so I have something like this:
@word_list[p,e,r,l]
also, how do I get the length of @word_list?
thanks in advance!
Erik
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
@word_list = split //, $word;
$nrOfLetters = @word_list;
Erik Browaldh wrote:
hi everyone!
if I have a string, lets say
$word=perl;
I want to copy this so I have something like this:
@word_list[p,e,r,l]
also, how do I get the length of @word_list?
thanks in advance!
Erik
--
I know this has already been answered, but usually you can do things more
efficiently on the string itself...what are you trying to do?
Tanton
- Original Message -
From: Erik Browaldh [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, December 09, 2002 7:24 AM
Subject: transforming
This is the code from subroutine ReadMode:
sub ReadMode {
my($mode) = $modes{$_[0]};
my($fh) = normalizehandle((@_1?$_[1]:\*STDIN));
if(defined($mode))
{ SetReadMode($mode,$fh) }
elsif( $_[0] =~ /^\d/)
{ SetReadMode($_[0],$fh) }
Good advice. Until that time you may want to check out:
perldoc -f grep
http://danconia.org
On Sun, 8 Dec 2002 22:30:49 -0600 , Wagner, David --- Senior Programmer Analyst ---
WGO[EMAIL PROTECTED] wrote:
If you have acces get
You may also want to see Date::Calc on CPAN.
http://danconia.org
On Sun, 8 Dec 2002 21:19:22 -1000, Beau E. Cox [EMAIL PROTECTED] wrote:
Hi -
Look at Date::Manip on CPAN:
http://search.cpan.org/author/SBECK/DateManip-5.40/Manip.pod
Hello again!
going from one cgi-scripts to another and I cant get the cookie?
I write some of the code here.
cgi-script 1:
..
...
use CGI qw(:standard);
$name1=param('name'); # get the name from a fill out form
$cookie1=cookie(-name=$name1 );
print Content-Type:text/html\n\n;
then I open
This is where things get a little fuzzy for me :-)...sorry about that. If my
understanding is correct, I believe it is an autoloaded method, in other words it is
not directly defined anywhere in the module, it is automagically defined by Perl. It
also appears to be autoloaded from a c
Well whats not working ??
Mark
- Original Message -
From: Mark-Nathaniel Weisman [EMAIL PROTECTED]
To: Mark Goland [EMAIL PROTECTED]
Cc: perl [EMAIL PROTECTED]
Sent: Monday, December 09, 2002 3:14 AM
Subject: RE: Using ssh for uptime?
Mark,
I've got the code you sent installed and
hehe, write one... and let me know when you're done! hehe
Actually... if you understand OOP code, that's not a bad idea at all.help
out the community! (yea i would, but i'm very busy :-)
Good luck!
-Chris
On Monday 09 December 2002 06:19 am, sharan wrote:
Hello people
Do any one of you know a good way to merge some expressions into one?
this is what i would like in one thing:
$killer $score{ $killer }
its for some logparsing. This generates the output i want
ex:
monkey -15
elephant 10
monkey -17
elephant 12
i need this to so i can use a
If not using length() direcly on @world_list:
@word_list = qw(bla bla bla bla bla joah hey);
foreach $element (@word_list) {
local($content);
my(@lengths);
$content = length($element);
push(@lengths, $element); # or different order, I always forgot this :)
}
--
Bob Erinkveld
On Sun, 8 Dec 2002 23:14:36 -0900, [EMAIL PROTECTED] (Mark-Nathaniel
Weisman) wrote:
Mark,
I've got the code you sent installed and working (or almost working
anyway) snippet below:
I'm trying to get this silly thing working, so any ideas or suggestions
are more than appreciated.
Hi,
I used
I have my output going to a file I am creating at the time and want to
have the file permissions as just _rw___
Is there a way to set the umask of the file when it is being opened?
Thanks,
Dylan
Mystik Gotan said:
If not using length() direcly on @world_list:
@word_list = qw(bla bla bla bla bla joah hey);
Your following code is an expensive noop ...
foreach $element (@word_list) {
local($content);
Whoops. Why are you using local? Use my unless you _know_ that you need
local.
-Original Message-
From: Dylan Boudreau [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 09, 2002 12:09 PM
To: [EMAIL PROTECTED]
Subject: Creating a file with permissions _rw___
I have my output going to a file I am creating at the time and want to
have the file permissions
Here's a real beginners question:
What do the assignment operators ||= and =do? I understand += and
-= and the like;, but I can't figure out what these two do.
Perldoc perlop isn't much help, saying only that they work as in C, and my
copy of The C Programming Language -- don't ask why I have
Thanks for the input...
I will do some research on this ncftpgetonly thing is...I hope that
the ncftpget can do ftp puts as well ( I would
assume that it can) !
-Thanks again.
- Original Message -
From: Ramprasad A Padmanabhan [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday,
||= sets the variable on the left to the value on the right if it is not already
|defined.
= I would *guess* sets the value on the variable on the left to the value on the
right if it is defined, but not if it is not defined, so I guess for when you want to
replace something but not define it
-Original Message-
From: Geoffrey F. Green [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 09, 2002 12:48 PM
To: [EMAIL PROTECTED]
Subject: Perl operators question
Here's a real beginners question:
What do the assignment operators ||= and =do? I
understand += and
-= and
Hi,
Just wondering is there any perl module for configuring linux server IP address?
Thanks,
__
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Thanks, I have taken all of your comments into
account and updated my script. However, it still
functions the same. Perhaps there should be an if
statement inthere somewhere stating if I find a line
that has cmd.exe in it, capture the IP address to $1
and print it out???
Al
-- Wiggins
From: Geoffrey F. Green [EMAIL PROTECTED]
Here's a real beginners question:
What do the assignment operators ||= and =do? I understand +=
and -= and the like;, but I can't figure out what these two do.
Perldoc perlop isn't much help, saying only that they work as in C,
and my copy of
I'd like to thank everyone on and off list for thier help even the ones
that chewed me out for even thinking of writeing a perl mod that
executes as root. I don't plan on this type of code going on a prodution
server for some time but finaly got it working like it should. One bump
down, many to
Hi,
I am using perl 5.8.0 for windows to output Unicode characters in a file
and I like to see the unicode characters using any word processor on
Windows. When I use Word 2000 using Arial Unicode MS font, all the unicode
characters looks garbled. How can I see the Unicode characters of the
Hi Jason,
To me it sounds like your firewall has limited ftp to work only via
active or passive modes. My guess is that you used to use ftp in active
mode but now your firewall only allows ftp in passive mode.
Most ftp programs support passive mode, so hopefully you will be able to
get it
Hi All !!!
The below code works fine:
$FH = $file_IDS[$z];
print $FH $splt_line[$loctn[$i]],;
print $FH $splt_line[$loctn[$i+1]]\n;
$z++;
But when I remove the temporary variable $FH and use the $file_IDS[$z]
directly in the print
statement, gives a syntax error
From perldoc -f print
Note that if youre storing FILEHANDLES in an array or other
expression, you will have to use a block returning its value
instead:
print { $files[$i] } stuff\n;
print { $OK ? STDOUT : STDERR } stuff\n;
http://danconia.org
Rajendra Babu, Praveen wrote:
Hi All !!!
Ok I got it working now, thanx much Jason. Only question I have is regarding
this.
$head ||= $link;
What is this line doing ??
Mark
- Original Message -
From: Jason Tiller [EMAIL PROTECTED]
To: perl [EMAIL PROTECTED]
Sent: Monday, December 09, 2002 3:16 PM
Subject: Re: linked list's
That line just says...
* If $head is true, then leave it alone, else set it to the value of
$link
(aka: $head ||= $link _is the same as_ $head = $head || $link)
simran.
On Tue, 2002-12-10 at 13:34, Mark Goland wrote:
Ok I got it working now, thanx much Jason. Only question I have is
I usually see the last line in a package as
1;
Does this force the package to compile without error? What does it do,
and why don't all packages have it?
Thanks
JW
__
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
for put use ncftpput
On Tue, 2002-12-10 at 02:42, Jason Kendall wrote:
Thanks for the input...
I will do some research on this ncftpgetonly thing is...I hope that
the ncftpget can do ftp puts as well ( I would
assume that it can) !
-Thanks again.
- Original Message -
internally perl interpreter reads any file and runs an eval() on the
content and if eval status returns true then the file is *compiled*.
Since normal scripts have a number of statements which we use in the
void context but which return true so we never have to do an return true
in normal
why bother , play america's army a little later; let kde finish ;-)
anyway you should be catching signals ( like ctrl-c ) in your script and
reset all environment variables and try giving a way so that the next
time you car run the script and it picks up from where it had left
Christopher J
65 matches
Mail list logo