[18951] in Perl-Users-Digest
Perl-Users Digest, Issue: 1146 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 16 21:05:32 2001
Date: Sat, 16 Jun 2001 18:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <992739907-v10-i1146@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 16 Jun 2001 Volume: 10 Number: 1146
Today's topics:
Autoflush problem with Perl CGI under Apache <Kaya@NoSpamPlease.net>
Re: Design pattern for a generic functions dispatcher <bart.lateur@skynet.be>
Re: having trouble with system (David Efflandt)
How: To find string length? <SheenPlayer@Yahoo.Com>
Re: How: To find string length? <tony_curtis32@yahoo.com>
Re: HTML input box variables? <somewhere@in.paradise.net>
Mail:Sendmail error <destiny30@telusplanet.net>
Re: Mail:Sendmail error <tony_curtis32@yahoo.com>
Re: Mail:Sendmail error <destiny30@telusplanet.net>
Re: Mail:Sendmail error (David Efflandt)
Re: missing spaces <godzilla@stomp.stomp.tokyo>
Re: more than one execution for wait? <bwalton@rochester.rr.com>
Need Coding to Enable Two Websites to Share One Form <true-agents@true-agent.com>
Re: period <gnarinn@hotmail.com>
Perl internals [Q]: Tied hashes <kj0@mailcity.com>
Re: Perl internals [Q]: Tied hashes (Clinton A. Pierce)
Re: Perl internals [Q]: Tied hashes <bart.lateur@skynet.be>
Re: picture pushing (isterin)
Re: picture pushing (David Efflandt)
PPM <joel@cts.com>
Re: require-function fails on some servers <flavell@mail.cern.ch>
Re: To find string length? <bop@mypad.com>
Re: To find string length? <somewhere@in.paradise.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 16 Jun 2001 22:13:14 +0100
From: "Kaya" <Kaya@NoSpamPlease.net>
Subject: Autoflush problem with Perl CGI under Apache
Message-Id: <hYPW6.27200$9t5.1964609@news6-win.server.ntlworld.com>
I have taken on the daunting task of attempting to get some Perl CGI scripts
written (I use the term loosely) by a third party for my companies website,
currently running on an IIS server which is being moved shortly to a new
host running Apache.
I have been successful so far by testing it on some free webspace on a
commercial Internet server running Apache with Perl5 but would like to be
able to test it offline on my home Linux Box (Also running Apache with
Perl5) so that I can debug errors from the console. (No telnet access to
test server).
Apache reports "Premature end of script headers" in the Error log when
linking to any of the scripts. All the help files regarding this error
points to it being related to buffer flushing and suggests using $| = 1;
before all print statement blocks.
However the same script runs OK on the test Internet server !
This indicates to me that the commercial server has somehow globally enabled
Autoflushing for file handles used by Perl CGI scripts to send text to the
browser.
I don't want to modify the scripts more than is absolutely necessary to get
them working as they are extremely convoluted and involved (and badly
written/commented). I just want to reproduce the set-up that the commercial
server is using so that they will work on my Linux box.
I am part way up a steep learning curve at the moment being new to
Linux/Apache and Perl ,coming from (hangs head in shame) a Windoze
environment.
Any help would be very much appreciated as I have to get the website working
by the end of this month when its current host is closing down.
TIA
Kaya.
------------------------------
Date: Sat, 16 Jun 2001 22:28:05 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Design pattern for a generic functions dispatcher
Message-Id: <d5mnitkkqles6qnvf4063qnds65lcjgu53@4ax.com>
Abe Timmerman wrote:
>> I prefer sub refs.
>>
>> my %action_map = (
>> ACTION1 => \&MyModule::SubModule::Myfunction,
>> ACTION2 => \&MyOtherModule::MyOtherFunction,
>> );
>
>So do I, but they will only work if the module in question is loaded.
No, it *does* work. You can take a reference to a sub that is not
compiled yet, maybe not even when the script strats running.
%dispatch = ( 'abc' => \&Foo::test );
eval <<'END';
package Foo;
sub test {
print "It works!\n";
}
END
$dispatch{abc}();
This prints: "It works!"
n.b. Isn't it funny you can drop the arrow between the hash index and
the sub calling parens as well?
>The OP wanted dynamic loading to avoid loading all modules when only one
>is needed per invocation of the program.
The idea is to analyze the sub name, calling the proper module etc? Then
use AUTOLOAD. Let the system take care of it all.
For an elaborate AUTOLOAD mechanism, all in the same source file, take a
good look at CGI.pm. Many "functions" are actually stored as source, in
a hash, and eval() is used to compile them when first needed.
Or, you can use AUTOLOAD in the more traditional way. The very barest
working example:
my %dispatch = ( A => \&Foo::Alpha::one, B => \&Foo::Beta::two );
for my $op ('A', 'B') {
$dispatch{$op}();
}
package Foo::Alpha;
sub AUTOLOAD {
require Foo::Alpha;
goto &$AUTOLOAD;
}
package Foo::Beta;
sub AUTOLOAD {
require Foo::Beta;
goto &$AUTOLOAD;
}
File Foo/Alpha.pm:
package Foo::Alpha;
sub one {
print "One!\n";
}
1;
File Foo/Beta.pm:
package Foo::Beta;
sub two {
print "Two!\n";
}
1;
Care should be taken about sub DESTROY, in case of OO style packages. It
should be no error if it is called, through AUTOLOAD, while it doesn't
exist. The simplest way to cope with it, is simply drop the call in the
AUTOLOAD routine. If the sub does exist, AUTOLOAD won't be called, and
if it the package is not yet loaded, there shouldn't be any objects to
call it.
--
Bart.
------------------------------
Date: Sat, 16 Jun 2001 22:01:07 +0000 (UTC)
From: see-sig@from.invalid (David Efflandt)
Subject: Re: having trouble with system
Message-Id: <slrn9inlp3.nlj.see-sig@typhoon.xnet.com>
On Sat, 16 Jun 2001 02:17:27 GMT, Eldorado <none@this.net> wrote:
> I'm having a bit of a problem using system(). Commands are being read from a
> file into a hash, and then based on a user-selected option (the index) a
> hash entry is split into scalars. For example:
>
> ----------
>
> my $choice = getUserSelection;
>
> return unless (defined $choice);
>
> my ($action, $arg1, $arg2, $arg3) = split(/\|/, $options{$choice});
>
> # some other error checking, not affect any scalars in the above line
>
> system ($action);
>
> ----------
Using the rest of your example, the following works for me (ps added for
testing since I don't have sysstat). You omitted getUserSelection so I
guessed, but this works, so that sub is likely where your problem lies.
One source of trouble could be the check if $choice is defined, since it
will always be defined, even if an empty string, unless getUserSelection
explicitly returns undef.
You tested if the $action string was the same length as a test string, but
did you test if they were eq?
#!/usr/bin/perl -w
my %options = (
"megs" => "/bin/df -m",
"nodes" => "/bin/df -i",
"top" => "/usr/bin/top -s",
"ps" => "/bin/ps aux | /usr/bin/less",
"stats" => "/usr/local/sysstat -report | /usr/bin/less"
);
sub getUserSelection {
$| = 1; print "Selections megs, nodes, top, ps, stats? ";
$_ = <STDIN>; chomp;
return ($_) ? $_ : undef;
}
sub mytest {
my $choice = getUserSelection;
print "choice ", ($choice) ? "<$choice>" : "-none-", "\n";
# Maybe you don't want the word 'defined' in the following:
return unless (defined $choice);
my ($action, $arg1, $arg2, $arg3) = split(/\|/, $options{$choice});
print "action <$action>\n";
system ($action);
return;
}
mytest;
print "returned from all subs\n";
--
David Efflandt (Reply-To is valid) http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Sat, 16 Jun 2001 23:43:00 GMT
From: Mr. Sheen <SheenPlayer@Yahoo.Com>
Subject: How: To find string length?
Message-Id: <ilrnits30rq12j7cfu9b8o098n0d3np5qb@4ax.com>
If I have a variable, $whatever, storing a string like "I will burn
you", then how can I find the length (in characters, and probably
spaces) of that string?
I'm a bit of a newbie to perl, so go easy. Thanks.
------------------------------
Date: 16 Jun 2001 19:13:16 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: How: To find string length?
Message-Id: <87bsnoyndv.fsf@limey.hpcc.uh.edu>
>> On Sat, 16 Jun 2001 23:43:00 GMT,
>> Mr. Sheen <SheenPlayer@Yahoo.Com> said:
> If I have a variable, $whatever, storing a string like
> "I will burn you", then how can I find the length (in
> characters, and probably spaces) of that string?
(space is a character too)
The /length/ of a string. Tricky one, eh? The /length/.
Beats me :-)
"perldoc" is your friend. Learn how to use it, "perldoc
-f length". And, in extremis, ever heard of "Google"?
This one is so obvious it's going to boggle everyone here
how you failed to work out through trial and error what
the answer is yourself. If you don't put in the effort
yourself, noone else is going to bother (in the future).
hth
t
--
Just reach into these holes. I use a carrot.
------------------------------
Date: Sun, 17 Jun 2001 09:00:05 +1000
From: "Tintin" <somewhere@in.paradise.net>
Subject: Re: HTML input box variables?
Message-Id: <tyRW6.4$Uj7.99426@news.interact.net.au>
"alan@" <alan@headru.sh> wrote in message
news:9gfp2f$4ua$1@news8.svr.pol.co.uk...
>
> The point was not to demonstrate the perfect solution , nor was it
intended
> to be completely acceptable to the "experts". The idea was that this works
> as it is and by copying and pasting into a .cgi and testing, then the
> problem the original poster described, can be shown to disappear.
And that's the big problem. Many beginners see inefficient, insecure or
just plain wrong code here, and use it to cut and paste into their scripts
without realising the potential consequences.
>The guy is
> obviously not an expert, and I don't pretend to be either, but every
little
> helps to move forward.
Let's say a beginner is wanting some code to mail some details, and someone
gives a solution like:
open(MAIL,"|mail $to");
and the beginner uses that code and everything works fine until someone puts
in some nasty input and the beginner has all his files deleted. Is that a
way of helping them move forward?
------------------------------
Date: Sat, 16 Jun 2001 19:07:10 GMT
From: Pasquale <destiny30@telusplanet.net>
Subject: Mail:Sendmail error
Message-Id: <3B2BB0AA.AB6AA66E@telusplanet.net>
I am using the Mail:Sendmail module to send mass e-mails and a e-mail
notification for certain tasks. Just teasting things out and I get the
following error:
Software error:
Error sending to <whatevername@whateverhost.com> (550 Relaying is
prohibited)
What does "relaying is prohibited" mean? What can I do to get the
e-mail sent to that specific e-mail address?
Thanks,
Pasquale
------------------------------
Date: 16 Jun 2001 14:18:31 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Mail:Sendmail error
Message-Id: <87k82cz114.fsf@limey.hpcc.uh.edu>
>> On Sat, 16 Jun 2001 19:07:10 GMT,
>> Pasquale <destiny30@telusplanet.net> said:
> I am using the Mail:Sendmail module to send mass e-mails
> and a e-mail notification for certain tasks. Just
> teasting things out and I get the following error:
> Software error: Error sending to
> <whatevername@whateverhost.com> (550 Relaying is
> prohibited)
You're trying to relay through an SMTP server to an
address for which it is not prepared to accept mail.
> What does "relaying is prohibited" mean? What can I do
> to get the e-mail sent to that specific e-mail address?
Mass email + Relaying very-probably-equals SPAM
Off-topic for comp.lang.perl.misc, it's a mail
configuration issue. comp.mail.sendmail is a better bet
for getting a solution. But I seriously doubt that anyone
here or there is going to help you send SPAM.
hth
t
--
Just reach into these holes. I use a carrot.
------------------------------
Date: Sat, 16 Jun 2001 19:32:09 GMT
From: Pasquale <destiny30@telusplanet.net>
Subject: Re: Mail:Sendmail error
Message-Id: <3B2BB685.F668445@telusplanet.net>
I am definitely NOT trying to SPAM!!!!!!!!!!! The e-mail address for
notification is my own and that's what I was testing when I received the
error. Maybe there is something wrong with my code, in that it is
repeatedly e-mailing the same e-mail address???
Thanks for your suggestions. I'll try comp.mail.sendmail.
Pasquale
Tony Curtis wrote:
> >> On Sat, 16 Jun 2001 19:07:10 GMT,
> >> Pasquale <destiny30@telusplanet.net> said:
>
> > I am using the Mail:Sendmail module to send mass e-mails
> > and a e-mail notification for certain tasks. Just
> > teasting things out and I get the following error:
> > Software error: Error sending to
> > <whatevername@whateverhost.com> (550 Relaying is
> > prohibited)
>
> You're trying to relay through an SMTP server to an
> address for which it is not prepared to accept mail.
>
> > What does "relaying is prohibited" mean? What can I do
> > to get the e-mail sent to that specific e-mail address?
>
> Mass email + Relaying very-probably-equals SPAM
>
> Off-topic for comp.lang.perl.misc, it's a mail
> configuration issue. comp.mail.sendmail is a better bet
> for getting a solution. But I seriously doubt that anyone
> here or there is going to help you send SPAM.
>
> hth
> t
> --
> Just reach into these holes. I use a carrot.
------------------------------
Date: Sat, 16 Jun 2001 22:31:03 +0000 (UTC)
From: see-sig@from.invalid (David Efflandt)
Subject: Re: Mail:Sendmail error
Message-Id: <slrn9innh7.nlj.see-sig@typhoon.xnet.com>
On Sat, 16 Jun 2001 19:07:10 GMT, Pasquale <destiny30@telusplanet.net> wrote:
> I am using the Mail:Sendmail module to send mass e-mails and a e-mail
> notification for certain tasks. Just teasting things out and I get the
> following error:
> Software error:
> Error sending to <whatevername@whateverhost.com> (550 Relaying is
> prohibited)
>
> What does "relaying is prohibited" mean? What can I do to get the
> e-mail sent to that specific e-mail address?
Apparently your local mailserver (localhost) is not working or refusing to
relay, and maybe CompuServe (aka AOL) finally shut the door on their open
relay.
If you are just sending these to yourself, like you say you are, look for
'smtp' in the %mailcfg hash near the beginning of Sendmail.pm and put your
smtp server in place of any that are there. That should at least allow
you to send mail to yourself (if you can successfully do that from
anywhere else). Although, there may be other spam traps in place, like
not accepting connections from known dialup or dynamic IP lists that are
not directly connected to that ISP.
--
David Efflandt (Reply-To is valid) http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Sat, 16 Jun 2001 11:42:01 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: missing spaces
Message-Id: <3B2BA879.C9B8F670@stomp.stomp.tokyo>
Jerry Preston wrote:
(snipped)
> When I read a text file and display it on a web site all
> the spacing is missing.
> open( FP, "$fn/$file" ) || die "cannot open view_file file $fn/$file $!\n";
> while( <FP> ) {
> print "$_<br>";
> }
> close FP;
You have failed to provide clear and concise parameters.
There is no indication if your web site page is html
enabled, plaintext or something else.
Your inclusion of <br> suggests an html enabled page
but does not confirm this as so. In the future, do
not post unless you provide well defined parameters.
while(<FP>)
{
$_ =~ s/ / /g;
print "$_<br>";
}
Your spaces will appear in an html enabled page
using this code above.
Godzilla!
------------------------------
Date: Sat, 16 Jun 2001 18:36:49 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: more than one execution for wait?
Message-Id: <3B2BA714.F3CD924B@rochester.rr.com>
"Lee Seung K." wrote:
...
>
> exec("$commandexec2");
> exec("$commandexec3");
> exec("$commandexec4");
> exec("$commandexec5");
>
> lines get ignored.
...
> Seung
...
In:
perldoc -f exec
you will see:
The exec() function executes a system command AND NEVER RETURNS -
use system() instead of exec() if you want it to return. It fails and
...
--
Bob Walton
------------------------------
Date: Sat, 16 Jun 2001 16:44:33 -0500
From: Jay Reifert <true-agents@true-agent.com>
Subject: Need Coding to Enable Two Websites to Share One Form
Message-Id: <3B2BD341.440738A2@true-agent.com>
Hi All,
I have been all over the web, reviewing various resources and I am
simply stumped when it comes to finding an answer to the following
two questions:
When utilizing the "@referers" command in a perl script, is it
possible to have a form shared by two similar--but different--domains?
If so, what is the proper perl coding for successfully doing this?
I have a friend whose original form functions just fine, but has
set up a mirror site, too. The form for the mirror site refuses
to forward, as it is not recognized as a valid address from which
the submit request had originated.
I--being both stubborn and persistent--am not yet ready to give up
in finding a solution. My hope is that someone here may be able
to help.
Thanking you in advance...
Jay Reifert
in Madison, Wisconsin
------------------------------
Date: Sat, 16 Jun 2001 19:38:52 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: period
Message-Id: <992720332.279611095320433.gnarinn@hotmail.com>
In article <20010616132748.19607.00001918@ng-fk1.aol.com>,
Barry Allwood <barryallwood@aol.com> wrote:
>Well, the period just seperates variables and file endings because It may cause
>an error like because they are all together like this
>
>print "thisfile$variable.bpe";
>
>#This is wrong you end up calling a variable called $variable.bpe which does
>not exist
>
wrong.
>Wheras :-
>
>print "thisfile$variable".".bpe";
>
># Works fine
>
these 2 examples were equivalent.
>print(<LOCATION>, "Data");
>
>which would print to the file that had been opened
>
nope. this would actually read from the file
>Hope that helped!
I doubt it.
>Barry
gnari
------------------------------
Date: 16 Jun 2001 15:22:50 -0400
From: kj0 <kj0@mailcity.com>
Subject: Perl internals [Q]: Tied hashes
Message-Id: <9ggbma$2s9$1@panix3.panix.com>
I think the tied variables feature in Perl is great, and I would like
to learn more about the details of their implementation.
Specifically, I would like to learn more about how tied hashes are
implemented.
The definition of Tie::StdHash doesn't help me:
package Tie::StdHash;
@ISA = qw(Tie::Hash);
sub TIEHASH { bless {}, $_[0] }
sub STORE { $_[0]->{$_[1]} = $_[2] }
sub FETCH { $_[0]->{$_[1]} }
sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
sub NEXTKEY { each %{$_[0]} }
sub EXISTS { exists $_[0]->{$_[1]} }
sub DELETE { delete $_[0]->{$_[1]} }
sub CLEAR { %{$_[0]} = () }
1;
There is no indication here of how something like
$_[0]->{$_[1]} = $_[2] # STORE
gets translated into a (probably fairly complicated) write operation
to a file.
So how does Perl implement this magic? Are writes and deletes
buffered somehow?
I know that, ultimately, I will have to read the Perl internals to get
the full scoop, but despite a couple of serious efforts I have not yet
been able make much sense of the internals (I know C very well, but I
still find the Perl internals overwhelmingly complex), so I'm hoping
to a general picture of tied hash implementation, and maybe pointers
to were exactly to look in the internals' source, from the more
intrepid Perl internists here.
Thanks,
KJ
------------------------------
Date: Sat, 16 Jun 2001 21:11:58 GMT
From: clintp@geeksalad.org (Clinton A. Pierce)
Subject: Re: Perl internals [Q]: Tied hashes
Message-Id: <yYPW6.86011$DG1.14238259@news1.rdc1.mi.home.com>
[Posted and mailed]
In article <9ggbma$2s9$1@panix3.panix.com>,
kj0 <kj0@mailcity.com> writes:
> I think the tied variables feature in Perl is great, and I would like
> to learn more about the details of their implementation.
> Specifically, I would like to learn more about how tied hashes are
> implemented.
No, I don't think you would. :) Maybe how the interface to them works,
but not how they work internally.
> The definition of Tie::StdHash doesn't help me:
>
> package Tie::StdHash;
> @ISA = qw(Tie::Hash);
>
> sub TIEHASH { bless {}, $_[0] }
> sub STORE { $_[0]->{$_[1]} = $_[2] }
> sub FETCH { $_[0]->{$_[1]} }
> sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
> sub NEXTKEY { each %{$_[0]} }
> sub EXISTS { exists $_[0]->{$_[1]} }
> sub DELETE { delete $_[0]->{$_[1]} }
> sub CLEAR { %{$_[0]} = () }
> 1;
>
>
> There is no indication here of how something like
>
> $_[0]->{$_[1]} = $_[2] # STORE
>
> gets translated into a (probably fairly complicated) write operation
> to a file.
Because it doesn't! Tied hashes have nothing to do with databases.
No, really they don't.
Tie::StdHash is providing a base-class for tied hashes. When you
tie a hash, you get a blessed hash reference back (in TIEHASH). Every
other function in the class just uses that reference to keep a real
live hash in and mimics a real hash's behaviour.
What you're getting confused with are classes like AnyDBM which use
tied hashes to DBM files. They work in exactly the same way, except
that instead of having a blessed hash reference that they're storing
data into, each of the methods (STORE, FETCH, NEXTKEY, etc.) is using
reads and writes to a database instead.
> So how does Perl implement this magic? Are writes and deletes
> buffered somehow?
Pffth. Only if the tie-class implements buffering. (Doubtful.) Remember,
tying has almost nothing to do with database access.
> I know that, ultimately, I will have to read the Perl internals to get
> the full scoop, but despite a couple of serious efforts I have not yet
> been able make much sense of the internals (I know C very well, but I
> still find the Perl internals overwhelmingly complex), so I'm hoping
> to a general picture of tied hash implementation, and maybe pointers
> to were exactly to look in the internals' source, from the more
> intrepid Perl internists here.
No you don't need to get into the internals. Just read "perltie" and
possibly the source for one of the DBM classes for a simple example.
--
Clinton A. Pierce Teach Yourself Perl in 24 Hours *and*
clintp@geeksalad.org Perl Developer's Dictionary -- May 2001
"If you rush a Miracle Man, for details, see http://geeksalad.org
you get rotten Miracles." --Miracle Max, The Princess Bride
------------------------------
Date: Sat, 16 Jun 2001 22:32:29 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Perl internals [Q]: Tied hashes
Message-Id: <2gnnit45so18q0jmo0othkdll1pcjviv4e@4ax.com>
kj0 wrote:
>There is no indication here of how something like
>
> $_[0]->{$_[1]} = $_[2] # STORE
>
>gets translated into a (probably fairly complicated) write operation
>to a file.
That's not how it works. YOU should write a routine that stores it on
disk. All that tieing does, is provide a means to call your routine
through ordinarily looking Perl lstatements. For example, if $foo is
tied to your package (actually to an object in your package), then
$foo = 123;
will call your STORE routine, complete with the object/data structure it
is tied to, and the value 123, and you have enough info to properly save
it to disk.
--
Bart.
------------------------------
Date: 16 Jun 2001 14:40:17 -0700
From: isterin@hotmail.com (isterin)
Subject: Re: picture pushing
Message-Id: <db67a7f3.0106161340.3d45e2@posting.google.com>
You can show almost anything in your browser as long as it has the
correct heading. In your case
print "Content-type: image/jpg\n\n";
Look through all the headers, for more info.
Ilya
"Yo" <miriam@allfineantz.nl> wrote in message news:<%lGW6.90045$qM3.11130964@news.soneraplaza.nl>...
> Hi group,
>
> Is it possible to make a script that pushes a picture to the visitor's
> browser, without the surrounding html?
> following url would do the trick: http://wwwdomain.com/test.jpg for instance
>
> but the url needs to be HIDDEN!!!
>
> not even there!!
------------------------------
Date: Sat, 16 Jun 2001 22:55:42 +0000 (UTC)
From: see-sig@from.invalid (David Efflandt)
Subject: Re: picture pushing
Message-Id: <slrn9inovd.nlj.see-sig@typhoon.xnet.com>
On Sat, 16 Jun 2001 12:18:42 +0200, Yo <miriam@allfineantz.nl> wrote:
> Hi group,
>
> Is it possible to make a script that pushes a picture to the visitor's
> browser, without the surrounding html?
What do you mean by push. Server push can push assorted or even mixed
content-type to a browser including a series of images with no html.
That has always been a Netscape only thing (the real Mozilla only),
although, someone said it worked with the latest MSIE (can anyone confirm
that). The only thing Perl about this is that CGI.pm can make it easier.
> following url would do the trick: http://wwwdomain.com/test.jpg for instance
Not for me, "file not found".
> but the url needs to be HIDDEN!!!
>
> not even there!!
Following is the only way to hide a URL (not even there):
you have to just know it 8^)
------------------------------
Date: 16 Jun 2001 22:44:55 GMT
From: "Joel Fentin" <joel@cts.com>
Subject: PPM
Message-Id: <01c0f6b6$03529b40$754b5ecc@joel>
If I use PPM with the commands: search, verify, & install;
I get the following error:
not well-formed at line 1, column 17, byte 17 at
C:/Perl/site/lib/SOAP/Parser.pm line 73
What does it want?
It works with help, query & set.
It use to work ok. I tried PPM genconfig > ppm.xml
This got me an empty file called ppm.xml
Winddoz 95, PPM Version 1.1.4, perl version 5.6.0
Thank you
--
Joel Fentin tel: 760-749-8863 FAX: 760-749-8864
email: joel@fentin.com web: fentin.com
------------------------------
Date: Sat, 16 Jun 2001 19:53:34 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: require-function fails on some servers
Message-Id: <Pine.LNX.4.30.0106161948190.12672-100000@lxplus003.cern.ch>
On Sat, 16 Jun 2001, Charles Betman wrote:
> I've got (on some servers, all Windows-servers so far) a problem with the
> execution of the require-function.
You've also got a problem with multiposting to usenet. I already saw
essentially the same article posted separately to (and answered on)
c.l.perl.misc. I'm setting f'ups to the group where I first saw it.
_If_ a message is genuinely relevant to more than one group, then
crosspost the one article to the relevant groups. _Never_ post the
same article separately to different groups.
However, an article that is relevant to a *.{specific} group is
pretty much by definition off-topic for the corresponding *.misc
group, and vice versa.
------------------------------
Date: Sat, 16 Jun 2001 20:26:27 -0400
From: "flash" <bop@mypad.com>
Subject: Re: To find string length?
Message-Id: <iNSW6.4767$1L.315425@news20.bellglobal.com>
ok,
$lenght=lenght($var);
(I belive)
------------------------------
Date: Sun, 17 Jun 2001 11:03:08 +1000
From: "Tintin" <somewhere@in.paradise.net>
Subject: Re: To find string length?
Message-Id: <QlTW6.7$%C7.142356@news.interact.net.au>
"flash" <bop@mypad.com> wrote in message
news:iNSW6.4767$1L.315425@news20.bellglobal.com...
> ok,
>
> $lenght=lenght($var);
>
> (I belive)
or even length()
------------------------------
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.
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 1146
***************************************
