*** empty log message ***

2005-11-18 17:03:12 +00:00 · 2005-11-18 17:03:12 +00:00 · 64377c44d3
commit 64377c44d3
parent 01780f5c42
1 changed files with 122 additions and 0 deletions
--- a/src/filters/rclgaim
+++ b/src/filters/rclgaim
@ -0,0 +1,122 @@
+#!/bin/sh
+# @(#$Id: rclgaim,v 1.1 2005-11-18 17:03:12 dockes Exp $  (C) 2004 J.F.Dockes
+# Parts taken from Estraier:
+#================================================================
+# Estraier: a personal full-text search system
+# Copyright (C) 2003-2004 Mikio Hirabayashi
+#================================================================
+#================================================================
+# rclgaim
+# Extract text and other information from gaim logs
+#
+#================================================================
+
+
+# set variables
+LANG=C ; export LANG
+LC_ALL=C ; export LC_ALL
+progname="rclsoff"
+
+
+# show help message
+if test $# -ne 1 -o "$1" = "--help" 
+then
+  printf 'Convert a gaim log to unformatted HTML text for Recoll.\n'
+  printf 'Usage: %s [infile]\n' "$progname"
+  exit 1
+fi
+
+infile="$1"
+
+iscmd()
+{
+    cmd=$1
+    case $cmd in
+    */*)
+	if test -x $cmd ; then return 0; else return 1; fi ;;
+    *)
+      oldifs=$IFS; IFS=":"; set -- $PATH; IFS=$oldifs
+      for d in $*;do test -x $d/$cmd && return 0;done
+      return 1 ;;
+    esac
+}
+
+checkcmds()
+{
+    for cmd in $*;do
+      if iscmd $cmd 
+      then 
+        a=1
+      else 
+        echo $cmd not found 1>&2 
+	exit 1
+      fi
+    done
+}
+
+checkcmds awk iconv unzip
+
+# check the input file existence
+if test ! -f "$infile"
+then
+  printf '%s: %s: no such file\n' "$progname" "$infile"
+  exit 1
+fi
+
+awk '
+# First line: parse from, to , output html header
+NR == 1 {
+    if (NF != 9) {
+       printf("Bad format: (NF %d) %s\n", NF, $0)
+       exit 1
+    }
+    to = $3
+    from = $8
+    proto = $9
+    date = $5 " " $6
+    #printf("from [%s] to [%s] proto [%s] date [%s]\n", from, to, proto, date)
+    print "<html><head>"
+    print "<title> " $0 "</title>"
+    print "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=iso8859-1\">"
+    # Yes there is no such thing as a "date" meta tag. This probably should
+    # be http-equiv=last-modified or such
+    printf("<meta name=\"date\" content=\"%s\">\n", date)
+    print "</head><body>"
+
+    # Remember who the main persons are.
+    authors[from] = "yes"
+    authors[to] = "yes"
+    next
+}
+# Message first line. We strip from/to and time when indexing
+/^\([0-2][0-9]:[0-5][0-9]:[0-5][0-9]\)/ {
+    if (ENVIRON["RECOLL_FILTER_FORPREVIEW"] == "yes") {
+       # Preview: output everything
+        print $0 " " "<br>"
+    } else {
+	# Index: output only text, except each new author once
+	#printf("INDEX: NF %d [%s] [%s] [%s] ", NF, $1, $2, $3);
+	from = $2
+	sub(":$", "", from);
+	if (authors[from] == "") {
+	   authors[from] = "yes"
+	   printf("%s : ", from);
+	}
+        for (idx = 3; idx <= NR; idx++) {
+            printf("%s ", $idx)
+	}
+	printf("<br>\n")
+    }
+    next
+}
+# Continuation line: print it
+{
+    printf("%s <br>\n", $0) 
+}
+END {
+    printf("</body></html>\n")
+}
+' < $infile
+
+# exit normally
+exit 0