Use curl for PlanetLab v3 deployment

diff --git a/pl_mom.pl b/pl_mom.pl
index 99eef4b..d441393 100755 (executable)
--- 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`
     }