Return-Path: Delivered-To: apmail-apache-bugdb-archive@apache.org Received: (qmail 59549 invoked by uid 500); 18 Jan 2001 18:10:10 -0000 Mailing-List: contact apache-bugdb-help@apache.org; run by ezmlm Precedence: bulk Reply-To: apache-bugdb@apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list apache-bugdb@apache.org Received: (qmail 59424 invoked by uid 501); 18 Jan 2001 18:10:02 -0000 Resent-Date: 18 Jan 2001 18:10:02 -0000 Resent-Message-ID: <20010118181002.59423.qmail@apache.org> Resent-From: submit@bugz.apache.org (GNATS Filer) Resent-To: apache-bugdb@apache.org Resent-Cc: apache-bugdb@apache.org Resent-Reply-To: submit@bugz.apache.org, karlm@mit.edu Received: (qmail 45288 invoked by uid 501); 18 Jan 2001 18:04:42 -0000 Message-Id: <20010118180442.45287.qmail@apache.org> Date: 18 Jan 2001 18:04:42 -0000 From: Karl Magdsick Reply-To: karlm@mit.edu To: submit@bugz.apache.org X-Send-Pr-Version: 3.110 Subject: general/7093: apxs breaks up a gcc command into two system commands, one of which is invalid >Number: 7093 >Category: general >Synopsis: apxs breaks up a gcc command into two system commands, one of which is invalid >Confidential: no >Severity: non-critical >Priority: medium >Responsible: apache >State: open >Quarter: >Keywords: >Date-Required: >Class: sw-bug >Submitter-Id: apache >Arrival-Date: Thu Jan 18 10:10:01 PST 2001 >Closed-Date: >Last-Modified: >Originator: karlm@mit.edu >Release: 1.3.14 >Organization: apache >Environment: uname -a: Linux SIGMANU.MIT.EDU 2.2.14-5.0smp #1 SMP Tue Mar 7 21:01:40 EST 2000 i686 unknown Redhat 6.2 i686 smp gcc version egcs-2.91.66 19990314/Linux (egcs-1.1.2 release) perl, version 5.005_03 built for i386-linux >Description: apxs tries to execute the following command: -o mod_jserv.so mod_jserv.o jserv_wrapper_win.o jserv_w apper_unix.o jserv_wrapper.o jserv_watchdog.o jserv_utils.o jserv_status.o jser _protocols.o jserv_mmap.o jserv_image.o jserv_balance.o jserv_ajpv12.o jserv_aj v11.o autochange.o it should have been part of the previous command: gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c mod_jserv.c apxs generates an error when I execute the following: /usr/local/apache/bin/apxs -c -o mod_jserv.so *.c I get: gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c autochange.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_ajpv11.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_ajpv12.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_balance.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_image.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_mmap.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_protocols.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_status.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_utils.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_watchdog.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_wrapper.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_wrapper_unix.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_wrapper_win.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c mod_jserv.c -o mod_jserv.so mod_jserv.o jserv_wrapper_win.o jserv_wrapper_unix.o jserv_wr pper.o jserv_watchdog.o jserv_utils.o jserv_status.o jserv_protocols.o jserv_mm p.o jserv_image.o jserv_balance.o jserv_ajpv12.o jserv_ajpv11.o autochange.o apxs:Break: Command failed with rc=16777215 I then edited apxs so that it would print out $cmd when it broke. Here are lines 244-252 of apxs: foreach $cmd (@cmds) { print STDERR "$cmd\n"; $rc = system("$cmd"); if ($rc != 0) { printf(STDERR "apxs:Break: Command failed with rc=%d\n", $rc >> 8); printf(STDERR "axps: Failed command: %s\n", $cmd); exit(1); } } This resulted in: propt% /usr/local/apache/bin/apxs -c -o mod_jserv.so *.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c autochange.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_ajpv11.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_ajpv12.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_balance.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_image.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_mmap.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_protocols.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_status.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_utils.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_watchdog.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_wrapper.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_wrapper_unix.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c jserv_wrapper_win.c gcc -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED -I/ sr/local/apache/include -c mod_jserv.c -o mod_jserv.so mod_jserv.o jserv_wrapper_win.o jserv_wrapper_unix.o jserv_wr pper.o jserv_watchdog.o jserv_utils.o jserv_status.o jserv_protocols.o jserv_mm p.o jserv_image.o jserv_balance.o jserv_ajpv12.o jserv_ajpv11.o autochange.o apxs:Break: Command failed with rc=16777215 axps: Failed command: -o mod_jserv.so mod_jserv.o jserv_wrapper_win.o jserv_w apper_unix.o jserv_wrapper.o jserv_watchdog.o jserv_utils.o jserv_status.o jser _protocols.o jserv_mmap.o jserv_image.o jserv_balance.o jserv_ajpv12.o jserv_aj v11.o autochange.o as you can see, the command was clearly supposed to be part of the arguments for gcc >How-To-Repeat: I compiled apache 1.3.14 with: prompt% configure --prefix=/usr/local/apache --enable-module=so prompt% make prmopt% make install I then untarred jakarta-tomcat-3.2.1-src.tar.gz and changed directories to the src/native/apache/jserv directory and typed: propmt% /usr/local/apache/bin/apxs -c -o mod_jserv.so *.c Here's the edited version of apxs I used (remove line 249 to get the original version): #!/usr/bin/perl ## ==================================================================== ## Copyright (c) 1998-1999 The Apache Group. All rights reserved. ## ## Redistribution and use in source and binary forms, with or without ## modification, are permitted provided that the following conditions ## are met: ## ## 1. Redistributions of source code must retain the above copyright ## notice, this list of conditions and the following disclaimer. ## ## 2. Redistributions in binary form must reproduce the above copyright ## notice, this list of conditions and the following disclaimer in ## the documentation and/or other materials provided with the ## distribution. ## ## 3. All advertising materials mentioning features or use of this ## software must display the following acknowledgment: ## "This product includes software developed by the Apache Group ## for use in the Apache HTTP server project (http://www.apache.org/)." ## ## 4. The names "Apache Server" and "Apache Group" must not be used to ## endorse or promote products derived from this software without ## prior written permission. For written permission, please contact ## apache@apache.org. ## ## 5. Products derived from this software may not be called "Apache" ## nor may "Apache" appear in their names without prior written ## permission of the Apache Group. ## ## 6. Redistributions of any form whatsoever must retain the following ## acknowledgment: ## "This product includes software developed by the Apache Group ## for use in the Apache HTTP server project (http://www.apache.org/)." ## ## THIS SOFTWARE IS PROVIDED BY THE APACHE GROUP ``AS IS'' AND ANY ## EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE ## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR ## PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE APACHE GROUP OR ## ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, ## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT ## NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; ## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) ## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, ## STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ## ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED ## OF THE POSSIBILITY OF SUCH DAMAGE. ## ==================================================================== ## ## This software consists of voluntary contributions made by many ## individuals on behalf of the Apache Group and was originally based ## on public domain software written at the National Center for ## Supercomputing Applications, University of Illinois, Urbana-Champaign. ## For more information on the Apache Group and the Apache HTTP server ## project, please see . ## ## ## apxs -- APache eXtenSion tool ## Written by Ralf S. Engelschall ## require 5.003; use strict; package apxs; ## ## Configuration ## my $CFG_TARGET = q(httpd); # substituted via Makefile.tmpl my $CFG_CC = q(gcc); # substituted via Makefile.tmpl my $CFG_CFLAGS = q( -DLINUX=2 -DUSE_HSREGEX -DUSE_EXPAT -I../lib/expat-lite -DNO_DL_NEEDED `../apaci`); # substituted via Makefile.tmpl my $CFG_CFLAGS_SHLIB = q(); # substituted via Makefile.tmpl my $CFG_LD_SHLIB = q(); # substituted via Makefile.tmpl my $CFG_LDFLAGS_SHLIB = q(); # substituted via Makefile.tmpl my $CFG_LIBS_SHLIB = q(); # substituted via Makefile.tmpl my $CFG_PREFIX = q(/usr/local/apache); # substituted via APACI install my $CFG_SBINDIR = q(/usr/local/apache/bin); # substituted via APACI install my $CFG_INCLUDEDIR = q(/usr/local/apache/include); # substituted via APACI install my $CFG_LIBEXECDIR = q(/usr/local/apache/libexec); # substituted via APACI install my $CFG_SYSCONFDIR = q(/usr/local/apache/conf); # substituted via APACI install ## ## Cleanup the above stuff ## $CFG_CFLAGS =~ s|^\s+||; $CFG_CFLAGS =~ s|\s+$||; $CFG_CFLAGS =~ s|\s+`.+apaci`||; ## ## parse argument line ## # defaults for parameters my $opt_n = ''; my $opt_g = ''; my $opt_c = 0; my $opt_o = ''; my @opt_D = (); my @opt_I = (); my @opt_L = (); my @opt_l = (); my @opt_W = (); my @opt_S = (); my $opt_e = 0; my $opt_i = 0; my $opt_a = 0; my $opt_A = 0; my $opt_q = 0; # this subroutine is derived from Perl's getopts.pl with the enhancement of # the "+" metacharater at the format string to allow a list to be build by # subsequent occurance of the same option. sub Getopts { my ($argumentative, @ARGV) = @_; my (@args, $first, $rest, $pos); my ($errs) = 0; local ($_); local ($[) = 0; @args = split( / */, $argumentative); while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) { ($first, $rest) = ($1,$2); if ($_ =~ m|^--$|) { shift(@ARGV); last; } $pos = index($argumentative,$first); if ($pos >= $[) { if ($args[$pos+1] eq ':') { shift(@ARGV); if ($rest eq '') { unless (@ARGV) { print STDERR "apxs:Error: Incomplete option: $first (needs an argument)\n"; ++$errs; } $rest = shift(@ARGV); } eval "\$opt_$first = \$rest;"; } elsif ($args[$pos+1] eq '+') { shift(@ARGV); if ($rest eq '') { unless (@ARGV) { print STDERR "apxs:Error: Incomplete option: $first (needs an argument)\n"; ++$errs; } $rest = shift(@ARGV); } eval "push(\@opt_$first, \$rest);"; } else { eval "\$opt_$first = 1"; if ($rest eq '') { shift(@ARGV); } else { $ARGV[0] = "-$rest"; } } } else { print STDERR "apxs:Error: Unknown option: $first\n"; ++$errs; if ($rest ne '') { $ARGV[0] = "-$rest"; } else { shift(@ARGV); } } } return ($errs == 0, @ARGV); } sub usage { print STDERR "Usage: apxs -g [-S =] -n \n"; print STDERR " apxs -q [-S =] ...\n"; print STDERR " apxs -c [-S =] [-o ] [-D [=]]\n"; print STDERR " [-I ] [-L ] [-l ] [-Wc,]\n"; print STDERR " [-Wl,] ...\n"; print STDERR " apxs -i [-S =] [-a] [-A] [-n ] ...\n"; print STDERR " apxs -e [-S =] [-a] [-A] [-n ] ...\n"; exit(1); } # option handling my $rc; ($rc, @ARGV) = &Getopts("qn:gco:I+D+L+l+W+S+eiaA", @ARGV); &usage if ($rc == 0); &usage if ($#ARGV == -1 and not $opt_g); &usage if (not $opt_q and not ($opt_g and $opt_n) and not $opt_i and not $opt_c and not $opt_e); # argument handling my @args = @ARGV; my $name = 'unknown'; $name = $opt_n if ($opt_n ne ''); # overriding of configuration variables if (@opt_S) { my ($opt_S); foreach $opt_S (@opt_S) { if ($opt_S =~ m/^([^=]+)=(.*)$/) { my ($var, $val) = ($1, $2); my $oldval = eval "\$CFG_$var"; unless ($var and $oldval) { print STDERR "apxs:Error: no config variable $var\n"; &usage; } eval "\$CFG_${var}=\"${val}\""; } else { print STDERR "apxs:Error: malformatted -S option\n"; &usage; } } } ## ## Initial DSO support check ## if (not -x "$CFG_SBINDIR/$CFG_TARGET") { print STDERR "apxs:Error: $CFG_SBINDIR/$CFG_TARGET not found or not executable\n"; exit(1); } if (not grep(/mod_so/, `$CFG_SBINDIR/$CFG_TARGET -l`)) { print STDERR "apxs:Error: Sorry, no DSO support for Apache available\n"; print STDERR "apxs:Error: under your platform. Make sure the Apache\n"; print STDERR "apxs:Error: module mod_so is compiled into your server\n"; print STDERR "apxs:Error: binary `$CFG_SBINDIR/$CFG_TARGET'.\n"; exit(1); } ## ## Operation ## # helper function for executing a list of # system command with return code checks sub execute_cmds { my (@cmds) = @_; my ($cmd, $rc); foreach $cmd (@cmds) { print STDERR "$cmd\n"; $rc = system("$cmd"); if ($rc != 0) { printf(STDERR "apxs:Break: Command failed with rc=%d\n", $rc >> 8); printf(STDERR "axps: Failed command: %s\n", $cmd); exit(1); } } } if ($opt_g) { ## ## SAMPLE MODULE SOURCE GENERATION ## if (-d $name) { print STDERR "apxs:Error: Directory `$name' already exists. Remove it first\n"; exit(1); } my $data = join('', ); $data =~ s|%NAME%|$name|sg; $data =~ s|%TARGET%|$CFG_TARGET|sg; my ($mkf, $src) = ($data =~ m|^(.+)-=#=-\n(.+)|s); print STDERR "Creating [DIR] $name\n"; system("mkdir $name"); print STDERR "Creating [FILE] $name/Makefile\n"; open(FP, ">${name}/Makefile") || die; print FP $mkf; close(FP); print STDERR "Creating [FILE] $name/mod_$name.c\n"; open(FP, ">${name}/mod_${name}.c") || die; print FP $src; close(FP); exit(0); } if ($opt_q) { ## ## QUERY INFORMATION ## my $result = ''; my $arg; foreach $arg (@args) { my $ok = 0; my $name; foreach $name (qw( TARGET CC CFLAGS CFLAGS_SHLIB LD_SHLIB LDFLAGS_SHLIB LIBS_SHLIB PREFIX SBINDIR INCLUDEDIR LIBEXECDIR SYSCONFDIR )) { if ($arg eq $name or $arg eq lc($name)) { my $val = eval "\$CFG_$name"; $result .= "${val}##"; $ok = 1; } } if (not $ok) { printf(STDERR "apxs:Error: Invalid query string `%s'\n", $arg); exit(1); } } $result =~ s|##$||; $result =~ s|##| |g; print $result; } if ($opt_c) { ## ## DSO COMPILATION ## # split files into sources and objects my @srcs = (); my @objs = (); my $f; foreach $f (@args) { if ($f =~ m|\.c$|) { push(@srcs, $f); } else { push(@objs, $f); } } # determine output file my $dso_file; if ($opt_o eq '') { if ($#srcs > -1) { $dso_file = $srcs[0]; $dso_file =~ s|\.[^.]+$|.so|; } elsif ($#objs > -1) { $dso_file = $objs[0]; $dso_file =~ s|\.[^.]+$|.so|; } else { $dso_file = "mod_unknown.so"; } } else { $dso_file = $opt_o; } # create compilation commands my @cmds = (); my $opt = ''; my ($opt_Wc, $opt_I, $opt_D); foreach $opt_Wc (@opt_W) { $opt .= "$1 " if ($opt_Wc =~ m|^\s*c,(.*)$|); } foreach $opt_I (@opt_I) { $opt .= "-I$opt_I "; } foreach $opt_D (@opt_D) { $opt .= "-D$opt_D "; } my $cflags = "$CFG_CFLAGS $CFG_CFLAGS_SHLIB"; my $s; foreach $s (@srcs) { my $o = $s; $o =~ s|\.c$|.o|; $o =~ s|^.*/||; push(@cmds, "$CFG_CC $cflags -I$CFG_INCLUDEDIR $opt -c $s"); unshift(@objs, $o); } # create link command my $cmd = "$CFG_LD_SHLIB $CFG_LDFLAGS_SHLIB -o $dso_file"; my $o; foreach $o (@objs) { $cmd .= " $o"; } $opt = ''; my ($opt_Wl, $opt_L, $opt_l); foreach $opt_Wl (@opt_W) { if ($CFG_LD_SHLIB !~ m/gcc$/) { $opt .= " $1" if ($opt_Wl =~ m|^\s*l,(.*)$|); } else { $opt .= " -W$opt_Wl"; } } foreach $opt_L (@opt_L) { $opt .= " -L$opt_L"; } foreach $opt_l (@opt_l) { $opt .= " -l$opt_l"; } $cmd .= $opt; $cmd .= " $CFG_LIBS_SHLIB"; push(@cmds, $cmd); # execute the commands &execute_cmds(@cmds); # allow one-step compilation and installation if ($opt_i or $opt_e) { @args = ($dso_file); } } if ($opt_i or $opt_e) { ## ## DSO INSTALLATION ## # determine installation commands # and corresponding LoadModule/AddModule directives my @lmd = (); my @amd = (); my @cmds = (); my $f; foreach $f (@args) { if ($f !~ m|\.so$|) { print STDERR "apxs:Error: file $f is not a DSO\n"; exit(1); } my $t = $f; $t =~ s|^.+/([^/]+)$|$1|; if ($opt_i) { push(@cmds, "cp $f $CFG_LIBEXECDIR/$t"); push(@cmds, "chmod 755 $CFG_LIBEXECDIR/$t"); } # determine module symbolname and filename my $filename = ''; if ($name eq 'unknown') { $name = ''; my $base = $f; $base =~ s|\.[^.]+$||; if (-f "$base.c") { open(FP, "<$base.c"); my $content = join('', ); close(FP); if ($content =~ m|.*module\s+(?:MODULE_VAR_EXPORT\s+)?([a-zA-Z0-9_]+)_module\s*=\s*.*|s) { $name = "$1"; $filename = "$base.c"; $filename =~ s|^[^/]+/||; } } if ($name eq '') { if ($base =~ m|.*mod_([a-zA-Z0-9_]+)\..+|) { $name = "$1"; $filename = $base; $filename =~ s|^[^/]+/||; } } if ($name eq '') { print STDERR "apxs:Error: Sorry, cannot determine bootstrap symbol name.\n"; print STDERR "apxs:Error: Please specify one with option `-n'.\n"; exit(1); } } if ($filename eq '') { $filename = "mod_${name}.c"; } my $dir = $CFG_LIBEXECDIR; $dir =~ s|^$CFG_PREFIX/?||; $dir =~ s|(.)$|$1/|; push(@lmd, sprintf("LoadModule %-18s %s", "${name}_module", "$dir$t")); push(@amd, sprintf("AddModule %s", $filename)); } # execute the commands &execute_cmds(@cmds); # activate module via LoadModule/AddModule directive if ($opt_a or $opt_A) { if (not -f "$CFG_SYSCONFDIR/$CFG_TARGET.conf") { print STDERR "apxs:Error: Config file $CFG_SYSCONFDIR/$CFG_TARGET.conf not found\n"; exit(1); } open(FP, "<$CFG_SYSCONFDIR/$CFG_TARGET.conf") || die; my $content = join('', ); close(FP); if ($content !~ m|\n#?\s*LoadModule\s+|) { print STDERR "apxs:Error: Activation failed for custom $CFG_SYSCONFDIR/$CFG_TARGET.conf file.\n"; print STDERR "apxs:Error: At least one `LoadModule' directive already has to exist.\n"; exit(1); } my $lmd; my $c = ''; $c = '#' if ($opt_A); foreach $lmd (@lmd) { my $what = $opt_A ? "preparing" : "activating"; if ($content !~ m|\n#?\s*$lmd|) { $content =~ s|^(.*\n#?\s*LoadModule\s+[^\n]+\n)|$1$c$lmd\n|sg; } else { $content =~ s|^(.*\n)#?\s*$lmd[^\n]*\n|$1$c$lmd\n|sg; } $lmd =~ m|LoadModule\s+(.+?)_module.*|; print STDERR "[$what module `$1' in $CFG_SYSCONFDIR/$CFG_TARGET.conf]\n"; } my $amd; foreach $amd (@amd) { if ($content !~ m|\n#?\s*$amd|) { $content =~ s|^(.*\n#?\s*AddModule\s+[^\n]+\n)|$1$c$amd\n|sg; } else { $content =~ s|^(.*\n)#?\s*$amd[^\n]*\n|$1$c$amd\n|sg; } } if (@lmd or @amd) { if (open(FP, ">$CFG_SYSCONFDIR/$CFG_TARGET.conf.new")) { print FP $content; close(FP); system("cp $CFG_SYSCONFDIR/$CFG_TARGET.conf $CFG_SYSCONFDIR/$CFG_TARGET.conf.bak && " . "cp $CFG_SYSCONFDIR/$CFG_TARGET.conf.new $CFG_SYSCONFDIR/$CFG_TARGET.conf && " . "rm $CFG_SYSCONFDIR/$CFG_TARGET.conf.new"); } else { print STDERR "apxs:Error: unable to open configuration file\n"; } } } } ##EOF## __DATA__ ## ## Makefile -- Build procedure for sample %NAME% Apache module ## Autogenerated via ``apxs -n %NAME% -g''. ## # the used tools APXS=apxs APACHECTL=apachectl # additional user defines, includes and libraries #DEF=-Dmy_define=my_value #INC=-Imy/include/dir #LIB=-Lmy/lib/dir -lmylib # the default target all: mod_%NAME%.so # compile the DSO file mod_%NAME%.so: mod_%NAME%.c $(APXS) -c $(DEF) $(INC) $(LIB) mod_%NAME%.c # install the DSO file into the Apache installation # and activate it in the Apache configuration install: all $(APXS) -i -a -n '%NAME%' mod_%NAME%.so # cleanup clean: -rm -f mod_%NAME%.o mod_%NAME%.so # simple test test: reload lynx -mime_header http://localhost/%NAME% # reload the module by installing and restarting Apache reload: install restart # the general Apache start/restart/stop procedures start: $(APACHECTL) start restart: $(APACHECTL) restart stop: $(APACHECTL) stop -=#=- /* ** mod_%NAME%.c -- Apache sample %NAME% module ** [Autogenerated via ``apxs -n %NAME% -g''] ** ** To play with this sample module, first compile it into a ** DSO file and install it into Apache's libexec directory ** by running: ** ** $ apxs -c -i mod_%NAME%.c ** ** Then activate it in Apache's %TARGET%.conf file, for instance ** for the URL /%NAME%, as follows: ** ** # %TARGET%.conf ** LoadModule %NAME%_module libexec/mod_%NAME%.so ** ** SetHandler %NAME% ** ** ** Then after restarting Apache via ** ** $ apachectl restart ** ** you immediately can request the URL /%NAME and watch for the ** output of this module. This can be achieved for instance via: ** ** $ lynx -mime_header http://localhost/%NAME% ** ** The output should be similar to the following one: ** ** HTTP/1.1 200 OK ** Date: Tue, 31 Mar 1998 14:42:22 GMT ** Server: Apache/1.3.4 (Unix) ** Connection: close ** Content-Type: text/html ** ** The sample page from mod_%NAME%.c */ #include "httpd.h" #include "http_config.h" #include "http_protocol.h" #include "ap_config.h" /* The sample content handler */ static int %NAME%_handler(request_rec *r) { r->content_type = "text/html"; ap_send_http_header(r); if (!r->header_only) ap_rputs("The sample page from mod_%NAME%.c\n", r); return OK; } /* Dispatch list of content handlers */ static const handler_rec %NAME%_handlers[] = { { "%NAME%", %NAME%_handler }, { NULL, NULL } }; /* Dispatch list for API hooks */ module MODULE_VAR_EXPORT %NAME%_module = { STANDARD_MODULE_STUFF, NULL, /* module initializer */ NULL, /* create per-dir config structures */ NULL, /* merge per-dir config structures */ NULL, /* create per-server config structures */ NULL, /* merge per-server config structures */ NULL, /* table of config file commands */ %NAME%_handlers, /* [#8] MIME-typed-dispatched handlers */ NULL, /* [#1] URI to filename translation */ NULL, /* [#4] validate user id from request */ NULL, /* [#5] check if the user is ok _here_ */ NULL, /* [#3] check access by host address */ NULL, /* [#6] determine MIME type */ NULL, /* [#7] pre-run fixups */ NULL, /* [#9] log a transaction */ NULL, /* [#2] header parser */ NULL, /* child_init */ NULL, /* child_exit */ NULL /* [#0] post read-request */ }; >Fix: Fixing bugs in automatic generators for perl scripts is a pain. Good luck. >Release-Note: >Audit-Trail: >Unformatted: [In order for any reply to be added to the PR database, you need] [to include in the Cc line and make sure the] [subject line starts with the report component and number, with ] [or without any 'Re:' prefixes (such as "general/1098:" or ] ["Re: general/1098:"). If the subject doesn't match this ] [pattern, your message will be misfiled and ignored. The ] ["apbugs" address is not added to the Cc line of messages from ] [the database automatically because of the potential for mail ] [loops. If you do not include this Cc, your reply may be ig- ] [nored unless you are responding to an explicit request from a ] [developer. Reply only with text; DO NOT SEND ATTACHMENTS! ]