From: Andy Bavier <acb@cs.princeton.edu>
Date: Wed, 17 Nov 2004 18:23:32 +0000 (+0000)
Subject: Use curl for PlanetLab v3 deployment
X-Git-Tag: pl_mom_0_2_16~3
X-Git-Url: http://git.onelab.eu/?p=mom.git;a=commitdiff_plain;h=6c3c3e5c615541279cd978fe67b738f15ff3843c

Use curl for PlanetLab v3 deployment
---

diff --git a/pl_mom.pl b/pl_mom.pl
index 99eef4b..d441393 100755
--- a/pl_mom.pl
+++ b/pl_mom.pl
@@ -3,7 +3,7 @@
 use POSIX qw(setsid);
 use Sys::Syslog;
 use Sys::Hostname;
-use LWP::Simple;
+#use LWP::Simple;
 
 $debug = 0;
 $proc = "pl_mom";
@@ -256,7 +256,8 @@ sub swap_used {
 
 sub get_slice_info {
     if (! $debug) {
-	$content = get "http://127.0.0.1:3100/slicestat";
+	#$content = get "http://127.0.0.1:3100/slicestat";
+	$content = `curl -s http://127.0.0.1:3100/slicestat`;
     } else {
 	$content = `cat ../pl_mom-deploy/slicestat`
     }