package TinyAuth::Install;
use 5.005;
use strict;
use base 'Module::CGI::Install';
use vars qw{$VERSION};
BEGIN {
$VERSION = '0.98';
}
sub prepare {
my $self = shift;
# Add the files to install
$self->add_script('TinyAuth', 'tinyauth');
# Hand off to the parent class
return $self->SUPER::prepare(@_);
}
sub run {
my $self = shift;
# Install the script/lib files
my $rv = $self->SUPER::run;
# Create the default config file
my $to = $self->cgi_map->catfile('tinyauth.conf')->path;
open( CONFIG, ">$to" ) or die "Failed to open tinyauth.conf";
print CONFIG "---\n" or die "Failed to write tinyauth.conf";
close CONFIG or die "Failed to close tinyauth.conf";
return $rv;
}
1;