[ViewVC] Contents of: cvsroot/COMP/SCRAM/Installation/install_scram

#!/usr/local/bin/perl5
#
# SCRAM Installation Script
#
# To be run from the Installation directory
#

use Cwd;
$thisdir=cwd();
(($basedir=$thisdir)=~s/(.*)\/.*/\1/);
($topdir=$basedir)=~s/(.*)\/.*/\1/;

# Create the directory for storing databases
use File::Path;
mkpath("$topdir/scramdb", 0, 0755);

# Copy the wrapper file with the correct base variable installed
open ( WRAP , "<scramwrapper") or die "Unable to open scramwrapper $!";
open ( OUTFILE , ">$topdir/scram") or die "Unable to open $topdir/scram $!";
while ( <WRAP> ) {
 $_=~s/__basedir__/$basedir/g;
 print OUTFILE $_;
}
chmod 0755, "$topdir/scram";
close WRAP;
Revision:	1.3
Committed:	Wed Mar 1 15:51:24 2000 UTC (25 years, 2 months ago) by williamc
Branch:	MAIN
CVS Tags:	ProtoEnd
Changes since 1.2:	+4 -0 lines
Log Message:	update install for db dir
#	Content
1	#!/usr/local/bin/perl5
2	#
3	# SCRAM Installation Script
4	#
5	# To be run from the Installation directory
6	#
7
8	use Cwd;
9	$thisdir=cwd();
10	(($basedir=$thisdir)=~s/(.)\/./\1/);
11	($topdir=$basedir)=~s/(.)\/./\1/;
12
13	# Create the directory for storing databases
14	use File::Path;
15	mkpath("$topdir/scramdb", 0, 0755);
16
17	# Copy the wrapper file with the correct base variable installed
18	open ( WRAP , "<scramwrapper") or die "Unable to open scramwrapper $!";
19	open ( OUTFILE , ">$topdir/scram") or die "Unable to open $topdir/scram $!";
20	while ( <WRAP> ) {
21	$_=~s/__basedir__/$basedir/g;
22	print OUTFILE $_;
23	}
24	chmod 0755, "$topdir/scram";
25	close WRAP;