Hi May,
> if ($plup =~ m/(^\w\.gif\|^\w\.jpg)/ {
So... you forgot a ) at last before {
you may you may simpliy write in this way
if ($plup =~ /(\.gif|\.jpg)$/)
print "";
This is another dead point.
you should use \" inside the print "" statement... if you want
to use double quote inside (I
Ok, thanks for the advice. It makes sense how to do it now. I adjusted the
code a bit and it is throwing errors. My regex might be screwed up? (I'm
not very good with them)
Here's the code:
-code-
@images =
("meth.jpg","pennywise.jpg","power.gif","nightshade.swf","pckiller.swf");
sr
It is not -necessary- to disable file uploads, it's just a good idea,
provided that no uploads are required by your application. If you leave the
upload option on and also don't use a POST_MAX to limit the size of uploads,
a malicious cracker (hey, now that would be a good band name - "Malicious
C
"Ovid" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> --- Todd Wade <[EMAIL PROTECTED]> wrote:
> > [EMAIL PROTECTED] wrote:
> >
> > > sub parse_form_input($){
> > > my $input = shift;
> >
> > I told you already.
> > > my @variables = split(/\&/, $input);
>
Hi all,
Can someone explain why it is necessary to disable the file upload if I use
CGI.pm?
Of course, if I don't need to upload files with the script.
Is it necessary to do that if I don't have an file upload field?
Thank you.
Teddy Center: http://teddy.fcc.ro/
Mail: [EMAIL PROTECTED]
--
Roger Spears wrote:
> I'm working on a project that uses Perl/CGI to work with Databases. I
> have done this before with basic txt files and then I use 1000 lines of
> code to make them appear relational. What would be an easier way to
> achieve this? SQL?
>
> Can you use Perl/CGI to interact
Can anyone give me a free source for simple form submission code of CGI? and let me
know how to do?
CGI template
html template
for ex.
[EMAIL PROTECTED] wrote:
> open(FH, " for write, >> for
> append local $/ = undef; # slurp mode (allow for shoving the whole file
> into a scalar)
> my $faq = ; # slurp the whole file into this scalar.
> close(FH);
>
open(FH, $file) or die("open $file: $!");
print(); # print() takes a list. D
--- Todd Wade <[EMAIL PROTECTED]> wrote:
> [EMAIL PROTECTED] wrote:
>
> > sub parse_form_input($){
> > my $input = shift;
>
> I told you already.
> > my @variables = split(/\&/, $input);
> this is wrong!!!
>
> Todd W.
Yes, it's wrong, but we should say that with a smile on our face :)
I'v
--- Kyle Babich <[EMAIL PROTECTED]> wrote:
> How can I import scalars, arrays, etc. from external perl and text
> files?
>
> This is what I have in index.pl:
>
> #!/usr/local/bin/perl -wT
> use strict;
> use CGI qw/ :standard /;
>
> print header ( 'text/html' );
>
> open(TEXT," while() {
[EMAIL PROTECTED] wrote:
> sub parse_form_input($){
> my $input = shift;
I told you already.
> my @variables = split(/\&/, $input);
this is wrong!!!
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How can I import scalars, arrays, etc. from external perl and text
files?
This is what I have in index.pl:
#!/usr/local/bin/perl -wT
use strict;
use CGI qw/ :standard /;
print header ( 'text/html' );
open(TEXT,") {
print;
}
close(TEXT) or die("error: fried.txt failed\n
NAME
beginners-faq - FAQ for the beginners-cgi mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to <[EMAIL PROTECTED]>
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email addr
So... I've viewed your code... the only problem is you used so may
""
In case, one is enough and all ( just for your case )
However, that's not the Perl stuff, but HTML prob.,
So I only explain it short =)
You can finish your whole script like this, actually the
framework should be looking
--- David vd Geer Inhuur tbv IPlib
<[EMAIL PROTECTED]> wrote:
> $data = param('data');
> $data =~ s/\/n//g;
> > Situation: I am reading into my script via
> > param() a textarea called Job Duties. When I
print
> > out that parameter in perl all of the new lines
are
> > ignored and it prints as o
Maureen,
Personally, I would just print out the raw HTML in
this case rather than try to use CGI's form function.
Something like (ignore the word wrap, please):
print p( "A paragraph with CGI.pm" );
# Now output the plain HTML tags
print "";
if( $my_first_condition ) {
print " ";
Try going here:
http://www.winlinux.net/download2.html
I think version 2001 is ou if you want to get the most current.
Martin Pestun wrote:
>Hi everybody
>
>Could you tell me address where can I can download winlinux2000?
>I tried to almost every internet linux address, but not succesfull.
>
>T
Any sample ? and Source Code ?
Smiley Connie =)
- Original Message -
From: "Maureen E Fischer" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, July 03, 2002 12:24 AM
Subject: Perl CGI FORM statement
> Hello,
> My question is about CGI's form statement. I wrote a pro
Hello,
My question is about CGI's form statement. I wrote a program that
outputs
three fields. Two of the three are fields from which one option is
selected. The
number and type of options presented are based on the user identified in
the environmental variables.
I got the screen to pri
You of course have to pay for the full registration, but you can download the demo and
try it out
from here:
http://labf.com/download/winaxe.html
Regards.
David
- Original Message -
From: <[EMAIL PROTECTED]>
To: "Martin Pestun" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday
i have only had a quick look on google but it seems that you have to buy
winlinux on CD. the only downloads i could find were for addons. there
appear to be many places to get a 'hacked' version but i won't endorse
that (guilty conscience?).
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Hi,
this is my script:
#!/usr/bin/perl -w
use Expect;
$passwdex = "/usr/bin/passwd"; # umiestnenie programu passwd
sub ChangeUnixPasswd {
my ($account,$passwd) = @_;
my $pobj = Expect->spawn($passwdex, $account);
die "Unable to spawn $passwdex:$!\n" unless (define
Hi everybody
Could you tell me address where can I can download winlinux2000?
I tried to almost every internet linux address, but not succesfull.
Thanks a lot
Martin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
23 matches
Mail list logo
