Contenido Project

koi8/install/bin/install


	1	#!/usr/bin/perl
	2
	3	##############################################################################
	4	# $HeadURL: http://svn.dev.rambler.ru/cndinst/trunk/bin/install $
	5	# $Id: install 65 2009-12-18 12:09:37Z abavykin $
	6	##############################################################################
	7
	8	use strict;
	9	use File::Spec;
	10	use FindBin qw($RealBin);
	11	use Getopt::Long;
	12	use User::grent;
	13	use User::pwent;
	14
	15	# defaults
	16	my $options = {
	17	svn_program => (`which svn` =~ /(.*)/)[0],
	18	core_repository => ($ENV{CORE_REPOSITORY} \|\| 'http://developers.rambler.ru/svn/contenido/koi8/core'),
	19	server => (`hostname` =~ /(.*)/)[0],
	20	httpd_port => ($ENV{HTTPD_PORT} \|\| 0),
	21	db_type => 'R',
	22	backups => '/spool/backups',
	23	crosslinks => '/spool/crosslinks',
	24	sessions => '/spool/sessions',
	25	};
	26
	27	my ($force, $help);
	28	GetOptions('force' => \$force, 'help' => \$help);
	29
	30	if ($help) {
	31	&usage;
	32	exit;
	33	}
	34
	35	my $yes_no = { y => 'YES', n => 'NO' };
	36	my $db_types = { N => 'NONE', R => 'REMOTE', S => 'SINGLE' };
	37
	38	# begin
	39	my ($user, $group, $umask) = (getpwuid($>), getgrgid($)), sprintf('%03o', umask));
	40	my $destdir = $ENV{CNDINST_DESTDIR} \|\| undef;
	41	(my $home = $user->dir) =~ s/\/+$//;
	42
	43	load_conf($home, $options);
	44
	45	START:
	46	while ($umask !~ /^\d0\d$/) {
	47	my $a = user_prompt("Current umask ($umask) isn't group friendly. Are you sure?", default => 'n');
	48	last if $a eq 'y';
	49	next unless $a eq 'n';
	50	print "Correct umask and try again!\n";
	51	exit 0;
	52	}
	53
	54	print sprintf (<<'EOM'
	55	Start installation as:
	56	User: %s [%d]
	57	Group: %s [%d]
	58	Home: %s
	59	Shell: %s
	60	Umask: %s
	61	EOM
	62	, $user->name, $user->uid, $group->name, $group->gid, $home, $user->shell, $umask);
	63
	64	while (1) {
	65	my $a = lc(user_prompt('Is it correct?', default => 'y'));
	66	last if $a eq 'y';
	67	next unless $a eq 'n';
	68	print "Bye, see you later!\n";
	69	exit 0;
	70	}
	71
	72	while (1) {
	73	$destdir = user_prompt('Enter installation directory (absolute path)', default => $destdir ? $destdir : $home."/Contenido", ignore_force=>1);
	74	next unless $destdir;
	75
	76	$destdir = File::Spec->canonpath($destdir);
	77	$destdir =~ s/\/*$//;
	78
	79	if (-d $destdir) {
	80	unless (is_dir_empty($destdir)) {
	81	print "Directory exists and non-empty!\n";
	82	undef $destdir;
	83	next;
	84	}
	85	unless (-w $destdir) {
	86	print "Directory exists, but you have no write permissions in it!\n";
	87	undef $destdir;
	88	next;
	89	}
	90	} else {
	91	my @dirs = split /\/+/, $destdir;
	92	my $pdir = '/'.join('/', @dirs[0..$#dirs-1]);
	93	unless (-w $pdir) {
	94	print "You have no permissions to create directory!\n";
	95	undef $destdir;
	96	next;
	97	}
	98	}
	99	last;
	100	}
	101
	102	while (1) {
	103	my $a = lc(user_prompt('Which is svn executable?', default => $options->{svn_program}));
	104	unless ($a && -x $a) {
	105	print "There is no svn executable!\n";
	106	next;
	107	}
	108	$options->{svn_program} = $a;
	109	save_conf($home, $options);
	110	last;
	111	}
	112
	113	while (1) {
	114	my $a = user_prompt('Which Contenido repository will be checked out?', default => $options->{core_repository});
	115	$a =~ s/\/$//;
	116	print "Contacting repository... ";
	117	next if system("$options->{svn_program} ls $a >/dev/null");
	118	print "success\n";
	119	$options->{core_repository} = $a;
	120	save_conf($home, $options);
	121	last;
	122	}
	123
	124	while (1) {
	125	my $a = user_prompt('Enter server name', default => $options->{server});
	126	next unless $a =~ /^[\w\-\+\.]+$/i;
	127	$options->{server} = $a;
	128	save_conf($home, $options);
	129	last;
	130	}
	131
	132	while (1) {
	133	my $a = user_prompt('Enter HTTP port', default => $options->{httpd_port}, ignore_force=>1);
	134	next unless $a =~ /^(\d)+$/i;
	135	next if int($a)<1024 \|\| int($a)>65535;
	136	my %occupied = map {chomp; s/.*?(\d+)$/$1/; $_ => 1} `netstat -na \| grep LISTEN \| awk '{print \$4}'`;
	137	if ($occupied{$a}) {
	138	my $ao;
	139	while (1) {
	140	$ao = lc(user_prompt('Port seems busy. Are you sure?', default => 'n'));
	141	last if $ao eq 'y';
	142	next unless $ao eq 'n';
	143	last;
	144	}
	145	next unless $ao eq 'y';
	146	}
	147	$options->{httpd_port} = $a;
	148	save_conf($home, $options);
	149	last;
	150	}
	151
	152	while (1) {
	153	my $a = user_prompt('Select database type: [N]ONE [R]EMOTE [S]INGLE', default => $options->{db_type}, ignore_force=>1);
	154	next unless $a =~ /^[NRS]$/i;
	155	$options->{db_type} = uc($a);
	156	save_conf($home, $options);
	157	last;
	158	}
	159
	160	while (1) {
	161	my $a = user_prompt('Enter backups directory', default => $options->{backups});
	162	next unless $a;
	163	$options->{backups} = $a;
	164	save_conf($home, $options);
	165	last;
	166	}
	167
	168	while (1) {
	169	my $a = user_prompt('Enter crosslinks directory', default => $options->{crosslinks});
	170	next unless $a;
	171	$options->{crosslinks} = $a;
	172	save_conf($home, $options);
	173	last;
	174	}
	175
	176	while (1) {
	177	my $a = user_prompt('Enter sessions directory', default => $options->{sessions});
	178	next unless $a;
	179	$options->{sessions} = $a;
	180	save_conf($home, $options);
	181	last;
	182	}
	183
	184
	185
	186	print <<EOM
	187
	188
	189	Summary:
	190	Installation directory: $destdir
	191	Executable svn: $options->{svn_program}
	192	Contenido repository: $options->{core_repository}
	193	Server name: $options->{server}
	194	HTTP port: $options->{httpd_port}
	195	Database type: $db_types->{$options->{db_type}}
	196	Backups directory: $options->{backups}
	197	Crosslinks directory: $options->{crosslinks}
	198	Sessions directory: $options->{sessions}
	199	EOM
	200	;
	201
	202	while (1) {
	203	my $a = lc(user_prompt('Is it correct?', default => 'y'));
	204	last if $a eq 'y';
	205	next unless $a eq 'n';
	206	print "\n\nRestarting config procedure\n\n\n";
	207	goto START;
	208	}
	209
	210	print "\nGreat, start installation!\n\n";
	211
	212	print "Creating installation directory...\n";
	213	mkdir $destdir, 0775 or die "Can't mkdir: $destdir - $!" unless -d $destdir;
	214
	215	print "Creating installation layout...\n";
	216	system("cp -R $RealBin/../skel/* $destdir/") and die "Can't copy: skel - $!";
	217	system("find $destdir -depth -type d -name .svn -exec rm -Rf {} \\;") and die "Can't clean - $!";
	218	system("find $destdir -depth \\! -perm +20 -exec chmod g+w {} \\;") and die "Can't chmod - $!";
	219	unlink "$destdir/config.mk.proto" or die $!;
	220
	221	print "Checking out Contenido core...\n";
	222	system("$options->{svn_program} co $options->{core_repository} $destdir/src/core/") and
	223	die <<EOM
	224
	225	****************************************************************
	226	Fatal error occured, please resolve problem by hands.
	227	Don't forget about your installation directory: $destdir
	228	****************************************************************
	229
	230	EOM
	231	;
	232	print "done\n";
	233
	234	print "Creating installation config.mk...";
	235	my $rewrites = {
	236	OWNER => $user->name,
	237	ROOT_DIR => $destdir,
	238	SERVER => $options->{server},
	239	HTTPD_PORT => $options->{httpd_port},
	240	DB_TYPE => $db_types->{$options->{db_type}},
	241	BACKUPS => $options->{backups},
	242	CROSSLINKS => $options->{crosslinks},
	243	SESSIONS => $options->{sessions},
	244	};
	245	open PROTO, "< $RealBin/../skel/config.mk.proto" or die "Can't read: config.mk.proto - $!";
	246	open MK, "> $destdir/config.mk" or die "Can't create: config.mk - $!";
	247	print MK @{ rewrite([<PROTO>], $rewrites) };
	248	close MK;
	249	close PROTO;
	250	print " done\n";
	251
	252	print <<EOM
	253
	254	*****************************************************************
	255	First step of Contenido installation finished.
	256	Now change dir to '$destdir'.
	257	Here, you can adjust some build options in 'config.mk' by hands.
	258	After all run 'make install' and hope it will be successfull :)
	259	*****************************************************************
	260	EOM
	261	;
	262
	263	exit 0;
	264
	265
	266	### utils
	267
	268	sub user_prompt {
	269	my ($prompt, %opts) = @_;
	270
	271	print $prompt.(exists $opts{default} ? " [$opts{default}]" : "").": ";
	272	#if ($force && $opts{default} && !$opts{ignore_force}) {
	273	if ($force && $opts{default}) {
	274	print "[forced default answer]\n";
	275	#print "$opts{default} [forced answer]\n";
	276	sleep 1;
	277	return $opts{default};
	278	}
	279	my $answer = <>;
	280	chomp $answer;
	281	return $answer ? $answer : $opts{default};
	282	}
	283
	284	sub is_dir_empty {
	285	my $dir = shift;
	286
	287	opendir D, $dir;
	288	while ($_ = readdir D) {
	289	next if $_ eq '.' \|\| $_ eq '..';
	290	return 0;
	291	}
	292	closedir D;
	293
	294	return 1;
	295	}
	296
	297	sub load_conf {
	298	my ($home, $options) = @_;
	299
	300	return save_conf($home, $options) unless -f "$home/.cndinst/install.conf";
	301
	302	open CONF, "< $home/.cndinst/install.conf" or die "Can't read: $home/.cndinst/install.conf - $!";
	303	while (<CONF>) {
	304	chomp;
	305	next if /^\s*#/;
	306	next unless /^\s([^\s]+)\s=\s*([^\s]+)/;
	307	next unless exists $options->{$1};
	308	$options->{$1} = $2;
	309	}
	310	close CONF;
	311	return $options;
	312	}
	313
	314	sub save_conf {
	315	my ($home, $options) = @_;
	316
	317	mkdir "$home/.cndinst", 0775 or die "Can't mkdir: $home/.cndinst - $!" unless -d $home.'/.cndinst';
	318
	319	open CONF, "> $home/.cndinst/install.conf" or die "Can't create: $home/.cndinst/install.conf - $!";
	320	print CONF "# Contenido installer config file\n\n";
	321	printf CONF "%-20s = %s\n", $_, $options->{$_} for sort keys %{$options};
	322	close CONF;
	323	}
	324
	325	sub rewrite {
	326	my ($lines, $rewrites) = @_;
	327	s/\@([A-Z0-9\_]+)\@/$rewrites->{$1}/ms for @{$lines};
	328	return $lines;
	329	}
	330
	331	sub usage {
	332	print <<EOM;
	333	Usage:
	334	$FindBin::Script options
	335
	336	Options:
	337	-h, --help Print this message
	338	-f, --force Force mode (automatically apply default answers
	339	on none-critical questions)
	340	EOM
	341	}

koi8/install/skel/config.mk.proto


	1	##############################################################################
	2	# $HeadURL: http://svn.dev.rambler.ru/cndinst/trunk/skel/config.mk.proto $
	3	# $Id: config.mk.proto 61 2009-11-13 14:47:29Z phoinix $
	4	###############################################################################
	5
	6	# Main
	7	OWNER = @OWNER@
	8	ROOT_DIR = @ROOT_DIR@
	9	CONTENIDO_VERSION = 7
	10
	11	# HTTP
	12	HTTPD_PORT = @HTTPD_PORT@
	13	SERVER = @SERVER@
	14	HTTPD_SERVER = ${SERVER}:${HTTPD_PORT}
	15	SERVER_ADMIN = ${OWNER}
	16
	17	# Database
	18	DB_TYPE ?= @DB_TYPE@
	19	#PGSQL_LOGGING = YES
	20
	21	# External directories
	22	BACKUPS = @BACKUPS@
	23	CROSSLINKS = @CROSSLINKS@
	24	SESSIONS = @SESSIONS@
	25
	26	# Reloading
	27	STATIC_SOURCE_ENABLE = YES
	28
	29	# Error handling
	30	ERROR_MODE = fatal
	31
	32	# Debug & profiling
	33	# Default DEBUG_FORMAT = %d %C:%L (%P) [%l]: "%m"%n
	34	# %d - date (format [mday/mon/year hour:min:sec])
	35	# %P - current process ID
	36	# %C - name of package caused this log
	37	# %L - code line in %C
	38	# %l - log level
	39	# %m - log text
	40	# %n - "\n"
	41	# Debug levels: [debug info notice warning error critical alert emergency]
	42	DEBUG = NO
	43	DEBUG_FORMAT ?=
	44	DEBUG_MIN_LEVEL ?=
	45	DEBUG_MAX_LEVEL ?=
	46	DEBUG_STACK_TRACE = NO
	47	DEBUG_SQL = NO
	48	DEBUG_CORE = NO
	49	DEBUG_WORKTIME = NO
	50	PROFILING = NO
	51	PROFILING_DBI = NO
	52
	53	# Tunable apache settings
	54	# (see src/core/config.mk for default values)
	55	#MIN_SPARE_SERVERS ?=
	56	#MAX_SPARE_SERVERS ?=
	57	#START_SERVERS ?=
	58	#MAX_CLIENTS ?=
	59	#MAX_REQUESTS_PER_CHILD ?=
	60
	61	# Development ('/src' instead '/usr')
	62	# also flag for use test database/memcached etc
	63	# also can be accessed via $state->is_dev_server or $state->development
	64	DEVELOPMENT = NO
	65
	66	# Default repository
	67	SVN_REPOSITORY ?= http://developers.rambler.ru/svn/
	68
	69	# Current project
	70	PROJECT ?=

koi8/install/skel/GNUmakefile


	1	##############################################################################
	2	# $HeadURL: http://svn.dev.rambler.ru/cndinst/trunk/skel/GNUmakefile $
	3	# $Id: GNUmakefile 59 2007-07-13 09:42:07Z lonerr $
	4	###############################################################################
	5
	6	include config.mk
	7
	8	LOG = var/log/messages
	9
	10	.DEFAULT:
	11	@echo -e "\n\n##############################" >> ${LOG} \
	12	&& echo "Target: $@" >> ${LOG} \
	13	&& echo "Date: "`date` >> ${LOG} \
	14	&& echo "##############################" >> ${LOG} \
	15	&& cd ./src/core \
	16	&& unset MAKEFLAGS \
	17	&& unset MFLAGS \
	18	&& unset MAKELEVEL \
	19	&& ${MAKE} $@

koi8/install/skel/Makefile


	1	##############################################################################
	2	# $HeadURL: http://svn.dev.rambler.ru/cndinst/trunk/skel/Makefile $
	3	# $Id: Makefile 46 2006-06-06 12:32:29Z lonerr $
	4	###############################################################################
	5
	6	.DEFAULT:
	7	@gmake ${.TARGET}

Repository List / Contenido @ r5

Revision Navigation

Revision 5

Legend:

koi8/install/bin/install

koi8/install/skel/config.mk.proto

koi8/install/skel/GNUmakefile

koi8/install/skel/Makefile

Небольшая справка по веткам