view release on metacpan or  search on metacpan

lib/BlankOnDev/Migration/bazaar2GitHub.pm  view on Meta::CPAN

                exit 0;
            }
        }
    } else {
        print "\n";
        print "Enter group name packages before migration.\n";
        chomp($input_pkg_group = <STDIN>);
        if ($input_pkg_group =~ m/^[A-Za-z0-9\-\_]+$/) {
            $pkg_group = $input_pkg_group;
            $r_pkg_group = 1;
            $pkg_group_stts = 1;
        }
        elsif ($input_pkg_group =~ m/^[A-Za-z]+$/) {
            $pkg_group = $input_pkg_group;
            $r_pkg_group = 1;
            $pkg_group_stts = 1;
        }
        else {
            $r_pkg_group = 0;
            $pkg_group = '';
            $pkg_group_stts = 0;
            print "\n";
            print "Name of group package must combination : \n";
            print "- Alphabetic\n";
            print "- Alphabetic Numberic\n";
            print "- Alpabetic Numberic and [_] character or/and [-] character\n";
            print "\n";
            exit 0;
        }
    }

    $data{'result'} = $r_pkg_group;
    $data{'data'} = $pkg_group;
    $data{'status'} = $pkg_group_stts;

    return \%data;
}
# Subroutine for option "addpkg" :
# ------------------------------------------------------------------------
sub _addpkg {
    my ($self, $allconfig) = @_;

    # Define scalar :
    my $new_pkg;
    my $arg_len = scalar @ARGV;

    # For Data Developer :
    my $data_dev = BlankOnDev::DataDev::data_dev();
    my $dir_dev = $data_dev->{'dir_dev'};
    my $dir_pkgs = $data_dev->{'dir_pkg'};

    # Check Package Group :
    my $pkg_group = $self->group_pkg($allconfig);

    if ($pkg_group->{'result'} eq 1) {
        # Define scalar for data packages :
        my $input_group = $pkg_group->{'data'};
        my $status_group = $pkg_group->{'status'};
        my $build = $allconfig->{build};
        my $build_rilis = $build->{'rilis'};
        my $build_gpg = $build->{'gpg'};
        my $data_bzr = $allconfig->{bzr}->{url};
        my $data_git = $allconfig->{git}->{url};
        my $curr_data_pkg = $allconfig->{'pkg'};
        my $locdir_pkg = $dir_dev.$dir_pkgs;
        my $locdir_rilis = $locdir_pkg.'/'.$build_rilis;

        # Check Status group packages :
        if ($status_group == 1) {
            # Define hash or scalar :
            my %data = ();
            my $locdir_pkggroup = $locdir_rilis.'/'.$input_group;

            # Make Dir Group Packages :
            unless (-d $locdir_pkggroup) {
                mkdir($locdir_pkggroup);
            }

            # Check Arguments :
            if ($arg_len == 2) {

                print "Enter Packages : ";
                chomp($new_pkg = <STDIN>);
                if ($new_pkg ne '') {
                    unless (exists $allconfig->{'pkg'}->{'pkgs'}->{$new_pkg}) {

                        # Define scalar for config :
                        my $save_config = prepare_config();
                        my $rdt_config = $save_config->{'newpkg'}($allconfig, {
                                'pkg' => $new_pkg,
                                'group' => $input_group
                            });
                        my $for_saveCfg;

                        # Add list pkgs :
                        unless (exists $curr_data_pkg->{'group'}->{$input_group} && exists $curr_data_pkg->{'pkgs'}->{$new_pkg}) {
                            $for_saveCfg = save_newConfig();
                            $for_saveCfg->{'addpkg'}($rdt_config);
                        }
                    } else {
                        print "\n";
                        print "Info : \n";
                        print "====" x 18 . "\n";
                        print "Packages \"$new_pkg\" is exists...\n";
                        exit 0;
                    }

                } else {
                    print "Please Enter name package for add !!!\n";
                    exit 0;
                }
            } elsif ($arg_len == 3) {
                $new_pkg = $ARGV[2];
                unless (exists $allconfig->{'pkg'}->{'pkgs'}->{$new_pkg}) {

                    # Define scalar for config :
                    my $save_config = prepare_config();
                    my $rdt_config = $save_config->{'newpkg'}($allconfig, {
                            'pkg' => $new_pkg,
                            'group' => $input_group
                        });