61 lines
1.2 KiB
Perl
Executable File
61 lines
1.2 KiB
Perl
Executable File
#!/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Find;
|
|
use FileHandle;
|
|
use Data::Dumper;
|
|
use Getopt::Long;
|
|
use Cwd;
|
|
|
|
# Application configuration and state storage
|
|
my $app = {};
|
|
|
|
# Defaults
|
|
$app->{'options'}->{'directory'} = getcwd;
|
|
$app->{'options'}->{'license'} = 'mit';
|
|
|
|
# Command line options
|
|
my $correct_usage = GetOptions (
|
|
'directory=s' => \$app->{'options'}->{'directory'},
|
|
'license=s' => \$app->{'options'}->{'license'});
|
|
|
|
setup_license_pretty_names($app);
|
|
setup_filetype_comment_mapping($app);
|
|
|
|
print "Applying '"
|
|
. $app->{'license_pretty_names'}->{$app->{'options'}->{'license'}}
|
|
. "' license to files in '"
|
|
. $app->{'options'}->{'directory'}
|
|
."' directory\n";
|
|
|
|
#
|
|
# Subroutines
|
|
#
|
|
sub setup_license_pretty_names {
|
|
my ($app) = @_;
|
|
|
|
$app->{'license_pretty_names'} = {
|
|
'mit' => 'MIT',
|
|
'gpl_v1' => 'GPL v1',
|
|
'gpl_v2' => 'GPL v2',
|
|
'gpl_v3' => 'GPL v3',
|
|
'apache_v2' => 'Apache v2',
|
|
'apache_v1' => 'Apache v1'
|
|
};
|
|
}
|
|
|
|
sub setup_filetype_comment_mapping {
|
|
my ($app) = @_;
|
|
|
|
$app->{'filetype_commants'} = {
|
|
'.pl' => '#',
|
|
'.rb' => '#',
|
|
'.erb' => ['<!--', '-->'],
|
|
'.html' => ['<!--', '-->'],
|
|
'.v' => '//',
|
|
'.sv' => '//',
|
|
'.vr' => '//'
|
|
};
|
|
}
|