bldsystemtools/commonbldutils/GenResult/send_xml_to_diamonds.pl
branchRCL_3
changeset 24 d90029decf65
parent 20 a9d4531388d0
child 33 54aa4a06a075
child 34 5e522efbae7b
--- a/bldsystemtools/commonbldutils/GenResult/send_xml_to_diamonds.pl	Wed Mar 31 23:20:42 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,92 +0,0 @@
-# Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-# Script to send XML data to diamonds
-# 
-#
-use HTTP::Request::Common qw(POST);
-use LWP::UserAgent;
-
-use Getopt::Long;
-
-my $iServer;
-my $iUrl;
-my $iFile;
-my $iHelp;
-my $res;
-
-my $import_failed_message  = "XML was not sent successfully to Diamonds via REST interface!\n";
-my $import_succeed_message = "XML was sent successfully to Diamonds via REST interface.\n";
-
-my $ua = LWP::UserAgent->new();
-
-GetOptions('s=s' => \$iServer, 'u=s' => \$iUrl, 'f=s' => \$iFile, 'h' => \$iHelp);
-if ((!defined $iServer) || (!defined $iUrl) || (!defined $iFile) || ($iHelp))
-{
-  Usage();
-}
-
-my $absoluteUrl = "http://".$iServer.$iUrl;
-my $request = HTTP::Request->new(POST => $absoluteUrl);
-$request->header('Content-Type' => 'text/xml');
-
-open (FH,"<$iFile") or die "$iFile:$!\n";
-my @filecon = <FH>;
-my $XmlContent = join("",@filecon);
-$request->content($XmlContent);
-$res = $ua->request($request);
-
-print "Response status:".$res->code()."\n";
-print "Response reason:".$res->message()."\n";
-
-if ($res->code() != 200)
-{
-  print "ERROR in sending XML data\n";
-}
-else
-{
-  print "Server response:".$res->content()."\n";
-}
-
-sub Usage()
-{
-  print <<USE;
-  Use:
-    send_xml_to_diamonds.pl options
-    
-    Mandatory options:
-    -s    Server address
-    -u    Url
-    -f    path of XML file
-    
-    -h    help
-    
-    Examples:
-    Sending a new build to release instance of Diamonds
-        send_xml_to_diamonds.pl -s diamonds.nmp.nokia.com -u /diamonds/builds/ -f c:\\build.xml
-    
-    Updating test results to existing build
-        send_xml_to_diamonds.pl -s diamonds.nmp.nokia.com -u /diamonds/builds/123/ -f c:\\test.xml
-    
-    Sending data for Relative Change in SW Asset metrics
-        send_xml_to_diamonds.pl -s diamonds.nmp.nokia.com -u /diamonds/metrics/ -f c:\\relative.xml
-    
-    Sending data for Function Coverage
-        send_xml_to_diamonds.pl -s diamonds.nmp.nokia.com -u /diamonds/tests/coverage/ -f c:\\coverage.xml
-    
-    Note: If you want to send XML to development version of Diamonds in testing purposes, use
-    address: trdeli02.nmp.nokia.com:9001 in the server address:
-        send_xml_to_diamonds.pl -s trdeli02.nmp.nokia.com:9001 -u /diamonds/builds/ -f c:\\build.xml
-USE
-  exit;
-}