[26901] in Perl-Users-Digest
Perl-Users Digest, Issue: 8889 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 26 18:05:17 2006
Date: Thu, 26 Jan 2006 15:05:06 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 26 Jan 2006 Volume: 10 Number: 8889
Today's topics:
LF: Server scripting advice <david@nospam.com>
Re: LF: Server scripting advice <emschwar@pobox.com>
Net::SFTP setting permissions (and voluminous STDERR ou <nomail@sorry.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 26 Jan 2006 15:25:30 -0500
From: "Dave" <david@nospam.com>
Subject: LF: Server scripting advice
Message-Id: <drbb7s$qti$2@zcars129.ca.nortel.com>
Greetings
I am a web admin for a HP UNIX/Infommix DB system. I have 2 nodes.
Node A: OS (HP10.20)Web server (httpd). Infomration DB and PERL/CGI & HTML
are running to provide information(retrieved from Informix DB). 95% of
perl/CGI scripts are running on this node
Node B: OS (HP11.20) Load build and some CGI scripts running.
The old web interface was HTML embeded with PERL/CGI. It can provide simple
and plain display. I have a request to refresh the overlooking of web page.
I am doing some research to see if there is any scripting language or tool I
can use which can
1) Provide good looking web interface
2) Call all my old perl/.cgi scripts, so that I don't need to re-write
PERL/INFOMRIX DB API LIB
3) Don't need to re-write DB API/LIB to retrieve infomrix databas infomix
I have 2 server script candidate here "PHP" and "Java Script".I don't have
any hand-on experience with these 2 server script. Can anyone provide advice
on whether "PHP" or "Java Scripts" can seemlessly take use/call PERL5/CGI
scripts? Or is there any better choice if NEW one can take use/ca;; my old
PERL5/CGI scripts? I hate rewriting DB API/LIB.
Thanks
Dave
------------------------------
Date: Thu, 26 Jan 2006 14:39:33 -0700
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: LF: Server scripting advice
Message-Id: <etowtgmactm.fsf@wilson.emschwar>
"Dave" <david@nospam.com> writes:
> The old web interface was HTML embeded with PERL/CGI. It can provide simple
> and plain display. I have a request to refresh the overlooking of web page.
> I am doing some research to see if there is any scripting language or tool I
> can use which can
>
> 1) Provide good looking web interface
This has to do with what HTML (possibly, but not necessarily, enhanced
with Javascript) you print out. Perl is capable of printing out
anything PHP can, so I don't see why you can't use it.
> 2) Call all my old perl/.cgi scripts, so that I don't need to re-write
> PERL/INFOMRIX DB API LIB
If you modify the HTML portions of your existing CGI scripts to print
out prettier HTML, then you won't have to change any DB calls.
> 3) Don't need to re-write DB API/LIB to retrieve infomrix databas infomix
You won't have to re-write those unless you want to, if you just stick
to printing out nicer HTML from your existing CGI scripts.
> I have 2 server script candidate here "PHP" and "Java Script".
I won't talk about those, as this is a Perl group, not a PHP group, or
a "Java Script" group (I assume you mean Javascript, but then again,
you could be talking about J2EE, I suppose). I will point out that if
all you want to do is make your existing scripts look prettier, then
all you have to do is print out HTML that displays prettier. In that
vein, I'd suggest you learn about CSS, and maybe read up on the
HTML::Template module.
> I don't have any hand-on experience with these 2 server script. Can
> anyone provide advice on whether "PHP" or "Java Scripts" can
> seemlessly take use/call PERL5/CGI scripts?
Someone probably can, but this is a Perl group; you are better off
asking in a PHP or "Java Script" group.
> Or is there any better choice if NEW one can take use/ca;; my old
> PERL5/CGI scripts?
I don't understand this sentence, sorry. What do you mean by "can
take use/ca;;" ?
> I hate rewriting DB API/LIB.
Everybody does. :(
-=Eric
------------------------------
Date: Thu, 26 Jan 2006 11:58:40 -0800
From: Arvin Portlock <nomail@sorry.com>
Subject: Net::SFTP setting permissions (and voluminous STDERR output)
Message-Id: <drb9lm$8r5$1@agate.berkeley.edu>
Hello, I've recently begun using Net::SFTP to automate the
nightly transfer of files from a Windows 2000 machine to
a unix computer. Let me begin by bitching a bit, though. Why
does there seem to be culture among Unix programmers that
abhors examples in documentation? Is there some unspoken
documentation guidelines that Unix programmers are initiated
into which encourages the appearance of arcane and forbidden
knowledge? Or is it just a union thing? I mean, sure, I see
the utility in this sort opf thing:
/usr/bin/fnord [ -aAbcCdfFgilLmnopqrRstux1 ] [ file ... ]
But is it too much to ask for a few concrete examples a
little bit later in the documentation?
OK, I feel better now.
I'm trying to set the permissions on a directory I am creating
through Net::SFTP. I can only assume these permissions are set
using some octal code:
my $dir_attrs = new Net::SFTP::Attributes;
$dir_attrs->perm (0755);
$sftp->do_mkdir ("$remote_dir/temp", $dir_attrs);
But the permission instruction seems to be ignored (just
for fun I also tried $dir_attrs->perm ('drwxr-xr-x'); but
that was ignored as well). I wanted to import some
Net::SFTP::Constant's but gave up on that pretty quickly
(no examples). Has anybody done this with Net::SFTP? What
am I doing wrong?
Another problem is that when I turn off SFTP's debug I still get
a large number of messages sent to STDERR:
IO::Socket::INET at D:/apps/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at D:/apps/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at D:/apps/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at D:/apps/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at D:/apps/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
... etc.
I would like to turn these off without getting rid of ALL STDERR.
Does anybody know where these messages come from? Are they errors,
warnings, simply something interesting to watch while you wait?
The program seems to be working as it should (except for the
permissions problem).
Arvin
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8889
***************************************
