Re: [OT] Redirect w/ Netscape browser causing 'Document contains no data'
On Aug 23, [EMAIL PROTECTED] contorted a few electrons to say... Daniel Little wrote: I seem to have a strange problem here with Netscape displaying the error 'Document contains no data' when I do $Response-Redirect($location). everytime i've ever gotten that it was because my server side code had caused an apache process to core dump. jr -- Joel W. Reed412-257-3881 --All the simple programs have been written. PGP signature
Apache::ASP extra newline in script output start - killing IE pdf recognition
Joshua, i think i've got a good one for you. i'm using 2.09 btw. lets say the beginning of a script is %@ LANGUAGE=PerlScript % % do neat perl things % the way Apache::ASP currently processes this we get the following output (please note the TWO NEWLINES after Content-Type below) Connecting to 193.9.211.182:80... connected! HTTP request sent, awaiting response... 200 OK Length: unspecified [application/pdf] 0K - ...HTTP/1.1 200 OK Date: Fri, 27 Apr 2001 16:02:26 GMT Server: Apache/1.3.14 (Unix) (Red-Hat/Linux) mod_perl/1.24 Content-Disposition: inline; filename=Strategic-Leader.summary -report.pdf Cache-Control: private Connection: close Content-Type: application/pdf %PDF-1.2 % W the two newlines throws IE5+ off so that they don't realize this is a PDF file (they have auto we know better than you file sniffing code i believe). on PerlScript under IIS however this does not happen the same exact code works fine. am i doing something wrong? i think an improvement in Apache::ASP would be to not replace %@ LANGUAGE=PerlScript % with something to hold the line numbers the same (what your comments say) if Content-Type is not text/* - then we just remove the line esp. the newline. what do you think? jr Joel W. Reed412-257-3881 --All the simple programs have been written. PGP signature
Re: Apache::ASP extra newline in script output start - killing IE pdf recognition
On Apr 27, [EMAIL PROTECTED] contorted a few electrons to say... Philip On Fri, 27 Apr 2001, Joel W. Reed wrote: Philip Philip %@ LANGUAGE=PerlScript % Philip % Philipdo neat perl things Philip % Philip Philip Have you tried this: Philip Philip @ LANGUAGE=PerlScript %% Philip do neat perl things Philip % yes i did it does work, but the problem is the orig. script on windows works while under Apache::ASP it does not. jr -- Joel W. Reed412-257-3881 --All the simple programs have been written. PGP signature
Apache::ASP - AS PerlScript compatibility request
to be more fully compliant with ActiveState's PerlScript
we need the following methods on Apache::ASP::Collection
object.
sub Count -- # of keys in $Request-QueryString or $Request-Form
sub Key {
my ($self, $keynum) = @_;
}
attached are two test files sample output under windows.
jr
--
Joel W. Reed412-257-3881
--All the simple programs have been written.
Title: test page
test page
%@ LANGUAGE=PerlScript %
!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
html
head
meta http-equiv="content-type" content="text/html; charset=ISO-8859-1"
titletest page/title
/head
body
test page resultsbr
br
br
%
my $lname = $Request-Form("lname")-Item();
$Response-Write("lname from Request-Form(\"lname\")-Item(): " . $lname);
%
br
%
my $cnt = $Request-Form()-Count();
$Response-Write("lname from Request-Form()-Count(): " . $cnt);
%
br
%
for (my $i = 1; $i $cnt; $i++)
{
$Response-Write("key $i is " . $Request-Form()-Key($i) . "br\n");
}
%
/body
/html
Title: test page
test page results
lname from Request->Form("lname")->Item(): reed
lname from Request->Form()->Count(): 4
key 1 is fname
key 2 is mname
key 3 is lname
PGP signature
Re: [ANNOUNCE] Apache::ASP v2.07
On Dec 06, [EMAIL PROTECTED] contorted a few electrons to say... Joshua Hey, Joshua Joshua The latest Apache::ASP 2.07 has made its way into CPAN, and is Joshua also available at: Just thought i'd say a BIG THANKS to Joshua for Apache::ASP. Its been a great help in developing cross platform web products. Its been rather stable Joshua is usually pretty responsive when you need some help. jr -- Joel W. Reed412-257-3881 --All the simple programs have been written. PGP signature
[Apache::ASP] $Request-QueryString-('foo')-Item() support
I'm trying to write an ASP app that runs under PerlScript and Apache::ASP.
i've found that with ActivePerl 618 -- $Request-QueryString-('foo')
return a reference to a Win32::OLE hash.
to get a string from the hash you must write --
$Request-QueryString-('foo')-Item()
or you must use one of the hacks in the OLE.pm docs that come with ActivePerl.
$Request-QueryString-('foo')-Item() however doesn't work
under Apache::ASP. so i'm wondering if something like the patch
below would improve compatibility without hurting performance
too much.
comments? suggestions? i know the patch below would need work
to support the "array of values" ASP thing...
--- /usr/lib/perl5/site_perl/5.6.0/Apache/ASP.pmTue Aug 1 19:42:18 2000
+++ /home/jreed/tmp/ASP.pm Mon Oct 9 16:30:21 2000
@@ -2640,6 +2640,25 @@ sub ScriptOnFlush {
1;
+package Apache::ASP::QsObj;
+
+sub new {
+my $class = shift;
+my $self = {};
+$self-{str} = shift;
+
+bless $self, $class;
+return $self;
+ };
+
+sub Item()
+ {
+my $self = shift;
+return $self-{str};
+ }
+
+1;
+
# Request Object
package Apache::ASP::Request;
@@ -2794,7 +2813,11 @@ sub Form
sub FileUpload
{ shift-{FileUpload}-Item(@_) }
sub QueryString
- { shift-{QueryString}-Item(@_) }
+ {
+my $self = shift;
+my $key = shift;
+return new Apache::ASP::QsObj($self-{QueryString}-Item($key));
+ }
sub ServerVariables
{ shift-{ServerVariables}-Item(@_) }
--
--------
Joel W. Reed412-257-3881
--All the simple programs have been written.
PGP signature
Re: [Apache::ASP] $Request-QueryString-('foo')-Item() support
On Oct 09, [EMAIL PROTECTED] contorted a few electrons to say...
Joshua $Request-QueryString-('foo')-Item() isn't valid perl syntax,
Joshua is it? Are you going for $Request-QueryString('foo')-Item()
Joshua support here?
yes $Request-QueryString('foo')-Item() seems to be the way AP618
wants you to convert the WIN32::OLE object to a perl string as in:
my $uid = $Request-QueryString('foo')-Item();
without the item it fails horribly in PerlScript.
Joshua
Joshua There is already a Collection class that is used to emulate
Joshua this kind of behavior, which can possibly be extended to
Joshua meet this need. One of the behaviors that this interface
Joshua supports is:
Joshua
Joshua $Request-QueryString-Item('foo')
which wouldn't work unfortunately for winblows without
$Request-QueryString-Item('foo')-Item()
Joshua
Joshua Do you really need the above interface? If so, I'll need
Joshua to create a config setting I imagine as there will be
Joshua a significant performance impact do doing something
Joshua like you suggest.
really? that's a bummer. the only other option is to
throw
use Win32::OLE qw(in valof with OVERLOAD);
in the ASP pages when they are running under ActivePerl.
which kind of sucks too. (the above is found in the ActivePerl
docs for WIN32::OLE).
jr
--
Joel W. Reed412-257-3881
--All the simple programs have been written.
PGP signature
