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.pm
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]
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
open(text,text.txt) or die (error: text.txt failed\n); #line
17
while(text)
{
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
Try to use(UpperCase):
open(TEXT,text.txt)
while(TEXT)
Best Regards,
Quem nunca pirateou que atire o 1º disco,
que eu atiro uma cópia
===
Sp0oKeR - NsC
Analista Linux / Security
[EMAIL
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-type
Ok, thank you, but now I'm having another problem with this:
open(TEXT,text.txt) or die (error: text.txt failed\n);
while (TEXT) {
my $text = TEXT;
}
close(TEXT) or die(error: close text.txt failed\n);
print EndOfHTML;
$text
EndOfHTML
It tells me $text
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
open(FH, /usr/www/domain/faq.txt); # for read, for write, for append
local $/ = undef; # slurp mode (allow for shoving the whole file into a scalar)
my $faq = FH; # slurp the whole file into this scalar.
close(FH);
- Original Message -
From: Kyle Babich [EMAIL PROTECTED]
To:
open(TEXT,text.txt) or die (error: text.txt failed\n);
while (TEXT) {
my $text = 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
Try
while (my $test=TEXT)
{
commands ...
}
Best Regards,
Quem nunca pirateou que atire o 1º disco,
que eu atiro uma cópia
===
Sp0oKeR - NsC
Analista Linux / Security
[EMAIL PROTECTED]
--- [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,
Just a
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
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
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
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
on Mon, 01 Jul 2002 00:56:27 GMT, [EMAIL PROTECTED] (Donnie
Jones) wrote:
I am using this command to get the latest value for the
auto_increment field in the mysql database:
$field_insertid = $sth-{'insertid'};
on Sun, 30 Jun 2002 19:58:09 GMT, [EMAIL PROTECTED] (Drieux) wrote:
so as not to conflate the usual 'religious wars' about
OO v. Proceduralism - forgive me - I needed some
emotional reassurance - I guess, that this was
consistent with the expectations and standards of
other OO coders
Hi.
1/ What platform are you on?
2/ Are you the System Administrator?
3/ There is on Solaris and Linux usually a script that would do log
rotation. There would not be a need to take down the process, but rather do
the following (assuming you have the rights):
mv logfile logfile.n
n = number
Ernie,
I'm assuming that @offline is an array of lines, so:
foreach $offline (@offline)
{
print MAIL p$offline\n/p;
$offline =~ m/(.{4}\..{4}\..{4})/;
$nodes=`/home/etucker/jvlresolve.pl $1`;
print MAIL p$nodes\n/p;
}
Give it a try, I haven't tested it again, the /g
Hi,
To open a file for reading do :
open(CRONJOB, /home/queue/test.sh);
@data = CRONJOB;
close(CRONJOB);
print @data;
To execute a file do :
system(/home/queue/test.sh, $return);
or:
exec(/home/queue/test.sh);
Regs David
Hi guys,
I need to call shell executable
Hi Beth.
Not sure how it is on the S/390 (nice box, BTW), but any usual logrotate
script I've come across would send a SIGHUP to the appropriate process, yes.
Check the cron jobs of the root user, and there should be a cron job for
this. Then you could run another cron job to do the processing
on Sun, 30 Jun 2002 12:08:23 GMT, Dan Fish wrote:
What is the most efficient (or at least AN efficient :-) way of
obtaining a slice from an array wherein the slice contains only
unique values found in the array?
See
perldoc -q duplicate
--
felix
This is the example d cited in
On Monday, July 1, 2002, at 02:02 , Felix Geerinckx wrote:
on Sun, 30 Jun 2002 19:58:09 GMT, [EMAIL PROTECTED] (Drieux) wrote:
I guess, that this was
consistent with the expectations and standards of
other OO coders
Have you already studied Conway's book?
I presume you mean:
On Monday, July 1, 2002, at 05:05 , Anders Holm wrote:
Here's an example of such a script, snipped from a SOLARIS box.. Should be
able to adapt this to your needs.. ;)
the alternative of course is to implement the
venerable syslogRoller into perl - and then
open up the holy debate about
On Monday, July 1, 2002, at 08:17 , anthony wrote:
Hi,
is there a good website to create module if so can you refere me to it
Have you started with the traditional
perldoc perl
and checked out the internal documentation of how to do this?
perldoc perlsub
perldoc
I have an array of directory files and I want to search via the date the
directory was created. Is there a function or dash option that handles
this?
Yes, they're the unary file operators:
http://www.perldoc.com/perl5.6.1/pod/func/X.html
xoxo,
Andy
--
'Andy Lester[EMAIL
anyone know of a way to determine the user who last accessed or modified a
file ?
thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
SunOS 5.8
Thanks
-Original Message-
From: Andy Lester [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 01, 2002 12:40 PM
To: Kipp, James
Cc: '[EMAIL PROTECTED]'
Subject: Re: grab user to last modify file
anyone know of a way to determine the user who last
accessed or modified
You,re right! But I had some hours, so my solution is :
-
#!/usr/bin/perl
$file = $ARGV[0];
open(HANDLE, '' , $file);
@lines=HANDLE;
foreach $line (@lines)
{
@test=split(#include,$line);
print $test[0] ;
@plik=split(#include ,$line);
@plik1=split(,$plik[1]);
anyone know of a way to determine the user who last
accessed or modified a
file ?
In general, anything you want to know about a given file is available
thru the stat() function.
http://www.perldoc.com/perl5.6.1/pod/func/stat.html
anything BUT what i need above.
--
To
thru the stat() function.
http://www.perldoc.com/perl5.6.1/pod/func/stat.html
anything BUT what i need above.
Sure, you want these two elements:
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
alester@flr4[~/play]$ more owner
!/usr/bin/perl
I have yet to learn who cometh and touched my files while I sleep. All OSes
are equally bad a this.
You only have owner of a file, and that's it! Lemme guess.. you have
something chmod 777 and you want to know who changed the webpage main page
to some porno pic?
Best thing to do is setup groups
thru the stat() function.
http://www.perldoc.com/perl5.6.1/pod/func/stat.html
anything BUT what i need above.
Sure, you want these two elements:
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
this only states the current ID and
The only other method is to find the Modification time of the file, and
check the login times and then go inny meany miney moe.
-Original Message-
From: Nikola Janceski
Sent: Monday, July 01, 2002 1:05 PM
To: 'Kipp, James'; '[EMAIL PROTECTED]'
Subject: RE: grab user to last modify
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
this only states the current ID and GID OWNER, not last WHO last modified
the file
Ah, that.
You can't do that. Unix doesn't support that sort of thing. If you
can't get it from, say, ls, then
I have my 2000+ line script cranking away for the past 3 hours. I am pretty
sure that it's caught in an infinite loop somewhere.
I have it running in debug mode (yes it should have been done 2 hours ago
even in debug mode).
I can stop the process, but I want to dump all the variable info to
Hi,
my perl code is as simple as
#!/usr/bin/perl
if (system (xmessage -default No -nearmouse -buttons Yes:2,No:3 Do you
realy want to run Daily TVG?) == 0){
}
print $?;
The result is 26112 when i press Yes and 25856 when I press No ().
If I run from the command line, the result
I have yet to learn who cometh and touched my files while I
sleep. All OSes
are equally bad a this.
i think it can be done in NT with AdminMisch module, but in *nix i have no
idea
You only have owner of a file, and that's it! Lemme guess.. you have
something chmod 777 and you want to
You can't do that. Unix doesn't support that sort of thing. If you
can't get it from, say, ls, then Perl sure can't figure it
out, either.
I thought that was the case, but figured somebody may have a done it.
I guess i will have to go to plan b like this:
1. run as a deamon
2. monitor
interesting file...What is it?
why not give write permission to the directory, but no write to the file?
Then if someone wants to modify it they MUST remove the file and create it
themselves.
Then your deamon can be run as root and always chmod the file to no-write.
-Original Message-
Well, I think I figured it out.
When I reviewed the examples in Perl Cookbook more closely I realized that
the array has to be big enough to hold all the lines that go back into the
existing file. If we run our script shortly after midnight, parsing for
date, most of the lines will go to the
Monthly posting statistics for perl.beginners - June 2002.
From 2002-06-01 to 2002-06-30 there were
1895 articles posted (92208 lines) by 273 authors, giving an average
6.94 articles per author, and an average article length of 49 lpa.
The average number of articles per day was 63.
There were
Weekly posting statistics for perl.beginners - week 26 of 2002.
From Monday 2002-06-24 to Sunday 2002-06-30 there were
448 articles posted (21756 lines) by 119 authors, giving an average
3.76 articles per author, and an average article length of 49 lpa.
The average number of articles per day
interesting file...What is it?
the .profile and some others that our dept uses
why not give write permission to the directory, but no write
to the file?
Then if someone wants to modify it they MUST remove the file
and create it
themselves.
Then your deamon can be run as root and
I don't know what accuracy you need.. but:
#my $data = 3.420;
my $data = 3.424;
$data = sprintf (%11.3f, $data);
$data = sprintf (%11.2f, $data + scalar($data =~ /[1-9]$/) / 100 );
printf (%11.2f\n, $data);
-Original Message-
From: Ned Cunningham [mailto:[EMAIL PROTECTED]]
Sent:
ok folks, this really was NOT worth this many emails...
http://sabernet.home.attbi.com/papers/Solaris.html
Someone turn up the content quality on this list back up
to it's usually high level...
On 07/01, Kipp, James said something like:
SunOS 5.8
Thanks
-Original Message-
From:
correction on my 4th line.
$data = sprintf (%11.2f, $data + (scalar($data =~ /[1-9]$/) 0.005) );
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 01, 2002 2:55 PM
To: 'Ned Cunningham'; '[EMAIL PROTECTED]'
Subject: RE: printf question
I
The first one worked great thankyou
-Original Message-
From: Nikola Janceski
[mailto:[EMAIL PROTECTED]]
Sent: Monday, July 01, 2002 3:10 PM
To: Nikola Janceski; 'Ned Cunningham';
'[EMAIL PROTECTED]'
Am i right in thinking that Net::IMAP is a relatively new module?
I have been trying to use it and the documentation is really poor.
Matthew Harrison
Internet/Network Services Administrator
www.genestate.com
This e-mail (and any attachments) is confidential and may contain personal
views
on Mon, 01 Jul 2002 18:32:27 GMT, Ned Cunningham wrote:
Can anyone tell me how to print the following data so that it rounds
up even though it shouldn't
$data = 3.424;
[...]
I need it to round up even if it is only .001 ?
use strict;
use POSIX qw(ceil);
sub roundup {
You could always try adding .999 to the value before sprintf()ing it...
-Original Message-
From: Ned Cunningham [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 01, 2002 11:32 AM
To: '[EMAIL PROTECTED]'
Subject: printf question
Hi,
Can anyone tell me how to print the following data so
on Mon, 01 Jul 2002 19:20:21 GMT, Mat Harris wrote:
Am i right in thinking that Net::IMAP is a relatively new module?
I have been trying to use it and the documentation is really poor.
You may have more luck with Net::IMAP::Simple, especially if you have been
using Net::POP3. See
On Jul 1, Ned Cunningham said:
Can anyone tell me how to print the following data so that it rounds up
even though it shouldn't
Use the POSIX::ceil() function, instead of some crufty solution.
use POSIX 'ceil';
printf WRFILE %11.2f, ceil($data);
--
Jeff japhy Pinyan [EMAIL
On Jul 1, Jeff 'japhy' Pinyan said:
On Jul 1, Ned Cunningham said:
Can anyone tell me how to print the following data so that it rounds up
even though it shouldn't
Use the POSIX::ceil() function, instead of some crufty solution.
use POSIX 'ceil';
printf WRFILE %11.2f, ceil($data);
My
yes i have seen the simple version but the functionality seems minute in
comparison
At 19:29 01/07/2002 +, Felix Geerinckx wrote:
on Mon, 01 Jul 2002 19:20:21 GMT, Mat Harris wrote:
Am i right in thinking that Net::IMAP is a relatively new module?
I have been trying to use it and the
Hey Folks,
Recently I had a problem where a *nix system NFS was hung on a server
which had gone away, but the client hadn't umounted the filesystem.
Later, this caused a script in cron to fail, in that a df command inside
the script never completed, and instead it hung, causing the script
to
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
I encountered difficulty in installing Module Spreadsheet::WriteExcel and desperately
need your guidance. Below is what my system have displayed while using nmake15
utility.
D:\perl\SPREAD~1.37dir
Volume in drive D has no label.
Volume Serial Number is E4CE-279D
Directory of
Hi, real newbie here,
I am trying to configure a website on Redhat7.3 with perl 5.6 and Apache.
Both were installed in default locations during server install of Redhat7.3
The website needs HTML-Embperl and DBI and I have installed both of these
from the rpm's.
httpd.conf contains:
SetEnv
60 matches
Mail list logo