3 # gif2xface -- converts a 48x48 GIF file to an X-Face mail header
5 # Author: Ricardo Mones Lastra <mones@aic.uniovi.es>
7 # URL: http://www.aic.uniovi.es/mones
9 # This is a hack over the original xbm2face script. The xbm files generated
10 # by some graphic tools (notably The Gimp version 1.2.1) aren't suitable to
11 # feed the compface program. Starting with a GIF and using some filters does
12 # the trick. A little help screen also added.
13 # This requieres giftopnm and pbmtoxbm (both in libgr-progs package).
15 # The original xbm2face author's comment follows:
17 # xbm2xface -- converts a 48x48 xbm file to an X-Face mail header
19 # Author: Jonathan Stigelman <Stig@hackvan.com>
21 # URL: http://hackvan.com/pub/stig/src/linux/
22 # FTP: hackvan.com:/pub/stig/src/linux/
24 # This is a Perl script that I wrote to convert 48x48 xbm (X bitmap) files
25 # into X-Face: headers suitable for inclusion in RFC822 internet
26 # electronic mail. A 48x48 bitmap is awfully small, but X-Faces are still
27 # good enough for other people to visually establish your identity in
28 # email without having to carefully read your name.
30 # Basically, it gets you noticed...either as the person with the cool
31 # X-Face or as that jerk with modem noise in all of his email messages.
33 # People will start looking over your shoulder and say "Hey Cool! How'd
34 # you do that?" When they do, you just send 'em to my URL for this
35 # utility and tell 'em to upgrade to a real mail reader: XEmacs and VM.
37 # It also requires the 'compface' utility.
43 # is a filter, no args must be present
46 print "\n", 'gif2xface -- A filter for converting an 48x48 gif into a xface string', "\n\n" ;
47 print 'Usage: gif2xface < input.gif > output.xface', "\n\n";
55 for ( $b= $n= 0; $b<8; ++$b) {
56 $n |= (($byte & 1) << (7-$b));
63 &check_for_help($ARGV[0]);
65 # printf "0x%02x\n", &reverse_byte(0xF0);
68 $tf = "/tmp/gif2xface.$ra";
69 open(GP,"|giftopnm|pbmtoxbm>$tf");
77 m/^#define \w+_width (\d+)/ && ($width=$1);
79 m/^#define \w+_height (\d+)/ && ($height=$1);
81 m/^static.* = \{/ && (( $width == 48 && $height == 48 )
82 || die $0, ": sorry, xfaces must be 48x48 pixels" );
84 $| = 1; print "X-Face:";
90 while (s/(0x..)(,|\};)\s*//) {
91 $st .= sprintf("0x%02x, ", &reverse_byte(eval($1)));
94 s/(0x..), 0x(..)/\1\2/g;
95 s/\s*(0x...., 0x...., 0x....)(,|\};)\s/\1,\n/g;