BlankOnDev
view release on metacpan or search on metacpan
# MODULE AND UTILITIES
## BlankOnDev::config
BlankOnDev::config untuk menangani beberapa perintah "boidev", meliputi :
- perintah "boidev config",
- perintah "boidev mig_prepare",
- perintah "boidev config"
- perintah "boidev mig_prepare"
- perintah "boidev install-pkg"
- perintah "boidev gpg-auth-dec"
- perintah "boidev gpg-genkey"
- perintah "boidev list-cfg"
- perintah "boidev list-file"
- perintah "boidev rilis"
- perintah "boidev bzr2git"
## BlankOnDev::Migration::bazaar2GitHub
BlankOnDev::Migration::bazaar2GitHub
untuk menangani beberapa perintah "boidev bzr2git", meliputi :
- perintah "boidev bzr2git addpkg-group"
lib/BlankOnDev.pm view on Meta::CPAN
# ------------------------------------------------------------------------
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;
}
lib/BlankOnDev.pm view on Meta::CPAN
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();
lib/BlankOnDev/Form.pm view on Meta::CPAN
print "your E-mail Github Account is empty !!! \n";
form_email_git();
} else {
$data_emailGit = $email;
}
}
return $data_emailGit;
}
# Subroutine for Email GnuPG :
# ------------------------------------------------------------------------
sub form_email_gpg {
my ($self, $email) = @_;
# Prepare Form :
my $emailGnuPG_form;
my $data_emailGnuPG;
# Form Email GnuPG :
print "\n";
if ($email ne '') {
print "Enter your email address for GnuPG Generate Key [$email] : ";
} else {
print "Enter your email address for GnuPG Generate Key : ";
}
chomp($emailGnuPG_form = <STDIN>);
if ($emailGnuPG_form ne '') {
if ($emailGnuPG_form =~ m/(.*)\@(.*).(.*)/) {
$data_emailGnuPG = $emailGnuPG_form;
} else {
print "Please enter valid email address !!! \n";
form_email_gpg();
}
} else {
if ($email eq '') {
print "your enter email is empty !!! \n";
form_email_gpg();
} else {
$data_emailGnuPG = $email;
}
}
return $data_emailGnuPG;
}
# Subroutine for Passphrase GnuPG :
# ------------------------------------------------------------------------
sub form_passphrase_gpg {
my ($self) = @_;
# Prepare Form :
my $passph_form = '';
my $confirm_again;
my $data_passph;
# From Passhphrase :
print "\n";
print "Enter Passphrase gpg : ";
ReadMode('noecho');
$passph_form = ReadLine(0);
ReadMode 1;
if ($passph_form ne '') {
$data_passph = $passph_form;
} else {
print "your enter passphrase gpg is empty !!! \n";
print "You want to try again ? [y or n] : ";
chomp($confirm_again = <STDIN>);
if ($confirm_again eq 'y' or $confirm_again eq 'Y') {
print "Enter Passphrase gpg : ";
ReadMode('noecho');
$passph_form = ReadLine(0);
ReadMode 1;
}
}
return $passph_form;
}
1;
lib/BlankOnDev/Migration/bazaar2GitHub.pm view on Meta::CPAN
# 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 = ();
lib/BlankOnDev/Tutorial/id.pod view on Meta::CPAN
=item 1.
Perintah C<B< boidev config>> - Perintah ini digunakan untuk melakukan pengaturan sebelum penggunaan program lebih lanjut.
=item 2.
Perintah C<B<boidev mig_prepare>> - Perintah ini digunakan persiapan sebelum melakukan migrasi paket, seperti B<url branch>, B<url github>, B<email github>, dan data untuk proses Generate key dengan B<GnuPG>.
=item 3.
Perintah C<B<boidev install-pkg>> - Perintah ini digunakan untuk instalasi beberapa paket debian yang dibutuhkan untuk Tim Pemaket.
=item 4.
Perintah C<B<boidev gpg-auth>> dan C<B<boidev gpg-auth-dec>> - Perintah ini digunakan untuk melihat B<nama>, B<email> dan B<passphrase> B<GnuPG> yang digunakan untuk C<Generate Key>.
=item 5.
Perintah C<B<boidev gpg-genkey>> - Perintah ini digunakan untuk melakukan C<Generate key GnuPG>
=item 6.
Perintah C<B<boidev list-cfg>> - Perintah ini digunakan untuk melihat daftar konfigurasi program B<BlankOnDev> yang telah dilakukan.
=item 7.
Perintah C<B<boidev list-file>> - Perintah ini digunakan untuk melihat daftar file konfigurasi yang tersimpan pada sistem program B<BlankOnDev>.
=item 8.
Perintah C<B<boidev rilis>> - Perintah Ini digunakan untuk mengubah rilis B<BlankOn> yang digunakan pada program B<BlankOnDev>
lib/BlankOnDev/Tutorial/id.pod view on Meta::CPAN
# Nama Lengkap
Enter your name : Achmad Yusri Afandi
# Email Github
Enter your email address Github Account : linuxer08@gmail.com
# Email yang digunakan saat generate GnuPG
Enter your email address for GnuPG Generate Key : yusrideb@cpan.org
# Masukkan Passphrase seperti saat menjalankan gpg --gen-key
Enter Passphrase gpg :
=head3 2.3.2. Dengan perintah C<boidev mig_prepare>
Jalankan perintah berikut :
$ boidev mig_prepare
Setelah itu akan tampil form seperti pada C<boidev config> :
lib/BlankOnDev/config.pm view on Meta::CPAN
# Version :
our $VERSION = '0.1005';
# Our vars :
our $gencfg = {};
our $allconfig = {};
our $filename_cfg = '';
our $dirdev_cfg = '';
our $prepareCfg = 0;
our $rilisCfg = '';
our $gpgCfg = {};
our $bzrCfg = {};
our $gitCfg = {};
our $r_bzrcfg = 0;
our $r_gitcfg = 0;
our $r_gpgcfg = 0;
our $r_config = {};
our $time_zone = 'Asia/Makassar';
# Subroutine for option "prepare" :
# ------------------------------------------------------------------------
sub _prepare {
# Run Config :
config();
# Bazaar URL Config :
bzr_config();
# Git URL Config :
git_config();
# Define scalar to save config :
$prepareCfg = 1;
my $data_gpg = exists $gpgCfg->{'gpg'} ? $gpgCfg->{'gpg'} : $allconfig->{'build'}->{'gpg'};
my $pkg = $r_config->{'pkg'};
my $data = {
'r_config' => {
'timezone' => $time_zone,
'prepare' => $prepareCfg,
'build' => {
'rilis' => $rilisCfg,
},
'bzr' => exists $bzrCfg->{'url'} ? $bzrCfg : $allconfig->{'bzr'},
'git' => exists $gitCfg->{'url'} ? $gitCfg : $allconfig->{'git'},
lib/BlankOnDev/config.pm view on Meta::CPAN
my $dir_dev = $data_setup->{'dir_dev'};
my $prefix_file_cfg = $data_setup->{'prefix_flcfg'};
my $ext_flcfg = $data_setup->{'fileCfg_ext'};
my $file_cfg = 'general'.$ext_flcfg;
# Get current Configure :
my $curr_timezone = $gencfg->{'timezone'};
my $curr_rilis = $gencfg->{'rilis'};
my $curr_name = $gencfg->{'data'}->{'name'};
my $curr_email_git = $gencfg->{'data'}->{'email-git'};
my $curr_email_gpg = $gencfg->{'data'}->{'email-gpg'};
my $curr_passph_gpg = $gencfg->{'data'}->{'passph-gpg'};
# For Timezone :
my $data_timezone = BlankOnDev->FORM('timezone', $curr_timezone);
# Get data release :
my $data_rilis = BlankOnDev::Rilis::data();
# my $form_rilis = BlankOnDev->FORM('rilis');
my $form_rilis = {
'result' => 1,
'data' => 'tambora',
};
my $boi_rilis;
if ($form_rilis->{'result'} == 1) {
$boi_rilis = $form_rilis->{'data'};
} else {
$boi_rilis = $data_rilis->{'10'}->{'name'};
}
my $data_name = BlankOnDev->FORM('name', $curr_name);
my $data_email_git = BlankOnDev->FORM('email-git', $curr_email_git);
my $data_email_gpg = BlankOnDev->FORM('email-gpg', $curr_email_gpg);
my $data_passph_gpg = BlankOnDev->FORM('passph-gpg', '');
$data_passph_gpg = enc_ggp_genkey($data_email_gpg, $data_passph_gpg);
BlankOnDev::Form::github->form_config_github($data_name, $data_email_git);
my $new_dataCfg = Hash::MultiValue->new();
$new_dataCfg->add('name' => $data_name);
$new_dataCfg->add('email-git' => $data_email_git);
$new_dataCfg->add('email-gpg' => $data_email_gpg);
$new_dataCfg->add('passph-gpg' => $data_passph_gpg);
my $result_dataCfg = $new_dataCfg->as_hashref;
my $new_genCfg = Hash::MultiValue->new();
$new_genCfg->add('timezone' => $data_timezone);
$new_genCfg->add('rilis' => $boi_rilis);
$new_genCfg->add('data' => $result_dataCfg);
my $result_cfg = $new_genCfg->as_hashref;
# Save new config :
BlankOnDev::config::save->save_to_file($file_cfg, $dir_dev, $result_cfg);
print "\n";
}
# Subroutine for option "gpg-gen-key :
# ------------------------------------------------------------------------
sub _gpg_genkey {
# Get data Setup :
my $data_setup = data_setup();
my $dir_dev = $data_setup->{'dir_dev'};
my $prefix_flcfg = $data_setup->{'prefix_flcfg'};
my $file_cfg_ext = $data_setup->{'fileCfg_ext'};
# Get current general config :
my $data_gencfg = $gencfg->{'data'};
my $curr_name = $data_gencfg->{'name'};
my $curr_emailgit = $data_gencfg->{'email-git'};
my $curr_emailgpg = $data_gencfg->{'email-gpg'};
my $curr_passph = $data_gencfg->{'passph-gpg'};
$curr_passph = dec_gpg_genkey($curr_emailgpg, $curr_passph);
my $newData_cfg = $data_gencfg;
# Check File Config :
my $file_cfg = 'general'.$file_cfg_ext;
my $loc_file = $dir_dev.$file_cfg;
$filename_cfg = $file_cfg;
$dirdev_cfg = $dir_dev;
print "Filename : $file_cfg\n";
if (-e $loc_file) {
# GPG Generate Key :
gpg_config($curr_name, $curr_emailgpg, $curr_passph);
}
}
# Subroutine for get list gpg auth :
# ------------------------------------------------------------------------
sub _gpg_auth {
# Get data Setup :
my $data_setup = data_setup();
my $dir_dev = $data_setup->{'dir_dev'};
my $prefix_flcfg = $data_setup->{'prefix_flcfg'};
my $file_cfg_ext = $data_setup->{'fileCfg_ext'};
# Get All Data Config :
my $data_gencfg = $gencfg->{'data'};
my $name_gpg = $data_gencfg->{'name'};
my $email_gpg = $data_gencfg->{'email-gpg'};
my $passphrase_gpg = $data_gencfg->{'passph-gpg'};
# Print Result :
print "\n";
print "---------" x 8 . "\n";
print " List GPG Auth : \n";
print "---------" x 8 . "\n";
print "Name : $name_gpg\n";
print "Email : $email_gpg\n";
print "passphrase : $passphrase_gpg\n\n";
}
# Subroutine for get list gpg auth with Decode passphrase:
# ------------------------------------------------------------------------
sub _gpg_auth_dec {
# Get data Setup :
my $data_setup = data_setup();
my $dir_dev = $data_setup->{'dir_dev'};
my $prefix_flcfg = $data_setup->{'prefix_flcfg'};
my $file_cfg_ext = $data_setup->{'fileCfg_ext'};
# Get All Data Config :
my $data_gencfg = $gencfg->{'data'};
my $name_gpg = $data_gencfg->{'name'};
my $email_gpg = $data_gencfg->{'email-gpg'};
my $passphrase_gpg = $data_gencfg->{'passph-gpg'};
my $thepassphrase = dec_gpg_genkey($email_gpg, $passphrase_gpg);
# Print Result :
print "\n";
print "---------" x 8 . "\n";
print " List GPG Auth : \n";
print "---------" x 8 . "\n";
print "Name : $name_gpg\n";
print "Email : $email_gpg\n";
print "passphrase : $thepassphrase\n\n";
}
# Subroutine for get list configure :
# ------------------------------------------------------------------------
sub _list_cfg {
my $data_setup = data_setup();
my $dir_dev = $data_setup->{'dir_dev'};
my $prefix_flcfg = $data_setup->{'prefix_flcfg'};
my $file_cfg_ext = $data_setup->{'fileCfg_ext'};
print Dumper $gencfg;
# General Configure :
my $data_cfg = $gencfg->{data};
my $name_cfg = $data_cfg->{'name'};
my $email_gpg = $data_cfg->{'email-gpg'};
# Get Data current Configure :
my $bzr = $allconfig->{bzr};
my $bzr_url = $bzr->{'url'};
my $git = $allconfig->{git};
my $git_url = $git->{'url'};
my $pkg = $allconfig->{'pkg'};
my $dirpkg = $pkg->{'dirpkg'};
# Print Result :
print "\n";
print "---------" x 8 . "\n";
print " List Configure : \n";
print "---------" x 8 . "\n";
print "\n";
print "PGP Configure :\n";
print "Name : $name_cfg\n";
print "Email : $email_gpg\n\n";
print "URL Configure : \n";
print "Bzr Branch : $bzr_url\n";
print "Git Branch : $git_url\n\n";
print "Packages Configure : \n";
print "Package Directory : $dirpkg\n\n";
}
# Subroutine for list file configure :
# ------------------------------------------------------------------------
lib/BlankOnDev/config.pm view on Meta::CPAN
my $gitname;
my $gitemail;
my $r_gitset = 1;
my $home_dir = $ENV{"HOME"};
# Get current general config :
my $curr_timezone = '';
my $data_gencfg = $gencfg->{'data'};
my $curr_name = $data_gencfg->{'name'};
my $curr_emailgit = $data_gencfg->{'email-git'};
my $curr_emailgpg = $data_gencfg->{'email-gpg'};
my $curr_passph = $data_gencfg->{'passph-gpg'};
$curr_passph = dec_gpg_genkey($curr_emailgpg, $curr_passph);
my $newData_cfg = $data_gencfg;
# Preare general conig :
my $data_setup = data_setup();
my $dir_dev = $data_setup->{'dir_dev'};
my $ext_flcfg = $data_setup->{'fileCfg_ext'};
my $file_cfg = 'general'.$ext_flcfg;
# Get Command :
# ----------------------------------------------------------------
lib/BlankOnDev/config.pm view on Meta::CPAN
} else {
$r_gitset = 0;
print "git user.name or user.email not enter\n";
exit 0;
}
}
# get List git config :
system($gitCmd_list);
# For gpg gen key :
print "You want GnuPG Generate key [y/n] : ";
chomp($gnupg_genkey = <STDIN>);
if ($gnupg_genkey eq 'y') {
gpg_config($curr_name, $curr_emailgpg, $curr_passph);
}
# print Dumper $allconfig;
}
# Subroutine for blankon Config :
# ------------------------------------------------------------------------
sub data_setup {
my $data_dev = BlankOnDev::DataDev::data_dev();
return $data_dev;
}
lib/BlankOnDev/config.pm view on Meta::CPAN
sub enc_ggp_genkey {
my ($email, $passphrase) = @_;
my $plan_key = BlankOnDev::enkripsi->getKey_enc($email);
my $encoder = BlankOnDev::enkripsi->Encoder($passphrase, $plan_key);
return $encoder;
}
# Subroutine for Decode passphrase GnuPG Generate Key :
# ------------------------------------------------------------------------
sub dec_gpg_genkey {
my ($email, $passphrase) = @_;
my $plan_key = BlankOnDev::enkripsi->getKey_enc($email);
my $decoder = BlankOnDev::enkripsi->Decoder($passphrase, $plan_key);
return $decoder;
}
# Subroutine for GNUpg configure :
# ------------------------------------------------------------------------
sub gpg_config {
my ($name, $email, $passph) = @_;
# Define hash :
my %data = ();
# Define scalar for Form :
my $input_gpg_algo = 1;
my $gpg_algo = '';
my $gpg_name = '';
my $gpg_email = '';
my $confirm_passph = '';
my $gpg_passph = '';
my $gpg_passph_enc = '';
# Data Setup :
my $data_setup = data_setup();
my $dir_dev = $data_setup->{'dir_dev'};
my $ext_flcfg = $data_setup->{'fileCfg_ext'};
my $file_cfg = 'general'.$ext_flcfg;
# Get current general config :
my $data_gencfg = $gencfg->{'data'};
# Title Form :
print "\n";
print "-----" x 15 . "\n";
print " For GnuPG Generate Key : \n";
print "-----" x 15 . "\n";
print "\n";
if ($input_gpg_algo eq '1') {
$gpg_algo = 'RSA';
} elsif ($input_gpg_algo eq '2') {
$gpg_algo = 'DSA_ELGAMAL'
} else {
$gpg_algo = 'DSA_ELGAMAL';
}
# Form Name GnuPG generate key :
print "Enter Name [$name] : ";
chomp($gpg_name = <STDIN>);
if ($gpg_name eq '') {
$gpg_name = $name;
}
# Form Email for GnuPG generate key :
print "Enter E-mail [$email] : ";
chomp($gpg_email = <STDIN>);
if ($gpg_email eq '') {
$gpg_email = $email;
}
# From PassPhrase for GnuPG generate key :
print "\n";
print "You want to enter different passphrase GnuPG ? [y or n] ";
chomp($confirm_passph = <STDIN>);
if ($confirm_passph eq 'y' or $confirm_passph eq 'Y') {
print "Enter passphrase : ";
ReadMode('noecho');
$gpg_passph = ReadLine(0);
$gpg_passph =~ s/\n//g;
if ($gpg_passph eq '') {
$gpg_passph_enc = enc_ggp_genkey($gpg_email, $passph);
$gpg_passph = $passph;
} else {
$gpg_passph_enc = enc_ggp_genkey($gpg_email, $gpg_passph);
}
$r_gpgcfg = 1;
ReadMode 1;
} else {
$gpg_passph = $passph;
$gpg_passph_enc = enc_ggp_genkey($email, $passph);
}
# Initialize GnuPG Module :
my $gpg = GnuPG->new();
$gpg->gen_key(
# algo => $gpg_algo,
name => $gpg_name,
email => $gpg_email,
passphrase => $gpg_passph,
);
# Place data :
$data{'gpg'} = {
'name' => $gpg_name,
'email' => $gpg_email,
'passphrase' => $gpg_passph_enc
};
# Prepare Configure :
my $pre_cfg = Hash::MultiValue->new(%{$data_gencfg});
$pre_cfg->set('passph-gpg' => $gpg_passph_enc);
my $newData_cfg = $pre_cfg->as_hashref;
# Merge Configure :
my $merge_cfg = Hash::MultiValue->new(%{$gencfg});
$merge_cfg->set('data' => $newData_cfg);
my $result_cfg = $merge_cfg->as_hashref;
# Save configure :
BlankOnDev::config::save->save_to_file($file_cfg, $dir_dev, $result_cfg);
# Return :
$gpgCfg = \%data;
return \%data;
}
# Subroutine for Bazaar Configure :
# ------------------------------------------------------------------------
sub bzr_config {
# Define scalar :
my $bzr_url = '';
# Form :
my $data_bzrcfg = $allconfig->{'bzr'};
lib/BlankOnDev/config.pm view on Meta::CPAN
$filename_cfg = $file_cfg;
$dirdev_cfg = $dir_dev;
my $adddt_pkg;
my $result_adddtPkg;
# Define scalar :
my $timezone;
my $prepare;
my $build;
my $build_rilis;
my $build_gpg;
my $bzr;
my $git;
my $pkg;
# For Dir Dev :
my $dir_data_boidev = $dir_dev;
my $dir_pkg = $dir_dev.$pkgs_dir;
my $dir_pkgrilis = $dir_pkg.'/'.$rilisCfg;
my $log_dir_rilis = $logs_dir.$rilisCfg;
lib/BlankOnDev/config.pm view on Meta::CPAN
if (-d $dir_data_boidev) {
if (-e $loc_flcfg) {
my $get_allcfg = BlankOnDev::Utils::file->read($loc_flcfg);
my $data_allcfg = decode_json($get_allcfg);
my $size_allcfg = scalar keys(%{$data_allcfg});
if ($size_allcfg > 0) {
$timezone = $data_allcfg->{'timezone'} if exists $data_allcfg->{'timezone'};
$prepare = $data_allcfg->{'prepare'} if exists $data_allcfg->{'prepare'};
$build = $data_allcfg->{'build'} if exists $data_allcfg->{'build'};
$build_rilis = $build->{'rilis'} if exists $build->{'rilis'};
$build_gpg = $build->{'gpg'} if exists $build->{'gpg'};
$bzr = $data_allcfg->{'bzr'} if exists $data_allcfg->{'bzr'};
$git = $data_allcfg->{'git'} if exists $data_allcfg->{'git'};
$pkg = $data_allcfg->{'pkg'} if exists $data_allcfg->{'pkg'};
$data = $data_allcfg;
} else {
$adddt_pkg = Hash::MultiValue->new();
$adddt_pkg->add('dirpkg' => $dir_pkgrilis);
$adddt_pkg->add('group' => {});
$adddt_pkg->add('pkgs' => {});
$result_adddtPkg = $adddt_pkg->as_hashref;
lib/BlankOnDev/config.pm view on Meta::CPAN
}
# Subroutine for format general config :
# ------------------------------------------------------------------------
sub format_general_config {
my %data = (
'timezone' => '',
'rilis' => '',
'data' => {
'name' => '',
'email-git' => '',
'email-gpg' => '',
'passph-gpg' => '',
}
);
return \%data;
}
# Subroutine for format data config :
# ------------------------------------------------------------------------
sub format_bzr2git_config {
my %data = (
'timezone' => 'Asia/Makassar',
'prepare' => 0,
'build' => {
'rilis' => '',
'gpg' => {
'alg' => '',
'name' => '',
'email' => '',
'passphrase' => ''
},
},
'bzr' => {
'url' => '',
},
'git' => {
lib/BlankOnDev/config/save.pm view on Meta::CPAN
my ($self, $fix_config) = @_;
my $data_config = $fix_config->{'r_config'};
my $filename_cfg = $fix_config->{'filename'};
my $dirdev_cfg = $fix_config->{'dir_dev'};
$self->save_to_file($filename_cfg, $dirdev_cfg, $data_config);
}
# Subroutine for save config GnuPG generate Key :
# ------------------------------------------------------------------------
sub gpg_genkey {
my ($self, $fix_config) = @_;
my $data_config = $fix_config->{'r_config'};
my $filename_cfg = $fix_config->{'filename'};
my $dirdev_cfg = $fix_config->{'dir_dev'};
$self->save_to_file($filename_cfg, $dirdev_cfg, $data_config);
}
# Subroutine for save config to file config :
script/boidev view on Meta::CPAN
'mig_prepare' => {
'mod' => 'config',
'sub' => '_prepare',
'input' => 'no-param',
},
'config' => {
'mod' => 'config',
'sub' => '_general_config',
'input' => 'no-param',
},
'gpg-genkey' => {
'mod' => 'config',
'sub' => '_gpg_genkey',
'input' => 'no-param',
},
'gpg-auth' => {
'mod' => 'config',
'sub' => '_gpg_auth',
'input' => 'no-param',
},
'gpg-auth-dec' => {
'mod' => 'config',
'sub' => '_gpg_auth_dec',
'input' => 'no-param',
},
'install-pkg' => {
'mod' => 'repo',
'sub' => 'pkg_build',
'input' => 'no-param',
},
'bzr2git' => {
'mod' => 'bzr2git',
'sub' => '_bzr2git',
( run in 0.824 second using v1.01-cache-2.11-cpan-df04353d9ac )