mmorrell5 wrote:
>   This may be a dumb question....
>
>   Is there any way to use TrapInclude outside of Apache? I would like
> to use TrapInclude in a standalone script to create a html doc that
> can be mailed. I would like to leverage what is already in some of my
> Apache::ASP pages.
>
>   Thanks for any help!!
>
>

Sorry for taking so long to get back to you.

Please check out http://www.apache-asp.org/cgi.html#Standalone%20Cbddd74cc
which tells you about the asp-perl script which provides the ability
to execute an ASP script outside a web server context.

  From some calling process then, you could do something like:

    my $output = `asp-perl -b some_file.asp`;

and assuming asp-perl was installed in your PATH, then this should
work correctly.

Also, try "perldoc asp-perl" for more information.

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Peter Beardsley wrote:
> Hi,
> This might be a more general mod_perl question, and if so let me know,
> but I'm trying to add exception handling to my Apache::ASP code.
> Basically I have a module that encapsulates all my data access, with all
> the UI logic handled in ASP pages.  What I want to do is throw
> exceptions in the data module, and catch them in the ASP pages.  I've
> been using Error::Simple and throwing errors in the data module like so:
>
>    throw Error::Simple( 'My Error');
>
> the calling code in the ASP page looks like so:
>
>    try {
>      Data::DataRoutine();
>    }
>    catch Error::Simple with {
>      my $E;
>      $Response->Write($E);
>    }
>
> But the throw always triggers an Apache error and gets written to the
> Apache log.  I've also tried the module Exception::Class with similar
> results.
>
> Can anybody with experience doing exception handling under Apache::ASP
> tell me what works for them and point me in the right direction?
>

Well, I'm pretty old fashioned in this regards, but I rely on die() for
my error throwing, and eval {} for my error catching, and just check
for whether $@ exists after the eval {} to see if there was an error.

BTW, sorry for not getting back for so long.  I am been swamped with
work recently.

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

I read a number of older emails that suggest (or at least talk about)
a change (or addition) to the XMLSubs processing that would produce
something more like JSP: the order in which nested tags are processed
particularly in respect to nesting.

I was wondering what ever happened to that conversation? I never read
where any resolution was reached. I think the addition of this model
and a few other features would add significant functionality.

To make sure I'm clear, I am interested in:

<foo>
   <blah>
   </blah>
</foo>

... where <blah> is processed first, and foo comes next.

The use of scoped variables for scripting (as with JSP) would help out
a good deal. If <foo> defined a variable, <blah> would be able to use
the variable and so forth.

-Thomas Simpson




__________________________________
Do you Yahoo!?
Yahoo! Mail - Find what you need with new enhanced search.
http://info.mail.yahoo.com/mail_250

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

..You will see what I ment when you reload the page in utf-8
Hi Boys. I think it's perl's fault, but if someone of you had such
problems and tell mi what is wrong, I will be very gratefull.
So.. I manage a multilanguage site and it is all utf-8. There is an
application where the users place some text. The used languages are
mainly Bulgarian and English with .. German eventualy. There are
situations in which the user enter latin and ciryllic characters in
different textboxes.
And here my nigthmer begins.
the applicatin decides that the input is Latin-1(or i do not know)
and brakes all cyrilic characters into separate bytes
which is simply frigthening!!!

You will see what I ment below when you reload the page in utf-8
#################
Тестов текст
######becomes
Те�`�`‚ов �`‚ек�`�`‚

It is interesting that Perl 5.6.1 does not make such problems
The current configuration is Apache 1.3.31 mod_perl 1.29 Apache::ASP
2.57n on Mandrake 10.0
I made everything possible to resolve the problem.
Here is how looks the beginning of my global.asa:

use utf8;
binmode(STDOUT, ':utf8');
binmode(STDIN, ':utf8');
use DBI;
#use Data::Dumper;
require "../SomeModule.pm";
##AND more
sub Script_OnStart{
        $Response->{Charset}="utf-8";
#....
}
I placed in httpd.conf too
<Perl>
use utf8;
#...
</Perl>
My pages are all written in utf-8
I do not have variables written with cyrillic characters
  Only literal text in the HTML
There should be no reason for this disaster to happen to me.
It brakes months of work.

Thak You




---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

In your globa.asa:

use vars qw/
   $Request
   $Response
   $Session
   $Server
   $Application
/;

Script_OnFlush
{
   my $ref = $Response->{BinaryRef};
   $$ref =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g;
}# end Script_OnFlush()


Regards,
John Drago


________________________________________
From: Andrew Koebrick [mailto:Andrew.Koebrick@...]
Sent: Tuesday, December 14, 2004 3:31 PM
To: 'asp@...'
Subject: regular expressions on $Response ?

Hoping somebody can offer a suggestion on how best to do my headers and
footers.� I bumped into problems getting Apache::ASP, Apache 2.0 and filters
working.� I was using mod_ext_filter to replace my <body> and </body> tags
(using a simple sed command) with a SSI directive, which in turn pulled in
complex headers and footers.�
�
When I moved to Fedora 3 this scheme started failing.� My options are to move
off of Apache::ASP for my embedded perl (perhaps to Mason), or to try to do the
replaces above in a manner more internal to Apache::ASP.
�
I have not been using the $Response->AddHeader($name, $value)� because I need to
keep the existing headers from the HTML files (they contain lots of metadata.
�
So, is there a way to do regular expressions agains the $Resoponse object?�
Something akin to (escaping ignored):
$Response =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g
�
I am not currently using a global.asa file, but I guess I could start if I need
to.
�
Thanks for any suggestions.
�
Andrew Koebrick
Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us
�
�
�
Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us
�

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hi Andrew,

I have written a mod_perl handler (using Apache::Filter) to inject a
header/footer includes onto the content of any .asp file. So my .asp
files don't even contain the <html><head></head><body> </body> tags. The
mod_perl handler literally injects <!--#include file=xxx--> lines into
the filter stack and expects Apache::ASP to expand it. (In my config
below, it would inject three include lines at the top for "all.inc",
"head.inc", and "nav.inc", then at the end inject an include for
"foot.inc".)

So to write a new page, I just write an .asp file for the guts of the
page and the header/footer/navigation areas automatically show up (and
can even have their own state). There is nothing in the .asp file that
refers to the header/footer; it is conpletely in the config file.

I still use this in production at http://www.community-art.com/, using
Apache::ASP version 2.47 and apache 1.3.x. I don't know if it is
compatible with the more recent versions of Apache::ASP & apache 2.x
mod_perl.

Here's my httpd.conf setup, and mod_perl handler code following:


## ASP setup
<FilesMatch "\.asp$">
   SetHandler  perl-script
   PerlModule  Apache::Filter
   PerlModule  Apache::ASP

   PerlSetVar  Filter On
   PerlSetVar  AutoHeaders   On
   PerlSetVar  AutoHeadersHeadFile   all.inc,head.inc,nav.inc
   PerlSetVar  AutoHeadersFootFile   foot.inc

   ## stack handlers for auto header/nav/footer
   ## note Apache::ASP sandwiched in the middle
   PerlHandler Apache::FilterHeader Apache::ASP Apache::FilterSendHeader

####
## more Apache::ASP setup...
####

</FilesMatch>

## popup windows have different headers and footers
## put those .asp files in a /popup subdir
<LocationMatch .*/popup/.*>
   PerlSetVar  AutoHeaders   On
   PerlSetVar  AutoHeadersHeadFile   all.inc,pophead.inc
   PerlSetVar  AutoHeadersFootFile   popfoot.inc
</LocationMatch>

## we want some places to not have any header footer stuff happen.
## put those .asp files in a /no subdirectory and deal with the
## <html>, <head>, <body> tags yourself.
<LocationMatch .*/no/.*>
   PerlSetVar  AutoHeaders   On
   PerlSetVar  AutoHeadersHeadFile   none
   PerlSetVar  AutoHeadersFootFile   none
</LocationMatch>





---------- Apache::FilterHandler -----------
package Apache::FilterHeader;

use strict;
use Apache::Constants qw(:common);
use Apache::Log;

sub handler {
     my $r = shift;
     $r = $r->filter_register(); ## returns Apache::Filter subclass of
Apache
##  $r->deterministic(1);

     my $file = $r->filename();
     return DECLINED  unless ( $file =~ /(\.asp|\..*html)$/ );

     ## be sure we want auto headers here.
     my $AutoHeaders = $r->dir_config('AutoHeaders') || 'Off';
     my $auto = 0;
     if ( $AutoHeaders =~ m/^on$/io ) {
         $auto = 1;
     }
     return DECLINED  unless ( $auto );

     ## get our header and footer file
     ## check the notes() for printer-friendly settings
     my $pf_headinc = $r->pnotes('pf_HEADER');
     my $pf_footinc = $r->pnotes('pf_FOOTER');
#my $n = $r->pnotes();
#for ( keys %$n ) {
#  $r->log->notice("pnotes($_)=$n->{$_}");
#}
#$r->log->notice("pf_footer=$pf_footinc");

     my $headinc = $pf_headinc || $r->dir_config('AutoHeadersHeadFile')
|| '';
     my $footinc = $pf_footinc || $r->dir_config('AutoHeadersFootFile')
|| '';


     ## ok, here we go...
     $r->content_type("text/html");
#   $r->send_http_header;
     my ($fh, $status) = $r->filter_input();

     if ( $status != OK ) {
         ## some kind of error
         #return $status;
         print <$fh>, "\n";
         return OK;  ## let Apache::ASP pick it up from here...
     } else {
         my @X = (); ## dummy just to get header includes to be dynamic

         ## normal
         if ( $headinc  and  $headinc !~ /^none$/io ) {
             my @h = split(',',$headinc);
             for ( @h ) {
                 print "<!--#include file=$_ args=@X-->\n";
             }
         }
         print <$fh>, "\n";
         if ( $footinc  and  $footinc !~ /^none$/io ) {
             my @h = split(',',$footinc);
             for ( @h ) {
                 print "<!--#include file=$_ args=@X-->\n";
             }
         }
         return OK;
     }

}
1;


---------- Apache::FilterSendHeader -----------
package Apache::FilterSendHeader;

use strict;
use Apache::Constants qw(:common);
use Apache::Log;

sub handler {
     my $r = shift;
     $r = $r->filter_register(); ## returns Apache::Filter subclass of
Apache
##  $r->deterministic(1);

     my $file = $r->filename();
     return DECLINED  unless ( $file =~ /(\.asp|\..*html)$/ );

     ## be sure we want auto headers here.
     my $AutoHeaders = $r->dir_config('AutoHeaders') || 'Off';
     my $auto = 0;
     if ( $AutoHeaders =~ m/^on$/io ) {
         $auto = 1;
     }
#print $r->log->notice("autoheaders=$auto");
     return DECLINED  unless ( $auto );

     ## ok, here we go...
#   $r->content_type("text/html");
     $r->send_http_header;
     my ($fh, $status) = $r->filter_input();

     if ( $status != OK ) {
         ## some kind of error
         return $status;
     } else {
         ## normal
#print $r->log->notice($r->filename);
         print <$fh>, "\n";
         return OK;
     }

}
1;





I have since created a better "stacking" strategy since in java, but I
have not ported it to perl. (This is the "Stack" tag library in
WebGUI.jar from http://www.vyking.com/projects/WebGUI/CURRENT/. These
have *no* docs yet besides the code.) The way I'd like see it
implemented is an Apache 2.x mod_perl handler that walks the tree
looking for filenames to accumlate based on the numbered filename
convention demonstrated in the Stack taglib.

-broc



> -----Original Message-----
> From: Andrew Koebrick [mailto:Andrew.Koebrick@...]
> Sent: Tuesday, December 14, 2004 5:31 PM
> To: 'asp@...'
> Subject: regular expressions on $Response ?
>
>
> Hoping somebody can offer a suggestion on how best to do my
> headers and footers.  I bumped into problems getting
> Apache::ASP, Apache 2.0 and filters working.  I was using
> mod_ext_filter to replace my <body> and </body> tags (using a
> simple sed command) with a SSI directive, which in turn
> pulled in complex headers and footers.
>
>
>
> When I moved to Fedora 3 this scheme started failing.  My
> options are to move off of Apache::ASP for my embedded perl
> (perhaps to Mason), or to try to do the replaces above in a
> manner more internal to Apache::ASP.
>
>
>
> I have not been using the $Response->AddHeader($name, $value)
>  because I need to keep the existing headers from the HTML
> files (they contain lots of metadata.
>
>
>
> So, is there a way to do regular expressions agains the
> $Resoponse object?  Something akin to (escaping ignored):
>
> $Response =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g
>
>
>
> I am not currently using a global.asa file, but I guess I
> could start if I need to.
>
>
>
> Thanks for any suggestions.
>
>
>
> Andrew Koebrick
>
> Andrew Koebrick
> Web Coordinator / Librarian
>
> Dept. of Administration
> State of Minnesota
> 658 Cedar St.
> St. Paul, MN 55155
>
> 651-296-4156
> http://server.admin.state.mn.us
>
>
>
>
>
>
>
> Andrew Koebrick
> Web Coordinator / Librarian
>
> Dept. of Administration
> State of Minnesota
> 658 Cedar St.
> St. Paul, MN 55155
>
> 651-296-4156
> http://server.admin.state.mn.us
>
>
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Thanks- I had caught the missing sub.  All appears well with my Rube Golberg
templating system.  Many thanks for the assistance.

Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us


-----Original Message-----
From: John Drago [mailto:john.drago@...]
Sent: Wednesday, December 15, 2004 12:27 PM
To: Andrew Koebrick; asp@...
Subject: RE: regular expressions on $Response ?

Woops -- that should have been:

In your globa.asa:

use vars qw/
   $Request
   $Response
   $Session
   $Server
   $Application
/;

# Added "sub" infront of Script_OnFlush :)
sub Script_OnFlush
{
   my $ref = $Response->{BinaryRef};
   $$ref =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g;
}# end Script_OnFlush()


Regards,
John Drago


________________________________________
From: Andrew Koebrick [mailto:Andrew.Koebrick@...]
Sent: Tuesday, December 14, 2004 3:31 PM
To: 'asp@...'
Subject: regular expressions on $Response ?

Hoping somebody can offer a suggestion on how best to do my headers and
footers.� I bumped into problems getting Apache::ASP, Apache 2.0 and filters
working.� I was using mod_ext_filter to replace my <body> and </body> tags
(using a simple sed command) with a SSI directive, which in turn pulled in
complex headers and footers.�
�
When I moved to Fedora 3 this scheme started failing.� My options are to
move off of Apache::ASP for my embedded perl (perhaps to Mason), or to try
to do the replaces above in a manner more internal to Apache::ASP.
�
I have not been using the $Response->AddHeader($name, $value)� because I
need to keep the existing headers from the HTML files (they contain lots of
metadata.
�
So, is there a way to do regular expressions agains the $Resoponse object?�
Something akin to (escaping ignored):
$Response =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g
�
I am not currently using a global.asa file, but I guess I could start if I
need to.
�
Thanks for any suggestions.
�
Andrew Koebrick
Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us
�
�
�
Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us
�

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...


---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Woops -- that should have been:

In your globa.asa:

use vars qw/
   $Request
   $Response
   $Session
   $Server
   $Application
/;

# Added "sub" infront of Script_OnFlush :)
sub Script_OnFlush
{
   my $ref = $Response->{BinaryRef};
   $$ref =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g;
}# end Script_OnFlush()


Regards,
John Drago


________________________________________
From: Andrew Koebrick [mailto:Andrew.Koebrick@...]
Sent: Tuesday, December 14, 2004 3:31 PM
To: 'asp@...'
Subject: regular expressions on $Response ?

Hoping somebody can offer a suggestion on how best to do my headers and
footers.� I bumped into problems getting Apache::ASP, Apache 2.0 and filters
working.� I was using mod_ext_filter to replace my <body> and </body> tags
(using a simple sed command) with a SSI directive, which in turn pulled in
complex headers and footers.�
�
When I moved to Fedora 3 this scheme started failing.� My options are to move
off of Apache::ASP for my embedded perl (perhaps to Mason), or to try to do the
replaces above in a manner more internal to Apache::ASP.
�
I have not been using the $Response->AddHeader($name, $value)� because I need to
keep the existing headers from the HTML files (they contain lots of metadata.
�
So, is there a way to do regular expressions agains the $Resoponse object?�
Something akin to (escaping ignored):
$Response =~ s/<body>/<!--#include virtual='/inc/header.inc'-><body>/g
�
I am not currently using a global.asa file, but I guess I could start if I need
to.
�
Thanks for any suggestions.
�
Andrew Koebrick
Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us
�
�
�
Andrew Koebrick
Web Coordinator / Librarian

Dept. of Administration
State of Minnesota
658 Cedar St.
St. Paul, MN 55155

651-296-4156
http://server.admin.state.mn.us
�

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...



---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

k_berov wrote:

> Hi Boys. I think it's perl's fault, but if someone of you had such
> problems and tell mi what is wrong, I will be very gratefull.

If you search the archives for a post I made less than a year back, you
will find that I documented some interesting conversion chains in my
application.  You might find it helpful to read through it.

The core of the problem is that Perl does not run in UTF-8 mode by
default.  It either tries to guess that it should use UTF-8 (e.g. the
LANG environment variable) or it is told that it should use UTF-8 by
directive.  So for instance, the Apache::ASP Perl interpreter could be
seeing a different environment than other Perl code on your system
because of the way mod_perl works, and so it will convert incoming UTF-8
to Latin-1.  Then if your httpd is configured to use UTF-8, it may try
to convert Latin-1 back to UTF-8.

The thing to do is to carefully find all of the stages in your system by
tracing data through the system.  Once you find all the transition
points, you will know which code needs to be changed to enforce a pure
UTF-8 data path.

> It is interesting that Perl 5.6.1 does not make such problems

That's because Perl 5.6 made fewer attempts to convert data.  5.8 is
more "clever", which can be a problem as well as a benefit.

> There should be no reason for this disaster to happen to me.

Sure there's a reason.  It's called Murphy's Law.  Cope with it.

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

hello all , i'm just installing apache-asp on a debian woody ( apache
1.3.26 ) . i'v do all config trick describe in the quick install
section .
the result is .. http://195.140.141.25/asp/eg/index.html

my http.conf contains :

PerlModule  Apache::ASP
  <Files ~ (\.asp)>
    SetHandler  perl-script
    PerlHandler Apache::ASP
    PerlSetVar  Global /tmp/
    PerlSetVar  StateDir /tmp/asp
    PerlSetVar  NoState 1

  </Files>

<Directory /var/www/asp/eg >
     Options FollowSymLinks
     AllowOverride All
   </Directory>

thanks for help





---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hello all,

A very strange error just started up.  I have had an app running on a
Fedora Core 2 server for a while now with Apache/2.0.51 and
mod_perl-1.99_12-2.1.  In the past couple of days I have started
getting hundreds of the following errors:

error executing eventpop.html: Apache::RequestIO::print: (103)
Software caused connection abort at
/usr/lib/perl5/site_perl/5.8.3/Apache/ASP/Response.pm line 279,
/usr/lib/perl5/site_perl/5.8.3/Apache/ASP.pm line 1483

It seems to happen whenever a client navigates away from the page
before the app is finished serving it.

The only things that have changed on this app just prior to this error
are that now the clients are connecting over SSL and one of the
back-end databases that the app is connecting to is much far away
(which makes it more likely the client has navigated away before the
page finishes).  But, since I never saw this error at all before, I am
inclined to believe it has something to do with SSL.

I found a commented "if ($self->{IsClientConnected})" block around
line 279 in Apache::ASP::Response and uncommented it thinking that it
would fix the problem.  It has helped, but not completely eliminated
the problem.

Has anyone seen anything like this before?  Any ideas on how to overcome it?

Thanks,
Patrick

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hello all,

I am trying to see if I can make use of subs in global.asa to
consolidate redundant code across Apache::ASP pages, but I seem to be
getting cross-over between sessions.  My subs are of all set up like
this example:

sub history
{
         (my $histtype, my $dsc, my $contactid, my $usrid, my $dbh) = @_;

         my $sql_inserthistory = "insert into history (histtype, dsc,
contactid, crusr) values (?, ?, ?, ?)";

         my $sth = $dbh->prepare($sql_inserthistory) or die "Couldn't
prepare statement: " . $dbh->errstr;
         $sth->execute($histtype, $dsc, $contactid, $usrid) or die
"Couldn't execute statement: " . $sth->errstr;
}


But, I wind up getting a lot of history records from one user written
with the usrid of another user in a different session.  I assume that
whatever I am doing wrong is basic Perl or mod_perl stuff, rather than
specific to Apache::ASP, but I am hoping someone here can help me, or
at least point me in the right direction.  Any help would be greatly
appreciated.

Thanks,
Patrick

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Patrick Conroy wrote:

>         (my $histtype, my $dsc, my $contactid, my $usrid, my $dbh) = @_;

You want

	 my ($histtype, $dsc, $contactid, $usrid, $dbh) = @_;

here.

>         my $sth = $dbh->prepare($sql_inserthistory) or die "Couldn't
> prepare statement: " . $dbh->errstr;

For efficiency reasons, you should prepare that statement just once, and
reuse it.  Possibly make it a global variable and init it in one of the
OnStart event handlers.

> But, I wind up getting a lot of history records from one user written
> with the usrid of another user in a different session.

I don't see anywhere that you're using the $SessionID.

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

smoxounet wrote:
> hello all , i'm just installing apache-asp on a debian woody ( apache
> 1.3.26 ) . i'v do all config trick describe in the quick install
> section .
> the result is .. http://195.140.141.25/asp/eg/index.html
>
> my http.conf contains :
>
> PerlModule  Apache::ASP
>  <Files ~ (\.asp)>
>    SetHandler  perl-script
>    PerlHandler Apache::ASP
>    PerlSetVar  Global /tmp/
>    PerlSetVar  StateDir /tmp/asp
>    PerlSetVar  NoState 1
>
>  </Files>
>
> <Directory /var/www/asp/eg >
>     Options FollowSymLinks
>     AllowOverride All
>   </Directory>
>

You are getting an %EG error.  This is defined in the global.asa
which you did not copy in from the original examples.  Its important
to copy in the entire ./eg directory as is when trying this.

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

> You want
>
>         my ($histtype, $dsc, $contactid, $usrid, $dbh) = @_;
>
> here.

Ok, I'll make this change.  Could the way I had this cause the
variables to be shared across different calls to this sub?

> >         my $sth = $dbh->prepare($sql_inserthistory) or die "Couldn't
> > prepare statement: " . $dbh->errstr;
>
> For efficiency reasons, you should prepare that statement just once, and
> reuse it.  Possibly make it a global variable and init it in one of the
> OnStart event handlers.

I agree, but with the weird cross-over issue that I am having, I tried
to get rid of everything global until I figured this out.

> I don't see anywhere that you're using the $SessionID.

Calls to this sub are made like so:
history(1, "Test History", $Session->{contactid}, $Session->{usrid}, $dbh);

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hi,

Nested includes don't work as you would expect (well, at least they
don't work as *I* expected :).  Given files

/PATH/A
/PATH/DIR/B
/PATH/DIR/C

Say file A includes "DIR/B".  This works fine.

Say file B includes "C".  This works fine when file B is accessed
directly, but fails when it is included in A as above.  Apache::ASP
considers the "current directory" to be /PATH, not /PATH/DIR

This was brought up a few months ago by by Marko Friedeman, and although
Josh said it was supposed to work this way, I would ask that perhaps the
issue could be reconsidered.  I was bitten badly by this while
refactoring a monolithic page into many smaller files using includes.  I
believe the current behaviour is rather counter-intuititve.

As a workaround, I'm using an include wrapper that looks sort of like
this (irrelevant code excluded):

sub include {
   my $file = shift;
   my $shift = 0;
   if ( $file =~ m(^([^/].*)/[^/]+) ) {
     unshift @{$Response->{asp}{includes_dir}}, "./$1";
     $shift = 1;
   }
   my $ref = $Response->TrapInclude($file, @_);
   shift @{$Response->{asp}{includes_dir}} if $shift;
   $$ref;
}

This lets my code work the way I want, though perhaps a more proper
implementation would consider the "current directory" to be that of the
currently executing include rather than muck about with the includes_dir
path.

Any thoughts appriciated, even if its just "go away and use Mason if you
want that behaviour".  :)

--
_ivan
Open-source billing, ticketing and provisioning
for ISPs, VoIP providers and online businesses
http://www.sisd.com/freeside/

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Patrick Conroy wrote:
>>You want
>>
>>        my ($histtype, $dsc, $contactid, $usrid, $dbh) = @_;
>>
>>here.
>
>
> Ok, I'll make this change.  Could the way I had this cause the
> variables to be shared across different calls to this sub?
>

Seems possible, not sure what effect (my $this, my $that) = @_
would have and have never seen it done before.

  > ...
> Calls to this sub are made like so:
> history(1, "Test History", $Session->{contactid}, $Session->{usrid}, $dbh);
>

This should work fine as long as the variables are scoped correctly,
you should not run into the my closure issues you have been experiencing.

Try also using UseStrict mode and see if it picks up any other problems.

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

ivan-asp@... wrote:
> Hi,
>
> Nested includes don't work as you would expect (well, at least they
> don't work as *I* expected :).  Given files
>
> /PATH/A
> /PATH/DIR/B
> /PATH/DIR/C
>

I believe your goal really is to really refactor includes elsewhere,
in which case we already have a mechanism for this.  Includes can
be found in Global or IncludesDir directorys, so if you configure
these setting, they will pick up includes in your search path.  See:

     http://apache-asp.org/config.html#IncludesDir

In your case you might want to set /PATH/DIR to be part of your IncludesDir.

I think really refactoring of these includes should put them into a path
not browsable from the web, so should be ideally outside your main script
area, not under it.

Could this take care of your issue possibly?

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Patrick Conroy wrote:
> Hello all,
>
> A very strange error just started up.  I have had an app running on a
> Fedora Core 2 server for a while now with Apache/2.0.51 and
> mod_perl-1.99_12-2.1.  In the past couple of days I have started
> getting hundreds of the following errors:
>
> error executing eventpop.html: Apache::RequestIO::print: (103)
> Software caused connection abort at
> /usr/lib/perl5/site_perl/5.8.3/Apache/ASP/Response.pm line 279,
> /usr/lib/perl5/site_perl/5.8.3/Apache/ASP.pm line 1483
>
> It seems to happen whenever a client navigates away from the page
> before the app is finished serving it.
>

I am not aware of what would cause this problem, nor what the
fix should be.  You might repost this to the mod_perl list and
see what could be a fix/work around.  Maybe there is a mod_perl
upgrade or related fix for you?

It seems like I could wrap the call to $r->print() in an eval
to prevent this kind of error, but this seems to me like
a fatal error should not be thrown regardless.

Regards,

Josh


---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

On Fri, Dec 31, 2004 at 01:32:04PM -0800, Josh Chamas wrote:
> ivan-asp@... wrote:
> >Hi,
> >
> >Nested includes don't work as you would expect (well, at least they
> >don't work as *I* expected :).  Given files
> >
> >/PATH/A
> >/PATH/DIR/B
> >/PATH/DIR/C
> >
>
> I believe your goal really is to really refactor includes elsewhere,

No, that's not my goal, that's a way of avoiding the problem.  I'm happy
with my directory structure.  I'm aware of the available workarounds and
my post even included one.

The problem is the "action-at-a-distance" when using nested includes,
in which includes behave differently depending on where they're called
from.

> I think really refactoring of these includes should put them into a path
> not browsable from the web, so should be ideally outside your main script
> area, not under it.

This doesn't work for me as I don't have this clear distinction between
"includes" and "top-level pages browseable from the web".

--
_ivan
Open-source billing, ticketing and provisioning
for ISPs, VoIP providers and online businesses
http://www.sisd.com/freeside/

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

I am in the process of shifting from CGI.pm to the $Request->Form
($name) method for reading in form data in a few applications.
CGI.pm was handy because it automatically created an array for all
varialbles where there were multiple values.  What is the best way in
Apache::ASP to get the data into an array, rather than just an array
ref?

Currently I am using:
       my @Subjects = $Form->{Subjects};

But all I have access to is:
       ARRAY(0xa21edd4)

Rather than a real array.

Thanks for any lesson in dereferencing...

Andrew




---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Andrew Koebrick wrote:
> I am in the process of shifting from CGI.pm to the $Request->Form
> ($name) method for reading in form data in a few applications.
> CGI.pm was handy because it automatically created an array for all
> varialbles where there were multiple values.  What is the best way in
> Apache::ASP to get the data into an array, rather than just an array
> ref?
>
> Currently I am using:
>       my @Subjects = $Form->{Subjects};
>
> But all I have access to is:
>       ARRAY(0xa21edd4)
>
> Rather than a real array.
>
> Thanks for any lesson in dereferencing...
>

I believe this will work for you:

   my @Subjects = $Request->Form('Subjects')

but you may want to do this instead:

   my @Subjects = @{$Form->{Subjects}};

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hi all,

I have a problem with Apache crashing after successfully installing
Bundle::Apache::ASP (via "perl -MCPAN -eshell", no errors whatsoever
reported, a subsequent "cpan>test Apache::ASP" returns all OK) on my
Mac OS X 10.3.7; I am successfully running Apache 1.3.33 with mod_perl
1.26 (manually installed); a testmodule for mod_perl by itself runs ok.

I have this for Apache::ASP in my httpd.conf (vanilla config, copied
from www.apache-asp.org):

PerlModule Apache::ASP
<Files ~ (\.asp)>
    SetHandler  perl-script
    PerlHandler Apache::ASP
    PerlSetVar  Global .
    PerlSetVar NoState 1
</Files>

This is what Apache burps out in its error log immediately after startup:

[Thu Jan  6 07:03:46 2005] [notice] Apache/1.3.33 (Darwin) PHP/4.3.10
mod_perl/1.26 configured -- resuming normal operations
[Thu Jan  6 07:03:46 2005] [notice] Accept mutex: flock (Default: flock)
[Thu Jan  6 07:21:45 2005] [notice] caught SIGTERM, shutting down
dyld: /usr/sbin/httpd Undefined symbols:
_inflate
_inflateEnd
_inflateInit2_
_inflateInit_
_inflateReset
_zlibVersion

At this point, httpd has stopped.

When I comment out the above mentioned Apache::ASP section in my
httpd.conf, Apache is running just fine, mod_perl is running just
fine, the sun is shining.

My config:

[cv@montezuma:/var/log/httpd]$httpd -V
Server version: Apache/1.3.33 (Darwin)
Server built:   Nov 29 2004 17:59:31
Server's Module Magic Number: 19990320:16
Server compiled with....
  -D EAPI
  -D HAVE_MMAP
  -D USE_MMAP_SCOREBOARD
  -D USE_MMAP_FILES
  -D HAVE_FCNTL_SERIALIZED_ACCEPT
  -D HAVE_FLOCK_SERIALIZED_ACCEPT
  -D SINGLE_LISTEN_UNSERIALIZED_ACCEPT
  -D DYNAMIC_MODULE_LIMIT=64
  -D HARD_SERVER_LIMIT=2048
  -D HTTPD_ROOT="/usr"
  -D SUEXEC_BIN="/usr/sbin/suexec"
  -D DEFAULT_PIDLOG="/var/run/httpd.pid"
  -D DEFAULT_SCOREBOARD="/var/run/httpd.scoreboard"
  -D DEFAULT_LOCKFILE="/var/run/httpd.lock"
  -D DEFAULT_ERRORLOG="/var/log/httpd/error_log"
  -D TYPES_CONFIG_FILE="/etc/httpd/mime.types"
  -D SERVER_CONFIG_FILE="/etc/httpd/httpd.conf"
  -D ACCESS_CONFIG_FILE="/etc/httpd/access.conf"
  -D RESOURCE_CONFIG_FILE="/etc/httpd/srm.conf"

[cv@montezuma:/var/log/httpd]$perl -V
Summary of my perl5 (revision 5.0 version 8 subversion 1 RC3)
configuration:
   Platform:
     osname=darwin, osvers=7.0, archname=darwin-thread-multi-2level
     uname='darwin hampsten 7.0 darwin kernel version 6.0: fri jul 25
16:58:41 pdt 2003;
root:xnu-344.frankd.rootsxnu-344.frankd~objrelease_ppc power macintosh
powerpc '
     config_args='-ds -e -Dprefix=/usr -Dccflags=-g  -pipe
-Dldflags=-Dman3ext=3pm -Duseithreads -Duseshrplib'
     hint=recommended, useposix=true, d_sigaction=define
     usethreads=define use5005threads=undef useithreads=define
usemultiplicity=define
     useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
     use64bitint=undef use64bitall=undef uselongdouble=undef
     usemymalloc=n, bincompat5005=undef
   Compiler:
     cc='cc', ccflags ='-g -pipe -pipe -fno-common -DPERL_DARWIN
-no-cpp-precomp -fno-strict-aliasing -I/usr/local/include',
     optimize='-Os',
     cppflags='-no-cpp-precomp -g -pipe -pipe -fno-common -DPERL_DARWIN
-no-cpp-precomp -fno-strict-aliasing -I/usr/local/include'
     ccversion='', gccversion='3.3 20030304 (Apple Computer, Inc. build
1495)', gccosandvers=''
     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
     alignbytes=8, prototype=define
   Linker and Libraries:
     ld='MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags ='-L/usr/local/lib'
     libpth=/usr/local/lib /usr/lib
     libs=-ldbm -ldl -lm -lc
     perllibs=-ldl -lm -lc
     libc=/usr/lib/libc.dylib, so=dylib, useshrplib=true,
libperl=libperl.dylib
     gnulibc_version=''
   Dynamic Linking:
     dlsrc=dl_dyld.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
     cccdlflags=' ', lddlflags='-bundle -undefined dynamic_lookup
-L/usr/local/lib'


Characteristics of this binary (from libperl):
   Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES
PERL_IMPLICIT_CONTEXT
   Locally applied patches:
         RC3
   Built under darwin
   Compiled at Sep 12 2003 19:50:49
   @INC:
     /System/Library/Perl/5.8.1/darwin-thread-multi-2level
     /System/Library/Perl/5.8.1
     /Library/Perl/5.8.1/darwin-thread-multi-2level
     /Library/Perl/5.8.1
     /Library/Perl
     /Network/Library/Perl/5.8.1/darwin-thread-multi-2level
     /Network/Library/Perl/5.8.1
     /Network/Library/Perl
     .
[cv@montezuma:/var/log/httpd]$sudo perl -MCPAN -eshell
cpan shell -- CPAN exploration and modules installation (v1.76)
ReadLine support available (try 'install Bundle::CPAN')

cpan> install Bundle::Apache::ASP
CPAN: Storable loaded ok
Going to read /var/root/.cpan/Metadata
   Database was generated on Wed, 05 Jan 2005 13:50:05 GMT
MLDBM is up to date.
Digest::MD5 is up to date.
MLDBM::Sync is up to date.
Apache::ASP is up to date.


Many thanks in advance for your ideas.

    Chris.




---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hi all,

i have a problem concerning Apache::ASP and the @INC Array:

(Apache 2.0.52, MP 1.999.21)

httpd.conf:
..
	 PerlRequire /www/hmdb-lifa/conf/startup.pl
..

startup.pl:

	 #!/usr/bin/perl
	 use Apache2;
	 ..print @INC to file..
	 1;

@INC (at server startup) contains:

	 /usr/lib/perl5/site_perl/5.9.1/i686-linux-thread-multi/Apache2
	 /usr/lib/perl5/5.9.1/i686-linux-thread-multi
	 /usr/lib/perl5/5.9.1
	 /usr/lib/perl5/site_perl/5.9.1/i686-linux-thread-multi
	 /usr/lib/perl5/site_perl/5.9.1
	 /usr/lib/perl5/site_perl
	 .
	 /usr/local/apache2

just what one expected.

After adding the line "use Apache::ASP"  to startup.pl, @INC contains:

	 /usr/lib/perl5/site_perl/5.9.1//i686-linux-thread-multi
	 /usr/lib/perl5/site_perl/5.9.1/
	 /usr/lib/perl5/site_perl/5.9.1/i686-linux-thread-multi/Apache2
	 /usr/lib/perl5/5.9.1/i686-linux-thread-multi
	 /usr/lib/perl5/5.9.1
	 /usr/lib/perl5/site_perl/5.9.1/i686-linux-thread-multi
	 /usr/lib/perl5/site_perl/5.9.1
	 /usr/lib/perl5/site_perl
	 .
	 /usr/local/apache2

Obviously the first two lines were added.

Problems:

- why are there double slashes in the first line?

- why adding paths, which allready exist?

- the main problem however is, when you have "use Apache::ASP" in your
startup.pl
or an "PerlOptions Autoload" in your httpd.conf,
the Apache::ASP handler is loaded at server startup and adjusts the @INC
array
in a manner that not the Apache2 path comes first.

This can cause wrong (non Apache2) modules being loaded at startup (if
there are any -
like at my machine) , so that the server
wouldn't start at all because of version mismatches of  modules.

The problem does not exist, if you have only an "PerlModule Apache::ASP",
because then
the Apache::ASP module is loaded later where the handler is involked (at
least that's what i
read in the modperl docus).

To make things confusing, this problem first happend, when i upgraded to
mod_perl-2.0.0-RC4 (from RC1).

Anyway, could it be a solution to add the additional INC-pathes at server
startup behind the original ones and
not before them?

(The additional document-root path, that is added at handler runtime,
however should stay in front
of the other paths)




Helmut


---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

I have an Oracle server running on Apache and I am looking for a way
to post the username from IIS to apache.  I tried an active server
page (ASP) running under IIS that POSTs a form variable but I haven't
figured out how to make Oracle/Apache read the post.  Anyone have any
ideas?

Thanks,
Randy




---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hi Randy,

>
> I have an Oracle server running on Apache and I am looking for a way
> to post the username from IIS to apache.  I tried an active server
> page (ASP) running under IIS that POSTs a form variable but I haven't
> figured out how to make Oracle/Apache read the post.  Anyone have any
> ideas?

If you are using Apache::ASP to receive the Post-Data (that's what i
suppose)
you can use

my $username = $Request->Form ('INPUT_NAME');

where INPUT_NAME is the name of the Form's input tag.

Helmut

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Hello!

I have a problem with Apache::ASP:  Application_On*  events never occur!
Even if I restart a server and remove all cookies from it.
I'm using Apache 1.3.31 and mod_perl 1.29

Thanks in advance!

--
������ ������

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

Maxim Sloyko wrote:
> Hello!
>
> I have a problem with Apache::ASP:  Application_On*  events never occur!
> Even if I restart a server and remove all cookies from it.
> I'm using Apache 1.3.31 and mod_perl 1.29
>

If you delete the files in StateDir, the Application_OnStart event should occur.

If you want something that happens when the server starts, you should
add something to global.asa or a perl module, and make sure that it
is loaded at server startup.  Please see this in the docs:

    http://www.apache-asp.org/events.html#Server_OnSta0d174f59

Regards,

Josh

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...

I can't get $Request->Params to give me the list of
parameters in a form I can loop through. Can someone
provide an example?

I've tried variations on

          %params = $Request->Params();

          foreach $key (keys %params)
          {
              // etc.
          }

to no avail.

Thanks in advance for any suggestions.

Mark McWiggins
425-369-8286





---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@...
For additional commands, e-mail: asp-help@...