version 1.8, 2005/06/29 04:16:54
|
version 1.9, 2005/07/01 23:17:58
|
Line 229 sub uid_of_www {
|
Line 229 sub uid_of_www {
|
############################################### |
############################################### |
sub build_and_install_mod_auth_external { |
sub build_and_install_mod_auth_external { |
my $num = &uid_of_www(); |
my $num = &uid_of_www(); |
# Patch mod_auth_external |
# Patch pwauth |
print_and_log("Building authentication system for LON-CAPA users.\n"); |
print_and_log("Building authentication system for LON-CAPA users.\n"); |
my $patch = <<"ENDPATCH"; |
my $patch = <<"ENDPATCH"; |
148c148 |
148c148 |
Line 240 ENDPATCH
|
Line 240 ENDPATCH
|
|
|
if (! -e "/usr/bin/patch") { |
if (! -e "/usr/bin/patch") { |
print_and_log("You must install the software development tools package ". |
print_and_log("You must install the software development tools package ". |
"when installing RedHat.\n"); |
"when installing Fedora.\n"); |
die; |
die; |
} |
} |
&die_if_nonempty(`cd /tmp; tar zxf $instdir/mod_auth_external-2.1.13.tar.gz`, |
&die_if_nonempty(`cd /tmp; tar zxf $instdir/pwauth-2.2.8.tar.gz`, |
"Unable to extract mod_auth_external\n"); |
"Unable to extract pwauth\n"); |
my $dir = "/tmp/mod_auth_external-2.1.13/pwauth"; |
my $dir = "/tmp/pwauth-2.2.8"; |
open PATCH, "| patch $dir/config.h" || |
open PATCH, "| patch $dir/config.h" || |
die "Unable to start patch for mod_auth_external. Halting\n"; |
die "Unable to start patch for pwauth. Halting\n"; |
print PATCH $patch; |
print PATCH $patch; |
close PATCH; |
close PATCH; |
print_and_log("\n"); |
print_and_log("\n"); |
Line 263 END
|
Line 263 END
|
if ($result ne $expected) { |
if ($result ne $expected) { |
die "Unable to compile patched pwauth. Halting.\n"; |
die "Unable to compile patched pwauth. Halting.\n"; |
} |
} |
print_and_log( "appearant success compiling pwauth:\n".$result ); |
print_and_log( "apparent success compiling pwauth:\n".$result ); |
# Install patched pwauth |
# Install patched pwauth |
print_and_log("Copying pwauth to /usr/local/sbin\n"); |
print_and_log("Copying pwauth to /usr/local/sbin\n"); |
if (! copy "$dir/pwauth","/usr/local/sbin/pwauth") { |
if (! copy "$dir/pwauth","/usr/local/sbin/pwauth") { |