Scripts to change root pass and name -- return RC 500 now :(

mfontani · Jul 18, 2009 · 30e8d54 · 30e8d54
1 parent 635fcdc
commit 30e8d54
Show file tree

Hide file tree

Showing 2 changed files with 51 additions and 0 deletions.
diff --git a/scripts/changename.pl b/scripts/changename.pl
@@ -0,0 +1,27 @@
+#!perl
+use strict;
+use warnings;
+use Net::RackSpace::CloudServers;
+
+my $user = $ENV{'CLOUDSERVERS_USER'} or die "Need CLOUDSERVERS_USER environment variable set";
+my $key  = $ENV{'CLOUDSERVERS_KEY'}  or die "Need CLOUDSERVERS_KEY environment variable set";
+
+$Net::RackSpace::CloudServers::DEBUG = 1;
+my $CS = Net::RackSpace::CloudServers->new(
+  user => $user,
+  key  => $key,
+);
+
+my @flavors = $CS->get_flavor_detail;
+my @images  = $CS->get_image_detail;
+my @servers = $CS->get_server_detail;
+
+my $srvapi = (grep {$_->name eq 'apitest'} @servers)[0];
+die "can't find server named 'apitest'. Create one." if (!defined $srvapi);
+
+print "changing server name..\n";
+$srvapi->change_name('apitest2');
+print "Changed\n";
+@servers = $CS->get_server_detail;
+$srvapi = (grep {$_->name eq 'apitest'} @servers)[0];
+print "Done\n";
diff --git a/scripts/changerootpass.pl b/scripts/changerootpass.pl
@@ -0,0 +1,24 @@
+#!perl
+use strict;
+use warnings;
+use Net::RackSpace::CloudServers;
+
+my $user = $ENV{'CLOUDSERVERS_USER'} or die "Need CLOUDSERVERS_USER environment variable set";
+my $key  = $ENV{'CLOUDSERVERS_KEY'}  or die "Need CLOUDSERVERS_KEY environment variable set";
+
+$Net::RackSpace::CloudServers::DEBUG = 1;
+my $CS = Net::RackSpace::CloudServers->new(
+  user => $user,
+  key  => $key,
+);
+
+my @flavors = $CS->get_flavor_detail;
+my @images  = $CS->get_image_detail;
+my @servers = $CS->get_server_detail;
+
+my $srvapi = (grep {$_->name eq 'apitest'} @servers)[0];
+die "can't find server named 'apitest'. Create one." if (!defined $srvapi);
+
+print "changing root password..\n";
+$srvapi->change_root_password('toor');
+print "Changed. Login to ", $srvapi->public_address->[0], "\n";