#!/bin/sh
#
# Gnucomo package parameter report.
#
# Create a list of packages and patches on a Debian Linux system
# that can be read by the Gnucomo input program, gcm_input.
# 


HOST=`hostname --fqdn`
TIME=`date`

echo "<?xml version='1.0'?>"
echo "<gcmt:message xmlns:gcmt='http://gnucomo.org/transport/'>"
echo "  <gcmt:header>"
echo "      <gcmt:messagetype>package list</gcmt:messagetype>"
echo "      <gcmt:hostname>$HOST</gcmt:hostname>"
echo "      <gcmt:time>$TIME</gcmt:time>"
echo "   </gcmt:header>"
echo "   <gcmt:data>"

echo "   <gcmt:parameters gcmt:class='package'>"

COLUMNS=180
export COLUMNS

dpkg -l | grep '^ii' | sed -e 's/&/&amp;/' | while read FLAGS PACKAGE VERSION DESCRIPTION
do
      echo "<gcmt:parameter name='$PACKAGE'>"
      echo "   <gcmt:description>$DESCRIPTION</gcmt:description>"
      echo "   <gcmt:property name='version'>$VERSION</gcmt:property>"
      echo "</gcmt:parameter>"
done


echo "    </gcmt:parameters>"
echo "   </gcmt:data>"
echo "</gcmt:message>"