diff options
Diffstat (limited to 'src/mozclient/lib/MozClient/Git.pm')
-rw-r--r-- | src/mozclient/lib/MozClient/Git.pm | 106 |
1 files changed, 0 insertions, 106 deletions
diff --git a/src/mozclient/lib/MozClient/Git.pm b/src/mozclient/lib/MozClient/Git.pm deleted file mode 100644 index e160af3..0000000 --- a/src/mozclient/lib/MozClient/Git.pm +++ /dev/null @@ -1,106 +0,0 @@ -# -*- mode: Perl -*- - -# Copyright (c) 2007-2008 Fabien Tassin <fta@sofaraway.org> -# Description: MozClient::Git -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License as -# published by the Free Software Foundation; either version 2, or (at -# your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License along -# with this program; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -############################################################################ - -package MozClient::Git; - -use vars qw(@ISA); -use strict; -use Carp; -use MozClient::VCS; - -@ISA = ("MozClient::VCS"); - -sub get_client { - my $self = shift; - - $self->LOG("MozClient::Git::get_client()"); - # nothing to do -} - -sub convert_revdate { - my $self = shift; - my $arg = shift; - - $self->LOG("MozClient::Git::convert_revdate($arg)"); - $arg =~ s,^\d+r,,; - $arg; -} - -sub set_revdate { - my $self = shift; - - $self->LOG("MozClient::Git::set_revdate()"); - - # We can set a revision for git - $self->{'mozclient_date'} = - $self->convert_revdate($self->{'have_date'}); -} - -sub set_tag { - my $self = shift; - my $tag = shift; - - $self->LOG("MozClient::Git::set_tag($tag)"); - - $self->{'co_tag'} = "$tag"; -} - -sub checkout { - my $self = shift; - - $self->LOG("MozClient:Git::checkout:()"); - - if (defined $self->{'local-branch'}) { - confess "Can't MozClient::checkout() a local branch for " . $self->vcs; - # TODO: fix it if needed - } - $self->chdir($self->work_dir); - my $modules = []; - if (defined $self->{'MOZCLIENT_PROJECT'}) { - push @$modules, - $self->{'MOZCLIENT_VCS_LOC'} . $self->{'MOZCLIENT_PROJECT'} . "/"; - } - else { - warn "MOZCLIENT_MODULES not supported for Git"; - for my $module (@{$self->{'MOZCLIENT_MODULES'}}) { - push @$modules, (sprintf " %s%s/%s", $self->{'MOZCLIENT_VCS_LOC'}, - $self->{'MOZCLIENT_PROJECT'}, $module); - } - } - my $cmd = sprintf "git clone %s %s", join(" ", @$modules), $self->{'MOZCLIENT_MOZDIRNAME'}; - $self->run_system($cmd); - $self->chdir($self->{'MOZCLIENT_MOZDIRNAME'}); - my $rev = $self->{'mozclient_date'} ? $self->{'mozclient_date'} : $self->{'co_tag'}; - $cmd = sprintf "git branch %s %s", $rev, $rev; - $self->run_system($cmd); - $cmd = sprintf "git checkout %s", $rev; - $self->run_system($cmd); - $self->chdir("../.."); -} - -sub tar_exclude { - my $self = shift; - - $self->LOG("MozClient::Git::tar_exclude()"); - [ '--exclude .git', '--exclude .gitignore' ]; -} - -1; |