From 4542bcb57f2f14191b9f9ed069a64aac243c97b7 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 3 Nov 2022 12:15:19 +0100
Subject: [PATCH] New script to generate DOAP file

---
 tools/generate-doap.sh | 106 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 106 insertions(+)
 create mode 100755 tools/generate-doap.sh

diff --git a/tools/generate-doap.sh b/tools/generate-doap.sh
new file mode 100755
index 000000000..dc3480e85
--- /dev/null
+++ b/tools/generate-doap.sh
@@ -0,0 +1,106 @@
+#!/bin/bash
+
+write_doap_head()
+{
+    cat >"$1" <<-'EOF'
+<?xml version="1.0" encoding="UTF-8"?>
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+         xmlns="http://usefulinc.com/ns/doap#"
+         xmlns:xmpp="https://linkmauve.fr/ns/xmpp-doap#">
+  <Project>
+    <name>ejabberd</name>
+    <shortdesc>XMPP Server with MQTT Broker and SIP Service</shortdesc>
+    <description>Robust, Ubiquitous and Massively Scalable Messaging Platform (XMPP Server, MQTT Broker, SIP Service)</description>
+    <created>2002-11-16</created>
+    <os>BSD</os>
+    <os>Linux</os>
+    <os>macOS</os>
+    <os>Windows</os>
+    <programming-langauge>Erlang</programming-langauge>
+    <programming-langauge>C</programming-langauge>
+    <category rdf:resource="https://linkmauve.fr/ns/xmpp-doap#category-jabber"/>
+    <category rdf:resource="https://linkmauve.fr/ns/xmpp-doap#category-server"/>
+    <category rdf:resource="https://linkmauve.fr/ns/xmpp-doap#category-xmpp"/>
+
+    <homepage rdf:resource="https://www.ejabberd.im"/>
+    <download-page rdf:resource="https://www.process-one.net/en/ejabberd/downloads/"/>
+    <download-mirror rdf:resource="https://github.com/processone/ejabberd/tags"/>
+    <license rdf:resource="https://raw.githubusercontent.com/processone/ejabberd/master/COPYING"/>
+    <logo rdf:resource="https://docs.ejabberd.im/static/shared/images/footer_logo_e@2x.png"/>
+    <bug-database rdf:resource="https://github.com/processone/ejabberd/issues"/>
+    <support-forum rdf:resource="xmpp:ejabberd@conference.process-one.net?join"/>
+    <repository>
+      <GitRepository>
+        <location rdf:resource="https://github.com/processone/ejabberd.git"/>
+        <browse rdf:resource="https://github.com/processone/ejabberd"/>
+      </GitRepository>
+    </repository>
+
+EOF
+}
+
+write_doap_tail()
+{
+    cat >>"$1" <<-'EOF'
+  </Project>
+</rdf:RDF>
+EOF
+}
+
+write_rfcs()
+{
+    rfc=rfc$1
+    out=$2
+    int=$(echo $1 | sed 's/^0*//')
+
+    imp=$(grep "\-protocol({rfc, $int," $BASE/src/* | sed "s/.*src\/\(.*\).erl.*'\([0-9.-]*\)'.*/\1 \2/")
+    [ "$imp" == "" ] && imp="NA 0.0"
+
+    echo "    <implements rdf:resource=\"https://www.rfc-editor.org/info/$rfc\"/>" >>$out
+}
+
+write_xeps()
+{
+    xep=xep-$1
+    out=$2
+    int=$(echo $1 | sed 's/^0*//')
+
+    imp=$(grep "\-protocol({xep, $int," $BASE/src/* | sed "s/.*src\/\(.*\).erl.*'\([0-9.-]*\)'.*/\1 \2/")
+    [ "$imp" == "" ] && imp="NA 0.0"
+
+    sourcefiles=$(grep "\-protocol({xep, $int," $BASE/src/* | sed "s/.*src\/\(.*\).erl.*'\([0-9.-]*\)'.*/\1/" | tr '\012' ',' | sed 's|,$||' | sed 's|,|, |g' | sed 's|^ejabberd$||')
+    versions=$(grep "\-protocol({xep, $int," $BASE/src/* | sed "s/.*src\/\(.*\).erl.*'\([0-9.-]*\)'.*/\2/" | head -1)
+
+    echo "    <implements>" >>$out
+    echo "      <xmpp:SupportedXep>" >>$out
+    echo "        <xmpp:xep rdf:resource=\"https://xmpp.org/extensions/$xep.html\"/>" >>$out
+    echo "        <xmpp:version>$versions</xmpp:version>" >>$out
+    echo "        <xmpp:since></xmpp:since>" >>$out
+    echo "        <xmpp:status></xmpp:status>" >>$out
+    echo "        <xmpp:note>$sourcefiles</xmpp:note>" >>$out
+    echo "      </xmpp:SupportedXep>" >>$out
+    echo "    </implements>" >>$out
+}
+
+[ $# -eq 1 ] && BASE="$1" || BASE="$PWD"
+[ -d $BASE/doc ] || mkdir $BASE/doc
+temp=tools/ejabberd.temp
+final=ejabberd.doap
+
+write_doap_head $final
+
+for x_num in $(grep "\-protocol({rfc" $BASE/src/* | sed "s/,//" | awk '{printf("%04d\n", $2)}' | sort -u)
+do
+    write_rfcs $x_num $temp
+done
+echo "" >>$temp
+
+for x_num in $(grep "\-protocol({xep" $BASE/src/* | sed "s/,//" | awk '{printf("%04d\n", $2)}' | sort -u)
+do
+    write_xeps $x_num $temp
+done
+
+cat $temp >>$final
+rm $temp
+
+write_doap_tail $final