+2001-07-28 [paul]
+
+ * tools/gif2xface.pl **NEW FILE**
+ * tools/README
+ script to convert file.gif to file.xface for
+ use in a custom header.
+ (submitted by Ricardo Mones Lastra <mones@aic.uniovi.es>)
+
2001-07-27 [alfons]
* configure.in
* src/summaryview.[ch]
new right-click option: Label.
substitute for 'Mark-->Mark/Unmark', colours the line.
- submitted by Satoshi Nagayasu
+ (submitted by Satoshi Nagayasu <snaga@snaga.org>)
2001-07-01 [christoph]
* po/pt_BR.po
updated and completed, translations by Fabio
- Junior Beneditto
+ Junior Beneditto <fjbeneditto@yahoo.com.br>
2001-06-29 [alfons]
-----------------------------------------------------------------------
+* gif2xface.pl
+
+ WHAT IT DOES
+
+ This perl script converts a monochrome (1 bit) 48x48 pixels GIF file
+ into an X-Face graphic suitable for inclusion into custom headers of
+ Sylpheed. An X-Face allows to quickly identify (or be identified as)
+ the sender of a mail message in a xface-capable MUA (like sylpheed).
+
+ HOW TO USE IT
+
+ After obtaining the desired image for your X-Face you should:
+ * scale it to 48x48 pixels (Image->Scale image on Gimp)
+ * down color depth to b/w (Image->Mode->Indexed selecting "Use
+ Black/White palette" and the desired dithering options (prior to
+ indexing doing Image->Colors->Threshold allows you to select the
+ b/w level if you don't want a dithered (dotty) image))
+ * save file as non-interlaced GIF
+ Then do:
+
+ ./gif2xface < filename.gif > filename.xface
+
+ In filename.xface will be the X-Face header ready to use.
+ You can add a custom header in Sylpheed through Configuration->
+ Preferences per account, "Send" tab, check "Add user-defined header"
+ then "Edit..." if you want to add it via Sylpheed interface, or do
+
+ echo "0:" `cat filename.xface` > ~/.sylpheed/customheaderrc
+
+ if you want to create the custom headers file yourself (Warning: this
+ method is valid only if you don't have any other custom header set or
+ they will be lost!).
+
+ Any problems, contact Ricardo Mones Lastra <mones@aic.uniovi.es>
+
+-----------------------------------------------------------------------
+
* ldif-to-xml.py
WHAT IT DOES
Any problems, contact Rod Senra <rodrigo.senra@ic.unicamp.br>
-----------------------------------------------------------------------
-
--- /dev/null
+#!/usr/bin/perl
+#
+# gif2xface -- converts a 48x48 GIF file to an X-Face mail header
+#
+# Author: Ricardo Mones Lastra <mones@aic.uniovi.es>
+#
+# URL: http://www.aic.uniovi.es/mones
+#
+# This is a hack over the original xbm2face script. The xbm files generated
+# by some graphic tools (notably The Gimp version 1.2.1) aren't suitable to
+# feed the compface program. Starting with a GIF and using some filters does
+# the trick. A little help screen also added.
+# This requieres giftopnm and pbmtoxbm (both in libgr-progs package).
+#
+# The original xbm2face author's comment follows:
+#
+# xbm2xface -- converts a 48x48 xbm file to an X-Face mail header
+#
+# Author: Jonathan Stigelman <Stig@hackvan.com>
+#
+# URL: http://hackvan.com/pub/stig/src/linux/
+# FTP: hackvan.com:/pub/stig/src/linux/
+#
+# This is a Perl script that I wrote to convert 48x48 xbm (X bitmap) files
+# into X-Face: headers suitable for inclusion in RFC822 internet
+# electronic mail. A 48x48 bitmap is awfully small, but X-Faces are still
+# good enough for other people to visually establish your identity in
+# email without having to carefully read your name.
+#
+# Basically, it gets you noticed...either as the person with the cool
+# X-Face or as that jerk with modem noise in all of his email messages.
+#
+# People will start looking over your shoulder and say "Hey Cool! How'd
+# you do that?" When they do, you just send 'em to my URL for this
+# utility and tell 'em to upgrade to a real mail reader: XEmacs and VM.
+#
+# It also requires the 'compface' utility.
+#
+
+sub check_for_help {
+ local($param) = @_;
+
+ # is a filter, no args must be present
+ if (defined($param))
+ {
+ print "\n", 'gif2xface -- A filter for converting an 48x48 gif into a xface string', "\n\n" ;
+ print 'Usage: gif2xface < input.gif > output.xface', "\n\n";
+ exit;
+ }
+}
+
+sub reverse_byte {
+ local($byte) = @_;
+ local($n, $b);
+ for ( $b= $n= 0; $b<8; ++$b) {
+ $n |= (($byte & 1) << (7-$b));
+ $byte >>= 1;
+ }
+ return($n);
+}
+
+
+&check_for_help($ARGV[0]);
+
+# printf "0x%02x\n", &reverse_byte(0xF0);
+
+$ra = rand;
+$tf = "/tmp/gif2xface.$ra";
+open(GP,"|giftopnm|pbmtoxbm>$tf");
+
+while (<>) {
+ print GP $_;
+}
+close(GP);
+open(GP,"<$tf");
+<GP>;
+m/^#define \w+_width (\d+)/ && ($width=$1);
+<GP>;
+m/^#define \w+_height (\d+)/ && ($height=$1);
+<GP>;
+m/^static.* = \{/ && (( $width == 48 && $height == 48 )
+ || die $0, ": sorry, xfaces must be 48x48 pixels" );
+
+$| = 1; print "X-Face:";
+
+open(CF,"|compface");
+
+while (<GP>) {
+ $st="";
+ while (s/(0x..)(,|\};)\s*//) {
+ $st .= sprintf("0x%02x, ", &reverse_byte(eval($1)));
+ }
+ $_=$st;
+ s/(0x..), 0x(..)/\1\2/g;
+ s/\s*(0x...., 0x...., 0x....)(,|\};)\s/\1,\n/g;
+ print CF $_;
+}
+close (CF);
+close (GP);
+unlink $tf;
projects / claws.git / commitdiff