1 contributor
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use FindBin;
use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/../extlib/lib/perl5";
use Getopt::Long;
use File::Basename 'basename';
use Gitprep;
use Encode 'decode';
use Mojo::Server;
no warnings;
my $app = Mojo::Server->new->load_app("$FindBin::Bin/gitprep");
my $dbi = $app->dbi;
my $manager = $app->manager;
my $git = $app->git;
my $user_id;
my $only_push;
my $help;
GetOptions(
'user=s' => \$user_id,
'help=s' => \$help
);
my $usage = <<'EOS';
Usage:
./import_rep -u USER REPOSITORY_DIR
Example:
./import_rep -u kimoto reps
EOS
my $rep_dir = shift;
die "$usage\n" if !defined $rep_dir || $help;
# Check user
my $user = $dbi->model('user')->select(where => {id => $user_id})->one;
die "User $user_id is not exists\n" unless $user;
for my $rep (glob "$rep_dir/*") {
if (-d $rep && $rep =~ /\.git$/) {
my $project_id = basename $rep;
$project_id =~ s/\.git$//;
my $project = $dbi->model('project')->select(
where => {'user.id' => $user_id, 'project.id' => $project_id}
)->one;
# Create project
if ($project) {
warn "Repository $project_id Already exists : $@\n";
}
else {
eval {
$manager->create_project($user_id, $project_id);
};
if ($@) {
warn "Can't creat repository $project_id: $@\n";
}
else {
warn "Create repository $project_id\n";
}
}
# Copy description
my $description = do {
my $success = open my $fh, '<', "$rep/description";
if ($success) {
local $/;
<$fh>
}
else {
'';
}
};
$description = decode('UTF-8', $description);
eval {$git->description(app->rep_info($user_id, $project_id), $description) };
if ($@) {
warn "Can't update description $project_id\n";
}
# Push repository
chdir $rep
or warn "Can't change directory $rep: $!\n";
my $remote_rep_info = $app->rep_info($user_id, $project_id);
my $remote_rep_git_dir = $remote_rep_info->{git_dir};
# push branches
{
my @cmd = ('git', 'push', $remote_rep_git_dir, '--all');
system(@cmd) == 0
or warn "Can't push branches: @cmd";
}
# push tags
{
my @cmd = ('git', 'push', $remote_rep_git_dir, '--tags');
system(@cmd) == 0
or warn "Can't push tags: @cmd";
}
}
}
=head1 NAME
import_rep - Import existing repositories into GitPrep.
=head1 USAGE
./import_rep -u kimoto rep_dir
rep_dir must contains git respoitories
rep_dir/project1.git
/project2.git
/project3.git
/project3.git
If C<description> file exists in git repository, it is copied.