Re: Persistant references [was] Persistent Net::Telnet Objects
You could just pass around a string rather than a subref:
my $handler = 'sub { my $arg = @_; do_something(); }';
vs
my $handler = sub { my $arg = @_; do_something(); };
When you want to call it later on you do it like:
eval($handler)-('foo');
vs
$handler-('foo');
Garth
On Wed, 2002-05-29 at 22:17, Ryan Parr wrote:
I never do give enough info on the first e-mail. Thank you for bearing with
me...
What I mean is, if a request comes in for a certain form I would like to be
able to do something like this:
my $form = load_form($r);
$c{$session_id}-{handler} = $form-{handler}; # -- this being a code
ref...
$r-send_http_header;
print $form;
Then when the user completes the form and resubmits:
my $handler = $c{$session_id}-{handler};
$r-send_http_header;
print $handler-($r);
This is definately simplified, but the idea is there. I would like to be
able to store anything that can be referenced and have it be available to
all processes. I would like to be able to dynamically create anonymous
subroutine handlers based on input and have them be active until the form is
submitted, at which time they are used to process the form then discarded.
Is this something that can be accomplished? The global hash using Perl
aliasing
(http://thingy.kcilink.com/modperlguide/perl/Using_the_Perl_Aliasing_Feature
_.html) works beautifully, until of course the form is submitted to another
httpd process, and I'm hoping to not have to limit myself to just one child.
Obviously this can't be serialized, but there has to be *some* way to do
this...
-- Ryan
- Original Message -
From: Ryan Parr [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, May 29, 2002 9:16 PM
Subject: Persistant references [was] Persistent Net::Telnet Objects
Along these same lines I'm seeking a way to store a code reference into a
global hash that is shared among all processes. For example:
my $session_id = get_session_from_cookie($r);
my $handler = $c{$session_id}-{handler};
$r-send_http_header;
print $handler-($r);
return OK;
Has anyone performed this kind of magical tidbit before? Is there some
main
process repository that I can access?
-- Ryan
- Original Message -
From: Rob Mueller (fastmail) [EMAIL PROTECTED]
To: French, Shawn [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Wednesday, May 29, 2002 5:35 PM
Subject: Re: Persistent Net::Telnet Objects
Our project needed persistent socket connections open as well. There is
supposed to be a standard mechanism to pass file descriptors between
unix
processes, though it's bugginess level depends on your OS. There is a
perl
module for this called Socket::PassAccessRights. So what you can do is
create a daemon process that just hangs round holding socket connections
open, like a socket cache basically, and passing them back and forth
between
Apache processes based on some session ID or user ID or the like.
Your daemon ends up looking something like this (with lots more error
checking of course)
my %sockmap;
while (1) {
my $clientsock = $listen-accept();
chomp(my $sessionid = $clientsock);
my $cachesock = ($sockmap{$sessionid} ||= opennewsock());
Socket::PassAccessRights::sendfd(fileno($clientsock),
fileno($cachesock));
$clientsock-close();
}
And in your mod_perl code you do something like:
my $serversock = IO::Socket::INET-new(Server = 'localhost', Port =
SOCKETPOOLPORT);
print $serversock $sessionid, \n;
my $Fd = Socket::PassAccessRights::recvfd(fileno($serversock));
open(my $realsocket, =$Fd);
fcntl($realsocket, F_SETFD, 0);
my $ofh = select($realsocket); $| = 1; select ($ofh);
If you do some experimenting, you'll get something that works, you'll
also
find lots of cases that don't.
Rob
- Original Message -
From: French, Shawn [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, May 30, 2002 3:53 AM
Subject: Persistent Net::Telnet Objects
Vitals:
Apache/1.3.20 (Win32) mod_perl/1.25_01-dev mod_ssl/2.8.4
OpenSSL/0.9.6a
on
Windows 2000 with PHP 4.21
I am working on a project that requires me to have two telnet objects
per
user session opened, and accessible throughout the user's session. I
have
looked at Apache::Session and many other solutions but my problem is
that
to
keep a Net::Telnet object, I need to keep open sockets and
filehandles,
so
I
cannot serialize the object and store it in a database or file.
Currently I have similar code working flawlessly:
###
# startup.pl - called when apache starts (ie. PerlRequire
d:/Apache/conf/startup.pl)
##
use MySite::Session;
###
# Session.pm
##
@EXPORT = qw( %sessionHash );
our %sessionHash;
###
# init_session.pl - called IN MOD_PERL when a new session is
Re: error_log contents
Type this: $ perl -de 1 And tell me if it looks familiar to you. Looks like somehow, somewhere, the debugging flag is being set... G On Sat, 2002-05-18 at 14:11, Gregory Matthews wrote: I am getting the following repeating code in my error log in doing some testing on my script: DB1 DB1 DB1 DB1 DB1 DB1 DB1 DB1 Does anyone know what this means? It seems to go away when I restart apache. Gregory -- ,---. Garth Webb [EMAIL PROTECTED] C: 415.652.7688 H: 415.701.0568 `==='
Re: How to get two perl namespaces in apache
You just need to fire up two separate apaches, each with their own conf. So basically you have: /usr/local/apache_prod /usr/local/apache_dev These can actually share the same bin and lib directories; everything is still installed at '/usr/local/apache' and you symlink the directories you want to have in common. You also need separate copies of apachectl that fire up the httpd's so that they point at the right httpd.conf and have the right server root. Garth On Tue, 2002-03-26 at 11:16, Thomas K. Burkholder wrote: Hi there- Apologies if this gets sent twice - I sent a message yesterday, but it seems to have vanished into the ether. I'd like to run the production server of my mod_perl project (http://www.areaj.org/areaj) on the same machine as my development server. Clearly they have the same module names so I have to somehow run them in two different environments - I don't think running them on two different virtual servers is going to do it, right? Doesn't apache just start one perl runtime? Please tell me if I'm mistaken about that. So, I guess I'm wondering if there's an easy way to have two completely separate apache configurations running on the same machine (listening on different ports obviously). Any help greatly appreciated. Thanks, //Thomas Thomas K. Burkholder -- ,---. Garth Webb [EMAIL PROTECTED] C: 415.652.7688 H: 415.701.0568 `==='
Re: Can't open perl script -spi.bak
On Fri, 2002-03-22 at 12:57, Robert Landrum wrote: That's is very weird, because this code doesn't seem to work: perl -e 'system(perl, -e1) == 0 or die oops' Actually, that's not all that weird. Most shells take care of stripping out garbage before setting the argument list. Since system(LIST) doesn't use the shell, it's passing perl the literal -e1 which perl won't recognize as a command line option (and correctly so in my opinion). Actually this isn't standard behavior. I can't think of a situation where I would want to use system to concatanate a string for me rather than interpreting the string as an argument and act accordingly. If you check 'perldoc -f system', this is exactly what system is supposed to do when given a program name and a list of arguments, so it looks like 'systetm' may be buggy in the win32 version of perl G
Re: Subroutines taking time to return..
Have you tried using Apache::DProf? Using this is a lot easier than
trying to add tons of debug messages. If you haven't used it or the
regular DProf, it does what your doing automatically. It generates a
file of data that you run 'dprofpp' on and you can get a list of the top
10 or so most time consuming functions. Using Apache::DProf usually
reveals time consuming methods in my code that I would never have
expected to take so long.
In your case, however thourough you were in placing debug statements,
its possible (and likely) that you've missed the key subroutine.
G
On Wed, 2002-03-20 at 09:59, David Brown wrote:
I've been profiling my MySQL driven Mod_Perl website by adding debug
messages throughout the code which relays what time has elapsed since the
script was invoked (using Time::HiRes)
Now the script is pretty whizzy, serving up complete pages in circa 0.010
seconds.
I got to wondering how those 0.010 were being made up. Interestingly, all
of the database access is complete within 0.002 so I thought where do the
other 0.008 come from ?
I found the following happened (pseudo code)
# Checkpoint A - Elapsed : 0.000
buildpage;
# Checkpoint D - Elapsed 0.010 seconds
sub buildpage
{
# Checkpoint B - Elapsed: 0.001
# Do some DB accessing etc. make a nice webpage
# Checkpoint C - Elapsed 0.002
}
--
I expected all the complicated DB access stuff to make up the time, but
instead it seems to be consuming 0.005 in returning from the subroutine to
the main script.
What's that all about ?
Points:
1. A global variable exists throughout the script to build the webpage
2. Global file handles are used to access the DB (to retain across
subsequent requests)
3. No LOCAL or MY variables are defined in the subroutine.
4. As the webpage is being built into a global variable, the buildpage
subroutine doesn't RETURN a value to the calling script.
It SEEMS the subroutine is taking an inordinate amount of time returning to
the main procedure.. why would this be ?
( I'm running Free/BSD, Apache/1.3.22, Mod_perl 1.26 )
Re: [OT][ANNOUNCE] The New mod_perl logo - results now in...
On Sat, 2002-03-16 at 08:01, [EMAIL PROTECTED] wrote: Recently I had a discussion with a Java programmer, who said that mod_perl is a try to save the obsolete language Perl. His argument was that only Java programmers are searched, especially here in Europe. Interesting. I have a friend that works for Sun whos job it is to find companies and products that use Java and compile them into a database of success stories. His job has become increasingly difficult over the past year. Arguments about being obsolete aside, of Java and Perl, one language is seems to be growing and one seems to be dying...
Re: problems returning a hash of hashes using mod_perl
On Thu, 2002-03-14 at 10:46, [EMAIL PROTECTED] wrote:
code:
| return %Actions::Vars::config{$conf}; |
-
You are not access the hash with the proper syntax:
%Actions::Vars::config
refers to the entire config hash, while:
$Actions::Vars::config{$conf}
will return you a value from that hash. Notice the leading '%' has been
replaced with a '$'. Read the 'perldsc' man page:
man perldsc
G
