#*** NON-TESTED CODE ***
# RUN AT YOUR OWN RISK :)
use Time::Local;
if ($in{'timestartPM'}) { # make a radio button set where either AM or PM is selected
$in{'timestarthour'}+=12; }
if ($in{'timeendPM'}) {
$in{'timeendhour'}+=12; }
#you'll have to do some error-checking for some
On Thursday, May 29, 2003, at 13:36 US/Pacific, Bob Showalter wrote:
But the OP was using:
if ($titlelink ne undef)
So,
if (defined $titlelink)
would seem to be equivalent to what he was testing, unless I have it
backwards. Using unless would reverse the sense of the test.
Oh do I feel
On Thursday, May 29, 2003, at 05:15 PM, Nicholas Davey wrote:
Where I have put the [file X] I want to include an external file
(relative
to my script) that I can manipulate seperate from the main script. For
instance, file 1 would be a navigation bar, and file 2 would be each
file I
want to
I have some complex (at least to me) javascript on a perl-generated
page that's not working correctly. The same javascript works fine on
a static page. I should mention that some javascript is working on
the dynamic page but it's not doing what it's supposed to do.
Before I post any code, I'm
One issue I ran into was using Here document without single quotes
print EOJS
and perl was trying to interpret things in my javascript.
Saying print 'EOJS'
fixed it, perl trying to interpret things may also be the problem if you are
using print statements.
-Ken
-Original Message-
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
You have some code for us to view?
.ted
-Original Message-
From: Peter Fleck [mailto:[EMAIL PROTECTED]
Sent: Friday, May 30, 2003 12:09 PM
To: [EMAIL PROTECTED]
Subject: Javascript and Perl Problem
I have some complex (at least to me) javascript on a perl-generated
page that's not
Hi All,
I hope someone here could help me ... I know Perl, HTML and Javascript quite well, but
CGI not at all.
I'm writing a simple file-upload Perl script. I have all the form and file handling
stuff done. I want the script to write an HTML message to the user's browser before
the upload
Martin == Martin Lomas [EMAIL PROTECTED] writes:
Martin I hope someone here could help me ... I know Perl, HTML and
Martin Javascript quite well, but CGI not at all.
This question has also been asked (and answered) on the perl.beginners
list. Not nice to repost it without saying that it's a
I am looking for a pre-written CGI Form script, which is capable of sending mails with
attachment from my desktop etc.
I have seen an example of this script sometimes back in the group.
Any ideas?
TIA,
Sara.
I am looking for a pre-written CGI Form script, which is capable of sending mails with
attachment from my desktop etc.
I have seen an example of this script sometimes back in the group.
Any ideas?
TIA,
Sara.
Hi,
I thought i have posted the same topic here, but i don't see it anywhere.
Anyhow, i have multiple checkboxes with the same name
i,e
input = checkbox name=test value =one
input = checkbox name=test value =two
input = checkbox name=test value =three
now i'm using the module use CGI
On Wed, 28 May 2003 02:57:47 -0700, [EMAIL PROTECTED] (Sara) wrote:
I am looking for a pre-written CGI Form script, which is capable of sending mails
with attachment from my desktop etc.
I have seen an example of this script sometimes back in the group.
Any ideas?
I think you need to be a
From: De Joe, Jackie [EMAIL PROTECTED]
Can I compile perl so I can run a perl script without having perl
installed?
Yes. And you may even choose which tool to use:
PAR - free
http://search.cpan.org/search?mode=allquery=PAR
PerlApp - part of Perl Development Kit
Hi everyone,
I am reading David Roth's book win32 perl programming. I would like to create a
script to run through the event log and search for a particular object. Not only that
but I would like the program to look through the actual text of the message looking
for something specific. For
The easiest way would be to use Microsoft's free EventComb program.
http://www.microsoft.com/downloads/details.aspx?FamilyId=9964CF42-E236-4D73-
AEF4-7B4FDC0A25F6
http://www.microsoft.com/downloads/details.aspx?FamilyId=9964CF42-E236-4D73
-AEF4-7B4FDC0A25F6displaylang=en displaylang=en
Roy
On a different note. Does anyone know how to track events down to
milliseconds in the event log? I wrote a script which pulls out
HH:MM:SS.uu (WMI script) but .uu is all zeros.
TIA!
gc
Roy Sprague [EMAIL PROTECTED] wrote:
-
... okay, people, I've been trying to study this perl language, and it
is versatile to say the least.
Anyway, i have written the psuedo code, and I am about to write my first
perl program. I have searched for a perl howto, but the all seem to deal
with CGI programming.
Can anyone direct me to a
[redirected to [EMAIL PROTECTED]
Camilo Gonzalez wrote:
I need to read in from a temp file that is about 10 megs big in 1.5
meg increments and write results to a database. I can't slurp up the
whole temp file because I'm only allowed 2 megs of memory. I was
hoping to read in only 1.5 megs per
The O'Reilly series of books are very good and there are a few other books
available here http://learn.perl.org/library/
O'Reilly books include:
Learning Perl
Learning Perl on Win32 systems
Programming Perl
Perl Cookbook
Advanced Perl Programming
And don't forget your Perl distribution comes
Hi Paul,
In article [EMAIL PROTECTED], Paul
Johnson wrote:
[...]
I presume this is code that you have just made up on the spot rather than
something taken from a working project, but I couldn't say for sure what
the Classes hash was doing. Here's how I would code something similar for
This is really strange. I have a method that works and returns all the
values in a file for the cgi object. But on the second call to the script it opens
the file and returns none of the cgi parameters.
the $cgi-param( ) returns POSTDATA
and the keywords( ) returns nothing.
I'm using strict
On Friday, May 30, 2003, at 08:24 AM, Kipp, James wrote:
Next I try to loop through the results and extract parts of
each string
like so:
$tmp = ;
while (PROPS)
{
$tmp .= s/photoshop:([^]+)([^]*)/$1: $2/;
}
Doing a print on $tmp, yeilds
1
None of the lines in PROPS contain a
Also I should mention that I create another cgi object for a diferent file
that is out of scope and not related to this method. Does that matter?
I am calling a function that returns a value, 0 or 1. The value (1) is being
captured in my variable ($goodRC), but is -ALSO- being displayed on STDOUT!
---snippet-
sub edHeader()
{
...
return 1;
}
$goodRC = editHeader();
print more code, blah, blah. blah\n;
Jeff Westman wrote:
I am calling a function that returns a value, 0 or 1. The value (1)
is being captured in my variable ($goodRC), but is -ALSO- being
displayed on STDOUT!
---snippet-
sub edHeader()
{
...
return 1;
}
$goodRC = editHeader();
print
Hi,
I have an Oracle table with a Unique Key which is generated by a trigger :
CREATE TRIGGER MYTRIGGER
before insert on MYTABLE
for each row
begin
select MYSEQUENCE.nextval into :new.MYCOLUMNAME from dual;
end;
And this works fine on normal insert
When I try to insert from a perl script I
On Thursday 29 May 2003 4:21 pm, Jenda Krynicky wrote:
From: Bob Showalter [EMAIL PROTECTED]
Gary Stainburn wrote:
At the moment we have a membership database written in access on a
windows box. One person is responsible for keeping this up to date
and then distributing the updated
When I install Heap module, I don't have the superuser permission and set
the install location by run:
%perl Makefile.PL PREFIX=/mz/hd/liuyi/local/Heap-0.50
%make
%make test
The above three commands run OK, but after I run '%make install', it told
me:
Warning: You do not have permissions to
-Original Message-
From: Rich Fernandez [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 29, 2003 3:51 PM
To: '[EMAIL PROTECTED]'
Subject: MIME::Lite : Can someone please point out what I'm doing wrong?
my $msg = MIME::Lite - new(
From= '[EMAIL PROTECTED]',
To =
Hi everyone,
Can anyone tell me what the following piece of code does :
my $cur_dir = cwd ();
if ($cur_dir =~ m, ^/.*/ (.*)/xyz,) {
}
Thanks,
hari
-
Do you Yahoo!?
Free online calendar with sync to Outlook(TM).
Just out of curiosity what kind of cards are you using that you can change
the MAC address ??
Mark
- Original Message -
From: Nikolay Hristakiev [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, May 30, 2003 12:36 AM
Subject: Can someone find out what's wrong ?
I've got a script
seems, it matches any path with 2 sub dirs, ending with xyz and populates $1 with the
second dir
for instance
if $cur_dir = /cgi-bin/dev/xyz
then $1 is set to dev
-Original Message-
From: Hari Krishnaan [mailto:[EMAIL PROTECTED]
Sent: Friday, May 30, 2003 9:27 AM
To: [EMAIL
Hi,
I would like to know if it is possible with perl, when we search for a
general 'thing'( i.e search in the database all people that speaks english)
in a MySQL database, what is the row number of the last row that matches the
SELECT statment?
If so can someone show me an example?
I would
Bob,
Okay, I found the error. Thanks for the info still...
FYI, the problem was that I had two consecutive print statements, but the
first one ended with a ',' (since I used to continue to a new line), instead
of a ';'
IE:
print This is my first line\n,
print This is my second line;
NAME
beginners-faq - FAQ for the beginners 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 address):
Hello All,
I'm so glad to have found this list! I've searched all over about the following with
no luck:
I'm writing a simple file upload script. I have all the form and file handling stuff
done. I want the script to write an HTML message to the user browser before the upload
begins, you
Martin == Martin Lomas [EMAIL PROTECTED] writes:
Martin Hello All,
Martin I'm so glad to have found this list! I've searched all over about the
following with no luck:
Maybe if you were even luckier, you would have found the
perl-beginners-cgi list instead.
Martin I'm writing a simple file
-Original Message-
From: anil adenan [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 29, 2003 8:43 PM
To: [EMAIL PROTECTED]
Subject: Problem running the socket programming
Hello,
I have a socket programming that is running smoothly in
our clients
HP UX version 10.20
I am getting the following error while attempting to make the PAR
module...
cp lib/App/Packer/PAR.pm blib/lib/App/Packer/PAR.pm
cp lib/PAR/Heavy.pm blib/lib/PAR/Heavy.pm
cp lib/PAR.pm blib/lib/PAR.pm
cp lib/PAR/Intro.pod blib/lib/PAR/Intro.pod
make[1]: Entering directory `/root/PAR-0.68/myldr'
gcc
LoBue, Mark wrote:
...
On my HP-UX systems, the location of perl changed from 10.2 to 11
10.2 = /usr/local/bin/perl
11 = /opt/perl/bin/perl
And, I couldn't add a link because /opt and /usr are 2 different
logical volumes, so, I had to change the first line of my scripts to
point to
I have a report that is in HTML format, it is about 120k of text. When
is use the program fragment below to send the report, I get only the
first 8k (about) and that's it.
I ran into this same problem with MFMail, but it runs fine with the
mail command (sendmail). The problem is the mail
Camilo Gonzalez wrote:
Bob Showalter wrote:
[redirected to [EMAIL PROTECTED]
Camilo Gonzalez wrote:
I need to read in from a temp file that is about 10 megs big in
1.5 meg increments and write results to a database. I can't slurp
up the whole temp file because I'm only
I just put the finishing touches on some Perl code that reads info from
Photoshop jpeg files but when trying to package it up inside a
subroutine, I'm having trouble using the input variable.
For example in the naked code I wrote:
open(PROPS, 'egrep -a \'photoshop:([^]+)[^]*/photoshop:\1\'
On Friday, May 30, 2003, at 06:10 PM, Ken Tozier wrote:
sub GetPhotoInfo($inPhotoPath)
This should be: sub GetPhotoInfo
{
open(PROPS, 'egrep -a \'photoshop:([^]+)[^]*/photoshop:\1\'
$inPhotoPath |
All sub routine parameters are passed in the @_ variable. To get the
first of those $_[0],
That did the trick. Thanks,
Ken
On Friday, May 30, 2003, at 07:19 PM, James Edward Gray II wrote:
On Friday, May 30, 2003, at 06:10 PM, Ken Tozier wrote:
sub GetPhotoInfo($inPhotoPath)
This should be: sub GetPhotoInfo
{
open(PROPS, 'egrep -a \'photoshop:([^]+)[^]*/photoshop:\1\'
I use a function to return a value:
$ENV{HOME}/perl/qotw/qotw13/mb; which is then assigned to $mb
But the $ENV{HOME} part is not being interpreted, so this sample:
my $mb = get_config('mb', '.get_quiz');
print $mb\n;
exit;
produces literally: $ENV{HOME}/perl/qotw/qotw13/mb instead of:
I dont understand. Where or how do we create this link ( ln -s
/opt/perl/bin/perl /usr/bin/perl)?
LoBue, Mark wrote:
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]
Sent: Friday, May 30, 2003 11:08 AM
To: 'LoBue, Mark'; [EMAIL PROTECTED]
Subject: RE: Problem
Hi,
I would like to find out, if there is any command which can do a unzip of a *.zip
file; This unzip should be of the form extract to specific folder.
Thanking you in anticipation.
Regards
Manish U
On Sat, May 31, 2003 at 01:50:51AM +0200 Kevin Pfeiffer wrote:
I use a function to return a value:
$ENV{HOME}/perl/qotw/qotw13/mb; which is then assigned to $mb
But the $ENV{HOME} part is not being interpreted, so this sample:
my $mb = get_config('mb', '.get_quiz');
print $mb\n;
Hi Michael,
I have a report that is in HTML format, it is about 120k of text. When
is use the program fragment below to send the report, I get only the
first 8k (about) and that's it.
judging by your code, you want to attach an HTML file as attachment ( Type
='multipart/related',
) , and
Bob Showalter wrote:
[redirected to [EMAIL PROTECTED]
Camilo Gonzalez wrote:
I need to read in from a temp file that is about 10 megs big in 1.5
meg increments and write results to a database. I can't slurp up the
whole temp file because I'm only allowed 2 megs of memory. I was
hoping to read
- Original Message -
From: Manish Uskaikar [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Saturday, May 31, 2003 12:34 AM
Subject: Unzip using perll
Hi,
I would like to find out, if there is any command which can do a unzip of
a *.zip file; This unzip should be of the form extract to
Hi Tassilo (and CKC),
In article [EMAIL PROTECTED], Tassilo Von Parseval wrote:
On Sat, May 31, 2003 at 01:50:51AM +0200 Kevin Pfeiffer wrote:
I use a function to return a value:
$ENV{HOME}/perl/qotw/qotw13/mb; which is then assigned to $mb
But the $ENV{HOME} part is not being
On Sat, May 31, 2003 at 10:30:02AM +0200 Kevin Pfeiffer wrote:
In article [EMAIL PROTECTED], Tassilo Von Parseval wrote:
On Sat, May 31, 2003 at 01:50:51AM +0200 Kevin Pfeiffer wrote:
I use a function to return a value:
$ENV{HOME}/perl/qotw/qotw13/mb; which is then assigned to $mb
In article [EMAIL PROTECTED], Tassilo Von Parseval wrote:
[...]
Still, you could also put
mb = ~/perl/quotw/qotw13/mb
and expand the tilde. 'perldoc -q tilde' comes up with a regex-solution.
Using glob (which is also mentioned) is more straightforward, however:
my $mv =
56 matches
Mail list logo