describing what is going on

mfontani · Nov 18, 2009 · 99e44f8 · 99e44f8
1 parent 6f12d53
commit 99e44f8
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/scripts/list_servers.pl b/scripts/list_servers.pl
@@ -7,12 +7,13 @@
 my $key  = $ENV{'CLOUDSERVERS_KEY'}  or die "Need CLOUDSERVERS_KEY environment variable set";
 
 $Net::RackSpace::CloudServers::DEBUG = 1;
+warn "** Creating Net::RackSpace::CloudServers object..\n";
 my $CS = Net::RackSpace::CloudServers->new(
   user => $user,
   key  => $key,
 );
-
+warn "** \$CS->get_server()..\n";
 $CS->get_server();
-$CS->get_server(1);
+warn "** \$CS->get_server_detail..\n";
 $CS->get_server_detail();