view release on metacpan or  search on metacpan

lib/BlankOnDev.pm  view on Meta::CPAN

package BlankOnDev;
use strict;
use warnings;

# Import :
use BlankOnDev::DataDev;
use BlankOnDev::Version;
use BlankOnDev::Rilis;
use BlankOnDev::Form;
use BlankOnDev::Form::github;

# Version :
our $VERSION = '0.1005';

# Subroutine for check Home Dir :
# ------------------------------------------------------------------------
sub check_homedir {
    my $homedir = $ENV{"HOME"};
    if ($homedir =~ m/root/) {
        return 0;
    } else {
        return 1;
    }
}

# Subroutine for check directory BlankOnDev :
# ------------------------------------------------------------------------
sub check_dir_boidev {
    # For Data Developer :
    my $data_dev = BlankOnDev::DataDev::data_dev();
    my $home_dir = $data_dev->{'home_dir'};
    my $dir_dev = $data_dev->{'dir_dev'};
    my $prefix_flcfg = $data_dev->{'prefix_flcfg'};
    my $file_cfg_ext = $data_dev->{'fileCfg_ext'};
    my $dir_pkgs = $data_dev->{'dir_pkg'};

    my $result = 0;
    unless (-d $dir_dev) {
        $result = 0;
    } else {
        my $loc_dirpkg = $dir_dev.$dir_pkgs;
        unless (-d $loc_dirpkg) {
            $result = 0;
        } else {
            $result = 1;
        }
    }
    return $result;
}
# Suboutine for Form :
# ------------------------------------------------------------------------
sub FORM {
    my ($self, $form, $data_config) = @_;

    my $result = '';
    my $switch = {
        'timezone' => 'form_timezone',
        'rilis' => 'form_boi_rilis',
        'name' => 'form_name',
        'email-git' => 'form_email_git',
        'email-gpg' => 'form_email_gpg',
        'passph-gpg' => 'form_passphrase_gpg',
    };

    # Check Form :
    if (exists $switch->{$form}) {
        my $subr = $switch->{$form};
        $result = BlankOnDev::Form->$subr($data_config);
    }
    return $result;
}

# Subroutine for option help.
# This subroutine using in option "help" on script file "boidev".
# ------------------------------------------------------------------------
sub usage {
    print "\n";
    print "---------" x 8 . "\n";
    print " For Help Command : \n";
    print "---------" x 8 . "\n";
    print "\n";

    print "USAGE :\n";
    print "---------" x 11 . "\n";
    print "   boidev <OPTIONS1>\n";
    print " -- or --\n";
    print "   boidev <OPTIONS1> <OPTIONS2>\n";
    print " -- or --\n";
    print "   boidev <OPTIONS1> <OPTION2> <OPTIONS3>\n";
    print " -- or --\n";
    print "   boidev <OPTIONS1> <OPTION2> <INPUT>\n";
    print "\n";

    print "For USAGE : boidev <OPTIONS1>\n";
    printf("  %-25s %s\n", "mig_prepare", "Mempersiapkan sistem sebelum melakukan aktifitas Migrasi Repo");
    printf("  %-25s %s\n", "gpg-genkey", "Untuk generate key GnuPG");
    printf("  %-25s %s\n", "gpg-auth", "Untuk melihat name, email dan passphrase generate key");
    printf("  %-25s %s\n", "gpg-auth-dec", "Untuk melihat name, email dan passphrase yang tidak diencode");
    printf("  %-25s %s\n", "install-pkg", "Untuk menginstall beberapa paket sebelum melakukan aktiftas pemaket");
    printf("  %-25s %s\n", "bzr2git", "Untuk mengambil data Repository dari Bazaar Server dan dimigrasi ke GitHub");
    printf("  %-25s %s\n", "list-cfg", "Untuk melihat konfigurasi yang sudah dilakukan");
    printf("  %-25s %s\n", "list-file", "Untuk melihat file configurasi konfigurasi yang sudah ada");
    printf("  %-25s %s\n", "rilis", "Untuk mengganti nama rilis yang aktif.");
    print "\n";

    print "For USAGE : boidev bzr2git <OPTIONS2> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git();
    print "\n";

    print "For USAGE : boidev bzr2git addpkg <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_addpkg();
    print "\n";

    print "For USAGE : boidev bzr2git addpkg-file <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_addpkgfile();
    print "\n";

    print "For USAGE : boidev bzr2git list-pkg <OPTIONS3> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_listpkg();
    print "\n";

    print "For USAGE : boidev bzr2git rename-pkg-group <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_renamepkg_group();
    print "\n";

    print "For USAGE : boidev bzr2git remove-pkg-group <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_removepkg_group();
    print "\n";

    print "For USAGE : boidev bzr2git remove-pkg <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_removepkg();
    print "\n";

    print "For USAGE : boidev bzr2git search-pkg <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_searchpkg();
    print "\n";

    print "For USAGE : boidev bzr2git branch <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_branch();
    print "\n";

    print "For USAGE : boidev bzr2git bzr-cgit <INPUT> \n";
    print "---------" x 11 . "\n";
    usage_bzr2git_bzr_cgit();
    print "\n";
    exit 0;
}
# Subroutine for option help on option bzr2git :
# ------------------------------------------------------------------------