Emm. I don't exactly know what do you want,
but try this if that's what you want:
make an array to put your IMG files,
make another array to put your SWF files.
make a random 0, 1 to choose if you want to output
as IMG or SWF
if IMG, random a file from the IMG array,
if SWF, random a file f
Well, I'm a little bit behind
schedule because the home page for Form.pm just got erased (long story).
Anyway, I just setup a backup system on my server now so I'll have a weeks worth
of daily backup's (ya, I know I should have had this before). But attached
are the main functions of F
Hello,
I'm trying to make a random signature for use on bulletin boards. Images
are fine, they are set sizes. But I'm trying to make it display Flash files
also. These Flash files default to full-screen when there are no size
limits set. I can't figure out how to adjust this script to display
Curtis,
Thanks for the reminder, I'll get it up shortly after I get home from work. About
5:00pm
Mountain Time.
David
- Original Message -
From: "Ovid" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Monday, July 01, 2002 11:39 AM
Subject: Re: CGI.pm v/s roll
Terminology not withstanding, it's again the lexical scoping.
Basically, what you're doing wrong is by declaring the scalar test inside the
while block.
As long as the code is exiting within the while block, $test is still alive.
The code exits out of the while block and $test is no more.
Also- b
--- [EMAIL PROTECTED] wrote:
> Curtis,
> You make some good points. I will be leaving in about 10 minutes for a
>vacation, and wont
be
> back until Monday, so if you wouldn't mind sending an email to the list Monday as a
>reminder, I
> will submit the code then.
>
> Thanks,
> David
David,
Try
while (my $test=)
{
commands ...
}
Best Regards,
"Quem nunca pirateou que atire o 1º disco,
que eu atiro uma cópia"
===
Sp0oKeR - NsC
Analista Linux / Security
[EMAIL PROTECTED]
> open(TEXT,"text.txt") or die ("error: text.txt failed\n");
> while () {
> my $text = ;
> }
>
> It tells me $text requires explicit package name but I do give it 'my'
> so why is it still giving me that error?
The $text has fallen out of scope. Lexical variables (d
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);
- Original Message -
From: "Kyle Babich" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 3
my $stuff = qq^
here is some stuff
and more stuff to boot
stuff for me
and stuff for you
^;
$stuff =~ s/stuff/money/gs;
# g says match all occurrences
# s says treat $stuff as a single line
Regards,
David
- Original Message -
From: "Octavian Rasnita" <[EMAIL PROTECTED]>
To: <[EMAIL P
Ok, thank you, but now I'm having another problem with this:
open(TEXT,"text.txt") or die ("error: text.txt failed\n");
while () {
my $text = ;
}
close(TEXT) or die("error: close text.txt failed\n");
print <<"EndOfHTML";
$text
EndOfHTML
It tells me $text requ
Look up the wget package for Linux.
or you can try the combination of these:
HTTP::Request;
LWP::UserAgent;
Regards,
David
- Original Message -
From: "Octavian Rasnita" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, June 28, 2002 6:25 AM
Subject: Printing the Content-typ
Hello all...
I have a perl script which, among other things, sends a mail message by piping
to sendmail. The script worked fine right up until I reinstalled my OS
(Mandrake 8.2)
Now the script wont send the mail - it works in every other way. I dont get
any errors in the error_log, and I ca
Teddy,
Try:
if (-e "/usr/www/domain/file.txt"){
print "file.txt exists\n";
}
A few others are -f to check if it is an ordinary file, -d to find if it exists and is
a
directory, -l to find if it exists and is a symlink, -T to find if it exists and is a
plain text
file. There are about 2
>Try to use(UpperCase):
> open(TEXT,"text.txt")
> while()
Also, if you're using Perl >= 5.6.0, use the $fh notation and get around
the barewords entirely.
open( my $fh, "text.txt" ) or die $!;
while ( <$fh> ) {
# whatever
}
close $fh;
--
'Andy Lester[E
on Mon, 01 Jul 2002 15:22:00 GMT, [EMAIL PROTECTED] (Kyle Babich) wrote:
> open(text,"text.txt") or die ("error: text.txt failed\n");
> [...]
> bash-2.05$ perl -Tcw index.pl
> Unquoted string "text" may clash with future reserved word at
> index.pl line 17.
> [..]
> How do I fix it?
>From p
Try to use(UpperCase):
open(TEXT,"text.txt")
while()
Best Regards,
"Quem nunca pirateou que atire o 1º disco,
que eu atiro uma cópia"
===
Sp0oKeR - NsC
Analista Linux / Security
[EMAIL PRO
open(text,"text.txt") or die ("error: text.txt failed\n"); #line
17
while()
{
print $_;
}
close(text) or die("error: close text.txt failed\n"); #line
22
bash-2.05$ perl -Tcw index.pl
Unquoted string "text" may clash
You can do what you are saying, with the exception that you will not be able
to keep the .html extension without a reconfiguration of the web server.
Most likely, you will have to change it to .shtml or .shtm, depending on
your web server and OS.
Check out this documentation on server side includ
> How is that done where there is no filename included in the url, just
> the directory and then the variables?
Same way that you can have a URL without the query string without a
filename, such as http://petdance.com/perl/. Apache sees that there's
not a filename, and so looks at index.html (or
Kyle Babich wrote:
> How is that done where there is no filename included in the url, just
> the directory and then the variables?
usually, it's a mod_perl directive.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How is that done where there is no filename included in the url, just
the directory and then the variables?
Thanks in advance.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi
I'am having difficuly using a simple form-mail.pl using sendmail.pm located on a new
Novell web server. Although the perl script is working as I get a "Thank you " reply
back in the browser, it doesn't send the form data back to my e-mail address. The
problem seems to be with the sendmail.p
Hi,
$data = param('data');
$data =~ s/\/n//g;
...
..
print "";
print $data;
print "";
Regs David
# ---
>
> Hi,
>
> If this has been answered before please direct me there as I am at a loss as to
>where to look as there is so much info to plow thru.
>
> Situation:
24 matches
Mail list logo
