perfsonar development work

Author: dfn.calim
Date: 2012-07-11 13:17:40 +0100 (Wed, 11 Jul 2012)
New Revision: 758

Added:
   branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/OWAMP-Scheduler.pl
   
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-bwctl-mp.xml
   
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-owamp-mp.xml
Log:
Adding schedule f?\195?\188r OWAMP and BWCTL MP

Added: 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/OWAMP-Scheduler.pl
===================================================================
--- 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/OWAMP-Scheduler.pl    
                      (rev 0)
+++ 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/OWAMP-Scheduler.pl  
2012-07-11 12:17:40 UTC (rev 758)
@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+
+
+my $port = 8090;
+my $tool = "perfsonar-client.pl";
+my $path = "/usr/lib/perfsonar/services/oppd/tools/perfsonar-client";
+my $stand_count=100;
+
+my ($src, $dst, $count) = @ARGV;
+
+if (!$src || !$dst){
+  print "usage: OWAMP-Scheduler.pl <src> <dst> <count>\n";
+  exit;
+}
+
+#check if src and dst are ip-adresses
+if (!($src =~ /\d+\.\d+\.\d+\.\d+/) || !($dst =~ /\d+\.\d+\.\d+\.\d+/)){
+  print "<src> and <dst> must be IP adresses!\n"; 
+  exit;
+}
+
+if (! $count){
+       print "No <count> defined. Setting it to $stand_count!\n"; 
+       $count = $stand_count;
+}
+
+my $template = "$path/template-owamp-mp.xml";
+
+#read in template XML file, set src/dst/count paramters
+my $request;
+open (TEMPLATE, "$template") || die "cannot open template-owamp-mp.xml: $!"; 
+while (<TEMPLATE>){
+  my $line = $_;
+  $line =~ s/endPoint type="ipv4" value="src"/endPoint type="ipv4" 
value="$src"/;
+  $line =~ s/src type="ipv4" value="src"/src type="ipv4" value="$src"/;
+  $line =~ s/dst type="ipv4" value="dst"/dst type="ipv4" value="$dst"/;
+  $line =~ s/name="count" value=VALUE/name="count" value="$count"/;
+  $request .= $line;
+} 
+
+print "$request";
+
+my $req_file = "/tmp/$src-$dst-request.xml";
+
+open (REQUEST, "> $req_file");
+print REQUEST $request;
+close REQUEST; 
+
+my $status = `$path/$tool --reqfile=$req_file 
--uri=http://$src:$port/services/MP/OWAMP --host=$src`;
+print "Status: $status\n";
+unlink $req_file;


Property changes on: 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/OWAMP-Scheduler.pl
___________________________________________________________________
Added: svn:executable
   + *

Added: 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-bwctl-mp.xml
===================================================================
--- 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-bwctl-mp.xml 
                              (rev 0)
+++ 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-bwctl-mp.xml 
      2012-07-11 12:17:40 UTC (rev 758)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+
+<nmwg:message type="SetupDataRequest"
+                   id="bwctl-request"
+                   xmlns="http://ggf.org/ns/nmwg/tools/org/perfsonar/1.0/";
+                   xmlns:nmwg="http://ggf.org/ns/nmwg/base/2.0/";
+                   xmlns:nmtm="http://ggf.org/ns/nmwg/time/2.0/";
+                   xmlns:bwctl="http://ggf.org/ns/nmwg/tools/bwctl/2.0/";
+                   xmlns:iperf="http://ggf.org/ns/nmwg/tools/iperf/2.0/";
+                   xmlns:nmwgt="http://ggf.org/ns/nmwg/topology/2.0/";>
+
+  <nmwg:metadata id="bwctl-metadata">
+    <bwctl:subject id="bwctl-subject">
+      <nmwgt:endPoint type="ipv4" value="src"/>
+    </bwctl:subject>
+
+    <nmwg:eventType>http://ggf.org/ns/nmwg/tools/bwctl/2.0</nmwg:eventType>
+    <bwctl:parameters id="bwctl-parameters">
+      <nmwg:parameter name="duration" value="30"/>
+    </bwctl:parameters>
+  </nmwg:metadata>
+
+  <nmwg:metadata id="iperf-metadata">
+    <iperf:subject id="iperf-subject" metadataIdRef="bwctl-metadata">
+      <nmwgt:endPointPair>
+        <nmwgt:src type="ipv4" value="src"/>
+        <nmwgt:dst type="ipv4" value="dst"/>
+      </nmwgt:endPointPair>
+    </iperf:subject>
+    <iperf:parameters id="iperf-parameters">
+      <nmwg:parameter name="interval" value="6"/>
+      <nmwg:parameter name="protocol" value="tcp"/>
+    </iperf:parameters>
+    <nmwg:eventType>http://ggf.org/ns/nmwg/tools/iperf/2.0</nmwg:eventType>
+  </nmwg:metadata>
+
+  <!-- triggers to indicate head of chains -->
+  <nmwg:data id="1" metadataIdRef="iperf-metadata"/>
+
+
+</nmwg:message>

Added: 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-owamp-mp.xml
===================================================================
--- 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-owamp-mp.xml 
                              (rev 0)
+++ 
branches/perfsonar-oppd-all-0.53/tools/perfSONAR-client/template-owamp-mp.xml 
      2012-07-11 12:17:40 UTC (rev 758)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+
+<nmwg:message type="SetupDataRequest"
+                   id="owamp-req-1.0   "
+                   xmlns="http://ggf.org/ns/nmwg/tools/org/perfsonar/1.0/";
+                   
xmlns:perfsonar="http://ggf.org/ns/nmwg/tools/org/perfsonar/1.0/";
+                   xmlns:nmwg="http://ggf.org/ns/nmwg/base/2.0/";
+                   xmlns:owamp="http://ggf.org/ns/nmwg/tools/owamp/2.0/";
+                   xmlns:nmtm="http://ggf.org/ns/nmwg/time/2.0/";
+                   xmlns:select="http://ggf.org/ns/nmwg/ops/select/2.0/";
+                   xmlns:nmwgt="http://ggf.org/ns/nmwg/topology/2.0/";>
+
+                   
+
+  <nmwg:metadata id="owamp-metadata">
+    <owamp:subject id="owamp-subject">
+       <nmwgt:endPointPair>
+                       <nmwgt:src type="ipv4" value="src"/> 
+                       <nmwgt:dst type="ipv4" value="dst"/> 
+               </nmwgt:endPointPair>
+    </owamp:subject>
+
+    <nmwg:eventType>http://ggf.org/ns/nmwg/tools/owamp/2.0</nmwg:eventType>
+    <nmwg:parameters id="owamp-parameters">    
+       <!--  count number of test packets-->
+               <nmwg:parameter name="count" value=VALUE/>              
+               <!-- wait mean average time between packets (seconds) 
+               <nmwg:parameter name="wait" value="VALUE"/> -->
+               <!-- timeout maximum time to wait for a packet before 
declaring it lost (seconds)
+               <nmwg:parameter name="timeout" value="VALUE"/> -->
+               <!-- padding size of the padding added to each packet (bytes)
+               <nmwg:parameter name="padding" value="VALUE"/> -->
+               <!-- delayStart  time to wait before executing test (seconds)
+               <nmwg:parameter name="delayStart" value="VALUE"/> -->
+               <!-- output set here the outputtype of response data (raw or 
summary)
+               <nmwg:parameter name="output" value="summary"/> -->
+    </nmwg:parameters>
+  </nmwg:metadata>
+  
+  <!-- triggers to indicate head of chains -->
+  <nmwg:data id="1" metadataIdRef="owamp-metadata"/>
+
+</nmwg:message>