asolkar/get-licensed
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed name to get-licensed

Browse Source
This commit is contained in:
Mahesh Asolkar 2013-03-25 18:22:42 -07:00
parent 4dfd5f8037
commit ce05020783
2 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Licenses.pm
View File

@ -10,7 +10,6 @@ sub new {
sub get_licenses {
my ($self, $app) = @_;
print "Plugins\n";
foreach my $plugin ($self->plugins()) {
my $stub = $plugin->{'header'};
$stub =~ s/###DESCRIPTION###/$app->{'options'}->{'about'}/;

47
licensor.pl → get-licensed.pl
View File

@ -6,11 +6,12 @@ use FindBin;
use lib "$FindBin::Bin";
use File::Find;
use File::Basename;
use File::Copy;
use FileHandle;
use File::Glob ':globally';
use Data::Dumper;
use Getopt::Long;
use Cwd;
use File::Glob ':globally';
use Licenses;
# Application configuration and state storage
@ -22,6 +23,8 @@ $app->{'options'}->{'license'} = 'mit';
$app->{'options'}->{'user'} = $ENV{'USER'};
$app->{'options'}->{'date'} = (localtime(time))[5] + 1900;
$app->{'options'}->{'about'} = "This is an open-source software";
$app->{'options'}->{'dry'} = 0;
$app->{'state'}->{'license_stub'} = "NON EXISTANT";
$app->{'state'}->{'app_dir'} = dirname($0);
@ -32,6 +35,7 @@ my $correct_usage = GetOptions (
'about=s' => \$app->{'options'}->{'about'},
'user=s' => \$app->{'options'}->{'user'},
'date=s' => \$app->{'options'}->{'date'},
'dry' => \$app->{'options'}->{'dry'},
);
setup_licenses($app);
@ -83,13 +87,27 @@ sub handle_files {
my($filename, $directories, $suffix) = fileparse($file, qr/\.[^.]*/);
if (exists $app->{'filetype_comments'}->{$suffix}) {
my $rh = new FileHandle ($name);
my $rh = FileHandle->new($name);
my @contents = <$rh>;
print "Handling... $filename - $directories - $suffix\n";
print "Handling... $filename - $directories - $suffix ----- " .
ref($app->{'filetype_comments'}->{$suffix}) . "\n";
my $stub = get_license_stub($app, $suffix);
if ((defined $contents[0]) && ($contents[0] =~ /^\s*#!/)) {
print " ... has #! line\n";
$contents[0] = $contents[0] . "\n" . $stub . "\n";
} else {
$contents[0] = $stub . "\n" . $contents[0] . "\n";
}
if ($app->{'options'}->{'dry'} == 0) {
copy($name, $name . ".licensor_backup") or die "Could not create backup file";
my $wh = FileHandle->new($name, O_WRONLY);
print $wh @contents;
}
}
else {
@ -97,6 +115,29 @@ sub handle_files {
}
}
sub get_license_stub {
my ($app, $suffix) = @_;
my $stub = $app->{'licenses'}->{$app->{'options'}->{'license'}}->{'header_stub'};
if (ref($app->{'filetype_comments'}->{$suffix}) eq '') {
$stub =~ s/^(.)/$app->{'filetype_comments'}->{$suffix} $1/msg;
$stub = $app->{'filetype_comments'}->{$suffix} . " -----\n" .
"$stub\n" .
$app->{'filetype_comments'}->{$suffix} . " -----\n";
} elsif (ref($app->{'filetype_comments'}->{$suffix}) eq 'ARRAY') {
$stub =~ s/^(.)/ $1/msg;
$stub = $app->{'filetype_comments'}->{$suffix}[0] .
" -----\n$stub\n ----- " .
$app->{'filetype_comments'}->{$suffix}[1];
} else {
# not an option
}
$stub =~ s/\s+$//msg;
return $stub;
}
sub setup_licenses {
my ($app) = @_;