view release on metacpan or  search on metacpan

bin/cfm-install.pl  view on Meta::CPAN

{
	my $css_file = File::Spec->catfile($opt{dir}, "css", "style.css");
	open my $fh, ">", $css_file or die "Could not open '$css_file' $!\n";
	print $fh $CGI::FileManager::Templates::css;
}

{
	my $cgi_file = File::Spec->catfile($opt{dir}, "cgi", "fm.pl");
	open my $fh, ">", $cgi_file or die "Could not open '$cgi_file' $!\n";
	print $fh $CGI::FileManager::Templates::cgi;
	chmod oct(755), $cgi_file;
}


#print <<MSG;
#You have to add users now.  Please run:
#
#cfm-passwd.pl $opt{dir}/data/authpasswd  add username
#MSG