From 0ca101b095512a30292e4d0061ef4de01e780e26 Mon Sep 17 00:00:00 2001
From: Mark Huang <mlhuang@cs.princeton.edu>
Date: Wed, 27 Oct 2004 04:36:49 +0000
Subject: [PATCH] Generates XML manifest of packages for
 http://www.planet-lab.org/Software/download.php

---
 packages.sh | 98 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 98 insertions(+)
 create mode 100755 packages.sh

diff --git a/packages.sh b/packages.sh
new file mode 100755
index 00000000..1b909dad
--- /dev/null
+++ b/packages.sh
@@ -0,0 +1,98 @@
+#!/bin/bash
+#
+# Generates XML manifest of packages for
+# http://www.planet-lab.org/Software/download.php
+#
+# Mark Huang <mlhuang@cs.princeton.edu>
+# Copyright (C) 2004 The Trustees of Princeton University
+#
+# $Id$
+#
+
+xml_escape_pcdata() {
+    # & to &amp;
+    # " to \"
+    # ' to &apos;
+    # < to &lt;
+    # > to &gt;
+    sed \
+	-e 's/\&/\&amp;/g' | sed \
+	-e 's/"/\&quot;/g' \
+	-e "s/'/\&apos;/g" \
+	-e 's/</\&lt;/g' \
+	-e 's/>/\&gt;/g'
+}
+
+xml_escape_cdata() {
+    # & to &amp;
+    # \ to \\
+    # " to \"
+    # ' to &apos;
+    # < to &lt;
+    # > to &gt;
+    sed \
+	-e 's/\&/\&amp;/g' \
+	-e 's/\\/\\\\/g' | sed \
+	-e 's/"/\\"/g' \
+	-e "s/'/\&apos;/g" \
+	-e 's/</\&lt;/g' \
+	-e 's/>/\&gt;/g'
+}
+
+# All supported tags
+TAGS=$(rpm --querytags)
+
+cat <<EOF
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
+<!-- $Id$ -->
+<!-- Generated at $(date) in $PWD on $HOSTNAME by $USER -->
+<!DOCTYPE PACKAGES [
+  <!ELEMENT PACKAGES (PACKAGE)*>
+  <!ELEMENT PACKAGE (#PCDATA)>
+  <!ATTLIST PACKAGE
+EOF
+
+# List each tag as an attribute
+for tag in $TAGS ; do
+
+cat <<EOF
+  $tag CDATA #REQUIRED
+EOF
+
+done
+
+cat <<EOF
+  >
+]>
+<PACKAGES>
+EOF
+
+# For every RPM in the current directory
+RPMS=$(find ${1-.} -name '*.rpm')
+for rpm in $RPMS ; do
+
+cat <<EOF
+  <PACKAGE
+EOF
+
+    # Use @QUOTE@ instead of " to prevent it from being escaped
+    QUERYFORMAT=
+    for tag in $TAGS ; do
+	QUERYFORMAT="$QUERYFORMAT  $tag=@QUOTE@%{$tag}@QUOTE@\n"
+    done
+
+    # Print the tags
+    rpmquery --queryformat "$QUERYFORMAT" -p $rpm | xml_escape_cdata | sed -e 's/@QUOTE@/"/g'
+
+# Print the name of the RPM
+cat <<EOF
+  >
+  $(basename $rpm | xml_escape_pcdata)
+  </PACKAGE>
+EOF
+
+done
+
+cat <<EOF
+</PACKAGES>
+EOF
-- 
2.47.0