File Coverage

blib/lib/BlankOnDev.pm

Criterion	Covered	Total	%
statement	21	196	10.7
branch	0	8	0.0
condition			n/a
subroutine	7	29	24.1
pod	0	22	0.0
total	28	255	10.9

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 :
# ------------------------------------------------------------------------
sub usage_bzr2git {
    printf("  %-25s %s\n", "addpkg-group", "Untuk Menambahkan nama Group Paket yang akan dimigrasi");
    printf("  %-25s %s\n", "addpkg", "Untuk Menambahkan Paket yang akan dimigrasi");
    printf("  %-25s %s\n", "addpkg-file", "Untuk Menambahkan Paket yang akan dimigrasi dari file list paket .boikg");
    printf("  %-25s %s\n", "addpkg-in-file", "Untuk Menambahkan nama Paket yang akan dimigrasi ke file list paket .boikg");
    printf("  %-25s %s\n", "rename-pkg-group", "Untuk mengubah nama group paket beserta nama group di dalam paket terkait");
    printf("  %-25s %s\n", "remove-pkg-group", "Untuk menghapus nama Paket yang sudah ada dalam system aplikasi");
    printf("  %-25s %s\n", "remove-pkg", "Untuk menghapus nama Paket yang sudah ada dalam system aplikasi");
    printf("  %-25s %s\n", "list-pkg", "Untuk melihat daftar paket yang sudah terdaftar dalam system aplikasi.");
    printf("  %-25s %s\n", "list-pkg-group", "Untuk melihat daftar group paket yang sudah terdaftar dalam system aplikasi.");
    printf("  %-25s %s\n", "search-pkg", "untuk mencari data paket yang terdaftar pada system aplikasi");
    printf("  %-25s %s\n", "branch", "Untuk branch dari repo bazaar berdasarkan list paket yang tersimpan pada system aplikasi");
    printf("  %-25s %s\n", "bzr-cgit", "Untuk convert repository bazaar ke github repository");
    printf("  %-25s %s\n", "git-push", "Untuk push ke git berdasarkan semua list paket yang tersimpan pada system aplikasi atau hanya 1 paket saja.");
    printf("  %-25s %s\n", "git-push-new", "Untuk push ke git tanpa convert dari Bazaar");
    printf("  %-25s %s\n", "git-check", "Untuk mengecek repo di github, beserta informasi branch yang tersedia");
    printf("  %-25s %s\n", "re-branch", "Untuk branch paket yang ada pada bazaar server");
    printf("  %-25s %s\n", "re-gitpush", "Untuk Deploy ulang ke github");
#    printf("  %-25s %s\n", "", "");
#    printf("  %-25s %s\n", "", "");
}
sub usage_bzr2git_addpkg_group {
    printf("  %-25s %s\n", "[input_name]", "Berisi nama group yang akan ditambahkan, dan inputan tidak boleh menggunakan karakter [spasi]");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git addpkg-group <INPUT>\".");
}
sub usage_bzr2git_addpkg {
    printf("  %-25s %s\n", "[input_name]", "Berisi nama paket yang akan ditambahkan, dan input tidak boleh menggunakan karakter [spasi]");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git addpkg\".");
}
sub usage_bzr2git_addpkgfile {
    my $data_dev = BlankOnDev::DataDev::data_dev();
    my $filepkg_ext = $data_dev->{'filePkg_ext'};
    printf("  %-25s %s\n", "[input_loc_file]", "Berisi lokasi file daftar paket yang akan ditambahkan. Ex: /your/path/file_name.$filepkg_ext");
    printf("  %-25s %s\n", "", "Extension file must \"$filepkg_ext\".");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git addpkg-file\".");
}
sub usage_bzr2git_listpkg {
    printf("  %-25s %s\n", "[group_name]", "berisi nama group paket yang tersimpan dalam system.");
    printf("  %-25s %s\n", "all", "Untuk melihat daftar semua paket yang tersimpan dalam system.");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git list-pkg\".");
}
sub usage_bzr2git_renamepkg_group {
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama paket group yang akan diubah");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git rename-pkg-group\".");
}
sub usage_bzr2git_removepkg_group {
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket yang akan dihapus, kemudian di rename");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git remove-pkg-group\".");
}
sub usage_bzr2git_removepkg {
    printf("  %-25s %s\n", "[name_packages]", "berisi nama paket yang akan dihapus dari system aplikasi.");
    printf("  %-25s %s\n", "[name_of_group_packages]", "untuk menghapus paket dari system aplikasi berdasarkan nama group paket");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git remove-pkg\".");
}
sub usage_bzr2git_searchpkg {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan dicari.");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git search-pkg\".");
}
sub usage_bzr2git_branch {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan didownload melalui \"bzr branch\".");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk mengdownload semua paket yang terkait dengan group melalui \"bzr branch\".");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git search-pkg\".");
}
sub usage_bzr2git_bzr_cgit {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan dikonversi ke repo github");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk meng-konversi semua paket yang terkait dengan group");
    printf("  %-25s %s\n", "", "ke format repositori github");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git bzr-cgit\".");
}
sub usage_bzr2git_gitpush {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan di dorong ke github");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk mendorong semua paket yang terkait dengan group");
    printf("  %-25s %s\n", "", "ke repositori github");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git git-push\".");
}
sub usage_bzr2git_gitpush_new {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan di dorong ke github tanpa konveri dari format bazaar ke github");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk mendorong semua paket yang terkait dengan group");
    printf("  %-25s %s\n", "", "ke repositori github tanpa konveri dari format bazaar ke github");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git git-push\".");
}
sub usage_bzr2git_git_check {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan dicek dalam repositori github");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk mengecek semua paket yang terkait dengan group");
    printf("  %-25s %s\n", "", "yang berada dalam repositori github.");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git git-push\".");
}
sub usage_bzr2git_reBranch {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan dibranch ulang dari server repositori bazaar");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk branch ulang semua paket yang terkait dengan group");
    printf("  %-25s %s\n", "", "yang berada dalam repositori bazaar.");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git git-push\".");
}
sub usage_bzr2git_reGitpush {
    printf("  %-25s %s\n", "[name_of_packages]", "berisi nama paket yang akan dorong ulang ke github, ");
    printf("  %-25s %s\n", "", "untuk dilakukan perbaikan terhadap proses push yang salah");
    printf("  %-25s %s\n", "[name_of_group_packages]", "berisi nama group paket untuk mendorong ulang semua paket yang terkait dengan group");
    printf("  %-25s %s\n", "", "ke repositori github, untuk dilakukan perbaikan terhadap proses push yang salah");
    printf("  %-25s %s\n", "help", "Berisi help penggunaan command \"boidev bzr2git git-push\".");
}

# For Help in list pkg :
# ------------------------------------------------------------------------
sub help_list_pkg {
#    printf("   %-60s %s\n", "testing", "bzrBranch = 0 --> Another Error, See Logs");
    printf("   %-45s %s\n", "bzrBranch = 0 --> Another Error, See Logs", "gitPush = 0 --> Another Error, See Logs");
    printf("   %-45s %s\n", "bzrBranch = 1 --> Success Branch", "gitPush = 1 --> Success Git Push");
    printf("   %-45s %s\n", "bzrBranch = 2 --> Already Branch", "gitPush = 2 --> ...");
    printf("   %-45s %s\n", "bzrBranch = 3 --> Error URL Branch", "gitPush = 3 --> URL Repo git is not valid or URL Repo git is empty");
    print "\n";
    printf("   %s\n", "bzrConvertGit = 0 --> Another Error, See Logs");
    printf("   %s\n", "bzrConvertGit = 1 --> Success Convert to Git");
    printf("   %s\n", "bzrConvertGit = 2 --> Not bazaar repository");
}
# Suroutine for command "boidev -v" or "boidev --version" :
# ------------------------------------------------------------------------
sub version_apps {
    print "\n";
    print "This is BlankOnDev Tools, version $BlankOnDev::Version::appVer, subversion $BlankOnDev::Version::SubVer\n\n";
    print "Copyright 1438 H, Achmad Yusri Afandi.\n\n";

    print "The purpose of tools for Packages Maintainer on BlankOn GNU/Linux Developer.\n";
    print "This program covered several tools for Developer, include : \n";
    print "- Migration Bazaar repositories format to GitHub Repositories format\n";
    print "- Management repositories in your system. [Plan Feature] \n";
    print "- Build Debian Packages from source. [Plan Feature] \n";

    print "\n";
}
1;
__END__