Context Navigation

Changeset 1170

Timestamp:

06/21/08 18:13:23 (4 months ago)

Author:

kake

Message:

Added missing prereq of Term::Prompt; removed some hardcoding.

Location:

branches/new-install-process

Files:

r1158	r1170
23	23	die "Can't make template install folder: $!\n" unless (-d File::Spec->catfile( $path, "OpenGuides" ) );
24	24
25		mkdir( File::Spec->catfile( $path, "OpenGuides", "templates" ) );
26		die "Can't make template install folder: $!\n" unless (-d File::Spec->catfile( $path, "OpenGuides", "templates" ) );
	25	my $templ_dir = File::Spec->catfile( $path, "OpenGuides", "templates" );
27	26
28		print "Installing templates to $path/OpenGuides/templates\n";
29		opendir TEMPLATES, "templates" or die "Can't open template source folder: $!\n";
	27	mkdir( $templ_dir );
	28	die "Can't make template install folder: $!\n" unless (-d $templ_dir );
	29
	30	print "Installing templates to $templ_dir\n";
	31	opendir TEMPLATES, "templates"
	32	or die "Can't open template source folder: $!\n";
	33
30	34	for (grep { /\.(tt)$/ } readdir(TEMPLATES)) {
31		print " installing template $_\n";
	35	#print " installing template $_\n";
32	36	File::Copy::copy(
33		File::Spec->catfile(~~'templates', $_~~),
34		File::Spec->catfile( $~~path, "OpenGuides", "templates"~~, $_ )
	37	File::Spec->catfile( "templates", $_ ),
	38	File::Spec->catfile( $templ_dir, $_ )
35	39	) or die "Error copying $_: $!\n";;
36	40	}
37	41	closedir(TEMPLATES);
	42	print "Done!\n";
38	43
39	44	return $ret;
…	…
79	84	'POSIX' => 0,
80	85	'Template' => '2.15', # for hash.delete and string.remove vmethods
	86	'Term::Prompt' => 0,
81	87	'Time::Piece' => 0,
82	88	'URI::Escape' => 0,