mod_perl 2 apache 2?
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Has anyone tried getting mod_perl to work in Apache v2 (the latest beta?)... Just a quick try resulted in mod_perl2 trying to compile against apache 1.3.20... Wasnt mod_perl v2 supposed to be for Apache v2?... Michael Wojcikiewicz Perl Developer - Perl Pimps W: http://www.perlpimps.com/ E: [EMAIL PROTECTED] P: (514) 235-7900 F: (508) 546-0398 -BEGIN PGP SIGNATURE- Version: GnuPG v1.0.5 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7w1JOcQrQUtU6ZNoRAnd1AKDScL9pkf9GX2wPeoeTrRZ6bbwvyQCgsVE1 POR2lXWV7hak1Nf6D0nhquY= =2TLd -END PGP SIGNATURE-
Galleries/ModPerl/Images
I just caught the end of the discussion about Stonhenge::Pictures and Apache::Gallery ... I have been working on setting up a photography site for myself and a few other digital photographers. Is there a reason NOT to put the images in a database? It certainly seemed to speed up pattern searches on my site. The site is up in php right now (had to brush up for a job), but will be redev'd in mod_perl once I find out what the state of gallery management is for mod_perl. I've used a MySQL backend to hold the images in BLOBs (I have a table for each of the common sizes). Uploads go to a images table (original size) and then the database resizes so it doesn't have to do it on the fly. Maybe those of us doing gallery type stuff could get together and work on something in a more organized fashion?
Re: Apache::Gallery
On 9 Oct 2001, at 11:26, Vivek Khera wrote: RLS == Randal L Schwartz [EMAIL PROTECTED] writes: RLS The rewrite will be Template-Toolkit based, so the backend logic RLS will figure out the interesting bits to display, while the frontend RLS logic will be a template contained at the end of the program, RLS allowing fine tweaking easily. I wrote up a TT program back in May when my second baby girl was born to put together a collection of images. It generates static HTML pages with captions and scaled images (thumbnails too). I think Stas added a bunch of features to it. I haven't gotten around to merging them back into my code and putting it on CPAN. I see no point making it all dynamic on the web server, since they rarely change. Hey, I've got an image gallery using mod_perl as well :), still much in development. No html in the code, it is all written with HTML::Template of which I'm a big fan although the only designer I know who understood HTML::Template is now using TT :( http://www.memphisart.com/gallery/ Peter --- Reality is that which, when you stop believing in it, doesn't go away. -- Philip K. Dick
Re: [request] modperl mailing lists searchable archives wanted
Bill Moseley wrote: Hi Stas, I just updated the search site for Apache.org with a newer version of swish. The context highlighting is a bit silly, but that can be fixed. I'm only caching the first 15K of text from each page for context highlighting. http://search.apache.org It seems reasonably fast (it's not running under mod_perl currently, but could -- if mod_perl was in that server ;). It takes about eight or nine minutes to reindex ~35,000 docs on *.apache.org so the mod_perl list (and others) shouldn't too much trouble, I'd think, with smaller numbers and smaller content. It doesn't do incremental indexing at this point, which is a draw back, but indexing is so fast it normally doesn't matter (and there's an easy work-around for something like a mailing list to pickup new messages as they come in during the day). Swish-e can also call a perl program which feeds docs to swish. That makes it easy to parse the email into fields for something like: http://swish-e.org/Discussion/search/swish.cgi which looks a lot like the Apache search site... But, what would be needed is a good threaded mail archiver, which there are many to pick from, I'd expect. Some archives are browsable, but their search engines simply suck. e.g. marc.theaimsgroup.com I think is the only one that archives [EMAIL PROTECTED], but if you try to seach for perl string like APR::Table::FETCH it won't find anything. If you search for get_dir_config it will split it into 'get', 'dir', 'config' and give you a zillion matches when you know that there are just a few. On swish you could say : and _ are part of words and those would index as full words. Or, just simply search for phrase: get_dir_config and it would search for the phrase get dir config which would probably find what you want. Maybe : and _ are ok in words, but you have to think carefully about others. It's more flexible to split the words and use phrases in many cases. Hi Bill, It's great that search.apache.org gets a new engine, but if you run a few simple tests it's still not very good with what you've just explained. When I search for mod_perl, I search for 'mod_perl' and not 'mod' and 'perl'. It's possible that there are hundreds of pages which have mod_perl or 'mod' and 'perl' in them, in the current case those with 'mod_perl' won't get higher relevance than those with 'mod' and 'perl'. So it's not good. Well we have been through this already with Randy Kobe's version of the searchable guide (Swish-E too), which has been tuned to work with Perl content. You may want to ask Randy to give you the tuned configuration. You can compare all three search engines used at http://perl.apache.org/guide/#search. Thanks Bill! _ Stas Bekman JAm_pH -- Just Another mod_perl Hacker http://stason.org/ mod_perl Guide http://perl.apache.org/guide mailto:[EMAIL PROTECTED] http://ticketmaster.com http://apacheweek.com http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
Re: how to catch a killed task?
Christoph Bergmann wrote:
Stas Bekman wrote:
Christoph Bergmann wrote:
hi...
i use BSD::Resource to limit the ressources of the apache tasks. this
works fine but now i want to clean up afterwards but i don't know how to
catch a killed task... here is what i tried with signals:
...
Does the following help? (Look at the register_cleanup method)
http://thingy.kcilink.com/modperlguide/debug/Safe_Resource_Locking_and_Cleanu.html
thanks, this works. while playing around with it I found $SIG{__DIE__}
in your mod_perl guide which fits even better to my needs (I have read
about the problems as well but I think its ok for me) because the
connection is still open and I can print out information about what has
happened.
one more question: after processing the sub given to $SIG{__DIE__}
apache prints out an internal server error - how can I avoid/suppress
this?
I've no idea in what setup you are calling this. If it's a registry
script you just exit. If it's a handler, you should return OK.
But you read
http://perl.apache.org/guide/perl.html#Exception_Handling_for_mod_perl
aren't you?
_
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
Re: Apache::Request UPLOAD_HOOK
OK. I get all that. Now I'm getting a very strange error when I try to use
the hook. the error from the error_log is: Undefined subroutine
Apache::Upload::handler called at /dev/null line 1.
Here is the code that calls the hook:
sub header_parser_handler($)
{
my $=shift;
my $hook_handler= sub {
my ($upload, $buf, $len, $hook_data)=@_;
$hook_cache-set($hook_data,$len);
Apache-log_error($hook_data: got $len bytes for .$upload-name);
};
my %cookies=Apache::Cookie-fetch;
my $u_id=$cookies{u_id}-value;
my
$q=Apache::Request-instance($r,TEMP_DIR=/home/www/spool,HOOK_DATA=$u_i
d,UPLOAD_HOOK=$hook_handler);
return OK;
}
Any idea what's going on here?
Issac
Internet is a wonderful mechanism for making a fool of
yourself in front of a very large audience.
--Anonymous
Moving the mouse won't get you into trouble... Clicking it might.
--Anonymous
PGP Key 0xE0FA561B - Fingerprint:
7E18 C018 D623 A57B 7F37 D902 8C84 7675 E0FA 561B
- Original Message -
From: Joe Schaefer [EMAIL PROTECTED]
To: Issac Goldstand [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Monday, October 08, 2001 19:16
Subject: Re: Apache::Request UPLOAD_HOOK
Issac Goldstand [EMAIL PROTECTED] writes:
The documentation on how to use this feature is a bit sketchy...
Yes, I agree. Doc patches are always welcome.
Comments below are from memory since I last tested this feature
about 6 months ago.
Can anyone explain: 1) What the variables passed to the callback
function are (looks like the Apache::Upload object is the first, but
what's been filled in there when the hook gets called?
The current upload object goes there when the hook is called.
The second looks like the current bunch of data that's been
recieved[?],
Right, it's the buffer from apache's ap_get_client_block,
which is usually around 2-4 KB. The hook runs before the
buffer gets written to the underlying tempfile, but as soon
as your hook has completed, Apache::Request will write it
automatically.
the third is the length, but is that the length recieved so far or the
length recieved between the last time it was called and this time?
The length of the buffer; the same as length($buffer).
And lastly, what can be placed in HOOK_DATA - scalar only?)
Yes, but the scalar can also be a ref to an array or hash.
2) Is there any way of knowing how often the hook will get called?
Not really- it's called when apache calls ap_get_client_block.
3) Is there a specific phase of the Request that Apache::Request
must be called and initialized with the callback before?
The hooks get run as the data is uploaded to the server,
which IOW is when the data is first being parsed. This
can happen at any phase you choose, but it only happens
once per request.
4) Are there any specific issues for using this with
Apache::Request-instance ?
Other than (3), I don't think so- but as I said before
this is not a well-tested feature (yet :)
HTH
--
Joe Schaefer
Re: Both global hanlder and cgi scripts
On Tue, Oct 09, 2001 at 11:38:10AM +0200, Mat wrote: Hi everybody, actually i'm working on a website where I want to have the following possibilities : - a global handler that will treat a request hitting http://myhost.com/ - the ability to have execution of separate cgi scripts like http://myhost.com/script.cgi I had some trouble with this, and found a workable solution, for the Navbar handler from the eagle book: Files ~ \.htm* SetHandler perl-script PerlHandler Apache::NavBar PerlSetVar NavConf /etc/apache/perl/navigation.conf /Files Substitute the Files directive for the Location / and this should work. This works against .html and .htm files That's all I had for content on that server so it works great for me. -- Nate Campi [EMAIL PROTECTED] GnuPG key: 0xC17AEF79 http://www.campin.net
RE: Galleries/ModPerl/Images
-Original Message- From: Tom Allen [mailto:[EMAIL PROTECTED]] I just caught the end of the discussion about Stonhenge::Pictures and Apache::Gallery ... I have been working on setting up a photography site for myself and a few other digital photographers. Is there a reason NOT to put the images in a database? Yes. I can't scp into a database. Matt. _ This message has been checked for all known viruses by Star Internet delivered through the MessageLabs Virus Scanning Service. For further information visit http://www.star.net.uk/stats.asp or alternatively call Star Internet for details on the Virus Scanning Service.
Re: What hourly rate to charge for programming?
I'd like to know where I can get paid more than AU$10/hour (US$4.90 to US$5 per hour) for my mod_perl programming... You guys in America get $100US per hour?! My god, I'm in the wrong country... Work is scarce in Australia and poorly paid in most cases compared to America. If I could get US$20 per hour for programming work I would be overjoyed with that! I'm not experienced in mod_perl commercially so I doubt I would get more than that, but I think US$20 per hour is reasonable for quality labor nontheless. I need to work from home. Anybody got any suggestions? I have looked on Yahoo for work from home jobs and they seem to be crooks. I never get any responses. James - Original Message - From: Daniel Aldham [EMAIL PROTECTED] To: Franck PORCHER [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Wednesday, October 10, 2001 1:52 AM Subject: Re: What hourly rate to charge for programming? Hello, Many factors are to be taken into account to establish a base line. As you say, experience is one. It determines the experience you will provide your client with: your ability to solve their problems, to meet their requirements, to react to constraints, be technical or not, to innovate, etc... [snip] I agree experience should be a factor. But more important is your personal workload. I typically charge $100/hr, and get it. I have a few customers that think this is too high. I have told a couple that I will work for $75 or $80, when I have the time. So if work is slow, I work for the lower rate. When I have more work than I can handle, I only work for $100, and the $75 /hr clients have to wait. They don't like it, but hey, that's how the market economy works. I don't especially like working for $75 either, but will take the work if that is all I have. -- Danny Aldham Providing Certified Internetworking Solutions to Business www.postino.com E-Mail, Web Servers, Web Databases, SQL PHP Perl
Apache::LogFile is broken
Hello everybody. I upgraded from apache 1.3.14 to 1.3.20 (1.26), and it seems my Apache::LogFile is no longer working. from httpd.conf (starting at line 31): PerlModule Apache::LogFile PerlLogFile |/usr/local/apachessl/bin/cronolog /usr/local/apachessl/logs/mylog.%y%m%d My::Logger from httpd error_log: Syntax error on line 32 of /usr/local/apachessl/conf/httpd.conf: Invalid command 'PerlLogFile', perhaps mis-spelled or defined by a module not included in the server configuration I noticed the same problem mentioned on the list previously, but I didn't see any useful suggestions. Any fixes or workarounds (other than downgrading)? thanks in advance, Brian - Original Message - From: Bryan T. Schmidt [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, September 13, 2001 5:55 PM Subject: Apache::LogFile Howdy folks... got a wierd one here, although I bet someone knows what to do about it. I am running Apache 1.3.20, mod_perl 1.26, and mod_ssl (most recent version that works with Apache 1.3.20). The following happens with Perl 5.005_03 and 5.6.1. In my httpd.conf, I have : # mod_perl stuff... # PerlRequire conf/startup.pl PerlFreshRestartOn PerlModule Apache::LogFile PerlLogFile logs/PTW-access.log PTW::access PerlLogFile logs/PTW-error.log PTW::error PerlLogFile logs/PTW-debug.log PTW::debug PerlLogFile logs/PTW-security.log PTW::security Location /PTW-Server/FileFilter SetHandler perl-script PerlHandler PTW::FileFilter /Location So I have FileFilter.pm, which does some things, and is working quite happily. On 4 of my other servers, I have this exact same configuration with Apache 1.3.14 and mod_perl of similar vintage. My problem is that my PerlHandler's (like PTW::FileFilter) cannot write to the log files. I have been using statements like: print PTW::error (you had a big old error); For some reason, with the updated config, this no longer works, and my Apache error_log says: Invalid command 'PerlLogFile' perhaps misspelled yadi yada. Any clues why this would be any different in newer versions? Also, I tried changing PerlModule Apache::LogFile to PerlRequire Apache::LogFile, which results in Apache barfing saying that there is no such animal in @INC. I have verified that it is infact in the @INC path, so why can Apache not see it? Lastly, the very odd thing to me, is that something is successfully creating the logs/PTW-access.log etc. If it can create them, how come I cant write to them? Something is screwy, and I clearly do not have a good grasp on what is going on. Can someone please help me a bit? Thanks! -Bryan -- Bryan T. Schmidt Systems/Network Administrator Profitool Inc. [EMAIL PROTECTED]
Re: [OT] What hourly rate to charge for programming?
C'mon guys remember to add OT to your off topic messages! It's not that hard. :) At 05:14 PM 10/10/2001, [EMAIL PROTECTED] wrote: I'd like to know where I can get paid more than AU$10/hour (US$4.90 to US$5 per hour) for my mod_perl programming... You guys in America get $100US per hour?! My god, I'm in the wrong country... America is richer than Australia. Work is scarce in Australia and poorly paid in most cases compared to America. If I could get US$20 per hour for programming work I would be overjoyed with that! I'm not experienced in mod_perl commercially so I doubt I would get more than that, but I think US$20 per hour is reasonable for quality labor nontheless. I need to work from home. Anybody got any suggestions? I have looked on Yahoo for work from home jobs and they seem to be crooks. I never get any responses. There's part of your problem. Few people trust telecommuters they don't know unless the job is fairly clear. I know I don't. I have telecommuters working for us on occasion but I know them or I trust them based on knowing them through a third party. You're lucky you get what you get and the price you get it. You're cutting yourself down of opportunities by having to work at home. I don't mean to be so frank about it. But really... this is a huge factor. It's a great luxury to work at home but it rarely works out unless you are really highly motivated or highly disciplined. Some people are like that, unfortunately this is not the majority of people so adding the project management overhead on behalf of the client means having to drop the hourly wage to the work-at-home consultant.
Re: Galleries/ModPerl/Images
Is there a reason NOT to put the images in a database? There are many. 1) You can't manipulate them with file-based tools any more. 2) Handling a request for an image consumes many more resources, since there is now application code and a database involved rather than just a simple static file request. 3) Most databases don't make dealing with BLOBs as simple as MySQL does, so your code becomes rather hard to port. Those are the biggies. Of course there are reasons to do it too, but every time I've put images/templates/files in a database I have lived to regret it. Storing the path seems to work better. - Perrin
Re: [OT] What hourly rate to charge for programming?
On Wed, 10 Oct 2001, Gunther Birznieks wrote: At 05:14 PM 10/10/2001, [EMAIL PROTECTED] wrote: I'd like to know where I can get paid more than AU$10/hour (US$4.90 to US$5 per hour) for my mod_perl programming... You guys in America get $100US per hour?! My god, I'm in the wrong country... America is richer than Australia. gnudev, i don't know in what part of the country you're working, but i know several people in melbourne who are routinely getting paid au$80-100/hr for php, javascript/dhtml and ui design work. i haven't seen any perl work around, but then i haven't been looking either.
Re: [OT] What hourly rate to charge for programming?
Yes, they probably have tons of experience too, which I don't have, and I'm not in Melbourne. I used to work in Melbourne and never saw any jobs for $80 - $100 per hour, apart from doctors. I'll go have another look. I need to work from home too which is a major barrier to employment. - Original Message - From: brian moseley [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, October 10, 2001 11:18 PM Subject: Re: [OT] What hourly rate to charge for programming? On Wed, 10 Oct 2001, Gunther Birznieks wrote: At 05:14 PM 10/10/2001, [EMAIL PROTECTED] wrote: I'd like to know where I can get paid more than AU$10/hour (US$4.90 to US$5 per hour) for my mod_perl programming... You guys in America get $100US per hour?! My god, I'm in the wrong country... America is richer than Australia. gnudev, i don't know in what part of the country you're working, but i know several people in melbourne who are routinely getting paid au$80-100/hr for php, javascript/dhtml and ui design work. i haven't seen any perl work around, but then i haven't been looking either.
Re: [VERY OT] What hourly rate to charge for programming?
Still, the beer sucks in both ;-) That's because it's stale piss, I'm sure the beer glasses are pissed in to save money ;-) Heck, the beer is so bad nobody can possibly tell the difference anyway.
ANN/RFC: Apache::Session::Generate variants
Here is Apache::Session::Generate::* variants, which especially uses Apache standard C-modules. Apache::Session::Generate::ModUniqueId http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.html uses mod_unique_id for session id. Apache::Session::Generate::ModUsertrack http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.html uses mod_usertrack's cookie for session id. Suggestions patches are welcome. Thanks. -- Tatsuhiko Miyagawa [EMAIL PROTECTED]
Re: [VERY OT] What hourly rate to charge for programming?
Ahh, you have Budweiser in Australia too, then? ;) Worse: Fosters. And imitation Guiness. Also Tooheys, (Four-X, rednecked Queensland favourite), Hahn, etc. Home-brew kits are extremely popular. Australians are the Leonardo Da Vinci's of piss artists - master strokes in the beer swilling. Our ex Prime Minister Bob Hawke was a sculling champion at Oxford University, heh heh.
Re: ANN/RFC: Apache::Session::Generate variants
Here is Apache::Session::Generate::* variants, which especially uses Apache standard C-modules. Apache::Session::Generate::ModUniqueId http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.ta r.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.ht ml uses mod_unique_id for session id. Apache::Session::Generate::ModUsertrack http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.t ar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.h tml uses mod_usertrack's cookie for session id. This is great! Good work. One less piece to write when getting a new project started... - Perrin
Apache::test vs Apache::Test
Hello modperl list, We are having a bit of debate at work as to what framework we should use for testing modperl enabled modules, i.e. writing module test cases intiated by make test. Apache::test seems to work quite nicely it even pushes your local blib path automatically onto @INC, however other people are suggesting the new Apache::Test. Could anyone comment on this a bit further ? Thank you. --
Re: ANN/RFC: Apache::Session::Generate variants
These are now on CPAN, which I've forgotten to mention. Note that if you try to use these modules functionality, Apache::Session::Flex should be patched with one included in both tarballs. Thanks. On Thu, 11 Oct 2001 01:30:29 +0900 Tatsuhiko Miyagawa [EMAIL PROTECTED] wrote: Here is Apache::Session::Generate::* variants, which especially uses Apache standard C-modules. Apache::Session::Generate::ModUniqueId http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.html uses mod_unique_id for session id. Apache::Session::Generate::ModUsertrack http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.html uses mod_usertrack's cookie for session id. -- Tatsuhiko Miyagawa [EMAIL PROTECTED]
predefined arrays @- and @+ with mod_perl?
Hi... I wonder if there exists the predefined arrays @- and @+ in mod_perl. The following lines: print $_ foreach (@-); print br; print $_ foreach (@+); print out: 10 10 11 11 11 11 This works _only_ when called via browser under mod_perl. Started from the shell it prints out nothing (except br) - as expected. I use apache 1.3.20, perl 5.6.1 and mod_perl 1.26. I've never read about such predefined Arrays - what do they contain and why are they global? Thanks in advance! Best regards, Christoph Bergmann
Re: predefined arrays @- and @+ with mod_perl?
On Wed, 10 Oct 2001 20:17:19 +0200, Christoph Bergmann [EMAIL PROTECTED] said: CB Hi... CB I wonder if there exists the predefined arrays @- and @+ in mod_perl. CB The following lines: CB [..skip..] See 'perldoc perlvar'. AFAIK These arrays should be defined after any successful regexp match (in new Perls - probably = 5.6.1) -- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- | Ilya Martynov (http://martynov.org/)| | GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 | | AGAVA Software Company (http://www.agava.com/) | -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Re: predefined arrays @- and @+ with mod_perl?
On Wed, Oct 10, 2001 at 08:17:19PM +0200, Christoph Bergmann wrote: Hi... I wonder if there exists the predefined arrays @- and @+ in mod_perl. The following lines: print $_ foreach (@-); print br; print $_ foreach (@+); print out: 10 10 11 11 11 11 This works _only_ when called via browser under mod_perl. Started from the shell it prints out nothing (except br) - as expected. I use apache 1.3.20, perl 5.6.1 and mod_perl 1.26. I've never read about such predefined Arrays - what do they contain and why are they global? Do see the perl documentation for details. They are related to regexes and there could be a regex hidden somewhere in mod_perl before your code is executed. That would explain the different behaviors. --jim
Re: predefined arrays @- and @+ with mod_perl?
The identifier production in Perl is [a-zA-Z_]\w+ So '-' and '+' are not valid symbols... On Wed, 10 Oct 2001, Christoph Bergmann wrote: Hi... I wonder if there exists the predefined arrays @- and @+ in mod_perl. The following lines: print $_ foreach (@-); print br; print $_ foreach (@+); print out: 10 10 11 11 11 11 This works _only_ when called via browser under mod_perl. Started from the shell it prints out nothing (except br) - as expected. I use apache 1.3.20, perl 5.6.1 and mod_perl 1.26. I've never read about such predefined Arrays - what do they contain and why are they global? Thanks in advance! Best regards, Christoph Bergmann -- - Medi Montaseri [EMAIL PROTECTED] Unix Distributed Systems EngineerHTTP://www.CyberShell.com CyberShell Engineering -
The DEFINITIVE answer to: How much should I charge?
This whole thread can be answered very easily: ANSWER: As much as you can. That's it! That's the entire answer. Nothing else should figure in unless you personally wish to make exceptions for any reason you see fit. Did the people who ask this question grow up and become educated in a part of the world where free markets and capitalism did not exist? Perhaps in socialistic colleges in the U.S.? :-) -- -- Tom Mornini -- InfoMania Printing Prepress
Re: [request] modperl mailing lists searchable archives wanted
Stas Bekman wrote: dev@@perl.apache.org - 2.5, but their search engines suck [EMAIL PROTECTED] - none [EMAIL PROTECTED] - none [EMAIL PROTECTED] - none [EMAIL PROTECTED] - 1 Hey Stas, I have the asp list getting archived at: http://www.mail-archive.com/asp%40perl.apache.org/ Thanks for keeping up on this. It would be nice to have another search archive for the asp list too. Josh _ Joshua Chamas Chamas Enterprises Inc. NodeWorks Founder Huntington Beach, CA USA http://www.nodeworks.com1-714-625-4051
[OT]Re: The DEFINITIVE answer to: How much should I charge?
Tom Mornini wrote: This whole thread can be answered very easily: ANSWER: As much as you can. That's it! That's the entire answer. Nothing else should figure in unless you personally wish to make exceptions for any reason you see fit. Did the people who ask this question grow up and become educated in a part of the world where free markets and capitalism did not exist? Perhaps in socialistic colleges in the U.S.? :-) If you mean when you say, sociailistic colleges, very well funded universities full of tenured radicals, then I'm guilty. ;-) Those were my favorite professors! But, I was never deluded into thinking they had in any sense escaped the money economy. The star tenured radicals such as Fred Jameson for example make as much or more than a very well paid software developer so one must appreciate the ironies. As a freelancer you charge what the market will bear. Besides the extra cost of benefits and the added tax liabilities one must also factor in the assumption of risk if you want to come to a justification for charging 100+ per hour. If you don't feel the need to justify, then you merely say, I charge the market rate. No tenured radical would begrudge you. They know on what side their bread is buttered. ;-) ed
RE: [OT] What hourly rate to charge for programming?
What kind of thread is this? I ask a question about modperl on NT and I get riddled from the list for using NT. Then we have a thread that goes for two days about hourly charges? What's up with this ..This should be for questions about modperl. Give it a rest, I'm tired of throwing that thread away. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 10, 2001 8:41 AM To: brian moseley; [EMAIL PROTECTED] Subject: Re: [OT] What hourly rate to charge for programming? Yes, they probably have tons of experience too, which I don't have, and I'm not in Melbourne. I used to work in Melbourne and never saw any jobs for $80 - $100 per hour, apart from doctors. I'll go have another look. I need to work from home too which is a major barrier to employment. - Original Message - From: brian moseley [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, October 10, 2001 11:18 PM Subject: Re: [OT] What hourly rate to charge for programming? On Wed, 10 Oct 2001, Gunther Birznieks wrote: At 05:14 PM 10/10/2001, [EMAIL PROTECTED] wrote: I'd like to know where I can get paid more than AU$10/hour (US$4.90 to US$5 per hour) for my mod_perl programming... You guys in America get $100US per hour?! My god, I'm in the wrong country... America is richer than Australia. gnudev, i don't know in what part of the country you're working, but i know several people in melbourne who are routinely getting paid au$80-100/hr for php, javascript/dhtml and ui design work. i haven't seen any perl work around, but then i haven't been looking either.
Lets Get it on!
Maybe your NT could not stay up long enough to receive the answer. :) Purcell, Scott wrote:Re: Subject: [OT] What hourly rate to charge for programming? What kind of thread is this? I ask a question about modperl on NT and I get riddled from the list for using NT. Then we have a thread that goes for two days about hourly charges? What's up with this ..This should be for questions about modperl. Give it a rest, I'm tired of throwing that thread away. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 10, 2001 8:41 AM -- Jim Cox (mailto:[EMAIL PROTECTED]) (817) 315-8134 (888) 834-7656 Toll Free (817) 315-8253 FAX (817) 233-8567 Mobile
Re: [OT] What hourly rate to charge for programming?
Purcell, Scott wrote: What kind of thread is this? I ask a question about modperl on NT and I get riddled from the list for using NT. Then we have a thread that goes for two days about hourly charges? What did you expect? You shoulda been using Win2K! *duck*
Re: predefined arrays @- and @+ with mod_perl?
On Wed, Oct 10, 2001 at 01:05:18PM -0700, Medi Montaseri wrote: The identifier production in Perl is [a-zA-Z_]\w+ So '-' and '+' are not valid symbols... pp. 667-668, 3rd. Ed. Camel book --jim
Re: predefined arrays @- and @+ with mod_perl?
Ilya Martynov wrote: On Wed, 10 Oct 2001 20:17:19 +0200, Christoph Bergmann [EMAIL PROTECTED] said: CB Hi... CB I wonder if there exists the predefined arrays @- and @+ in mod_perl. See 'perldoc perlvar'. AFAIK These arrays should be defined after any successful regexp match (in new Perls - probably = 5.6.1) ah, ok, thanks, I've just ugraded to 5.6.1... best regards, christoph bergmann
Re: [VERY OT] What hourly rate to charge for programming?
On Thu, 11 Oct 2001 [EMAIL PROTECTED] wrote: And imitation Guiness. Also Tooheys, (Four-X, rednecked Queensland favourite), Hahn, etc. Home-brew imitation guinness is still better than any of the rest. altho when it's not available i a quite happy with vb!
Re: ANN/RFC: Apache::Session::Generate variants
On Thu, 11 Oct 2001, Tatsuhiko Miyagawa wrote: Note that if you try to use these modules functionality, Apache::Session::Flex should be patched with one included in both tarballs. I sent a patch to Jeffrey last week or such that (I imagine) covers the same thing. -- ask bjoern hansen, http://ask.netcetera.dk/ !try; do(); more than a billion impressions per week, http://valueclick.com
Re: ANN/RFC: Apache::Session::Generate variants
On Thu, 11 Oct 2001, Tatsuhiko Miyagawa wrote: Here is Apache::Session::Generate::* variants, which especially uses Apache standard C-modules. Apache::Session::Generate::ModUniqueId http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUniqueId-0.01.html uses mod_unique_id for session id. Cool. Apache::Session::Generate::ModUsertrack http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.html uses mod_usertrack's cookie for session id. Don't do that! mod_usertrack is not meant to be used for secure session ids. - ask -- ask bjoern hansen, http://ask.netcetera.dk/ !try; do(); more than a billion impressions per week, http://valueclick.com
Problem with Apache-request
I am having a problem with a module that needs Apache-request.
The module is AuthCookieLDAP. I have a .htaccess (/test2/.htaccess) file
that looks like:
AuthType Apache::AuthCookieLDAP
AuthName SA
PerlAuthenHandler Apache::AuthCookieLDAP-authenticate
PerlAuthzHandler Apache::AuthCookieLDAP-authorize
require valid-user
That in turn reads my httpd.conf file which has the following:
Files LOGIN
AuthType Apache::AuthCookieLDAP
AuthName SA
SetHandler perl-script
PerlHandler Apache::AuthCookieLDAP-login
/Files
PerlModule Apache::AuthCookieLDAP
PerlSetVar SAPath /
PerlSetVar SALoginScript /cgi-bin/login.pl
PerlSetVar SALDAP_DN o=isp
PerlSetVar SADBI_DSN isp
PerlSetVar SALDAP_SecretKeyFile .../apache/foobar.com.key
PerlSetVar SALDAP_User tesuser
PerlSetVar SALDAP_host host.foobar.com
#PerlSetVar SALDAP_host ldap.foobar.com
PerlSetVar SALDAP_EncryptionType none
PerlSetVar SALDAP_SessionLifetime 00-24-00-00
Then it runs the login.pl script which looks like:
#!/usr/bin/perl
#
# $Id: login.pl,v 1.1 2000/07/11 17:03:05 jacob Exp $
use strict;
use 5.004;
use Text::TagTemplate;
use Apache;
my $t = new Text::TagTemplate;
my $r = Apache-request();
my $destination;
my $authcookiereason;
if ( $r-prev() ) { # we are called as a subrequest.
$destination = $r-prev()-args()
? $r-prev()-uri() . '?' . $r-prev-args()
: $r-prev()-uri();
$authcookiereason = $r-prev()-subprocess_env(
'AuthCookieReason' );
} else {
$destination = $r-args( 'destination' );
$authcookiereason = $r-args( 'AuthCookieReason' );
}
$t-add_tag( DESTINATION = $destination );
unless ( $authcookiereason eq 'bad_cookie' ) {
$t-template_file( ../html/login.html );
} else {
$t-template_file( ../html/login-failed.html );
}
$r-send_http_header;
print $t-parse_file unless $r-header_only;
When I go to /test2/index.html I get this error:
Can't locate object method request via package Apache at
.../cgi-bin/login.pl line 16.
[Wed Oct 10 10:43:26 2001] [error] [client 172.28.22.253] Premature end
of script headers: .../cgi-bin/login.pl
Here is the software and versions I have installed:
apache 1.3.20, Apache-AuthCookie-3.00, Apache-AuthCookieLDAP-0.02,
mod_perl-1.26, perl5.005_02
Please help. I have looke all over deja.com, and all of the perl and
mod_perl sites I can think of to no avail.
Thanks in advance,
Randy
begin:vcard
n:Rasmussen;Randy
tel;fax:817-963-0295
tel;work:817-967-9242
x-mozilla-html:FALSE
org:EDS;Unix Engineering
adr:;;4255 Amon Carter Blvd.;Fort Worth;Tx;76155;USA
version:2.1
email;internet:[EMAIL PROTECTED]
title:Senior Unix Engineer
x-mozilla-cpt:;-16016
fn:Randy Rasmussen
end:vcard
Re: ANN/RFC: Apache::Session::Generate variants
On Wed, 10 Oct 2001 17:23:04 -0700 (PDT) Ask Bjoern Hansen [EMAIL PROTECTED] wrote: Apache::Session::Generate::ModUsertrack http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.tar.gz http://bulknews.net/lib/archives/Apache-Session-Generate-ModUsertrack-0.01.html uses mod_usertrack's cookie for session id. Don't do that! mod_usertrack is not meant to be used for secure session ids. I know, I know! just an example of using *already tracked* cookie for newly generated sessions. My another plan is to release my session id tracking modules, which Apache::Session doesn't do. -- Tatsuhiko Miyagawa [EMAIL PROTECTED]
Re: ANN/RFC: Apache::Session::Generate variants
On Wed, 10 Oct 2001 17:22:23 -0700 (PDT) Ask Bjoern Hansen [EMAIL PROTECTED] wrote: Note that if you try to use these modules functionality, Apache::Session::Flex should be patched with one included in both tarballs. I sent a patch to Jeffrey last week or such that (I imagine) covers the same thing. Wow, I did almost half a year ago :-) http://aspn.activestate.com/ASPN/Mail/Message/modperl/532294 -- Tatsuhiko Miyagawa [EMAIL PROTECTED]
Re: Lets Get it on!
On Sat, 9 Jun 2001, Jim Cox wrote: Purcell, Scott wrote:Re: Subject: [OT] What hourly rate to charge for programming? What kind of thread is this? I ask a question about modperl on NT and I get riddled from the list for using NT. Then we have a thread that goes for two days about hourly charges? Maybe your NT could not stay up long enough to receive the answer. :) Friendly ribbing aside, let's not lose sight of Scott's original sentiment ... In the two years since we've been keeping Win32 mod_perl binaries here, there's been an average of about 30 downloads per day, suggesting Win32 users make up a fair percentage of mod_perl users ... And such a user, working (willingly or not) in M$'s own backyard, and perhaps amongst skeptical colleagues, can be a pretty strong advocate of free software ... So in a large list like this, remember to include the :)s ... best regards, randy kobes
[Knowledge Base] First coherent release
I've put together a tarball of the PerlKB modules: http://prdownloads.sourceforge.net/perlkb/PerlKB-0.02.tar.gz The example/ directory has a little script that shows how the store objects work. The scripts/ directory has a perl script that starts up the PerlKB::Shell monitor (modeled in a small way after the CPAN shell). Otherwise, it doesn't do a whole lot, but it's starting to come together. Project page: http://sourceforge.net/projects/perlkb/ +-- James Smith - [EMAIL PROTECTED] | http://www.jamesmith.com/ [EMAIL PROTECTED] | http://cis.tamu.edu/systems/opensystems/ +--
[huge OT]Re: Lets Get it on!
Randy Kobes wrote: Friendly ribbing aside, let's not lose sight of Scott's original sentiment ... In the two years since we've been keeping Win32 mod_perl binaries here, there's been an average of about 30 downloads per day, suggesting Win32 users make up a fair percentage of mod_perl users ... [advance appologies for persisting advocacy thread] Absolutelly. Win32 is an entry point for many developers before they move to open source as noticed on the Perl beginners list and I think it's quite important to support the platform (both technical and political) because from an advocacy POV, it's a great source of new recruits (to apache, mod_perl and an open source platform). [footnote: use linux for it's flexibility and built in compiler - win32 is a pain in the rear when it comes to the latter and former]
Re: ANN/RFC: Apache::Session::Generate variants
On Thu, 11 Oct 2001, Tatsuhiko Miyagawa wrote: Wow, I did almost half a year ago :-) http://aspn.activestate.com/ASPN/Mail/Message/modperl/532294 Yeah, and I think I sent one a year ago, at least. Jeff, if you're still maintaining this package it'd be nice to put out a new release. If not, it'd be good to give it to someone else. Hell, I'll volunteer if no one more interested comes along. I don't have any big plans for it but I can at least integrate patches and such. Apache::Session is in use in a lot of places and it would be good to have an active maintainer. -dave /*== www.urth.org We await the New Sun ==*/
cvs commit: modperl-2.0/xs/tables/current/ModPerl FunctionTable.pm
dougm 01/10/09 10:58:44
Modified:xs/tables/current/ModPerl FunctionTable.pm
Log:
sync
Revision ChangesPath
1.35 +25 -1 modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm
Index: FunctionTable.pm
===
RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- FunctionTable.pm 2001/10/08 17:58:16 1.34
+++ FunctionTable.pm 2001/10/09 17:58:44 1.35
@@ -2,7 +2,7 @@
# !!
# ! WARNING: generated by ModPerl::ParseSource/0.01
-# ! Mon Oct 8 11:03:58 2001
+# ! Tue Oct 9 09:27:24 2001
# ! do NOT edit, any changes will be lost !
# !!
@@ -2755,6 +2755,30 @@
{
'type' = 'const char *',
'name' = 'name'
+ }
+]
+ },
+ {
+'return_type' = 'void',
+'name' = 'modperl_perl_core_global_init',
+'args' = [
+ {
+'type' = 'PerlInterpreter *',
+'name' = 'my_perl'
+ }
+]
+ },
+ {
+'return_type' = 'void',
+'name' = 'modperl_perl_exit',
+'args' = [
+ {
+'type' = 'PerlInterpreter *',
+'name' = 'my_perl'
+ },
+ {
+'type' = 'int',
+'name' = 'status'
}
]
},
cvs commit: modperl-2.0/ModPerl-Registry/t/conf .cvsignore extra.conf.in
stas01/10/09 05:47:38
Added: ModPerl-Registry MANIFEST Makefile.PL README TODO
ModPerl-Registry/lib/ModPerl PerlRun.pm Registry.pm
RegistryBB.pm RegistryCooker.pm RegistryNG.pm
ModPerl-Registry/t .cvsignore TEST.PL basic.t closure.t
ModPerl-Registry/t/cgi-bin basic.pl closure.pl env.pl
local-conf.pl not_executable.pl require.pl
ModPerl-Registry/t/conf .cvsignore extra.conf.in
Log:
- ModPerl::Registry and friends sub-project's basic functionality and
tests
Revision ChangesPath
1.1 modperl-2.0/ModPerl-Registry/MANIFEST
Index: MANIFEST
===
MANIFEST This list of files
Makefile.PL
README
TODO
lib/ModPerl/PerlRun.pm
lib/ModPerl/Registry.pm
lib/ModPerl/RegistryBB.pm
lib/ModPerl/RegistryCooker.pm
lib/ModPerl/RegistryNG.pm
t/TEST.PL
t/basic.t
t/closure.t
t/cgi-bin/basic.pl
t/cgi-bin/closure.pl
t/cgi-bin/env.pl
t/cgi-bin/local-conf.pl
t/cgi-bin/not_executable.pl
t/cgi-bin/require.pl
t/conf/extra.conf.in
t/htdocs/index.html
1.1 modperl-2.0/ModPerl-Registry/Makefile.PL
Index: Makefile.PL
===
require 5.6.1;
use ExtUtils::MakeMaker;
use lib qw(lib ../blib/lib);
# enable 'make test|clean'
use Apache::TestMM qw(test clean);
# prerequisites
my %require =
(
Apache::Test = , # any version will do?
);
my @scripts = qw(t/TEST);
# accept the configs from comman line
Apache::TestMM::filter_args();
Apache::TestMM::generate_script('t/TEST');
WriteMakefile
(
NAME = 'ModPerl::Registry',
VERSION_FROM = 'lib/ModPerl/RegistryCooker.pm',
PREREQ_PM= \%require,
clean= {
FILES = @{ clean_files() },
},
);
sub clean_files {
return [@scripts];
}
1.1 modperl-2.0/ModPerl-Registry/README
Index: README
===
to be written
1.1 modperl-2.0/ModPerl-Registry/TODO
Index: TODO
===
- META tags in the modules
---
- print STDERR is buffered in test handlers, whereas warn() works
normally. select() helps, but STDERR should be unbuffered in first
place.
---
what's the replacement of NameWithVirtualHost? Obviously we need something
to distinguish between vhs.
DougM: well, if possible we should distinguish between the uri and
requested resource instead. in otherwords, we have the: r-uri =
r-filename translation, just need to figure out if r-filename is the
actual filename or a symlink (readlink can be used to get the real
filename). then create a package based on the filename, but with as
few package:: levels as possible (hopefully none beyond
ModPerl::RegistryROOT::filename)
DougM: using filenames makes for long packages names == lengthy
lookups and more memory than we need. at least the way it is
currently implemented where each '/' turns into '::'. could be that
s,/,_,g is good enough, but haven't thought about this for a while.
in any case, we should get rid of the NameWithVirtualHost stuff, its
caused too many problems in the past.
---
Bjarni R. Einarsson [EMAIL PROTECTED] has suggested this Registry hack
http://marc.theaimsgroup.com/?l=apache-modperl-devm=98961929702745w=2
Message-ID: [EMAIL PROTECTED]
---
1.1 modperl-2.0/ModPerl-Registry/lib/ModPerl/PerlRun.pm
Index: PerlRun.pm
===
package ModPerl::PerlRun;
use strict;
use warnings FATAL = 'all';
# we try to develop so we reload ourselves without die'ing on the warning
no warnings qw(redefine); # XXX, this should go away in production!
our $VERSION = '1.99';
use ModPerl::RegistryCooker;
@ModPerl::PerlRun::ISA = qw(ModPerl::RegistryCooker);
# META: prototyping ($$) segfaults on request
sub handler {
my $class = (@_ = 2) ? shift : __PACKAGE__;
my $r = shift;
return $class-new($r)-default_handler();
}
my $parent = 'ModPerl::RegistryCooker';
# the following code:
# - specifies package's behavior different from default of $parent class
# - speeds things up by shortcutting @ISA search, so even if the
# default is used we still use the alias
my %aliases = (
new = 'new',
init= 'init',
default_handler = 'default_handler',
run = 'run',
can_compile = 'can_compile',
cvs commit: modperl-site index.html
stas01/10/09 02:37:10 Modified:.index.html Log: - adding links for mbox-file-style archives Revision ChangesPath 1.87 +19 -2 modperl-site/index.html Index: index.html === RCS file: /home/cvs/modperl-site/index.html,v retrieving revision 1.86 retrieving revision 1.87 diff -u -r1.86 -r1.87 --- index.html2001/10/09 09:30:27 1.86 +++ index.html2001/10/09 09:37:10 1.87 @@ -530,6 +530,8 @@ /li /ul + Mbox file a href=http://perl.apache.org/mail/modperl/;archive/a. + /p [ a href=#maillistsmailing lists/a ] [ a href=#toctoc/a ] @@ -576,6 +578,8 @@ /ul + Mbox file a href=http://perl.apache.org/mail/docs-dev/;archive/a. + /p @@ -623,6 +627,8 @@ /ul + Mbox file a href=http://perl.apache.org/mail/docs-cvs/;archive/a. + /p @@ -683,6 +689,8 @@ /ul + Mbox file a href=http://perl.apache.org/mail/dev/;archive/a. + /p @@ -739,6 +747,8 @@ /ul + Mbox file a href=http://perl.apache.org/mail/modperl-cvs;archive/a. + /p [ a href=#maillistsmailing lists/a ] [ a href=#toctoc/a ] @@ -788,8 +798,9 @@ /ul - /p + Mbox file a href=http://perl.apache.org/mail/advocacy/;archive/a. + /p [ a href=#maillistsmailing lists/a ] [ a href=#toctoc/a ] @@ -832,6 +843,8 @@ /ul + Mbox file a href=http://perl.apache.org/mail/announce/;archive/a. + /p @@ -876,11 +889,13 @@ /li li - a href=http://www.geocrawler.com/lists/3/Web/187/0/;geocrawel.com/a + a href=http://www.geocrawler.com/lists/3/Web/187/0/;geocrawler.com/a /li /ul + Mbox file a href=http://perl.apache.org/mail/embperl;archive/a. + /p @@ -923,6 +938,8 @@ /li /ul + + Mbox file a href=http://perl.apache.org/mail/asp/;archive/a. /p
cvs commit: modperl-2.0/src/modules/perl mod_perl.c modperl_perl.c modperl_perl.h
dougm 01/10/08 17:13:00
Modified:src/modules/perl mod_perl.c modperl_perl.c modperl_perl.h
Log:
*CORE::GLOBAL::exit = \ModPerl::Util::exit
Revision ChangesPath
1.88 +2 -0 modperl-2.0/src/modules/perl/mod_perl.c
Index: mod_perl.c
===
RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -r1.87 -r1.88
--- mod_perl.c2001/10/07 19:04:20 1.87
+++ mod_perl.c2001/10/09 00:13:00 1.88
@@ -39,6 +39,8 @@
modperl_env_default_populate(aTHX);
+modperl_perl_core_global_init(aTHX);
+
for (i=0; MP_xs_loaders[i]; i++) {
char *name = Perl_form(aTHX_ MP_xs_loader_name, MP_xs_loaders[i]);
newCONSTSUB(PL_defstash, name, newSViv(1));
1.5 +26 -0 modperl-2.0/src/modules/perl/modperl_perl.c
Index: modperl_perl.c
===
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- modperl_perl.c2001/09/16 17:28:43 1.4
+++ modperl_perl.c2001/10/09 00:13:00 1.5
@@ -4,6 +4,32 @@
* others (larger tweaks) are in their own modules, e.g. modperl_env.c
*/
+typedef struct {
+const char *name;
+const char *sub_name;
+const char *core_name;
+} modperl_perl_core_global_t;
+
+#define MP_PERL_CORE_GLOBAL_ENT(name) \
+{ name, ModPerl::Util:: name, CORE::GLOBAL:: name }
+
+static modperl_perl_core_global_t MP_perl_core_global_entries[] = {
+MP_PERL_CORE_GLOBAL_ENT(exit),
+{ NULL },
+};
+
+void modperl_perl_core_global_init(pTHX)
+{
+modperl_perl_core_global_t *cglobals = MP_perl_core_global_entries;
+
+while (cglobals-name) {
+GV *gv = gv_fetchpv(cglobals-core_name, TRUE, SVt_PVCV);
+GvCV(gv) = get_cv(cglobals-sub_name, TRUE);
+GvIMPORTED_CV_on(gv);
+cglobals++;
+}
+}
+
void modperl_perl_ids_get(modperl_perl_ids_t *ids)
{
ids-pid = (I32)getpid();
1.5 +2 -0 modperl-2.0/src/modules/perl/modperl_perl.h
Index: modperl_perl.h
===
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- modperl_perl.h2001/09/16 17:28:43 1.4
+++ modperl_perl.h2001/10/09 00:13:00 1.5
@@ -7,6 +7,8 @@
Gid_t gid, egid;
} modperl_perl_ids_t;
+void modperl_perl_core_global_init(pTHX);
+
void modperl_perl_ids_get(modperl_perl_ids_t *ids);
void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids);
cvs commit: modperl-2.0 Makefile.PL
dougm 01/10/10 20:29:32
Modified:.Makefile.PL
Log:
the DIR = [] patch does not work, backing it out for now.
Revision ChangesPath
1.42 +1 -1 modperl-2.0/Makefile.PL
Index: Makefile.PL
===
RCS file: /home/cvs/modperl-2.0/Makefile.PL,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
--- Makefile.PL 2001/10/09 18:28:37 1.41
+++ Makefile.PL 2001/10/11 03:29:32 1.42
@@ -27,7 +27,7 @@
ModPerl::MM::WriteMakefile(
NAME = 'mod_perl',
VERSION = $VERSION,
-DIR = get_dirs_with_makefile(@remote_makefile_dirs),
+#DIR = get_dirs_with_makefile(@remote_makefile_dirs),
macro = {
MODPERL_SRC = $code-path,
PERL = $build-perl_config('perlpath'),
