From: Darold Gilles <gilles@darold.net>
Date: Sat, 5 Apr 2014 07:55:12 +0000 (+0200)
Subject: Add tsung xml header sample to output file.
X-Git-Tag: v5.1~31
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=bc93964fc47eb9b8291d270bade8404ee089526a;p=pgbadger

Add tsung xml header sample to output file.
---

diff --git a/pgbadger b/pgbadger
index 385d3f9..3a39131 100755
--- a/pgbadger
+++ b/pgbadger
@@ -415,7 +415,29 @@ if ($extension eq 'tsung') {
 	if (not defined $fh) {
 		die "FATAL: can't write to $outfile, $!\n";
 	}
-	print $fh "<sessions>\n";
+	print $fh qq{
+<?xml version="1.0"?>
+<!DOCTYPE tsung SYSTEM "/usr/share/tsung/tsung-1.0.dtd">
+<tsung loglevel="notice" version="1.0">
+
+    <!-- Configuration du client -->
+    <clients>
+        <client host="localhost" use_controller_vm="true"/>
+    </clients>
+
+    <!-- Configuration du serveur -->
+    <servers>
+        <server host="localhost" port="5432" type="tcp"></server>
+    </servers>
+
+    <load>
+        <arrivalphase phase="1" duration="1" unit="second">
+            <users maxnumber="1" arrivalrate="1" unit="second"></users>
+        </arrivalphase>
+    </load>
+
+<sessions>
+};
 	$fh->close();
 
 } else {
@@ -962,7 +984,7 @@ if (!$incremental) {
 		if (not defined $fh) {
 			die "FATAL: can't write to $outfile, $!\n";
 		}
-		print $fh "</sessions>\n";
+		print $fh "</sessions>\n</tsung>\n";
 		$fh->close();
 	}