On 10/2/05, Ovid [EMAIL PROTECTED] wrote:
snip
There's more and nitpicking seems petty snip
Yep, you're right on the money with that. It does indeed seem petty.
So did Randal I am Unhealthily Obsessed With The Flinstones
Schwartz's earlier post. One would assume (apparently erroneously,
however)
/Changes]
2.3 Thu June 28 12:00:00 2001
- New Feature: template tags can now span lines. (Roland Giersig)
Rob
-Original Message-
From: Rick Triplett [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 28, 2004 2:39 PM
To: [EMAIL PROTECTED]
Subject: HTML::Template is choking
HTML
want would be something like this:
use Image::Magick;
my $image = Image::Magick-new;
$image-Read('logo.jpg');
$image-Crop(geometry='100x100+100+100');
$image-Write('x.jpg');
Rob
-Original Message-
From: Ingo Weiss [mailto:[EMAIL PROTECTED]
Sent: Friday, September 17, 2004 12:19 PM
There is embperl like was mentioned. Also Mason is very popular and well
documented.
Rob
-Original Message-
From: Octavian Rasnita [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 08, 2004 11:57 AM
To: [EMAIL PROTECTED]
Subject: PHPerl
Hi all,
Is there a way to embed Perl
The trick is to use Time::Local to find the first day of the month, then
subtract 1 day.
This prints:
09-2004
08-2004
07-2004
###
use Time::Local;
use constant DAY = 86_400;
$current = time;
$previous = first_day($current) - DAY;
$current_2 = first_day($previous) -
first_day
{
my $time = shift;
my @time = localtime($time);
$time[3] = 1;
return timelocal(@time);
}
sub get_date
{
my $time = shift;
my @time = localtime($time);
return sprintf('%02d-%04d', $time[4]+1, $time[5]+1900);
}
-Original Message-
From: Hanson, Rob
Sent: Tuesday
I'm stumped on where to look but there must be a module to handle
interactive programming. What I mean is printing out a list of things,
the user selects what he wants, hits enter and the program continues. I
presume the module would enable going back to change things and handle
multipage
the complete data for the single
record, how do I get back to the page with the list of records?
Obviously I can pass all the search criteria to the detail script and have
it pass them back again to repeat the search. But I know there must be a
better way to do it.
Thanks for any help.
Rob
to actually use quotes
around them. It's really a matter of preference on if you want to
explicitly quote them, I tend to prefer not to (less quotes = less clutter).
Rob
-Original Message-
From: Rick Triplett [mailto:[EMAIL PROTECTED]
Sent: Sunday, February 08, 2004 5:26 PM
To: [EMAIL
I'll see if I can explain it gently as you seem to be a gov't worker ;)
There is no perl translation... you just aren't thinking about it in a
web-app type of way. The sequence would look like this...
1. display page A to user
2. user submits page A with hidden form field
3. perl script process
On CPAN.
http://search.cpan.org/~jbaker/Apache-Session-1.54/
Rob
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, October 20, 2003 6:15 PM
To: [EMAIL PROTECTED]
Subject: Where is Apache::Session
I'm looking for the download of Apache::Session
string, maybe that would help.
My guess would be that the query string is malformed.
Rob
-Original Message-
From: Sara [mailto:[EMAIL PROTECTED]
Sent: Sunday, October 19, 2003 6:56 PM
To: beginners-cgi
Subject: quotes problem
##
use CGI;
$q = new CGI;
my $field
Casey West wrote:
It was Wednesday, October 15, 2003 when Rob Dixon took the soap box, saying:
: Does anyone know of a tidy way to go about the tedious
: business of laying out HTML forms using enclosing table
: tags?
I admit that the internals of CGI::FormBuilder are less than
desirable
Does anyone know of a tidy way to go about the tedious
business of laying out HTML forms using enclosing table
tags?
Thanks,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
size or performance. See below.
HTH,
Rob
use strict;
use warnings;
use Date::Manip;
my $date = ParseDate('20030910 13:50:25.6');
my $seconds = UnixDate($date, '%s');
print $seconds, \n;
** OUTPUT **
1063230625
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e
), or modules (Tk). This is a good list for any beginner(ish)
question, no matter the subject... just as long as it is a Perl question.
Rob
-Original Message-
From: Li, Kit-Wing [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 09, 2003 2:40 PM
To: cgi cgi-list
Subject: accessing a hash map
well formed, or if there are extra
spaces in your tags.
If you want something for the command line you could do this...
(Note: for *nix, needs modification for Win [untested])
perl -e '$x=join(,);$x=~s|head.*?/head||s' myfile.html
newfile.html
Rob
-Original Message-
From: Sara [mailto
...
# untested
$text = ...;
$text =~ s|(head).*?(/head)|$1$2|s;
...Or if you wanted to keep the title tag...
# untested
$text = ...;
$text =~ s|(head).*?title.*?/title.*?(/head)|$1$2$3|s;
Rob
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 04
.
Rob
-Original Message-
From: David Glucksman [mailto:[EMAIL PROTECTED]
Sent: Friday, August 15, 2003 1:26 PM
To: [EMAIL PROTECTED]
Subject: cgi error
Hello everyone,
I am new to Perl and CGI so I need some help. I have a
simple cgi script:
#!/usr/bin/perl
print Content-type: text
on solving this problem would sure make my upcoming vacation much
nicer ;^)
--
Rob
Do not meddle in the affairs of wizards,
for they are subtle and quick to anger.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Greetings!
I am attempting to use objects to organize a program somewheat
intelligently. I am running into a problem using the CGI method br.
My main routine has the following use statements:
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard center *big delete_all/;
It begins writing
compile this, I get the following error:
Bareword br not allowed while strict subs in use at brtest.pm line
12.
When I comment the package Brtest; line, I don't get the error.
What is happening?
Thanks again!
Rob
P.S. I am cross-posting this to the [EMAIL PROTECTED] list because
this is looking
Dave,
Your response dovetails nicely with my next question. The module I'm
working in begins as follows:
use warnings;
use strict;
use CGI qw/:standard center strong *big delete_all/;
After putting parentheses after my calls to br, the program compiled
and started running. It barfed, though,
Right, Apache 2.0 supports this with filters.
Rob
-Original Message-
From: Octavian Rasnita [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 05, 2003 5:32 PM
To: Edson Manners; [EMAIL PROTECTED]
Subject: Re: I am having trouble using SSI(Server side includes) from cgi
using perl
CGI
Give this a shot and see if it errors:
use CGI;
my $query = new CGI;
my %params = $query-Vars;
my $username = $params{'username'};
On Fri, 2003-04-04 at 15:29, Mike Butler wrote:
Thanks, Andrew. I added CGI::Carp qw(fatalsToBrowser); to the script. That's
a big help. The error message that
, 123.23, 234.234, 2 , .3
, 12. ) {
if ($string =~ m/(\d+?\.\d*|\.?\d+)/) {
my $num = $1;
print $num\n;
} else {
print unknown format\n;
}
}
HTH
Rob
Cool Hand Luke [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Ahoy, hoy.
I am having problems
How does it translate?
* = 0 or more of preceding char
? = 1 or 0 of preceding char
*? = ???
On Tue, 2003-03-18 at 21:41, Michael Kelly wrote:
On Tue, Mar 18, 2003 at 05:53:45PM -0600, Rob Benton wrote:
It looks odd to me b/c * and ? are both quantifiers...
* and ? alone are both
or more, non-greedy.
Rob
-Original Message-
From: Rob Benton [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 19, 2003 2:07 PM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Re: Problem with regular expressions!!!
How does it translate?
* = 0 or more of preceding char
? = 1 or 0
It looks odd to me b/c * and ? are both quantifiers which usually
triggers an error when you try to run it. See if this works for you:
$file_completename =~ /([^.]*)\.(.*)/;
On Tue, 2003-03-18 at 15:28, Marcelo Taube wrote:
As u probably have guessed some part of my code is not working
If I use:
my $query = new CGI;
my %params = $query-Vars;
to grab the incoming parameters is it safe to just send all of them over
to a new cgi script like this:
my $form = CGI::FormBuilder-new( fields = \%params, method = 'POST');
print $form-render();
Or will that pass along built-in
Is there a way to print a 'button' input type without a label next to it
using the FormBuilder object? I can't find the right combination.
I always wind up with this
+---+
Next |Next |
+---+
and what I want is
+---+
|Next |
Is there a limit to how many rows you can put in an html table? I can't
find anything wrong with my script but when I get over 1000 rows or so
in my tables they start drawing weird borders.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
, 2003-03-12 at 12:02, Bob Showalter wrote:
Rob Benton wrote:
Is there a limit to how many rows you can put in an html table? I
can't find anything wrong with my script but when I get over 1000
rows or so in my tables they start drawing weird borders.
That would be a function
1000+ rows is a rare situation on my page but in can happen. It's a dbi
script. I couldn't really think of a better design but I am open to
suggestions...
On Wed, 2003-03-12 at 15:07, Brett W. McCoy wrote:
On 12 Mar 2003, Rob Benton wrote:
Is there a limit to how many rows you can put
Scroll up and down to the bottom of the page then see if the borders
screw up.
On Wed, 2003-03-12 at 14:57, Bob Showalter wrote:
Rob Benton wrote:
Mozilla, Konqueror, Opera, and IE all act the same way. Check out this
page to see what I mean. The top, bottom, and right side of the
table
I've noticed that when using the formbuilder that field names that have
underscores in them are replaced with spaces. And also that if a field
has a '.' in it, that . and everything after are truncated when
printing. Is there any way to modify this?
--
To unsubscribe, e-mail: [EMAIL
things based on the
context they are called in. For example when setting a scalar to an array
(like above), the number of elements is returned... but when setting an
array to a list (like above) you get as many elements as you have variables.
Hope that helps.
Rob
-Original Message
. should it be additive with +=?
$bags_ordered{$bag_name}-{quantity} = $bag_quantity[$i];
}
# print the structure for testing using Data::Dumper
print Dumper \%bags_ordered;
Rob
-Original Message-
From: David Gilden [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 04, 2003 4:57 PM
To: [EMAIL
be frowned
upon.
You really need to ask them to know for sure.
Rob
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 27, 2003 9:43 AM
To: [EMAIL PROTECTED]
Subject: How much is too much
I write MacPerl at work to munge local files but use CGIs
of the file
and read backwards
Nothing built in. A quick search of CPAN shows a module called
File::ReadBackwards.
http://search.cpan.org/author/URI/File-ReadBackwards-0.99/
Hope that helps.
Rob
-Original Message-
From: Jamie Bridges [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 26
Basically, i'm trying to write a little abstraction layer
Someone already did the work for you, check out Class::DBI.
Here is a good article on it, it might be all you need.
http://www.perl.com/pub/a/2002/11/27/classdbi.html
Rob
-Original Message-
From: Peter Kappus [mailto:[EMAIL
Greetings!
I have successfully added the new functionality to the script I have
been upgrading. Now the old functionality doesn't work. When I try to
use it, I get an error page announcing Error 500, Internal Server
Error. The log file contains the following message:
Premature end of script
l = $SRF == 1 and $SRL == 1
means
($bool = ($SRF == 1)) and ($SRL == 1)
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--- Michael Kelly [EMAIL PROTECTED] wrote:
snip
Only and's short-circuit. Or's test every argument by necessity.
snip
Mike,
In just about every Perl script that has to read from or write to a
file, you will see a line similar to the following:
open (MYFILE, myfile.txt) or die Can't open
they talk about is Perl.
Thanks!
Rob
__
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
...
ERROR: parser: parse error at or near ,
I'm using the Pg module, any idea why it won't run from the web?
Rob
Good judgement comes from experience, and experience -
well, that comes from poor judgement.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
modules used) in memory so that it starts up faster the next time it is
called, and it *can* cache variables if your code isn't written with
mod_perl in mind.
I hope that helps.
Rob
-Original Message-
From: Hal Vaughan [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 13, 2002 11:27 PM
.
# the split tags go back into the @tag array.
my @tags = map {/^($prefix)(.*)$/o;{PRE=$1,NUM=$2}} (@tags);
# this print out the prefix/number pairs
foreach my $tag (@tags) {
print PREFIX: , $tag-{PRE}, \n;
print NUMBER: , $tag-{NUM}, \n;
print \n;
}
Something like that?
Rob
that
I should look at?
Thanks
Rob
Good judgement comes from experience, and experience -
well, that comes from poor judgement.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi,
When my form processess it needs to ftp into a site to grab information - can I use a
here document for that? Any quick example please.
Thanks, Rob
Todd Wade [EMAIL PROTECTED] wrote:
wrote in message
008801c222a5$a7c3cb10$d381f6cc@david">news:008801c222a5$a7c3cb10$d381f6
I have the following code - when someone enters a whatever ' whatever into one of my
forms my script dies because of the single quote. Aggg... of course the first time
I come across it is when my boss is testing out the script.
$sth = $dbh-do( insert into maintenance (owner, email,
Does anyone know how to capture the carriage return to prevent a user from
accidentally submitting the form by pressing 'return' before they actually finish
completing the form?
-Rob
-
Do You Yahoo!?
Sign-up for Video Highlights of 2002 FIFA World Cup
When I run perl -c myscript.cgi to test the syntax or perl -w ..., it produces this:
Too late for -T option at maintenance.cgi line 1 (my line 1 is just the shebang line
with the -T option). Does this mean that something is wrong?
-Rob
Carl Franks [EMAIL PROTECTED] wrote: Hi,
This is how I
by specifically declaring a variable as a global
variable (using vars?).
foreach $var (@email){
$var =~ /(^.*)\\@.*/;
@names = (@names, $1 );}
@names = map (uc($_), @names);
Todd Wade [EMAIL PROTECTED] wrote:
Rob Roudebush wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
I'v
Please help - I need to password protect my form by COB today. I initially had just a
password field at the bottom to authenticate prior to clicking submit. Is there
anything better - say something that launches when a link is selected to the form??
Nate Brunson [EMAIL PROTECTED] wrote:
Okay my script takes names from a fom and puts them into an array - then later I need
to match a $variable (one of the names) against that array and take that specific
element out of the array. I figure there is probably an easy function to do this?
array=(john, lucy, mike);
$name=john
I
I'm not sure, but how do you set a cookie and have it
expire in ten minutes?
-Rob
--- Sean Abrahams [EMAIL PROTECTED] wrote:
I have a small series of web pages that talks to a
database and uses
forms to input/alter data.
In order to get to these web pages a user has to
authenticate
I'm using mailx from within a script, so I can't use it interactively open (MFH, |
mailx -s 'Subject' [EMAIL PROTECTED])
print MFH end; blah blah blah... end close MFH;
Should I just be using mail? Do you know what the switch or option is for From:
someoneelse?
Rob Helmer [EMAIL PROTECTED
) to run specific commands ( or groups
of commands ).
You then just need to preface your command with sudo, like instead
of :
cp /tmp/file /root/file
You do :
sudo cp /tmp/file /root/file
HTH,
Rob Helmer
On Fri, Mar 08, 2002 at 11:35:01AM +0100, Paolo Cavicchini wrote:
Hello,
I need
.
Thanks,
Rob Helmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I'm trying to avoid assigning each param(somekey) to a variable in order to expand
it in my here document.
I can refer to it as a hash element without any variable assignment using - print
param(somekey); - but I don't want to have to use print statements instead of a here
document to display
Okay, I created a HTML Form that calls a CGI script.
After the form is submitted it sends out e-mails with
a link inside to certain managers. They follow the
link which is a separate HTML page that calls a
separate CGI script.
Question: I need to keep track of the managers who
follow the link
Has anyone ever turned the mysql timestamp format 20020303223726 into something more
readable like - 03/03/2002 22:37:26? I am also trying to do this from an array (the
timestamp is in a array) I just figured somebody has probably done this already
Thanks, Rob
Wouldn't single quotes do the trick?
Curtis Poe [EMAIL PROTECTED] wrote: --- W P wrote:
i don't want to just escape those characters. they were merely examples. i
was hoping maybe there was some built-in way to escape ALL the characters
that mean anything to regular expressions.
Well,
@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A
__
Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic Games
http://sports.yahoo.com
--
Rob
Good
Does anyone know how to upload a file to your site?
-Rob
-
Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic Games
Thanks for the suggestion, Fliptop. Someone finally pointed out my problem:
data tainting was on, and I had to untaint the data before Perl would let me
use it in something as exposed as a filename.
Whew!!
Cheers,
--rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e
***
.
write (MAIL);
close(MAIL);
The log file gives me this error message...
Insecure $ENV{PATH} while running with -T switch at
/home/rob/cgi-bin/completeOrder.cgi line 8.
If I take the -T off, it works fine but I'm hesitant to do that.
Thanks,
Rob
[EMAIL
open (MAIL, |-, $mailprog , -t);
gives me the following in the error log...
Can't use an undefined value as filehandle reference at
/home/rob/cgi-bin/completeOrder.cgi line 9.
On Thu, 11 Oct 2001, Kipp, James wrote:
my($name) = John;
my($mailprog) = '/usr/sbin/sendmail';
my
Thanks, this one worked.
$ENV{PATH}='/usr/sbin';
my($mailprog) = 'sendmail';
my($recipient) = '[EMAIL PROTECTED]';
open (MAIL, |$mailprog -t) ;
#Do mail stuff
delete $ENV{PATH};
:wq
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How can I detect the browser language using mod_perl?
I tried this:
$ENV{'HTTP_ACCEPT_LANGUAGE'};
but it doesn't seem to work..
Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Is there a simple way for a script to scan a file and know if it is a valid
file type? What I mean is if I have an mpeg file that has been renamed to
something like movie.html or movie.gif is there a way to know that it is not
a valid html or gif file?
Thanks.
--
To unsubscribe, e-mail:
Hi,
I want to be able to create graphic logos witha perl script - any ideas on
how to do this?
What I mean is I will provide a list of titles and a list of font styles
then the script will create a gif for each title using a random font style..
Can it be done? Is it difficult? I've never tried
Hi Shawn,
I'm currently working through the same learning curve on OOP in perl and
bought a copy of 'Perl Developer's Guide' by Ed Peschko and Michele deWolfe.
I'm finding the tutorial style suits my beginners/intermediate level, and it
also comes with a CD full of code examples.
(I plan to
74 matches
Mail list logo