cvs commit: modperl-site/embperl Changes.pod.1.html index.html
richter 00/04/16 20:27:17 Modified:embperl Changes.pod.1.html index.html Log: Embperl Webpages - Changes Revision ChangesPath 1.146 +3 -1 modperl-site/embperl/Changes.pod.1.html Index: Changes.pod.1.html === RCS file: /home/cvs/modperl-site/embperl/Changes.pod.1.html,v retrieving revision 1.145 retrieving revision 1.146 diff -u -r1.145 -r1.146 --- Changes.pod.1.html2000/04/16 12:14:46 1.145 +++ Changes.pod.1.html2000/04/17 03:27:16 1.146 @@ -18,7 +18,7 @@ [HOME] [CONTENT] [PREV (Revision History - Content)] [NEXT (1.3b2 (BETA) 11. Feb 2000)] -Last Update: Sun Apr 16 14:14:35 2000 (MET) +Last Update: Mon Apr 17 05:27:09 2000 (MET) NOTE: This version is only available via "CVS" @@ -51,6 +51,8 @@ Embperl defaults session handling. Idea form Barrie Slaymaker. - Added EmbperlLogo.gif to the distribution, which contains "Powered by Embperl". + - Added Patch from Randy Kobes that makes Embperl compile with + Apache 1.3.12 and Perl 5.6 on Win32. [HOME] [CONTENT] [PREV (Revision History - Content)] [NEXT (1.3b2 (BETA) 11. Feb 2000)] ___ 1.94 +0 -0 modperl-site/embperl/index.html Index: index.html === RCS file: /home/cvs/modperl-site/embperl/index.html,v retrieving revision 1.93 retrieving revision 1.94 diff -u -r1.93 -r1.94 --- index.html2000/04/16 12:14:47 1.93 +++ index.html2000/04/17 03:27:16 1.94 @@ -272,7 +272,7 @@ HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS <[EMAIL PROTECTED]> - Last Update $Id: index.html,v 1.93 2000/04/16 12:14:47 richter Exp $ + Last Update $Id: index.html,v 1.94 2000/04/17 03:27:16 richter Exp $
cvs commit: modperl-2.0/lib/ModPerl Code.pm
dougm 00/04/16 17:07:40
Modified:lib/ModPerl Code.pm
Log:
MP_TRACE_x_do for arbitrary expressions
Revision ChangesPath
1.9 +5 -0 modperl-2.0/lib/ModPerl/Code.pm
Index: Code.pm
===
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Code.pm 2000/04/16 01:41:22 1.8
+++ Code.pm 2000/04/17 00:07:40 1.9
@@ -200,20 +200,25 @@
#ifdef MP_TRACE
#define MP_TRACE_a if (MP_debug_level) modperl_trace
+#define MP_TRACE_a_do(exp) if (MP_debug_level) exp
#else
#define MP_TRACE_a if (0) modperl_trace
+#define MP_TRACE_a_do(exp)
#endif
EOF
for my $type (@trace) {
my $define = "#define MP_TRACE_$type";
+my $define_do = join '_', $define, 'do';
print $h_fh <
cvs commit: modperl-2.0/src/modules/perl modperl_log.h
dougm 00/04/16 17:02:26
Modified:.Makefile.PL
lib/Apache Build.pm
patches link-hack.pat
src/modules/perl modperl_log.h
Log:
add Apache::Build::{ccopts,ldopts} methods
enable libgtop linking if debug and available
beef up logic for generating/cleaning files
Revision ChangesPath
1.9 +5 -5 modperl-2.0/Makefile.PL
Index: Makefile.PL
===
RCS file: /home/cvs/modperl-2.0/Makefile.PL,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Makefile.PL 2000/04/16 01:41:21 1.8
+++ Makefile.PL 2000/04/17 00:02:22 1.9
@@ -10,7 +10,7 @@
our $VERSION;
-my $build = Apache::Build->new;
+my $build = Apache::Build->new(debug => 1);
my $code = ModPerl::Code->new;
#quick hack until build system is complete
@@ -43,6 +43,7 @@
$httpd_version, $VERSION, $^V;
$build->save;
+$build->save_ldopts;
$code->generate;
}
@@ -57,17 +58,16 @@
my $opts = shift;
return clean() if $opts->{m} eq 'c';
-my $ccopts = ExtUtils::Embed::ccopts();
+my $ccopts = $build->ccopts;
my @inc = $build->inc;
my($cc, $ar) = map { $build->perl_config($_) } qw(cc ar);
chdir $code->path;
-my $flags = "-g -Wall";
-$flags .= " -E" if $opts->{E};
+$ccopts .= " -E" if $opts->{E};
for (sort { (stat $b)[9] <=> (stat $a)[9] } @{ $code->c_files }) {
-echo_cmd "$cc $flags $ccopts @inc -c $_";
+echo_cmd "$cc $ccopts @inc -c $_";
}
echo_cmd "$ar crv libmodperl.a @{ $code->o_files }";
1.4 +70 -8 modperl-2.0/lib/Apache/Build.pm
Index: Build.pm
===
RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Build.pm 2000/04/15 17:38:45 1.3
+++ Build.pm 2000/04/17 00:02:23 1.4
@@ -5,6 +5,7 @@
use warnings;
use Config;
use Cwd ();
+use ExtUtils::Embed ();
use constant is_win32 => $^O eq 'MSWin32';
use constant IS_MOD_PERL_BUILD => grep { -e "$_/lib/mod_perl.pm" } qw(. ..);
@@ -60,6 +61,40 @@
#--- Perl Config stuff ---
+sub gtop_ldopts {
+my $xlibs = "-L/usr/X11/lib -L/usr/X11R6/lib -lXau";
+return " -lgtop -lgtop_sysdeps -lgtop_common $xlibs";
+}
+
+sub ldopts {
+my($self) = @_;
+
+my $ldopts = ExtUtils::Embed::ldopts();
+chomp $ldopts;
+
+if ($self->{use_gtop}) {
+$ldopts .= $self->gtop_ldopts;
+}
+
+$ldopts;
+}
+
+sub ccopts {
+my($self) = @_;
+
+my $ccopts = ExtUtils::Embed::ccopts();
+
+if ($self->{use_gtop}) {
+$ccopts .= " -DMP_USE_GTOP";
+}
+
+if ($self->{debug}) {
+$ccopts .= " -g -Wall -DMP_TRACE";
+}
+
+$ccopts;
+}
+
sub perl_config {
my($self, $key) = @_;
@@ -181,22 +216,37 @@
sub new {
my $class = shift;
+
+my $self = bless {
+cwd => Cwd::fastcwd(),
+@_,
+}, $class;
-bless {
- cwd => Cwd::fastcwd(),
- @_,
- }, $class;
+if ($self->{debug}) {
+$self->{use_gtop} = 1 if $self->find_dlfile('gtop');
+}
+
+$self;
}
sub DESTROY {}
-my $save_file = 'lib/Apache/BuildConfig.pm';
+my %default_files = (
+'build_config' => 'lib/Apache/BuildConfig.pm',
+'ldopts' => 'src/modules/perl/ldopts',
+);
sub clean_files {
my $self = shift;
-$self->{save_file} || $save_file;
+map { $self->default_file($_) } keys %default_files;
}
+sub default_file {
+my($self, $name, $override) = @_;
+my $key = join '_', 'file', $name;
+$self->{$key} ||= ($override || $default_files{$name});
+}
+
sub freeze {
require Data::Dumper;
local $Data::Dumper::Terse = 1;
@@ -205,12 +255,24 @@
$data;
}
+sub save_ldopts {
+my($self, $file) = @_;
+
+$file ||= $self->default_file('ldopts', $file);
+my $ldopts = $self->ldopts;
+
+open my $fh, '>', $file or die "open $file: $!";
+print $fh "#!/bin/sh\n\necho $ldopts\n";
+close $fh;
+chmod 0755, $file;
+}
+
sub save {
my($self, $file) = @_;
-$self->{save_file} = $file || $save_file;
+$file ||= $self->default_file('build_config');
(my $obj = $self->freeze) =~ s/^//;
-open my $fh, '>', $self->{save_file} or die "open $file: $!";
+open my $fh, '>', $file or die "open $file: $!";
print $fh <
cvs commit: modperl-2.0/src/modules/perl mod_perl.h
dougm 00/04/16 09:57:55 Modified:src/modules/perl mod_perl.h Log: incase of -Accflags=... Revision ChangesPath 1.6 +2 -0 modperl-2.0/src/modules/perl/mod_perl.h Index: mod_perl.h === RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.h,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- mod_perl.h2000/04/16 00:35:32 1.5 +++ mod_perl.h2000/04/16 16:57:55 1.6 @@ -1,7 +1,9 @@ #ifndef MOD_PERL_H #define MOD_PERL_H +#ifndef PERL_NO_GET_CONTEXT #define PERL_NO_GET_CONTEXT +#endif #include "EXTERN.h" #include "perl.h"
cvs commit: modperl-2.0/patches link-hack.pat
dougm 00/04/16 09:56:35 Added: patches link-hack.pat Log: howto link in libmodperl.a Revision ChangesPath 1.1 modperl-2.0/patches/link-hack.pat Index: link-hack.pat === here's how to hack libmodperl.a into apache-2.0 until the build system is completed. (ithrperl == -Dusethreads perl) Index: src/build/program.mk === RCS file: /home/cvs/apache-2.0/src/build/program.mk,v retrieving revision 1.3 diff -u -u -r1.3 program.mk --- src/build/program.mk 2000/03/31 07:02:31 1.3 +++ src/build/program.mk 2000/04/16 16:54:10 @@ -53,8 +53,10 @@ # # The build environment was provided by Sascha Schumann. # +LIBMODPERL=../../modperl-2.0/src/modules/perl/libmodperl.a +MP_LIBS = $(LIBMODPERL) `ithrperl -MExtUtils::Embed -e ldopts` PROGRAM_OBJECTS = $(PROGRAM_SOURCES:.c=.lo) $(PROGRAM_NAME): $(PROGRAM_DEPENDENCIES) $(PROGRAM_OBJECTS) - $(LINK) $(PROGRAM_LDFLAGS) $(PROGRAM_OBJECTS) $(PROGRAM_LDADD) + $(LINK) $(PROGRAM_LDFLAGS) $(PROGRAM_OBJECTS) $(PROGRAM_LDADD) $(MP_LIBS)
cvs commit: modperl-2.0/patches perl_no_get_context.pat
dougm 00/04/16 09:53:03
Added: patches perl_no_get_context.pat
Log:
notes on building ithread Perl
Revision ChangesPath
1.1 modperl-2.0/patches/perl_no_get_context.pat
Index: perl_no_get_context.pat
===
for interpreter pool support, apply the patch below and configure Perl
5.6.0 like so:
./Configure -des -Dusethreads -Accflags=-DPERL_NO_GET_CONTEXT
Date: Fri, 14 Apr 2000 16:23:51 -0700 (PDT)
From: Doug MacEachern <[EMAIL PROTECTED]>
To: Gurusamy Sarathy <[EMAIL PROTECTED]>
Cc: [EMAIL PROTECTED]
Subject: Re: -Dusethread woes
In-Reply-To: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
wow, that was fast, thanks!!
i also had to define PERL_NO_GET_CONTEXT when building libperl.a for this
to work. which in turn required the patch below. my test program works
again, yay!! and, so does mod_perl-2.0-dev's PerlInterpreter pool, that
maps a perl_clone()'d interpreter to an Apache-2.0 thread,
concurrently calling back into each in the same process, wheee!
--- ext/DB_File/version.c~ Sun Jan 23 05:15:45 2000
+++ ext/DB_File/version.c Fri Apr 14 16:08:53 2000
@@ -28,6 +28,7 @@
void
__getBerkeleyDBInfo()
{
+dTHX;
SV * version_sv = perl_get_sv("DB_File::db_version", GV_ADD|GV_ADDMULTI) ;
SV * ver_sv = perl_get_sv("DB_File::db_ver", GV_ADD|GV_ADDMULTI) ;
SV * compat_sv = perl_get_sv("DB_File::db_185_compat", GV_ADD|GV_ADDMULTI) ;
cvs commit: modperl-2.0/patches - New directory
dougm 00/04/16 09:51:58 modperl-2.0/patches - New directory
cvs commit: modperl-site/embperl Embperl.pod.17.html Embperl.pod.18.html
richter 00/04/16 05:17:53 Added: embperl Embperl.pod.17.html Embperl.pod.18.html Log: embperl site Revision ChangesPath 1.1 modperl-site/embperl/Embperl.pod.17.html Index: Embperl.pod.17.html === Syntaxmodes for various editors mailto:[EMAIL PROTECTED]"> Syntaxmodes for various editors [HOME] [CONTENT] [PREV (References)] [NEXT (Author)] Emacs VIM Dreamweaver Emacs From: Erik Arneson mailto:[[EMAIL PROTECTED]]">[[EMAIL PROTECTED]] Here's the amount of documentation I've got right now. They need to get mmm.el from this URL: http://members.tripod.com/gchen2/xemacs/">http://members.tripod.com/gchen2/xemacs/ Then download my mmm-embperl.el from this one: http://inanna.starseed.com/~erik/mmm-embperl.el">http://inanna.starseed.com/~erik/mmm-embperl.el The documentation for using these is included in those two elisp files. VIM Vim Syntaxfile from Steve Willer could be found at http://www.interlog.com/~willer/embperl.vim">http://www.interlog.com/~willer/embperl.vim Vim Syntaxfile from Kee Hinckley could be found at http://www.somewhere.com/software/">http://www.somewhere.com/software/ Dreamweaver Dreamweaverextention which tell Dreamweaver not to touch Embperl code could be found at http://www.somewhere.com/software/">http://www.somewhere.com/software/ [HOME] [CONTENT] [PREV (References)] [NEXT (Author)] ___ HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / http://www.ecos.de/">ecos gmbh 1.1 modperl-site/embperl/Embperl.pod.18.html Index: Embperl.pod.18.html === Author mailto:[EMAIL PROTECTED]"> Author [HOME] [CONTENT] [PREV (Syntaxmodes for various editors)] G. Richter (mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]) [HOME] [CONTENT] [PREV (Syntaxmodes for various editors)] ___ HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / http://www.ecos.de/">ecos gmbh
cvs commit: modperl-site/embperl Changes.pod.1.html Embperl.pod.14.html Embperl.pod.16.html Embperl.pod.3.html Embperl.pod.cont.html index.html
richter 00/04/16 05:14:47 Modified:embperl Changes.pod.1.html Embperl.pod.14.html Embperl.pod.16.html Embperl.pod.3.html Embperl.pod.cont.html index.html Log: Embperl Webpages - Changes Revision ChangesPath 1.145 +1 -1 modperl-site/embperl/Changes.pod.1.html Index: Changes.pod.1.html === RCS file: /home/cvs/modperl-site/embperl/Changes.pod.1.html,v retrieving revision 1.144 retrieving revision 1.145 diff -u -r1.144 -r1.145 --- Changes.pod.1.html2000/04/14 12:28:19 1.144 +++ Changes.pod.1.html2000/04/16 12:14:46 1.145 @@ -18,7 +18,7 @@ [HOME] [CONTENT] [PREV (Revision History - Content)] [NEXT (1.3b2 (BETA) 11. Feb 2000)] -Last Update: Fri Apr 14 14:27:55 2000 (MET) +Last Update: Sun Apr 16 14:14:35 2000 (MET) NOTE: This version is only available via "CVS" 1.11 +3 -0 modperl-site/embperl/Embperl.pod.14.html Index: Embperl.pod.14.html === RCS file: /home/cvs/modperl-site/embperl/Embperl.pod.14.html,v retrieving revision 1.10 retrieving revision 1.11 diff -u -r1.10 -r1.11 --- Embperl.pod.14.html 2000/04/14 12:28:23 1.10 +++ Embperl.pod.14.html 2000/04/16 12:14:46 1.11 @@ -32,6 +32,7 @@ perl5.004_04 perl5.005_03 +perl5.6.0 apache_1.2.5 apache_1.2.6 apache_1.3.0 @@ -41,6 +42,8 @@ apache_1.3.4 apache_1.3.5 apache_1.3.6 +apache_1.3.9 +apache_1.3.12 apache_ssl (Ben SSL) Stronghold 2.2 Stronghold 2.4.1 1.6 +2 -2 modperl-site/embperl/Embperl.pod.16.html Index: Embperl.pod.16.html === RCS file: /home/cvs/modperl-site/embperl/Embperl.pod.16.html,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- Embperl.pod.16.html 2000/04/14 12:28:23 1.5 +++ Embperl.pod.16.html 2000/04/16 12:14:47 1.6 @@ -16,7 +16,7 @@ -[HOME] [CONTENT] [PREV (Support)] [NEXT (Author)] +[HOME] [CONTENT] [PREV (Support)] [NEXT (Syntaxmodes for various editors)] Information Download @@ -55,7 +55,7 @@ The lastest developements are available from a CVS. Look at "perldoc CVS.pod" for a detailed description. -[HOME] [CONTENT] [PREV (Support)] [NEXT (Author)] +[HOME] [CONTENT] [PREV (Support)] [NEXT (Syntaxmodes for various editors)] ___ HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / http://www.ecos.de/">ecos gmbh 1.14 +9 -0 modperl-site/embperl/Embperl.pod.3.html Index: Embperl.pod.3.html === RCS file: /home/cvs/modperl-site/embperl/Embperl.pod.3.html,v retrieving revision 1.13 retrieving revision 1.14 diff -u -r1.13 -r1.14 --- Embperl.pod.3.html2000/04/14 12:28:24 1.13 +++ Embperl.pod.3.html2000/04/16 12:14:47 1.14 @@ -40,6 +40,7 @@ EMBPERL_COOKIE_EXPIRES EMBPERL_SESSION_CLASSES EMBPERL_SESSION_ARGS + EMBPERL_SESSION_HANDLER_CLASS (1.3b3 and higher) @@ -648,6 +649,14 @@ PerlSetEnv EMBPERL_SESSION_ARGS "DataSource=dbi:mysql:session UserName=www Password=secret" + + + EMBPERL_SESSION_HANDLER_CLASS (1.3b3 and higher) + +Set the class that performs the Embperl session handling. Default is +HTML::Embperl::Session. You can overwrite HTML::Embperl::Session and specify the name of your class within this variable. This gives you the +possibility to implement your own session handling. + [HOME] [CONTENT] [PREV (Operating-Modes)] [NEXT (SYNTAX)] ___ HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / http://www.ecos.de/">ecos gmbh 1.22 +10 -1 modperl-site/embperl/Embperl.pod.cont.html Index: Embperl.pod.cont.html === RCS file: /home/cvs/modperl-site/embperl/Embperl.pod.cont.html,v retrieving revision 1.21 retrieving revision 1.22 diff -u -r1.21 -r1.22 --- Embperl.pod.cont.html 2000/04/14 12:28:24 1.21 +++ Embperl.pod.cont.html 2000/04/16 12:14:47 1.22 @@ -65,6 +65,7 @@ EMBPERL_COOKIE_EXPIRES EMBPERL_SESSION_CLASSES EMBPERL_SESSION_ARGS + EMBPERL_SESSION_HANDLER_CLASS (1.3b3 and higher) SYNTAX @@ -157,7 +158,15 @@ CVS
