Rodney
First, sorry for the "Confidential" blurb at the end of my mails.
Apparently, it is absurdly long, but it's investment bank paranoia
which I can do nothing about. (Sending emails from home is
problematic, as I live on a yacht :-)
Example conf file snippet is
================
=pod
=over to apache
ExtendedStatus On
=back to pod
=cut
$LockFile = '/var/tmp/accept.lock'; # NB insecure
....
================
I have also attached my entire conf file (in both Unix and DOS CR/LF
format), just in case. I am not sure if you will receive these, but
I don't think there is anything else of much interest.
Cheers
Kevin
-----Original Message-----
From: rbroom
Sent: 11 February 2000 14:19
To: modperl
Cc: rbroom
Subject: FW: Re: Problem using POD/mod-perl to document configuration
files
At 13:41 2000-02-11 +0000, [EMAIL PROTECTED] wrote:
>Page 427 of "Writing Apache Modules with Perl and C" describes the
>use of POD to document Apache configuration files. My problem is
>that I cannot get the =over/=back functionality working (which is
>supposed to hand sections back to Apache for processing, thus
>allowing one to include configuration sections in the generated
>HTML).
Huh, I didn't realize that mod_perl would dig inside of POD like that.
First, may we have a specific snipet of the conf file, please?
Second, does
your =over/=back look like this:
=over to apache
MyDirective On
=back to pod
>This message contains confidential information...
hehe, sent this from work did ya?
----------------
Rodney Broom
# %A%
ServerRoot /home/wa_dev/wa_tree/links/apache
LoadModule vhost_alias_module libexec/mod_vhost_alias.so
LoadModule env_module libexec/mod_env.so
LoadModule config_log_module libexec/mod_log_config.so
LoadModule mime_module libexec/mod_mime.so
LoadModule negotiation_module libexec/mod_negotiation.so
LoadModule status_module libexec/mod_status.so
LoadModule info_module libexec/mod_info.so
LoadModule autoindex_module libexec/mod_autoindex.so
LoadModule dir_module libexec/mod_dir.so
LoadModule cgi_module libexec/mod_cgi.so
LoadModule speling_module libexec/mod_speling.so
LoadModule userdir_module libexec/mod_userdir.so
LoadModule alias_module libexec/mod_alias.so
LoadModule rewrite_module libexec/mod_rewrite.so
LoadModule auth_module libexec/mod_auth.so
LoadModule expires_module libexec/mod_expires.so
LoadModule usertrack_module libexec/mod_usertrack.so
LoadModule unique_id_module libexec/mod_unique_id.so
LoadModule setenvif_module libexec/mod_setenvif.so
LoadModule perl_module libexec/libperl_500503.so
ClearModuleList
AddModule mod_vhost_alias.c
AddModule mod_env.c
AddModule mod_log_config.c
AddModule mod_mime.c
AddModule mod_negotiation.c
AddModule mod_status.c
AddModule mod_info.c
AddModule mod_autoindex.c
AddModule mod_dir.c
AddModule mod_cgi.c
AddModule mod_speling.c
AddModule mod_userdir.c
AddModule mod_alias.c
AddModule mod_rewrite.c
AddModule mod_auth.c
AddModule mod_expires.c
AddModule mod_usertrack.c
AddModule mod_unique_id.c
AddModule mod_so.c
AddModule mod_setenvif.c
AddModule mod_perl.c
<Perl>
#!/sbcimp/run/pd/perl/5.005_03/bin/perl
# core modules
use User::pwent;
# Apache modules
use Apache::PerlSections();
my($apache_root, $hostname, $real_user, $url);
chomp($hostname = `hostname`);
$real_user = getpwuid($<)->name;
=pod
=head1 The Equity Research Website Configuration File
=head2 Section 1: Global Environment
The directives in this section affect the overall operation of Apache, such as the
number of concurrent requests it can handle or where it
can find its configuration files.
=cut
SWITCH: {
# Kev's workstation
$real_user eq 'ruscoekm' and do {
$Listen = 7001;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
# Phil's workstation
$real_user eq 'staffoph' and do {
$Listen = 7002;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
# Colin's workstation
$real_user eq 'woodfoc' and do {
$Listen = 7003;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
# Andy's workstation
$real_user eq 'jonesad' and do {
$Listen = 7004;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
'default' and do {
$Listen = 80;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
};
$apache_root = $real_user eq 'root' ? '/home/wa_dev/wa_tree' :
"/home/$real_user/wa_tree";
=pod
=head2 Test of handing configuration directives back to Apache
=over to apache
$ExtendedStatus = 'On';
=back to pod
=cut
$LockFile = '/var/tmp/accept.lock';
$MaxRequestsPerChild = 10000;
$NameVirtualHost = "172.16.129.30:$Listen";
$PidFile = "$apache_root/logs/httpd.pid";
$ServerName = "$hostname.ldn.swissbank.com";
$ServerRoot = "$apache_root/links/apache";
=pod
=head2 Section 2: 'Main' server configuration
The directives in this section set up the values used by the 'main' server, which
responds to any requests that aren't handled by a
<VirtualHost> definition. These values also provide defaults for any <VirtualHost>
containers you may define later in the file.
All of these directives may appear inside <VirtualHost> containers, in which case
these default settings will be overridden for the
virtual host being defined.
=cut
# scalars
$AddIconByEncoding = '(CMP,/icons/compressed.gif) x-compress x-gzip';
$CoreDumpDirectory = "$apache_root/logs";
$CustomLog = "$apache_root/logs/apache_access.log common";
$DefaultIcon = '/icons/unknown.gif';
$DefaultType = 'text/plain';
$DocumentRoot = "$apache_root/website";
$ErrorLog = "$apache_root/logs/apache_error.log";
$Group = 'nobody';
$HeaderName = 'HEADER';
$HostnameLookups = 'On';
$IndexIgnore = '.??* *~ *# HEADER* README* RCS CVS *,v *,t';
$IndexOptions = 'FancyIndexing';
$LanguagePriority = 'en da nl et fr de el it pt ltz ca es sv';
$LogLevel = 'warn';
$ReadmeName = 'README';
$ServerSignature = 'email';
$User = 'nobody';
# arrays
@AddEncoding = (
[ 'x-compress' => 'Z' ],
[ 'x-gzip' => 'gz tgz' ],
);
@AddIcon = (
[ '/icons/binary.gif' => '.bin .exe' ],
[ '/icons/binhex.gif' => '.hqx' ],
[ '/icons/tar.gif' => '.tar' ],
[ '/icons/world2.gif' => '.wrl .wrl.gz .vrml .vrm .iv' ],
[ '/icons/compressed.gif' => '.Z .z .tgz .gz .zip' ],
[ '/icons/a.gif' => '.ps .ai .eps' ],
[ '/icons/layout.gif' => '.html .shtml .htm .pdf' ],
[ '/icons/text.gif' => '.txt' ],
[ '/icons/c.gif' => '.c' ],
[ '/icons/p.gif' => '.pl .py' ],
[ '/icons/f.gif' => '.for' ],
[ '/icons/dvi.gif' => '.dvi' ],
[ '/icons/uuencoded.gif' => '.uu' ],
[ '/icons/script.gif' => '.conf .sh .shar .csh .ksh .tcl' ],
[ '/icons/tex.gif' => '.tex' ],
[ '/icons/bomb.gif' => 'core' ],
[ '/icons/back.gif' => '..' ],
[ '/icons/hand.right.gif' => 'README' ],
[ '/icons/folder.gif' => '^^DIRECTORY^^' ],
[ '/icons/blank.gif' => '^^BLANKICON^^' ],
);
@AddIconByType = (
[ AddIconByType => '(TXT,/icons/text.gif) text/*' ],
[ AddIconByType => '(IMG,/icons/image2.gif) image/*' ],
[ AddIconByType => '(SND,/icons/sound2.gif) audio/*' ],
[ AddIconByType => '(VID,/icons/movie.gif) video/*' ],
);
@AddLanguage = (
[ 'da' => '.dk' ],
[ 'nl' => '.nl' ],
[ 'en' => '.en' ],
[ 'et' => '.ee' ],
[ 'fr' => '.fr' ],
[ 'de' => '.de' ],
[ 'el' => '.el' ],
[ 'it' => '.it' ],
[ 'pt' => '.pt' ],
[ 'ltz' => '.lu' ],
[ 'ca' => '.ca' ],
[ 'es' => '.es' ],
[ 'sv' => '.se' ],
[ 'cz' => '.cz' ],
);
@AddType = (
[ 'application/x-tar' => '.tgz' ],
);
@Alias = (
[ '/apache-cgi' => "$ServerRoot/cgi-bin"
],
[ '/apache-modperl' => "$ServerRoot/cgi-bin"
],
[ '/fom-serve' =>
"/sbcimp/dyn/data/EquityResearch/WA/faqomatic/fom-serve" ],
[ '/icons' => "$ServerRoot/icons"
],
);
@LogFormat = (
[ '%h %l %u %t \"%r\" %>s %b' => 'common' ],
);
@RedirectMatch = (
[ '^/cheetah_prd(.*)' => '/infra/cheetah$1'
],
[ '^/cheetah_beta(.*)' =>
'http://ln4d556uss.ldn.swissbank.com:7002/infra/cheetah$1' ],
[ '^/dust_prd(.*)' => '/infra/dust$1'
],
[ '^/dust_beta(.*)' =>
'http://ln4d556uss.ldn.swissbank.com:7003/infra/dust$1' ],
);
# hashes
%Directory = (
'/' => {
Options => 'Indexes FollowSymLinks',
AllowOverride => 'None',
},
);
%Location = (
'/' => {
AuthGroupFile =>
"$apache_root/cfg/groups.conf",
AuthName => '"Restricted
Directory : Contact RIT Team +31 83444"',
AuthType => 'Basic',
AuthUserFile =>
"$apache_root/cfg/users.conf",
ExpiresActive => 'On',
ExpiresDefault => '"access plus 0
seconds"',
},
'/server-status' => {
SetHandler => 'server-status',
},
'/server-info' => {
SetHandler => 'server-info',
},
'/perl-status' => {
SetHandler => 'perl-script',
PerlHandler =>
'Apache::Status',
},
'/infra/recruitment' => {
Require => 'group
management',
},
'/infra/shared/MISC/contacts' => {
Require => 'group rit',
},
'/infra/shared/Management' => {
Require => 'group
management',
},
);
CGI_URL:
foreach $url (qw(/apache-cgi /phoenix/cgi-bin)) {
$Location{$url} = {
SetHandler => 'cgi-script',
Options => '+ExecCGI',
};
}
MODPERL_URL:
foreach $url (qw(/apache-modperl /cgi-bin /infra/cgi-bin /infra/cheetah/mod_perl
/infra/dust/mod_perl)) {
$Location{$url} = {
SetHandler => 'perl-script',
PerlHandler => 'Apache::Registry',
PerlInitHandler => 'Apache::StatINC',
PerlSendHeader => 'On',
Options => '+ExecCGI',
SetEnv => [
[ 'PERLLIB' => "$apache_root/lib" ],
],
};
}
=pod
=head2 Section 3: Virtual Hosts
VirtualHost: If you want to maintain multiple domains/hostnames on your machine you
can setup VirtualHost containers for them.
Please see the documentation at <http://www.apache.org/docs/vhosts/ target="_parent">
for further details before you try to setup virtual hosts.
You may use the command line option '-S' to verify your virtual host configuration.
=cut
$PerlConfig = <<EOF;
<VirtualHost $NameVirtualHost>
ServerName fogmouth
ServerAlias fogmouth.ldn.swissbank.com
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName rit
ServerAlias rit.ldn.swissbank.com resinfra resinfra.ldn.swissbank.com
RewriteEngine on
RewriteRule ^/~resinfra_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/~resinfra/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/~rit_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/~rit/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/root/infra.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName safe
ServerAlias safe.ldn.swissbank.com
ServerAdmin Kevin.Ruscoe\@wdr.com
ErrorLog $apache_root/logs/apache_safe_error.log
CustomLog $apache_root/logs/apache_safe_access.log common
RewriteEngine on
RewriteRule ^/~safe_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/safe/\$1
[R,L]
RewriteRule ^/~safe/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/safe/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/safe/docs/safe.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName cheetah
ServerAlias cheetah.ldn.swissbank.com
ServerAdmin Philip.Stafford-Jones\@wdr.com
ErrorLog $apache_root/logs/apache_cheetah_error.log
CustomLog $apache_root/logs/apache_cheetah_access.log common
RewriteEngine on
RewriteRule ^/~cheetah_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/cheetah/\$1
[R,L]
RewriteRule ^/~cheetah/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/cheetah/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/cheetah/docs/cheetah.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName dust
ServerAlias dust.ldn.swissbank.com
ServerAdmin Colin.Woodford\@wdr.com
ErrorLog $apache_root/logs/apache_dust_error.log
CustomLog $apache_root/logs/apache_dust_access.log common
RewriteEngine on
RewriteRule ^/~dust_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/dust/\$1
[R,L]
RewriteRule ^/~dust/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/dust/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/dust/docs/dust.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName wire
ServerAlias wire.ldn.swissbank.com
ServerAdmin James.Shaw\@wdr.com
ErrorLog $apache_root/logs/apache_wire_error.log
CustomLog $apache_root/logs/apache_wire_access.log common
RewriteEngine on
RewriteRule ^/\$ /wire/wire.html
[R,L]
</VirtualHost>
EOF
#print STDERR Apache::PerlSections->dump;
__END__
</Perl>
# %A%
ServerRoot /home/wa_dev/wa_tree/links/apache
LoadModule vhost_alias_module libexec/mod_vhost_alias.so
LoadModule env_module libexec/mod_env.so
LoadModule config_log_module libexec/mod_log_config.so
LoadModule mime_module libexec/mod_mime.so
LoadModule negotiation_module libexec/mod_negotiation.so
LoadModule status_module libexec/mod_status.so
LoadModule info_module libexec/mod_info.so
LoadModule autoindex_module libexec/mod_autoindex.so
LoadModule dir_module libexec/mod_dir.so
LoadModule cgi_module libexec/mod_cgi.so
LoadModule speling_module libexec/mod_speling.so
LoadModule userdir_module libexec/mod_userdir.so
LoadModule alias_module libexec/mod_alias.so
LoadModule rewrite_module libexec/mod_rewrite.so
LoadModule auth_module libexec/mod_auth.so
LoadModule expires_module libexec/mod_expires.so
LoadModule usertrack_module libexec/mod_usertrack.so
LoadModule unique_id_module libexec/mod_unique_id.so
LoadModule setenvif_module libexec/mod_setenvif.so
LoadModule perl_module libexec/libperl_500503.so
ClearModuleList
AddModule mod_vhost_alias.c
AddModule mod_env.c
AddModule mod_log_config.c
AddModule mod_mime.c
AddModule mod_negotiation.c
AddModule mod_status.c
AddModule mod_info.c
AddModule mod_autoindex.c
AddModule mod_dir.c
AddModule mod_cgi.c
AddModule mod_speling.c
AddModule mod_userdir.c
AddModule mod_alias.c
AddModule mod_rewrite.c
AddModule mod_auth.c
AddModule mod_expires.c
AddModule mod_usertrack.c
AddModule mod_unique_id.c
AddModule mod_so.c
AddModule mod_setenvif.c
AddModule mod_perl.c
<Perl>
#!/sbcimp/run/pd/perl/5.005_03/bin/perl
# core modules
use User::pwent;
# Apache modules
use Apache::PerlSections();
my($apache_root, $hostname, $real_user, $url);
chomp($hostname = `hostname`);
$real_user = getpwuid($<)->name;
=pod
=head1 The Equity Research Website Configuration File
=head2 Section 1: Global Environment
The directives in this section affect the overall operation of Apache, such as the
number of concurrent requests it can handle or where it
can find its configuration files.
=cut
SWITCH: {
# Kev's workstation
$real_user eq 'ruscoekm' and do {
$Listen = 7001;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
# Phil's workstation
$real_user eq 'staffoph' and do {
$Listen = 7002;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
# Colin's workstation
$real_user eq 'woodfoc' and do {
$Listen = 7003;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
# Andy's workstation
$real_user eq 'jonesad' and do {
$Listen = 7004;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
'default' and do {
$Listen = 80;
$ServerAdmin = '[EMAIL PROTECTED]';
last SWITCH;
};
};
$apache_root = $real_user eq 'root' ? '/home/wa_dev/wa_tree' :
"/home/$real_user/wa_tree";
=pod
=head2 Test of handing configuration directives back to Apache
=over to apache
$ExtendedStatus = 'On';
=back to pod
=cut
$LockFile = '/var/tmp/accept.lock';
$MaxRequestsPerChild = 10000;
$NameVirtualHost = "172.16.129.30:$Listen";
$PidFile = "$apache_root/logs/httpd.pid";
$ServerName = "$hostname.ldn.swissbank.com";
$ServerRoot = "$apache_root/links/apache";
=pod
=head2 Section 2: 'Main' server configuration
The directives in this section set up the values used by the 'main' server, which
responds to any requests that aren't handled by a
<VirtualHost> definition. These values also provide defaults for any <VirtualHost>
containers you may define later in the file.
All of these directives may appear inside <VirtualHost> containers, in which case
these default settings will be overridden for the
virtual host being defined.
=cut
# scalars
$AddIconByEncoding = '(CMP,/icons/compressed.gif) x-compress x-gzip';
$CoreDumpDirectory = "$apache_root/logs";
$CustomLog = "$apache_root/logs/apache_access.log common";
$DefaultIcon = '/icons/unknown.gif';
$DefaultType = 'text/plain';
$DocumentRoot = "$apache_root/website";
$ErrorLog = "$apache_root/logs/apache_error.log";
$Group = 'nobody';
$HeaderName = 'HEADER';
$HostnameLookups = 'On';
$IndexIgnore = '.??* *~ *# HEADER* README* RCS CVS *,v *,t';
$IndexOptions = 'FancyIndexing';
$LanguagePriority = 'en da nl et fr de el it pt ltz ca es sv';
$LogLevel = 'warn';
$ReadmeName = 'README';
$ServerSignature = 'email';
$User = 'nobody';
# arrays
@AddEncoding = (
[ 'x-compress' => 'Z' ],
[ 'x-gzip' => 'gz tgz' ],
);
@AddIcon = (
[ '/icons/binary.gif' => '.bin .exe' ],
[ '/icons/binhex.gif' => '.hqx' ],
[ '/icons/tar.gif' => '.tar' ],
[ '/icons/world2.gif' => '.wrl .wrl.gz .vrml .vrm .iv' ],
[ '/icons/compressed.gif' => '.Z .z .tgz .gz .zip' ],
[ '/icons/a.gif' => '.ps .ai .eps' ],
[ '/icons/layout.gif' => '.html .shtml .htm .pdf' ],
[ '/icons/text.gif' => '.txt' ],
[ '/icons/c.gif' => '.c' ],
[ '/icons/p.gif' => '.pl .py' ],
[ '/icons/f.gif' => '.for' ],
[ '/icons/dvi.gif' => '.dvi' ],
[ '/icons/uuencoded.gif' => '.uu' ],
[ '/icons/script.gif' => '.conf .sh .shar .csh .ksh .tcl' ],
[ '/icons/tex.gif' => '.tex' ],
[ '/icons/bomb.gif' => 'core' ],
[ '/icons/back.gif' => '..' ],
[ '/icons/hand.right.gif' => 'README' ],
[ '/icons/folder.gif' => '^^DIRECTORY^^' ],
[ '/icons/blank.gif' => '^^BLANKICON^^' ],
);
@AddIconByType = (
[ AddIconByType => '(TXT,/icons/text.gif) text/*' ],
[ AddIconByType => '(IMG,/icons/image2.gif) image/*' ],
[ AddIconByType => '(SND,/icons/sound2.gif) audio/*' ],
[ AddIconByType => '(VID,/icons/movie.gif) video/*' ],
);
@AddLanguage = (
[ 'da' => '.dk' ],
[ 'nl' => '.nl' ],
[ 'en' => '.en' ],
[ 'et' => '.ee' ],
[ 'fr' => '.fr' ],
[ 'de' => '.de' ],
[ 'el' => '.el' ],
[ 'it' => '.it' ],
[ 'pt' => '.pt' ],
[ 'ltz' => '.lu' ],
[ 'ca' => '.ca' ],
[ 'es' => '.es' ],
[ 'sv' => '.se' ],
[ 'cz' => '.cz' ],
);
@AddType = (
[ 'application/x-tar' => '.tgz' ],
);
@Alias = (
[ '/apache-cgi' => "$ServerRoot/cgi-bin"
],
[ '/apache-modperl' => "$ServerRoot/cgi-bin"
],
[ '/fom-serve' =>
"/sbcimp/dyn/data/EquityResearch/WA/faqomatic/fom-serve" ],
[ '/icons' => "$ServerRoot/icons"
],
);
@LogFormat = (
[ '%h %l %u %t \"%r\" %>s %b' => 'common' ],
);
@RedirectMatch = (
[ '^/cheetah_prd(.*)' => '/infra/cheetah$1'
],
[ '^/cheetah_beta(.*)' =>
'http://ln4d556uss.ldn.swissbank.com:7002/infra/cheetah$1' ],
[ '^/dust_prd(.*)' => '/infra/dust$1'
],
[ '^/dust_beta(.*)' =>
'http://ln4d556uss.ldn.swissbank.com:7003/infra/dust$1' ],
);
# hashes
%Directory = (
'/' => {
Options => 'Indexes FollowSymLinks',
AllowOverride => 'None',
},
);
%Location = (
'/' => {
AuthGroupFile =>
"$apache_root/cfg/groups.conf",
AuthName => '"Restricted
Directory : Contact RIT Team +31 83444"',
AuthType => 'Basic',
AuthUserFile =>
"$apache_root/cfg/users.conf",
ExpiresActive => 'On',
ExpiresDefault => '"access plus 0
seconds"',
},
'/server-status' => {
SetHandler => 'server-status',
},
'/server-info' => {
SetHandler => 'server-info',
},
'/perl-status' => {
SetHandler => 'perl-script',
PerlHandler =>
'Apache::Status',
},
'/infra/recruitment' => {
Require => 'group
management',
},
'/infra/shared/MISC/contacts' => {
Require => 'group rit',
},
'/infra/shared/Management' => {
Require => 'group
management',
},
);
CGI_URL:
foreach $url (qw(/apache-cgi /phoenix/cgi-bin)) {
$Location{$url} = {
SetHandler => 'cgi-script',
Options => '+ExecCGI',
};
}
MODPERL_URL:
foreach $url (qw(/apache-modperl /cgi-bin /infra/cgi-bin /infra/cheetah/mod_perl
/infra/dust/mod_perl)) {
$Location{$url} = {
SetHandler => 'perl-script',
PerlHandler => 'Apache::Registry',
PerlInitHandler => 'Apache::StatINC',
PerlSendHeader => 'On',
Options => '+ExecCGI',
SetEnv => [
[ 'PERLLIB' => "$apache_root/lib" ],
],
};
}
=pod
=head2 Section 3: Virtual Hosts
VirtualHost: If you want to maintain multiple domains/hostnames on your machine you
can setup VirtualHost containers for them.
Please see the documentation at <http://www.apache.org/docs/vhosts/ target="_parent">
for further details before you try to setup virtual hosts.
You may use the command line option '-S' to verify your virtual host configuration.
=cut
$PerlConfig = <<EOF;
<VirtualHost $NameVirtualHost>
ServerName fogmouth
ServerAlias fogmouth.ldn.swissbank.com
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName rit
ServerAlias rit.ldn.swissbank.com resinfra resinfra.ldn.swissbank.com
RewriteEngine on
RewriteRule ^/~resinfra_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/~resinfra/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/~rit_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/~rit/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/root/infra.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName safe
ServerAlias safe.ldn.swissbank.com
ServerAdmin Kevin.Ruscoe\@wdr.com
ErrorLog $apache_root/logs/apache_safe_error.log
CustomLog $apache_root/logs/apache_safe_access.log common
RewriteEngine on
RewriteRule ^/~safe_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/safe/\$1
[R,L]
RewriteRule ^/~safe/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/safe/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/safe/docs/safe.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName cheetah
ServerAlias cheetah.ldn.swissbank.com
ServerAdmin Philip.Stafford-Jones\@wdr.com
ErrorLog $apache_root/logs/apache_cheetah_error.log
CustomLog $apache_root/logs/apache_cheetah_access.log common
RewriteEngine on
RewriteRule ^/~cheetah_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/cheetah/\$1
[R,L]
RewriteRule ^/~cheetah/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/cheetah/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/cheetah/docs/cheetah.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName dust
ServerAlias dust.ldn.swissbank.com
ServerAdmin Colin.Woodford\@wdr.com
ErrorLog $apache_root/logs/apache_dust_error.log
CustomLog $apache_root/logs/apache_dust_access.log common
RewriteEngine on
RewriteRule ^/~dust_b/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html\¶m1=/infra/dust/\$1
[R,L]
RewriteRule ^/~dust/(.+)\$
/cgi-bin/frameset.cgi?file=/infra/root/index_w.html\¶m1=/infra/dust/\$1
[R,L]
RewriteRule ^/\$
/cgi-bin/frameset.cgi?file=/infra/root/index_b.html¶m1=/infra/dust/docs/dust.html
[R,L]
</VirtualHost>
<VirtualHost $NameVirtualHost>
ServerName wire
ServerAlias wire.ldn.swissbank.com
ServerAdmin James.Shaw\@wdr.com
ErrorLog $apache_root/logs/apache_wire_error.log
CustomLog $apache_root/logs/apache_wire_access.log common
RewriteEngine on
RewriteRule ^/\$ /wire/wire.html
[R,L]
</VirtualHost>
EOF
#print STDERR Apache::PerlSections->dump;
__END__
</Perl>
This message contains confidential information and is intended only
for the individual named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please
notify the sender immediately by e-mail if you have received this
e-mail by mistake and delete this e-mail from your system.
E-mail transmission cannot be guaranteed to be secure or error-free
as information could be intercepted, corrupted, lost, destroyed,
arrive late or incomplete, or contain viruses. The sender therefore
does not accept liability for any errors or omissions in the contents
of this message which arise as a result of e-mail transmission. If
verification is required please request a hard-copy version. This
message is provided for informational purposes and should not be
construed as a solicitation or offer to buy or sell any securities or
related financial instruments.
