Permalink
Browse files

disclaiming my poor code

  • Loading branch information...
Gatlin C Johnson
Gatlin C Johnson committed Dec 10, 2012
1 parent 5ed4686 commit 98ff0a666a1dffbb3b1db8a38ed635b4aea8674b
Showing with 13 additions and 5 deletions.
  1. +7 −0 README.md
  2. +6 −5 lib/Deployrable.pm
View
@@ -1,6 +1,13 @@
Deployrable
===
+**Note:** this software is not quite ready for launch. I just wanted to develop
+it in the open. After initial release master will only contain that which is
+perfect.
+
+Summary
+---
+
Deploy your git branches to custom VMs with deplorable ease.
0. Quick setup
View
@@ -140,9 +140,10 @@ sub startup {
my $bid = $self->param('bid');
my @instances = map {
- my @ips = @{$_->{addresses}->{private}};
- my $ip = $ips[$#ips];
- $_->{ip} = $ip->{addr};
+ #my @ips = @{$_->{addresses}->{private}};
+ #my $ip = $ips[$#ips];
+ #$_->{ip} = $ip->{addr};
+ $_->{ip} = '0.0.0.0';
$_->{name} =~ m/^$bid/ and $_ or ();
} @$instances_;
@@ -261,7 +262,7 @@ sub startup {
$s = $server if $server->{name} eq "$bid-$nom";
}
$self->redirect_to("/project/$pid/$bid") unless $s;
-
+=cut
my @ips = @{$s->{addresses}->{private}};
my $ip = $ips[$#ips]->{addr};
@@ -286,7 +287,7 @@ sub startup {
"git clone
ssh://git\@$p->{host}:$p->{port}/$p->{path}/$p->{repo}.git"
);
-
+=cut
$self->redirect_to("/project/$pid/$bid");
});

0 comments on commit 98ff0a6

Please sign in to comment.