[ANNOUNCE] Apache::ASP v2.15]
Hey,
Apache::ASP v2.15 is released and is in your local CPAN or:
http://www.perl.com/CPAN-local/modules/by-module/Apache/
This release mainly fixes a bug which makes 2.11 not work
under perl 5.6.1/5.7.1
The web site for Apache::ASP is http://www.apache-asp.org
Apache::ASP provides an Active Server Pages port to the
Apache Web Server with Perl scripting only, and enables
developing of dynamic web applications with session
management and embedded perl code. There are also many
powerful extensions, including XML taglibs, XSLT rendering,
and new events not originally part of the ASP API!
CHANGES
-Fix for running under perl 5.6.1 by removing parser optimization
introduced in 2.11.
-Now file upload forms, forms with ENCTYPE=multipart/form-data
can have multiple check boxes and select items marked for
@params = $Request-Form('param_name') functionality. This
will be demonstrated via the ./site/eg/file_upload.asp example.
-- Josh
_
Joshua Chamas Chamas Enterprises Inc.
NodeWorks - Web Link Checking Huntington Beach, CA USA
http://www.nodeworks.com1-714-625-4051
Re: Is this feasible in Perl??
Perl developpers are helpful. Eventhough this list is not dedicated
to stricto sensu Perl programming, I will answer your question, but just
this time. Please refer to the right list (I thing there is a Perl
beginners list), and above all, get the Camel book (Programming Perl
3rd Edition, O'Reilly editors), and take the time to learn this
superb language. It's more than worth it...
So, your statement :
Name ,123-43-4352, JX, 1234
Sports,123-43-4352, SKI, BaseBall, swimming
Hobbies, 123-43-4352, H1,H2, H3
Hobbies, 123-43-4352, HH, HHH, 2
Hobbies,123-43-4352, H1,H43
Name ,223-63-9352, JX, 1234
Sports,223-63-9352, SKI, BaseBall, swimming
Hobbies, 223-63-9352, H1,H2, H3
Hobbies, 223-63-9352, HH, HHH, 2
Here is my issue, I am trying to access each record in this file by SSN
ie: (223-63-9352)
I want to be able to say:
for SSN = 223-63-9352, for Hobbies4 4th entry is HGFR.
# A solution
# 1. Build a convenient data structure (we suppose that attribute names are normalized)
our %data = ();
while ( STDIN ) {
my ($attribute, $ssn, @values ) = split /\s*,\s*/;
push @{ $data{$ssn}{$attribute} }, @values;
}
# 2. Then fetch from it (you could write specialized procs for this, or
# even methods if you consider making a component out of this)
my $hobby_fourth = $data{'223-63-9352'}{'Hobbies'}[3]; # By default, Perl starts array
indexes at 0
You see, it's quite short.
Good luck.
Franck
Franck PORCHER
Essential Software
http://www.esoft.pf/
Tél: (689) 56 23 95
Re: SOAP, WSDL etc.
Also, any recommended books for learning SOAP and related technology? IBM www.ibm.com/developerworks/ had quite some good white papers related to SOAP/Perl and webservices not long ago (about 4 weeks). It's worth checking. Franck Franck PORCHER Essential Software http://www.esoft.pf/ Tél: (689) 56 23 95
Re: SOAP, WSDL etc.
http://www.soaplite.com/ Cheers Ron Savage [EMAIL PROTECTED] http://savage.net.au/index.html
Re: Just a few questions...
On Tue, Jun 12, 2001 at 07:48:57PM -0400, Matt Ellison wrote: There are a couple slightly different versions of this program. The current version has been tuned to cache everything it does in hashes per iteration through the handler sub - database queries, reading of HTML templates, etc. Suddenly (with no changes in the $r-print statements) I'm getting this enormous failure rate. I have seen the percentage of Failed Requests be as high as 75%, but we can't seem to figure out why. Something tells me that this isn't really a problem with our program. While I hammer it with ab, I get perfect pages every time (in every browser you can think of.) I read some discussion on archives of this list about using length() on a pre-built string to determine what should go into the Content-Length header, but this seems silly - especially if you need the page to interact with the browser dynamically (as in calling JavaScript functions on the fly as the output is being generated.) http://www.mail-archive.com/modperl@apache.org/msg18544.html Might be the answer to why your ab 'fails' some times. Can anyone shed some light on exactly what is happening with ab here? I have verified that there is no Content-Length header in the output via telnet to the Apache server, but how safe is it to omit this header? Why is the results with ab inconsistent? The Content-Length header is necessary if you want keep-alive connections to work. -- Thomas Eibner http://thomas.eibner.dk/ - DnsZone http://dnszone.org/ mod_pointer http://stderr.net/mod_pointer
Win32: Cannot load mod_perl.so into server
Maybe a hint for other users with the same problem (I spent nearly two hours): I installed ftp://theoryx5.uwinnipeg.ca/pub/other/perl-win32-bin-0.7.exe on NT 4.0 SP 6a. I used perl-win32-bin-0.6 from the same location before. I used the default.conf with the following additional line: LoadModule perl_module modules/mod_perl.so If I started apache from the command line, all was working properly. Also my existing CGI and Perl Registry scripts. But if I tried to start it as NT Service I got the following error in the event-log: ---snip--- 1. event entry: The Apache service named Apache.exe reported the following error: Syntax error on line 204 of c:/apache/conf/httpd.conf: before the error.log file could be opened. More information may be available in the error.log file. . 2. event entry: The Apache service named Apache.exe reported the following error: Cannot load c:/apache/modules/mod_perl.so into server: (127) The specified procedure could not be found: before the error.log file could be opened. More information may be available in the error.log file. . ---snip--- mod_perl.so was REALLY at this location. I tried also ServerRoot c:/apache in httpd.conf without success. I tried to run the NT Service with system account and with my domain account which was able to start apache from the command line. But all whiteout success. Solution: -- Reboot the system and all is working properly. Looks like the service didn't get the new path. Josi
Mod Perl help needed.
I'm having trouble fiddling around with user authentication on a proxy
server.
This is the basic setup.
User requests a page = Apache proxy = MediaSurface
= NT site
Content is split between both MS NT boxes and some content is public and
some is members (basic auth).
What we've found, by using a packet sniffer, that some browsers tend to send
auth headers when they are not required ie to a public page when they've
previously visited a members page. Mediasurface (a content management
system) doesn't like this. When it receives auth headers for a page which is
public, it returns 401. Our subscribers tend to get annoyed with continuous
password prompts.
What I would like to do is use a PerlHandler on the proxy box to either
strip the auth headers or write them to have 'Authorization: ' which works
with Mediasurface. I'm having trouble writing a handler which changes the
headers *and* still keeps to the ProxyPass settings. Can someone shed some
light and explain a few things to me?
I've tried ProxyPassing /public to http://user:pass@mediasurfacebox/public
where user:pass is a valid username to access both public and private.
Basically what I have so far inside a PerlAccessHandler is:
$r = shift;
my $request = $r-uri();
if ($request =~ /\/public/) {
$r-header_in('Authorization'=' '); --- is this the
correct way to rewrite headers?
}
return OK;--- does this return to the client? or still pass
through?
Any help appreciated.
Doug
Charset woes
Hi, I'm running into trouble with browsers submitting data using various charsets and not telling me which charset they're using. This results in all sorts of breakages and unusable text. I can't be the only one dealing with this problem (if I am, then I'm really out of luck) so I was wondering if anyone here knows of a good way to reliably detect the charset that the browser is using to post its data. Thanks, -- ___ Robin Berjon [EMAIL PROTECTED] -- CTO k n o w s c a p e : // venture knowledge agency www.knowscape.com --- Always remember you're unique just like everyone else.
Re: SOAP, WSDL etc.
=?iso-8859-1?Q?Jes=FAs_Lasso_S=E1nchez?= [EMAIL PROTECTED] wrote: Hi James, I'm working on a similar project with a farm of web servers that must to access data in a LDAP server. May you explain something more about the application you use in your work, please?. We're thinking to develope a little daemon with opened persistent connections to the LDAP server and use this daemon as a gateway between the web servers and the LDAP. but may be your solution will be more reliable and standard than our. (CCing the list since this is a follow-on to the discussion there.) Well, we're still in the middle of development, and it's in PHP, but the protocol and idea are the same -- we could do it in Perl with the SOAP::Lite module (and I am getting tempted to go that direction if I can't get PHP and Apache to compile together under Irix). Basically, we're wanting to have the web farm on a private network so we can trust the hosts that make the XML-RPC requests -- they send an LDIF to the XML-RPC server along with a list of LDAP objects on which the server should lock (so we can serialize modifications across branches). The central server then uses ldapmodify to push the LDIF into LDAP (a suppos\'ed atomic operation) and at the same time maintains an audit trail. There's really not a whole lot to it. When I get the code finished though, I am wanting to release it. Hopefully by the end of August at the latest since we are going production at the beginning of August. -- James Smith [EMAIL PROTECTED], 979-862-3725 Texas AM CIS Operating Systems Group, Unix
can not redirect on POST w/ CGI.pm
I've found that if I post to this PerlAccessHandler, I get no response:
#
package Apache::Redirect;
use strict;
use Apache::Constants qw(REDIRECT);
use CGI ();
sub handler {
my($r) = @_;
my $q = new CGI();
$r-header_out(Location = http://www.modperl.com/;);
return REDIRECT;
}
1;
#
If I comment out my $q = new CGI(); then it works fine. Any ideas on what
is causing this?
Apache/1.3.14
mod_perl/1.24
CGI.pm/2.56
--David
Re: can not redirect on POST w/ CGI.pm
On Wed, Jun 13, 2001 at 11:58:24AM -0400, David Young wrote:
I've found that if I post to this PerlAccessHandler, I get no response:
#
package Apache::Redirect;
use strict;
use Apache::Constants qw(REDIRECT);
use CGI ();
sub handler {
my($r) = @_;
my $q = new CGI();
$r-header_out(Location = http://www.modperl.com/;);
return REDIRECT;
}
1;
#
If I comment out my $q = new CGI(); then it works fine. Any ideas on what
is causing this?
Actually, it's apache not letting it redirect on a POST form. I don't know
why commenting out CGI makes any difference, but the HTTP RFC does say that
the behaviour is undefined, for 301/2 on anything other than GET, if you
think about it, this makes sense:
POST url
:
302 Location Moved
Location: newurl
:
now, what method do I use for newurl, GET/POST? if POST, what is in the
content section ?
The spec says that you shouldn't do it. The fact that browsers tend to
respond to anything with a location header (even 200 OK) as being a redirect
seems broken, and they'll always use GET. This is why you've probably
noticed it working, in reality it's bogus.
Apache enforces it for you.
My advice is to find some other way of doing it.
A Refresh: 0; URL=newurl header might do the trick, although you'll need
to make sure you have it in headers_err, because otherwise it won't get
sent as a header.
MBM
Apache::DB fatal error U1077 on Win32
Hello
When I tried to install Apache::DB on NT 4.0, Perl 5.6.1, Apache 1.3.20
mod_perl/1.25_01-dev
the following error occured:
C:\Perl\lib\CORE\perl56.lib : fatal error LNK1106: invalid file or disk
full: ca
nnot seek to 0x3afe435e
NMAKE : fatal error U1077: 'link' : return code '0xc'
Stop.
(full listing at the end)
I already applied the WIN32 patch (#ifndef WIN32 if (ApacheSIGINT)
*ApacheSIGINT)(SIGINT); #endif)
Any ideas how to fix this?
thanks in advance,
Josi
full error listing:
snip
C:\.cpan\build\Apache-DB-0.06nmake
Microsoft (R) Program Maintenance Utility Version 1.62.7022
Copyright (C) Microsoft Corp 1988-1997. All rights reserved.
C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib
C:\Perl\lib\ExtUtils/xs
ubpp -typemap C:\Perl\lib\ExtUtils\typemap DB.xs DB.xsc
C:\Perl\bin\perl.e
xe -IC:\Perl\lib -IC:\Perl\lib -MExtUtils::Command -e mv DB.xsc DB.c
cl -c -nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DE
S_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX
-O1 -
MD -DNDEBUG-DVERSION=\0.06\ -DXS_VERSION=\0.06\ -IC:\Perl\lib\CORE
DB
.c
DB.c
Running Mkbootstrap for Apache::DB ()
C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib -MExtUtils::Command
-e
chmod 644 DB.bs
C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib
-MExtUtils::Mksymli
sts -e Mksymlists('NAME' = 'Apache::DB', 'DLBASE' = 'DB', 'DL_FUNCS' =
{ }
, 'FUNCLIST' = [], 'IMPORTS' = { }, 'DL_VARS' = []);
link -out:blib\arch\auto\Apache\DB\DB.dll -dll -nologo -nodefaultlib
-re
lease -libpath:C:\Perl\lib\CORE -machine:x86 DB.obj
C:\Perl\lib\CORE\perl5
6.lib oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib
advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib
wsock32.l
ib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib
-def:DB.def
C:\Perl\lib\CORE\perl56.lib : fatal error LNK1106: invalid file or disk
full: ca
nnot seek to 0x3afe435e
NMAKE : fatal error U1077: 'link' : return code '0xc'
Stop.
snip
[ANNOUNCE] Hello World Benchmark Suite, latest release
Hey, I have released the latest Hello World benchmark suite, which you can find at http://www.chamas.com/bench/hello.tar.gz ... Enjoy! --Josh CHANGES 1) Apache::Registry Hello World 2000 benchmark added, fastest of group, showing perl's raw template rendering power! 2) New XSLT AxKit and Apache::ASP benchmarks with XML::Sablotron DISCLAIMER: Like any benchmarks, these test no more than they test for. Fortunately you have can run them for yourself on YOUR hardware, and recommend any improvements as you see fit to the benchmark suite, or even add some tests for environments not covered already! SPEED NOTES: 1) These were run on a dual proc CPU PIII 450 which seems to have a lower relative bench for the HTML static test than on sincle proc CPU 2) HTML::Embperl v2.x is much faster than 1.3.0 on the h2000 bench, last I remember faster than Apache::ASP, about the same as PHP I decided to run 1.3.0, since its what I get from a CPAN install. 3) HTML::Mason was about as fast as Apache::ASP on the h2000 benchmark, but since 1.x was released, is much slower. BENCHMARK RESULTS hello]# ./bench.pl -time=60 -version Test Name Test File Hits/sec Total Hits Total Time sec/Hits Bytes/Hit -- -- -- -- -- -- Apache::ASP v2.15 2000 h2000.asp 224.5 13479 hits 60.04 sec 0.004454 28997 byte Apache::Registry v2.01 2000 mod_per h2000.reg 335.0 20102 hits 60.01 sec 0.002985 28178 byte HTML::Embperl v1.3.0 2000 h2000.epl 107.7 6463 hits 60.02 sec 0.009287 28840 byte HTML::Mason v1.03 2000 h2000.mas82.5 4954 hits 60.02 sec 0.012114 28798 byte mod_caucho JSP 2000 h2000.jsp 315.3 18928 hits 60.03 sec 0.003171 28964 byte mod_php PHP 2000h2000.php 257.3 15448 hits 60.04 sec 0.003886 28865 byte Template v2.00 Toolkit 2000 h2000.tt 53.7 3223 hits 60.02 sec 0.018621 2 byte Apache::ASP v2.15 hello.asp 371.9 22324 hits 60.02 sec 0.002689 241 bytes Apache::Dispatch v0.08 handler hello/worl 635.0 38107 hits 60.01 sec 0.001575 196 bytes Apache::ePerl hello.eper 337.3 20239 hits 60.01 sec 0.002965 217 bytes Apache::Registry v2.01 CGI Raw hello_raw. 686.1 41172 hits 60.01 sec 0.001458 52 bytes Apache::Registry v2.01 CGI.pm hello.cgi 449.6 26985 hits 60.02 sec 0.002224 216 bytes Apache::SSI v2.16 hello.shtm 546.6 32802 hits 60.01 sec 0.001829 199 bytes HTML static hello.html 1148.1 5 hits 43.55 sec 0.000871 311 bytes HTML::Embperl v1.3.0hello.epl 466.4 27996 hits 60.02 sec 0.002144 220 bytes HTML::Mason v1.03 hello.mas 361.5 21702 hits 60.02 sec 0.002766 197 bytes HTML::Template v2.0 hello.htmp 551.3 33089 hits 60.02 sec 0.001814 198 bytes mod_caucho JSP hello.jsp 835.6 5 hits 59.84 sec 0.001197 230 bytes mod_include SSI hello.shtm 979.5 5 hits 51.05 sec 0.001021 198 bytes mod_perl handlerhello.benc 831.2 49887 hits 60.02 sec 0.001203 196 bytes mod_php PHP hello.php 716.2 42975 hits 60.01 sec 0.001396 225 bytes mod_speedycgi hello.cgi 294.4 17673 hits 60.03 sec 0.003397 216 bytes Template v2.00 Toolkit hello.tt509.7 30594 hits 60.02 sec 0.001962 198 bytes Apache::ASP v2.15 XSLT Hellohxslt.xml 218.5 13113 hits 60.00 sec 0.004576 279 bytes AxKit v1.4 XSLT Hello hxslt.xml 200.7 12046 hits 60.01 sec 0.004981 398 bytes Apache Server Header Tokens --- (Unix) Apache/1.3.14 AxKit/1.4 OpenSSL/0.9.6 PHP/4.0.3pl1 Resin/1.2.1 mod_perl/1.24 mod_ssl/2.7.1 PERL Version: 5.00503 JAVA Version: java version 1.3.0 Java(TM) 2 Runtime Environment, Standard Edition (build 1.3.0) Classic VM (build 1.3.0, J2RE 1.3.0 IBM build cx130-20001124 (JIT enabled: jitc)) Operating System: Linux 2.2.14-9.0 (root@gate) (gcc egcs-2.91.66) #1 2CPU [gate.]
Re: Charset woes
On Wed Jun 13 16:17:14 2001 +0200 Robin Berjon wrote: Hi, I'm running into trouble with browsers submitting data using various charsets and not telling me which charset they're using. This results in all sorts of breakages and unusable text. I can't be the only one dealing with this problem (if I am, then I'm really out of luck) so I was wondering if anyone here knows of a good way to reliably detect the charset that the browser is using to post its data. Make sure your page or http header has charset declared and add hidden input field with known string that you can examin when submitted back. -- ☻ Ričardas Čepas ☺ ~~ ~
[JOB] (mod_)Perl/Oracle Application Engineer positions in Portland, OR
++ Software Engineer Position(s) ++ ++ The eMarket Group (eMerchandise.com) ++ The eMarket Group (TeG) is a successful entertainment merchandise retailer. We focus on online and mail-order sales through our branded storefront http://www.eMerchandise.com and private-label storefronts for third party entertainment and media destinations. TeG is a private, independently financed company located in Portland, Oregon. We have recently achieved profitability and are growing rapidly. We have been named as one of the 100 fastest growing companies in Oregon by the Portland Business Journal. We currently have two software engineering positions available: ## POSITION 1: Application and Interface Engineer An application engineer working on general maintenance and development of our back-end systems with a focus on the human interface components of our internal business systems implemented in Perl PL/SQL. Maintain and enhance Oracle Forms based interfaces to back-end system components (product catalog management, warehouse management system, customer service and order processing, promotion management, procurement management). Evaluate and deploy alternative development framework to replace Oracle Forms, with desirable attributes being: platform independence, reliability, flexibility, maintainability. Evaluate and deploy customer contact management system (email, phone, chat, and mail contacts managed through consolidated system integrated with back-end orders and customers database). This may be an integration of a third party CRM system with our existing system or a development project to build contact management facilities into our core system. Buzzword/acronym compliance: - un*x (Solaris, Linux, *BSD) - General relational database, SQL, Oracle - Oracle PL/SQL - Oracle Developer Forms and Reports - General GUI Development - Perl, Apache/mod_perl ## POSITION 2: Application and Integration Engineer An application engineer working on general maintenance and development of our back-end systems with a focus on systems integration with our front-end web services and with external systems such as: freight manifesting, payment processing, supplier EDI and drop-shipping systems. Maintain and enhance existing systems in Perl and Oracle PL/SQL. Evaluate and deploy new integrated freight carrier compliance systems. Evaluate and deploy new payment processing system integration. Develop enhanced supply chain management capabilities. Buzzword/acronym compliance: - un*x (Solaris, Linux, *BSD) - General relational database, SQL, Oracle - Oracle PL/SQL - Perl - Apache, mod_perl - XML - EDI - Network protocols ## We are looking for smart and experienced people who have solid computer science and software engineering skills. Experience with the specific languages and environments listed above is desirable, but not essential. Degree desirable, but not nearly as important as experience. Good benefits, fun and flexible environment, equity participation. TeG is an equal-opportunity employer. Send resume or letter to: - email (preferred): [EMAIL PROTECTED] - phone: Alice Turtles 503-944-5044 -- Devin Ben-Hur | President / CTO | mailto:[EMAIL PROTECTED] The eMarket Group | eMerchandise.com | http://www.eMerchandise.com 503/944-5044 x228 | Some who do not wander are lost.
Re: Charset woes
On Wednesday 13 June 2001 20:15, Ričardas Čepas wrote: On Wed Jun 13 16:17:14 2001 +0200 Robin Berjon wrote: Hi, I'm running into trouble with browsers submitting data using various charsets and not telling me which charset they're using. This results in all sorts of breakages and unusable text. I can't be the only one dealing with this problem (if I am, then I'm really out of luck) so I was wondering if anyone here knows of a good way to reliably detect the charset that the browser is using to post its data. Make sure your page or http header has charset declared and add hidden input field with known string that you can examin when submitted back. Hmm, that's an interesting approach. Have you used it before ? Do you know of a string that could potentially detect any encoding ? I'm really facing pretty much anything depending on the browser's whim. -- ___ Robin Berjon [EMAIL PROTECTED] -- CTO k n o w s c a p e : // venture knowledge agency www.knowscape.com --- Lavish spending can be disastrous. Don't buy lavishes for a while.
Announcing the first release of the RPC::XML package
(Note: I am developing and maintaining this module using my personal resources and address of [EMAIL PROTECTED] I am only posting this message using my redhat.com account due to the fact that this is the address from which I am subscribed to this list.) My apologies in advance to anyone who receives this message more than once. Please check the headers if you reply to this message. I have uploaded the first full release of my XML-RPC package for Perl: The uploaded file RPC-XML-0.25.tar.gz has entered CPAN as file: $CPAN/authors/id/R/RJ/RJRAY/RPC-XML-0.25.tar.gz size: 51468 bytes md5: 5e7339487026b48b922aa35920e52e04 No action is required on your part Request entered by: RJRAY (Randy J Ray) Request entered on: Wed, 13 Jun 2001 06:30:35 GMT Request completed: Wed, 13 Jun 2001 06:30:47 GMT Virtually Yours, Id: paused,v 1.74 2001/05/20 14:59:52 k Exp k This package contains an implementation of the XML-RPC standard as defined at the XML-RPC homepage (http://www.xmlrpc.com/spec). The module includes a client class, a basic server class (that uses your choice of HTTP::Daemon or Net::Server as a transport layer) and a subclass of the basic server that hooks in as a mod_perl content handler. The mod_perl handler is not just a simple wrapper around the base object, but a fully-integrated location-handler that manages configuration information and allows for different locations to have their own server objects, or to share existing ones. This package is being initially released at version 0.25 (there were intermediate versions that were announced only to smaller groups for evaluation). The development plan is to work out interface and functionality issues up until a version 0.50, which will represent the first beta release and a freeze on features and functionality. All modules have documentation with them. The documentation may be rough or even outright thin in places, but it should be a reasonable starting point. Any additional questions may be sent to me directly ([EMAIL PROTECTED]). Thank you. Randy -- --- Randy J. Ray | Buy a copy of a baby naming book and you'll never be at a [EMAIL PROTECTED] | loss for variable names. Fred is a wonderful name, and easy +1 408 543-9482 | to type. --Roedy Green, How To Write Unmaintainable Code
[ANNOUNCE] First release of Apache::DnsZone
Hi all, I'm pleased to announce that today I've released the first version of DnsZone. It's downloadable from the website and should be ready on CPAN really soon as Apache::DnsZone. Short roundup: DnsZone allows users to change their own zones without actually having access to the nameserver on which their zone is located. It is a multiuser application where each user will have his/her own login and password. From the interface you can add, update and delete individual records for the domain you are managing. Records are instantly updated in the nameserver and changes will be visible instantly. Currently DnsZone supports MySQL|Oracle|Postgresql as the backend database. Oracle and Postgresql support is still experimental and is likely a bit broken. Types of dns records currently supported: SOA, A, CNAME, MX, NS, TXT. The user interface supports multiple languages and currently comes with English, Danish, German, Swedish, Italian and French language files. The user interface can be tailored to fit your needs by the use of templates (using CGI::FastTemplate). Enjoy! The URL http://dnszone.org/dist/Apache-DnsZone-0.1.tar.gz has entered CPAN as file: $CPAN/authors/id/T/TH/THOMAS/Apache-DnsZone-0.1.tar.gz size: 39963 bytes md5: b3ed58a8c0e72822da665e67f42b37f5 -- Thomas Eibner http://thomas.eibner.dk/ DnsZone http://dnszone.org/ mod_pointer http://stderr.net/mod_pointer
Re: [ANNOUNCE] Hello World Benchmark Suite, latest release
I have an update already ... Matt kindly told me to lose the AxDebug 10 setting, now AxKit easily beats Apache::ASP on the XSLT benchmark. Also, I have some new Tomcat/mod_jserv benchmarks for Hello World and Hello World 2000. As before, you can download the benchmarks at http://www.chamas.com/bench/hello.tar.gz --Josh hello]# ./bench.pl -time 30 -version Test Name Test File Hits/sec Total Hits Total Time sec/Hits Bytes/Hit -- -- -- -- -- -- Apache::ASP v2.15 2000 h2000.asp 223.5 6713 hits 30.03 sec 0.004474 28997 byte Apache::Registry v2.01 2000 mod_per h2000.reg 339.1 10176 hits 30.00 sec 0.002949 28178 byte HTML::Embperl v1.3.0 2000 h2000.epl 106.4 3195 hits 30.04 sec 0.009402 28840 byte HTML::Mason v1.03 2000 h2000.mas83.2 2498 hits 30.02 sec 0.012017 28798 byte mod_caucho JSP 2000 h2000.jsp 323.2 9701 hits 30.01 sec 0.003094 28964 byte mod_jserv JSP 2000 h2000.jsp 174.1 5225 hits 30.01 sec 0.005744 29407 byte mod_php PHP 2000h2000.php 232.4 6975 hits 30.01 sec 0.004303 28865 byte Template v2.00 Toolkit 2000 h2000.tt 52.5 1576 hits 30.02 sec 0.019048 2 byte Apache::ASP v2.15 hello.asp 377.1 11326 hits 30.04 sec 0.002652 241 bytes Apache::Dispatch v0.08 handler hello/worl 632.3 18971 hits 30.00 sec 0.001581 196 bytes Apache::ePerl hello.eper 344.1 10332 hits 30.03 sec 0.002906 217 bytes Apache::Registry v2.01 CGI Raw hello_raw. 697.4 20933 hits 30.02 sec 0.001434 52 bytes Apache::Registry v2.01 CGI.pm hello.cgi 445.7 13380 hits 30.02 sec 0.002243 216 bytes Apache::SSI v2.16 hello.shtm 555.2 16670 hits 30.02 sec 0.001801 199 bytes HTML static hello.html 1135.9 34086 hits 30.01 sec 0.000880 311 bytes HTML::Embperl v1.3.0hello.epl 469.8 14103 hits 30.02 sec 0.002129 220 bytes HTML::Mason v1.03 hello.mas 357.5 10738 hits 30.03 sec 0.002797 197 bytes HTML::Template v2.0 hello.htmp 554.1 16631 hits 30.01 sec 0.001805 198 bytes mod_caucho JSP hello.jsp 853.1 25605 hits 30.01 sec 0.001172 230 bytes mod_include SSI hello.shtm 972.8 29195 hits 30.01 sec 0.001028 198 bytes mod_jserv JSP hello.jsp 324.1 9752 hits 30.09 sec 0.003086 357 bytes mod_perl handlerhello.benc 687.5 20634 hits 30.01 sec 0.001454 196 bytes mod_php PHP hello.php 610.6 18327 hits 30.01 sec 0.001638 225 bytes mod_speedycgi hello.cgi 247.9 7447 hits 30.04 sec 0.004034 216 bytes Template v2.00 Toolkit hello.tt509.9 15303 hits 30.01 sec 0.001961 198 bytes Apache::ASP v2.15 XSLT Hellohxslt.xml 221.5 6644 hits 30.00 sec 0.004516 279 bytes AxKit v1.4 XSLT Hello hxslt.xml 285.4 8572 hits 30.03 sec 0.003503 398 bytes Apache Server Header Tokens --- (Unix) Apache/1.3.14 AxKit/1.4 OpenSSL/0.9.6 PHP/4.0.3pl1 Resin/1.2.1 mod_perl/1.24 mod_ssl/2.7.1 tomcat/1.0 PERL Version: 5.00503 JAVA Version: java version 1.3.0 Java(TM) 2 Runtime Environment, Standard Edition (build 1.3.0) Classic VM (build 1.3.0, J2RE 1.3.0 IBM build cx130-20001124 (JIT enabled: jitc)) Operating System: Linux 2.2.14-9.0 (root@gate) (gcc egcs-2.91.66) #1 2CPU [gate.]
Re: can not redirect on POST w/ CGI.pm
From: David Young [EMAIL PROTECTED] DY I've found that if I post to this PerlAccessHandler, I get no response: DY $r-header_out(Location = http://www.modperl.com/;); DY return REDIRECT; - Are you actually wanting your orriginally POSTed data to make it to the redirected location? - Do you actually need CGI.pm? --- Rodney Broom Programmer: Desert.Net
Re: can not redirect on POST w/ CGI.pm
At 17:46 13.06.2001 +0100, you wrote: Actually, it's apache not letting it redirect on a POST form. I don't know why commenting out CGI makes any difference, but the HTTP RFC does say that the behaviour is undefined, for 301/2 on anything other than GET, if you think about it, this makes sense: POST url : 302 Location Moved Location: newurl : now, what method do I use for newurl, GET/POST? if POST, what is in the content section ? The spec says that you shouldn't do it. The fact that browsers tend to respond to anything with a location header (even 200 OK) as being a redirect seems broken, and they'll always use GET. This is why you've probably noticed it working, in reality it's bogus. Apache enforces it for you. I doubt this. This is rather a problem with CGI.pm reading STDIN or something. My advice is to find some other way of doing it. A Refresh: 0; URL=newurl header might do the trick, although you'll need to make sure you have it in headers_err, because otherwise it won't get sent as a header. There is 303 See Other now to do this. The problem is that older browsers (pre HTTP/1.1) don't understand it. So I am still using CGI::redirect which AFAIK means 302 to achieve it. Joachim -- ... ein Geschlecht erfinderischer Zwerge, die fuer alles gemietet werden koennen.- Bertolt Brecht - Leben des Galilei
Re: can not redirect on POST w/ CGI.pm
From: Rodney Broom [EMAIL PROTECTED] From: David Young [EMAIL PROTECTED] DY I've found that if I post to this PerlAccessHandler, I get no response: DY $r-header_out(Location = http://www.modperl.com/;); DY return REDIRECT; - Are you actually wanting your orriginally POSTed data to make it to the redirected location? - Do you actually need CGI.pm? Yes and yes. What I am actually doing is extending the cookie-based access control (TicketMaster) outlined in the Apache Modules book[1]. If the user attempts to access a restricted area and they don't have a cookie, they are redirected to a login page (courtesy of an ErrorDocument 403). Upon submission (POST) of the login page, if their credentials are good, they are redirected to their original destination. The original example in the book uses a refresh header, but that briefly shows a please stand by page that I was hoping to avoid. It was working fine, and then I made some changes that placed my new CGI instantiation above the redirect, and it stopped working. I finally narrowed the problem down to the program I posted. I still think something is wrong here with CGI.pm and mod_perl's interaction, but I guess I will go back to using the refresh header. --David -- 1. http://www.modperl.com/book/chapters/ch6.html#Cookie_Based_Access_Control
Re: templating benchmarks...
wow. template toolkil took a big hit, there. (no mod_perl on this list? hmm!) This benchmark can be very non-representive. If you don't know how to optimize each and every thing under test, you end up with unfair benchmark and come to potentially wrong conclusions. Take TT, add compiled template caching on the disk and shared TT object and I bet TT won't be at the bottom. I actually helped Joshua tune the TT example a little, and it using a cached Template object and caching the templates used in the test in memory. The slowness comes from the fact that it provides a major feature that the others don't, and it is being exercised in this test. The magic dot notation which allows templates to say foo.bar.baz, regardless of what kind of data structure, object, or code ref foo, bar, and baz may be takes a little more work. Whether it's a good idea or not is left as an exercise to the reader, but I will say this: if Template Toolkit is the bottleneck in your app's performance, you have either done some serious tuning or written a really simple application (like this benchmark). Nevertheless, it's good to see some numbers, if only to convince Andy to finish his optimized XS version of the TT stash. - Perrin
Re: templating benchmarks...
Tom Lancaster [EMAIL PROTECTED] wrote: Absolutely. But I'd like to bring up something I've noticed in benchmarking 'real' sites: many, if not all, of the templating solutions appear to parse the whole of an html page. This is at least true of Apache::ASP and HTML::Mason, which I have used. Is it not ? Not really. They all cache the page in memory. It is not re-parsed every time. I have produced really dramatic differences in performance in a two-tier setup by judicious use of mod_include vs. wholesale proxying of pages with dynamic content through to the mod_perl/Apache::ASP server. [snip] Granted, I have other major bottlenecks involved: using Berkeley DB v1.x for session state, for one. Perhaps this explains some of it -- maybe the proxied header/footer requests never make session calls. I suspect that it's a combination of the database access and the network transfer. There is no difference in the amount of parsing going on, since it's all cached after the first time (per child). - Perrin
Re: Win32: Cannot load mod_perl.so into server
Josef I get exactly the same error, altho on d:. Rebooting does not fix it. Details here: http://savage.net.au/Perl/Html/configure-apache.html Cheers Ron Savage [EMAIL PROTECTED] http://savage.net.au/index.html - Original Message - From: Ender Josef [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, June 13, 2001 9:08 PM Subject: Win32: Cannot load mod_perl.so into server Maybe a hint for other users with the same problem (I spent nearly two hours): I installed ftp://theoryx5.uwinnipeg.ca/pub/other/perl-win32-bin-0.7.exe on NT 4.0 SP 6a. I used perl-win32-bin-0.6 from the same location before. I used the default.conf with the following additional line: LoadModule perl_module modules/mod_perl.so If I started apache from the command line, all was working properly. Also my existing CGI and Perl Registry scripts. But if I tried to start it as NT Service I got the following error in the event-log: ---snip--- 1. event entry: The Apache service named Apache.exe reported the following error: Syntax error on line 204 of c:/apache/conf/httpd.conf: before the error.log file could be opened. More information may be available in the error.log file. . 2. event entry: The Apache service named Apache.exe reported the following error: Cannot load c:/apache/modules/mod_perl.so into server: (127) The specified procedure could not be found: before the error.log file could be opened. More information may be available in the error.log file. . ---snip--- mod_perl.so was REALLY at this location. I tried also ServerRoot c:/apache in httpd.conf without success. I tried to run the NT Service with system account and with my domain account which was able to start apache from the command line. But all whiteout success. Solution: -- Reboot the system and all is working properly. Looks like the service didn't get the new path. Josi
Re: Apache::DB fatal error U1077 on Win32
On Wed, 13 Jun 2001, Ender Josef wrote: Hello When I tried to install Apache::DB on NT 4.0, Perl 5.6.1, Apache 1.3.20 mod_perl/1.25_01-dev the following error occured: C:\Perl\lib\CORE\perl56.lib : fatal error LNK1106: invalid file or disk full: cannot seek to 0x3afe435e NMAKE : fatal error U1077: 'link' : return code '0xc' Stop. (full listing at the end) I already applied the WIN32 patch (#ifndef WIN32 if (ApacheSIGINT) *ApacheSIGINT)(SIGINT); #endif) Any ideas how to fix this? [ ... ] Hi, Assuming your disk isn't really full, this error can result by from using a compiler that generates code incompatible with the library it's trying to link against. Would you happen to have VC++ 5, and are using ActivePerl build 6xx? There is an incompatibility there, as ActiveState uses VC++ 6. If so, you could - upgrade to VC++ 6 - compile Perl with VC++ 5 - install Apache-DB thru the ppm utility: within your ppm utility shell, set the repository to http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer and then install Apache-DB. best regards, randy kobes
Re: Apache::DB fatal error U1077 on Win32
From: Randy Kobes [EMAIL PROTECTED] Sent: Wednesday, June 13, 2001 10:47 PM On Wed, 13 Jun 2001, Ender Josef wrote: C:\Perl\lib\CORE\perl56.lib : fatal error LNK1106: invalid file or disk full: cannot seek to 0x3afe435e NMAKE : fatal error U1077: 'link' : return code '0xc' Stop. (full listing at the end) Any ideas how to fix this? Assuming your disk isn't really full, this error can result by from using a compiler that generates code incompatible with the library it's trying to link against. Would you happen to have VC++ 5, and are using ActivePerl build 6xx? There is an incompatibility there, as ActiveState uses VC++ 6. That's his bug already (boy does that look familiar :-/) If so, you could - upgrade to VC++ 6 - compile Perl with VC++ 5 - install Apache-DB thru the ppm utility: within your ppm utility shell, set the repository to http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer and then install Apache-DB. One more method (free and easy) ... grab the SDK tools. Since the SDK includes a set of some of the tools (including link.exe), it addresses the problem. I actually hit this trying to link to MS's system dll .lib files, and the bundled link addressed the issue.
Re: [Patch] Apache-dso_module()
On Fri, 25 May 2001, Philippe M . Chiasson wrote:
I know I posted this patch a while ago, but I am looking thru a few patches
I have and I thought I might re-post this one along with the rest
This module allows one to do
Apache-dso_module('module_name.c') and it will be true only of the
module in question is present and has been loaded as DSO.
Used to be usefull to me when attempting to work around Perl directives
and mod_perl as DSO/not-DSO (now fixed).
But I figured it could be usefull to others.
any examples you can think of? in any case, it would be better to have
Apache-module('mod_foo.so') provide this functionality rather than add a
new method.
Re: [Patch] apxs location forgotten in MyConfig.pm
On Fri, 25 May 2001, Philippe M . Chiasson wrote: When building mod_perl with apxs as a DSO, MyConfig.pm looses track of the location of apxs. Therefore, when using 3rd parties perl modules that require some access to Apache information, like Apache::src-new-inc, it will most likely fail, unless apxs happens to be in a 'standard' location or in your PATH. applied, thanks.
Re: [Patch] perl Makefile.PL PREFIX=/foo/bar breakage
On Fri, 25 May 2001, Philippe M . Chiasson wrote: When passing a PREFIX=/foo/bar to Makefile.PL, all the perl .pm will get installed under /foo/bar/lib/site_perl/perl-version/perl-arch but mod_perl.so isn't aware of that. So, mod_perl will refuse to start, failing to locate Apache.pm. My first way around this was to PerlRequire a file before anything else and push /foo/bar/lib/site_perl/perl-version/perl-arch on the @INC path, but it's not very elegant. This patches automatically makes sure the PREFIX path, if specified, is placed first in the @INC path. nice work, applied.
Proxy and KeepAlives in 1.3.19
Just wondering- has anybody noticed that starting with 1.3.19, mod_proxy now maintains the browser-proxy connection status (provided the browser is using HTTP/1.1, which NS 4.7* doesn't)? ICBW, but I don't think the current 1.3.* mod_proxy claims to be a true HTTP/1.1 proxy (yet). In the past mod_proxy always forcibly downgraded the connection to HTTP/1.0 and closed the connection. Personally, I didn't care much for the pre-1.3.19 behavior :-) -- Joe Schaefer
Re: BUG PATCH (was: Strange status returns from perl_handler)
On Wed, 23 May 2001, Julian Gilbey wrote: Right, here's a patch. This line of code was erroneously removed some time between version 1.21 and 1.25 of mod_perl. see Changes: fix bug where Apache::send_http_header was resetting r-status = 200 thanks to brian d foy for the spot the problem is that setting r-status = 200 makes for bogus access_log entries. (2) After this, it is used to record the status of the Perl script. The perl_call_handler function in mod_perl.c takes a status value of 200 to mean that everything has gone OK. perl_call_handler doesn't check r-status, it checks the return value of the subroutine. using r-status is hack for Apache::Registry, which i guess has not quite been untangled. i will revisit the problem before 1.26 and see if we can fix both the response problem and maintain proper access_log entries. thanks for the patch, i know this particular problem is painful, been there a couple of times already :(
Re: segfault on subrequest?
On Thu, 15 Mar 2001, Pierre Phaneuf wrote:
I have a PerlTransHandler that is very simple:
the problem is likely that your trans handler is recursing. try adding
this to prevent recursion:
sub handler {
my($r) = @_;
return unless $r-is_main;
my($info);
$info = $r-lookup_file('/home/pp/pierre.jpg')-content_type();
warn(content type is $info\n);
return DECLINED;
}
But it causes a segfault when invoked... I removed the
-content_type(), so that I should normally see something like
Apache::SubRequest=SCALAR(0x815eb54), but it also crashes.
I tried using the exact same handler as a PerlHandler and as a
PerlHeaderParserHandler instead, and it works perfectly. I was thinking
that calling lookup_uri from within a PerlTransHandler might be a bad
idea (infinite loops!), but I would have thought that lookup_file would
be ok...
Okay, maybe everyone will jump in my face about this: this is on an
updated Red Hat 7.0 system, using Red Hat's Apache and mod_perl RPM
packages.
Re: Segfault on ppc-linux with modperl-1.25 with Apache 1.3.19 whencalling $r-send_fd()
On 19 Mar 2001, Mark Lipscombe wrote:
open ($FH, $fname);
...
$r-send_fd($FH);
you didn't check the return value of open(); patch below will check if
the filehandle is NULL and croak rather than segfault.
Index: src/modules/perl/Apache.xs
===
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.122
diff -u -r1.122 Apache.xs
--- src/modules/perl/Apache.xs 2001/06/14 04:36:21 1.122
+++ src/modules/perl/Apache.xs 2001/06/14 05:24:25
@@ -956,6 +956,10 @@
long length
CODE:
+if (!f) {
+croak(send_fd: NULL filehandle
+ (hint: did you check the return value of open?));
+}
RETVAL = send_fd_length(f, r, length);
OUTPUT:
Re: Efficient pre-loading of symlinks and virtual directories
On Thu, 29 Mar 2001, Stas Bekman wrote: The latest policy is mod_perl-1.3 doesn't accept any new features and provides only bug fixes. All the development goes into 2.0. i think you mean mod_perl-1.xx :) and, its Apache::Registry that doesn't accept new features. Apache::RegistryNG and Apache::PerlRun do, unless it is something that can be provided with a subclass. new features are still accepted for mod_perl-1.xx, but some will be punted into 2.0 land. Still you can subclass Apache::PerlRun and provide your own method for the unique namespace package generation. right. would be cool to see a version of this on cpan that uses the inode stuff. and this feature can be considered as an option for 2.0's Apache::Registry.
Re: accessing SSL environment data in Perl*Handler
On Wed, 4 Apr 2001, Paul wrote:
Though I feel rather foolish, the fact remains that I can't seem to
find my SSL environment variables.
httpd.conf has
Directory /
SSLVerifyClient require
SSLOptions+StdEnvVars
# ...
/Directory
Exactly when and where are they set? For example, SSL_CLIENT_S_DN. Once
set, shouldn't I be able to just say $ENV{SSL_CLIENT_S_DN}?
My PerlPostReadRequestHandler can't seem to see them, but I figure
that's just because they haven't been set yet. I can't find when
they're set anywhere in the docs. (I probably haven't looked in the
right place, but it's not for lack of trying. =o)
mod_ssl doesn't setup its variables until the fixup stage, you need to run
a subrequest to get at them eariler. the auth chapter at www.modperl.com
has a specific example.
Re: installating mod_perl-1.25/apache_1.3.19/perl 5.005_02/solaris5.6
On 10 May 2001, qazi Ahmed wrote: gcc -O -I/usr/local/lib/perl5/sun4-solaris/5.004/CORE -I/usr/local/inusr/local/lib/perl5/sun4-solaris/5.004/CORE -I../../os/unix -I../../i/../apaci` -c Apache.c perl /usr/local/lib/perl5/ExtUtils/xsubpp -nolinenumbers -typemap /us Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck] [ this is a somewhat recent change. xsubpp with 5.004_04 coredumps processing Apache.xs, adding -nolinenumbers was the solution. you can try removing -nolinenumbers from the src/modules/perl/Makefile
Re: can not redirect on POST w/ CGI.pm
On Wed, 13 Jun 2001, David Young wrote: I've found that if I post to this PerlAccessHandler, I get no response: ... mod_perl/1.24 this problem is fixed in 1.25, from Changes: fix $r-read() so it will not block if all data has already been read and so that Apache will not hang during ap_discard_request_body() on error or redirect after all data has been read
cvs commit: modperl/src/modules/perl Apache.xs
dougm 01/06/13 21:36:22
Modified:.Changes
t/net/perl api.pl
src/modules/perl Apache.xs
Log:
$r-custom_response($code, undef) will now unset the current CustomResponse
Revision ChangesPath
1.595 +3 -0 modperl/Changes
Index: Changes
===
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.594
retrieving revision 1.595
diff -u -r1.594 -r1.595
--- Changes 2001/06/13 21:27:45 1.594
+++ Changes 2001/06/14 04:36:18 1.595
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+$r-custom_response($code, undef) will now unset the current CustomResponse
+[Geoffrey Young [EMAIL PROTECTED]]
+
fix to compile with sfio+ithreads, thanks to Joe Schaefer for the spot
win32 fixes for apache 1.3.20 [Randy Kobes [EMAIL PROTECTED]]
1.46 +3 -1 modperl/t/net/perl/api.pl
Index: api.pl
===
RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- api.pl2001/05/01 17:28:41 1.45
+++ api.pl2001/06/14 04:36:20 1.46
@@ -20,7 +20,7 @@
my $is_win32 = WIN32;
$tests += 2 unless $is_win32;
my $test_get_set = Apache-can('set_handlers') ($tests += 4);
-my $test_custom_response = (MODULE_MAGIC_NUMBER = 19980324) ($tests += 2);
+my $test_custom_response = (MODULE_MAGIC_NUMBER = 19980324) ($tests += 4);
my $test_dir_config = $INC{'Apache/TestDirectives.pm'} ($tests += 9);
my $i;
@@ -217,6 +217,8 @@
if($test_custom_response) {
test ++$i, $r-custom_response(403, no chance) || 1;
test ++$i, $r-custom_response(403) =~ /chance/;
+test ++$i, $r-custom_response(403, undef) || 1;
+test ++$i, not defined $r-custom_response(403);
}
if($test_get_set) {
1.122 +11 -2 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -r1.121 -r1.122
--- Apache.xs 2001/05/01 17:28:37 1.121
+++ Apache.xs 2001/06/14 04:36:21 1.122
@@ -238,7 +238,7 @@
}
#endif
-static char *custom_response(request_rec *r, int status, char *string)
+static char *custom_response(request_rec *r, int status, char *string, int reset)
{
core_dir_config *conf = (core_dir_config *)
get_module_config(r-per_dir_config, core_module);
@@ -254,7 +254,10 @@
idx = index_of_response(status);
retval = conf-response_code_strings[idx];
-if (string) {
+if (reset) {
+conf-response_code_strings[idx] = NULL;
+}
+else if (string) {
conf-response_code_strings[idx] =
((is_url(string) || (*string == '/')) (*string != '')) ?
pstrdup(r-pool, string) : pstrcat(r-pool, \, string, NULL);
@@ -751,6 +754,12 @@
Apache r
int status
char *string
+
+CODE:
+RETVAL = custom_response(r, status, string, ST(2) == sv_undef);
+
+OUTPUT:
+RETVAL
int
satisfies(r)
cvs commit: modperl Makefile.PL Changes
dougm 01/06/13 21:44:13
Modified:.Makefile.PL Changes
Log:
add %Apache::MyConfig aliases for Apache::src backwards compat
Revision ChangesPath
1.185 +2 -1 modperl/Makefile.PL
Index: Makefile.PL
===
RCS file: /home/cvs/modperl/Makefile.PL,v
retrieving revision 1.184
retrieving revision 1.185
diff -u -r1.184 -r1.185
--- Makefile.PL 2001/05/01 17:08:25 1.184
+++ Makefile.PL 2001/06/14 04:44:11 1.185
@@ -1987,7 +1987,7 @@
PERL_TRACE PERL_DEBUG APACI_ARGS
APACHE_PREFIX DO_HTTPD NO_HTTPD PREP_HTTPD
USE_APACI APACHE_HEADER_INSTALL
- PERL_STATIC_EXTS PERL_SSI PERL_SECTIONS);
+ PERL_STATIC_EXTS PERL_SSI PERL_SECTIONS USE_APXS
WITH_APXS);
{
no strict 'refs';
$my_config{$_} = ${$_} for @other_hooks;
@@ -2000,6 +2000,7 @@
#need this alias for Apache::src backwards compat
$my_config{'Apache_Src'} = $my_config{'APACHE_SRC'};
+$my_config{'APXS'} = delete $my_config{'WITH_APXS'};
my $my_config_dump = join ,\n,
map { qq{'$_' = } .
1.596 +3 -0 modperl/Changes
Index: Changes
===
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.595
retrieving revision 1.596
diff -u -r1.595 -r1.596
--- Changes 2001/06/14 04:36:18 1.595
+++ Changes 2001/06/14 04:44:11 1.596
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+add %Apache::MyConfig aliases for Apache::src backwards compat
+[Philippe M . Chiasson [EMAIL PROTECTED]]
+
$r-custom_response($code, undef) will now unset the current CustomResponse
[Geoffrey Young [EMAIL PROTECTED]]
cvs commit: modperl/apaci mod_perl.config.sh
dougm 01/06/13 21:49:10
Modified:.Changes Makefile.PL
src/modules/perl mod_perl.c
apacimod_perl.config.sh
Log:
if PREFIX is given to Makefile.PL add it to @INC at startup
Revision ChangesPath
1.597 +3 -0 modperl/Changes
Index: Changes
===
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.596
retrieving revision 1.597
diff -u -r1.596 -r1.597
--- Changes 2001/06/14 04:44:11 1.596
+++ Changes 2001/06/14 04:49:07 1.597
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+if PREFIX is given to Makefile.PL add it to @INC at startup
+[Philippe M . Chiasson [EMAIL PROTECTED]]
+
add %Apache::MyConfig aliases for Apache::src backwards compat
[Philippe M . Chiasson [EMAIL PROTECTED]]
1.186 +15 -0 modperl/Makefile.PL
Index: Makefile.PL
===
RCS file: /home/cvs/modperl/Makefile.PL,v
retrieving revision 1.185
retrieving revision 1.186
diff -u -r1.185 -r1.186
--- Makefile.PL 2001/06/14 04:44:11 1.185
+++ Makefile.PL 2001/06/14 04:49:07 1.186
@@ -228,6 +228,7 @@
$PERL_CONNECTION_API = 1; #these two were split out late in the game
$PERL_SERVER_API = 1; #so they are on by default
$PERL_RUN_XS = 0;
+$MOD_PERL_PREFIX;
my %experimental = map { $_,1 } qw{
PERL_AUTOPRELOAD
@@ -336,6 +337,13 @@
unless (/^(PERL|APACHE)/ or is_mp_arg($k)) {
push @mm_args, $_;
}
+
+ if($k eq 'PREFIX')
+ {
+ use File::Spec;
+ $MOD_PERL_PREFIX =
File::Spec-catfile($v,'lib','site_perl',$Config{'version'},$Config{'archname'});
+ }
+
$v = 1 unless defined $v;
if($experimental{$k}) {
$experimental{$k}++;
@@ -2271,6 +2279,13 @@
LIBPERL = $LIBPERL
$static_targets
+
+EOF
+
+print $apaci_cfg EOF if defined $MOD_PERL_PREFIX;
+
+# mod_perl installation prefix
+MOD_PERL_PREFIX = $MOD_PERL_PREFIX
EOF
1.137 +5 -0 modperl/src/modules/perl/mod_perl.c
Index: mod_perl.c
===
RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -r1.136 -r1.137
--- mod_perl.c2001/04/17 22:01:18 1.136
+++ mod_perl.c2001/06/14 04:49:08 1.137
@@ -765,6 +765,11 @@
TAINT_NOT; /* At this time all is safe */
}
+#ifdef MOD_PERL_PREFIX
+ av_unshift(GvAV(incgv),1);
+ av_store(GvAV(incgv), 0, newSVpv(MOD_PERL_PREFIX,0));
+#endif
+
#ifdef APACHE_PERL5LIB
perl_incpush(APACHE_PERL5LIB);
#else
1.24 +5 -0 modperl/apaci/mod_perl.config.sh
Index: mod_perl.config.sh
===
RCS file: /home/cvs/modperl/apaci/mod_perl.config.sh,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- mod_perl.config.sh2001/01/29 18:11:41 1.23
+++ mod_perl.config.sh2001/06/14 04:49:09 1.24
@@ -182,6 +182,11 @@
perl_defs=''
perl_defs=$perl_defs -DMOD_PERL_VERSION=\\\$param_MOD_PERL_VERSION\\\
perl_defs=$perl_defs
-DMOD_PERL_STRING_VERSION=\\\mod_perl/$param_MOD_PERL_VERSION\\\
+
+if [ .$param_MOD_PERL_PREFIX != . ]; then
+ perl_defs=$perl_defs -DMOD_PERL_PREFIX=\\\$param_MOD_PERL_PREFIX\\\
+fi
+
perl_defs=$perl_defs
OIFS=$IFS IFS=$DIFS
for hook in \
cvs commit: modperl/apaci .cvsignore
dougm 01/06/13 21:50:11 Modified:src .cvsignore apaci.cvsignore Log: add files to ignore from Philippe Revision ChangesPath 1.2 +1 -0 modperl/src/.cvsignore Index: .cvsignore === RCS file: /home/cvs/modperl/src/.cvsignore,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- .cvsignore1998/05/28 18:54:38 1.1 +++ .cvsignore2001/06/14 04:50:10 1.2 @@ -1 +1,2 @@ Configuration +ap_config_auto.h 1.4 +8 -1 modperl/apaci/.cvsignore Index: .cvsignore === RCS file: /home/cvs/modperl/apaci/.cvsignore,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- .cvsignore2000/03/16 19:47:10 1.3 +++ .cvsignore2001/06/14 04:50:11 1.4 @@ -1,3 +1,10 @@ -load_modules.pl +*.pl +*.c +*.xs +*.h +.tmp.* +typemap +Makefile +mod_perl.config find_source apxs_cflags
cvs commit: modperl/src/modules/perl Apache.xs
dougm 01/06/13 22:26:29
Modified:.Changes
src/modules/perl Apache.xs
Log:
croak if the filehandle passed to $r-send_fd is NULL
Revision ChangesPath
1.598 +3 -0 modperl/Changes
Index: Changes
===
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.597
retrieving revision 1.598
diff -u -r1.597 -r1.598
--- Changes 2001/06/14 04:49:07 1.597
+++ Changes 2001/06/14 05:26:27 1.598
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+croak if the filehandle passed to $r-send_fd is NULL, otherwise
+apache will segfault
+
if PREFIX is given to Makefile.PL add it to @INC at startup
[Philippe M . Chiasson [EMAIL PROTECTED]]
1.123 +4 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -r1.122 -r1.123
--- Apache.xs 2001/06/14 04:36:21 1.122
+++ Apache.xs 2001/06/14 05:26:28 1.123
@@ -956,6 +956,10 @@
long length
CODE:
+if (!f) {
+croak(send_fd: NULL filehandle
+ (hint: did you check the return value of open?));
+}
RETVAL = send_fd_length(f, r, length);
OUTPUT:
cvs commit: modperl ToDo
dougm 01/06/13 23:01:40 Modified:.ToDo Log: todo Revision ChangesPath 1.282 +13 -0 modperl/ToDo Index: ToDo === RCS file: /home/cvs/modperl/ToDo,v retrieving revision 1.281 retrieving revision 1.282 diff -u -r1.281 -r1.282 --- ToDo 2001/05/01 17:28:29 1.281 +++ ToDo 2001/06/14 06:01:39 1.282 @@ -73,6 +73,19 @@ - docs: update CREDITS, cleanup install docs +- Apache::FakeRequest improvments [Gary Richardson [EMAIL PROTECTED]] + +- Apache::StatINC patch [Ilya Konstantinov [EMAIL PROTECTED]] + +- need to revisit send_http_header and r-status again, patch to +revert to old behavior from [Julian Gilbey [EMAIL PROTECTED]] + +- IPC::Open3 no workie + +- xsubpp -nolinenumbers is not supported with 5.004 + +- revisit DSO restart leakage + --- POSSIBLE NEW FEATURES ---
