Hi Lynn,
Your FORM ACTION=c:\inetpub\scripts\sl3.pl doesn't look right; if
'scripts' is a root level (or virtual root) directory then then path would
be =\scripts\s13.pl.
make that change andd see what happens.
regards
Joel
-Original Message-
From: Lynn Glessner [mailto:[EMAIL
Sorry Lynn,
should have specified a bit more why your form action
'didn't look right' to me.
Basically you put an absolute file path to the perl
file - specifying the drive letter etc. web servers
deal in urls http:// or / or myfolder/file etc.
c:\inetpub\wwwroot is the default document root
Hi Gunther,
yes, you are right - maybe my answer was a bit flippent - it was only meant
to be a conversational addition to the thread rather than a definitive
answer ;-)
By access to the DB I meant a valid SQL login.
I enjoyed reading that URL you posted. Seeing the SQL being returned to the
Let me also add, unlike *nix, you may run scripts from virtualy any folder you see fit
on Win (within wwwroot for the web of course). Everything is really governed by the
permissions and etc... you set on the folder itself. In some cases it makes sense to
name the cgi folder something less
That did it - thanks :) I am slowly but surely getting this changed over.
I changed
FORM ACTION=c:\inetpub\scripts\sl3.pl
to
FORM ACTION=http://198.162.0.1/scripts/sl3.pl;
(Obviously if I decided to make this public I would need a different IP or
hopefully a DNS name.)
I can't believe this is
At 09:07 AM 9/3/2001 -0700, Lynn Glessner wrote:
That did it - thanks :) I am slowly but surely getting this changed over.
I changed
FORM ACTION=c:\inetpub\scripts\sl3.pl
to
FORM ACTION=http://198.162.0.1/scripts/sl3.pl;
(Obviously if I decided to make this public I would need a different IP or
At 08:36 AM 9/3/2001 -0700, Mark Bergeron wrote:
Let me also add, unlike *nix, you may run scripts from virtualy any folder
you see fit on Win (within wwwroot for the web of course). Everything is
really governed by the permissions and etc... you set on the folder
itself. In some cases it
Hi Chris,
Use loop breaks such as last, next, goto etc
eg
@arr=qw(1 3 4 2 4 5);
foreach $number(@arr) {
last if($number == 2);
print $number;
}
HTH
Regards
Babylakshmi M
_
Get your FREE download of MSN Explorer at
hi.
I want to write program that read from log file of system in ISP and
report some special field in web. (with perl).
do I put all information in log file ,to associative array and work on it???
I read the help of array in perl.com but mot enough .
can you help me??
I want to print a weekly transaction statement using perl. I have written
most of the perl code but I incorporated the dates I needed within the
program. i want the program to be more interactive. It needs to ask the
user to enter the start and end dates for the statement. these will be
Hi,
are there any more perl graphical interfaces than Tk?
Tk seems to have problems with Czech localization and also
it's a bit old-fashioned. (I apologize all Tk users)
It must be runnable on Windows and Unix platforms.
Qt and Gtk seem to be useful only for C(++) programs
but not for perl. Is
hi all,
I need a program to run like a daemon. it should do:
look in a directory for some flag-files, if some exist the daemon
should start other programs, then the daemon should sleep for let´s say
5 seconds and begin again...
how must I create such a daemon and how can I stop him working with
Hi, folks, I have to parse a file which looks like this:
dhcpd : LOG_INFO : DHCPDISCOVER from
52:41:53:20:c0:f6:c8:35:6c:80:c0:01:01:00:00:00 via eth0
and I wanted to extract only this
52:41:53:20:c0:f6:c8:35:6c:80:c0:01:01:00:00:00
How can I do this with R.E.
Thanks.
--
To unsubscribe,
$data = dhcpd : LOG_INFO : DHCPDISCOVER from
52:41:53:20:c0:f6:c8:35:6c:80:c0:01:01:00:00:00 via eth0;
($new) = $data =~ /from\s+(.*)\s+via/;
print $new;
That should do it, as long as the data string you are looking for is
consistently surrounded by from and via;
HTH
John
-Original
i did not understand the part about working with samll scripts but you could
do somehting like this ... not tested
#!perl
while(1) {
if ( -s $flag_file_location ) {
system($command_to_execute) or warn Cannot execute command\n;
#!/usr/bin/perl
#Cambiar la linea anterior para que corresponsa a su sistema
#ejecutando which perl le dice conde esta el ejecutable
unshift (@INC, $ENV{'W2H_POSTPROCESS_PATH'});
require XXX_cfg.pl; # config file
$database=test;
# Open input and output files */
open(INFILE,$ARGV[0]);
well I solved the thng, but the thing is that I am only reading the very
first line... it is suppouse to read all the lines that the document
have... I know I have a mistake some where but belive me in my head the
if while and so on are on a loop. here is the code
#!/usr/bin/perl
#Cambiar la
buffer1 is undefined, and so the line
print OUTFILE $buffer1;
prints nothing.
A good idea when having problems such as this is to run the program
using
warnings - change your first line to
#!/usr/bin/perl -w
--Nigel
agc 09/03/01 03:31pm
well I solved the thng, but the thing is that
Hi all,
I seem to remember a long time ago, a small guide to creating a daemon, wich
included such topics as detaching stdin/out/err from the starting tty,
chdiring to root so as not to prevent unmounting /home etc.
Does this ring a bell with anyone?
Gary
On Monday 03 September 2001 2:46
I want to print a weekly transaction statement using perl.
It should ask the user to enter the start date and the end date
e.g:$start_date = 30/08/01(dd/mm/yy)
$end_date = 05/09/01
This information will filter through a transactions file to print out the
statement within the
unless ( $status == (1 || 2) ) {
print \nport status must be either up or down\n\n;
exit;
} else {
system(/usr/bin/snmpset hostname password
interfaces.ifTable.ifEntry.ifAdminStatus.$port i $status);
}
Your commented lines were not woking because you were checking using
Thanks. That got it.
dan
* Jeff 'japhy/Marillion' Pinyan ([EMAIL PROTECTED]) wrote:
On Sep 3, dan radom said:
if ( $#ARGV+1 !=2 ) {
That's better written as:
if (@ARGV != 2) {
print \n;
print usage cat.pl port up\/down\n;
print \n;
exit;
}
On Sep 3, John Edwards said:
unless ( $status == (1 || 2) ) {
print \nport status must be either up or down\n\n;
exit;
} else {
system(/usr/bin/snmpset hostname password
interfaces.ifTable.ifEntry.ifAdminStatus.$port i $status);
}
The above says unless status equals 1 or
dan radom [EMAIL PROTECTED] said:
You have a logic error. The if test should be:
if (! ( $status eq 1 || $status eq 2)) {
#if (( $status ne 1 ) || ( $status ne 2 )) {
A few other style pointers follow:
You can replace this:
if ( $#ARGV+1 !=2) {
with
if ( @ARGV != 2) {
@arrayname
On Monday 03 September 2001 07:15 am, Dusan Juhas wrote:
Hi,
are there any more perl graphical interfaces than Tk?
Tk seems to have problems with Czech localization and also
it's a bit old-fashioned. (I apologize all Tk users)
It must be runnable on Windows and Unix platforms.
Qt and Gtk
[EMAIL PROTECTED] said:
dan radom [EMAIL PROTECTED] said:
You have a logic error. The if test should be:
if (! ( $status eq 1 || $status eq 2)) {
Well, I know better than that. Should be = not eq.
--
Smoot Carl-Mitchell
Consultant
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
how do i set permissions within the cgi script..
as when i trying to chmod using an ftp client
doesnt work for me...
using win98 --
i need to set permissions to be able to
have people submit to a flat file databse
using HTML forms and 2 CGI scripts.
your help is appreciated.
Danny
Can anyone tell me if I can include in my script an option to right the
results of the form to an an individual txt file for each person filing out
the form, so I will have individual text files on our server until I delete
them. We are accepting applications on the web and I want individual
Allison == Allison Davis [EMAIL PROTECTED] writes:
Allison Can anyone tell me if I can include in my script an option to
Allison right the results of the form to an an individual txt file
Allison for each person filing out the form, so I will have
Allison individual text files on our server
There is a big section in the Perl Cookbook( O'Reilly) that show you step
by step detail of how to create a daemon.
peter grotz wrote:
hi all,
I need a program to run like a daemon. it should do:
look in a directory for some flag-files, if some exist the daemon
should start other
Hey everyone,
Here's a question concerning Apple's iTunes, cron, and tying them
together with perl.
I want iTunes to be quit at 5:30 AM monday through friday. OK, so I know
how to setup a crontab file. That's no problem. I can get iTunes to quit
(using kill), provided I know its pid. So, I go
Hi,
I'd like to use a newer version of the GD module
Is it possible to have two versions of it on the same machine,
as the System Admin is not willing to update ?
I've installed it into my home directory but now, if I try to use it
in my programs I get errors like:
GD object version 1.19 does
Is there a way of handling these in perl?
(I am converting some programs from UNIX awk that make extensive use of this
feature).
Any advice would be much appreciated.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
33 matches
Mail list logo