[pve-devel] r4849 - pve-manager/pve2/bin/test

[svn-commits at proxmox.com]

Author: dietmar
Date: 2010-06-28 08:05:42 +0000 (Mon, 28 Jun 2010)
New Revision: 4849

Modified:
   pve-manager/pve2/bin/test/example1.pl
   pve-manager/pve2/bin/test/perftest1.pl
Log:
cleanup examples



Modified: pve-manager/pve2/bin/test/example1.pl
===================================================================
--- pve-manager/pve2/bin/test/example1.pl	2010-06-28 07:27:57 UTC (rev 4848)
+++ pve-manager/pve2/bin/test/example1.pl	2010-06-28 08:05:42 UTC (rev 4849)
@@ -3,16 +3,19 @@
 
 use strict;
 use PVE::API2Client;
+use PVE::Config;
 
 use Data::Dumper;
 
 my $ticket = "root::root::";
 
+my $hostname = PVE::Config::read_file ("hostname");
+
 my $conn = PVE::API2Client->new(
     username => 'root',
     password => 'admin',
 #    ticket => $ticket,
-   host => 'lana',
+    host => $hostname,
 #   host => 'localhost',
     );
 

Modified: pve-manager/pve2/bin/test/perftest1.pl
===================================================================
--- pve-manager/pve2/bin/test/perftest1.pl	2010-06-28 07:27:57 UTC (rev 4848)
+++ pve-manager/pve2/bin/test/perftest1.pl	2010-06-28 08:05:42 UTC (rev 4849)
@@ -4,15 +4,16 @@
 use strict;
 use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
 use PVE::API2Client;
-
+use PVE::Config;
 use Data::Dumper;
 
 # fixme: create correct ticket
 my $ticket = "root::root::";
 
 my $wcount = 4;
-my $qcount = 100;
+my $qcount = 500;
 
+my $hostname = PVE::Config::read_file ("hostname");
 
 sub test_rpc {
 
@@ -20,7 +21,7 @@
 	username => 'root',
 	password => 'admin',
 	#    ticket => $ticket,
-	host => 'lana',
+	host => $hostname,
 	#host => 'localhost',
 	);