#!/usr/bin/perl -w =head1 NAME done.pl - installation script to give the user some final instructions =head1 VERSION $LastChangedRevision$ =head1 DATE $LastChangedDate: 2007-08-01 17:36:23 +0200 (Wed, 01 Aug 2007) $ =head1 DESCRIPTION This script is called at the end of "make install" to give the user some final instructions. =head1 AUTHOR Sam Tregar =head1 SEE ALSO L =cut use strict; use File::Spec::Functions qw(:ALL); # read in user config settings our $CONFIG; do "./config.db" or die "Failed to read config.db : $!"; our $AP; do "./apache.db" or die "Failed to read apache.db : $!"; my $url = "http://$AP->{server_name}" . ($AP->{port} == 80 ? "" : ":$AP->{port}"); my $ctl = "bric_apachectl"; $ctl = catfile($CONFIG->{BIN_DIR}, $ctl) unless grep { $_ eq $CONFIG->{BIN_DIR} } path(); $ctl = "BRICOLAGE_ROOT=$CONFIG->{BRICOLAGE_ROOT} $ctl" unless $CONFIG->{BRICOLAGE_ROOT} eq '/usr/local/bricolage'; my $error_log = catfile($CONFIG->{LOG_DIR}, "error_log"); print <