File: XML-value.awk

package info (click to toggle)
o-saft 19.01.19-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 6,764 kB
  • sloc: perl: 18,248; tcl: 2,857; sh: 2,089; makefile: 1,956; awk: 274; ruby: 75; xml: 38; php: 8
file content (34 lines) | stat: -rwxr-xr-x 945 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#!/usr/bin/gawk -f
#?
#? NAME
#?      XML-value.awk  - formatting o-saft.pl's output as XML with values
#?
#? SYNOPSIS
#?      o-saft.pl ... | XML-value.awk
#?      o-saft.pl ... | gawk -f XML-value.awk
#?
#? DESCRIPTION
#?      Formats all output as XML with label and value as tag values:
#?          <info><label>Common Name</label><value>*exacmle.tld</value></info>
#?
#? VERSION
#?      @(#) XML-value.awk 1.2 16/09/25 13:40:43
#?
#? AUTHOR
#?      06. June 2016 Achim Hoffmann
#?
# -----------------------------------------------------------------------------

BEGIN { FS="\t";
	print "<infos xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation=\"SSLResults.xsd\" >"
}
(NF>0) {
	gsub(/&/,"\\&amp;");
	gsub(/</,"\\&lt;");
	gsub(/>/,"\\&gt;");
}
/^\s*$/{ next; }
($1~/^[#=]/) { print "<! "$0" -->"; next; }
{	printf(" <info><label>%s</label><value>%s</value></info>\n", $1, $2); }
END {	print "</info>"; }