[Bps-public-commit] r12954 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun  6 05:16:58 2008
New Revision: 12954

Added:
   Shipwright/trunk/lib/Shipwright/Script/Rename.pm
Modified:
   Shipwright/trunk/   (props changed)

Log:
 r13044 at sunnavys-mb:  sunnavy | 2008-06-06 17:08:30 +0800
 added rename cmd


Added: Shipwright/trunk/lib/Shipwright/Script/Rename.pm
==============================================================================
--- (empty file)
+++ Shipwright/trunk/lib/Shipwright/Script/Rename.pm	Fri Jun  6 05:16:58 2008
@@ -0,0 +1,120 @@
+package Shipwright::Script::Rename;
+
+use strict;
+use warnings;
+use Carp;
+
+use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
+__PACKAGE__->mk_accessors(qw/repository log_level log_file name new_name/);
+
+use Shipwright;
+use File::Spec;
+use Shipwright::Util;
+
+sub options {
+    (
+        'r|repository=s' => 'repository',
+        'l|log-level=s'  => 'log_level',
+        'log-file=s'     => 'log_file',
+        'name=s'         => 'name',
+        'new-name=s'     => 'new_name',
+    );
+}
+
+sub run {
+    my $self = shift;
+
+    my ( $name, $new_name ) = ( $self->name, $self->new_name );
+
+    unless ( $name && $new_name ) {
+        ( $name, $new_name ) = @_;
+    }
+
+    $self->name( $name );
+    $self->new_name( $new_name );
+
+    die 'need name arg' unless $name;
+    die 'need new name' unless $new_name;
+
+    die "invalid new name $new_name, should only contain - and alphanumeric"
+      unless $new_name =~ /^[-\w]+$/;
+
+    my $shipwright = Shipwright->new(
+        repository => $self->repository,
+        log_level  => $self->log_level,
+        log_file   => $self->log_file,
+    );
+
+    my $order = $shipwright->backend->order;
+
+    die "no such dist: $name" unless grep { $_ eq $name } @$order;
+
+    $shipwright->backend->move(
+        path     => "dists/$name",
+        new_path => "dists/$new_name",
+    );
+    $shipwright->backend->move(
+        path     => "scripts/$name",
+        new_path => "scripts/$new_name",
+    );
+
+    # update order.yml
+    @$order = map { $_ eq $name ? $new_name : $_ } @$order;
+    $shipwright->backend->order($order);
+
+    # update map.yml
+    my $map = $shipwright->backend->map || {};
+    for ( keys %$map ) {
+        $map->{$_} = $new_name if $map->{$_} eq $name;
+    }
+    $shipwright->backend->map($map);
+
+    # update version.yml, source.yml and flags.yml
+    my $version = $shipwright->backend->version || {};
+    my $source  = $shipwright->backend->source  || {};
+    my $flags   = $shipwright->backend->flags   || {};
+
+    $self->_update_hash( $source, $flags, $version );
+
+    $shipwright->backend->version($version);
+    $shipwright->backend->source($source);
+    $shipwright->backend->flags($flags);
+
+    print "renamed $name to $new_name with success\n";
+}
+
+sub _update_hash {
+    my $self     = shift;
+    my @hashrefs = @_;
+    my $name     = $self->name;
+    my $new_name = $self->new_name;
+
+    for my $hashref (@hashrefs) {
+        for ( keys %$hashref ) {
+            if ( $_ eq $name ) {
+                $hashref->{$new_name} = delete $hashref->{$_};
+                last;
+            }
+        }
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Shipwright::Script::Rename - rename a dist
+
+=head1 SYNOPSIS
+
+  shipwright rename          rename a source
+
+ Options:
+   --repository(-r)   specify the repository of our project
+   --log-level(-l)    specify the log level
+   --log-file         specify the log file
+   --name             specify the dist name
+   --new_name         specify the new dist name
+