Update authors lists
[claws.git] / tools / gif2xface.pl
1 #!/usr/bin/perl
2 #
3 # gif2xface -- converts a 48x48 GIF file to an X-Face mail header
4 #
5 # Author:  Ricardo Mones <ricardo@mones.org>
6 #
7 #   This is a hack over the original xbm2face script. The xbm files generated
8 #   by some graphic tools (notably The Gimp version 1.2.1) aren't suitable to
9 #   feed the compface program. Starting with a GIF and using some filters does
10 #   the trick. A little help screen also added.
11 #   This requieres giftopnm and pbmtoxbm (both in libgr-progs package). 
12 #
13 #   The original xbm2face author's comment follows: 
14 #
15 # xbm2xface -- converts a 48x48 xbm file to an X-Face mail header
16 #
17 # Author:  Jonathan Stigelman <Stig@hackvan.com>
18 #
19 # URL:     http://hackvan.com/pub/stig/src/linux/
20 # FTP:     hackvan.com:/pub/stig/src/linux/
21 #
22 #   This is a Perl script that I wrote to convert 48x48 xbm (X bitmap) files
23 #   into X-Face: headers suitable for inclusion in RFC822 internet
24 #   electronic mail.  A 48x48 bitmap is awfully small, but X-Faces are still
25 #   good enough for other people to visually establish your identity in
26 #   email without having to carefully read your name.
27
28 #   Basically, it gets you noticed...either as the person with the cool
29 #   X-Face or as that jerk with modem noise in all of his email messages.
30
31 #   People will start looking over your shoulder and say "Hey Cool!  How'd
32 #   you do that?"  When they do, you just send 'em to my URL for this
33 #   utility and tell 'em to upgrade to a real mail reader: XEmacs and VM.
34 #
35 # It also requires the 'compface' utility.
36 #
37
38 sub check_for_help {
39   local($param) = @_;
40
41   # is a filter, no args must be present
42   if (defined($param))
43   { 
44     print "\n", 'gif2xface -- A filter for converting an 48x48 gif into a xface string', "\n\n" ;
45     print 'Usage:  gif2xface < input.gif > output.xface', "\n\n";
46     exit;
47   }
48 }
49
50 sub reverse_byte {
51     local($byte) = @_;
52     local($n, $b);
53     for ( $b= $n= 0; $b<8; ++$b) {
54         $n |= (($byte & 1) << (7-$b));
55         $byte >>= 1;
56     }
57     return($n);
58 }
59
60
61 &check_for_help($ARGV[0]);
62
63 # printf "0x%02x\n", &reverse_byte(0xF0);
64
65 $ra = rand;
66 $tf = "/tmp/gif2xface.$ra";
67 open(GP,"|giftopnm|pbmtoxbm>$tf");
68
69 while (<>) {
70   print GP $_;
71 }
72 close(GP);
73 open(GP,"<$tf");
74 <GP>;
75 m/^#define \w+_width (\d+)/ && ($width=$1);
76 <GP>;
77 m/^#define \w+_height (\d+)/ && ($height=$1);
78 <GP>;
79 m/^static.* = \{/ && (( $width == 48 && $height == 48 )
80                       || die $0, ": sorry, xfaces must be 48x48 pixels" );
81
82 $| = 1; print "X-Face:";
83
84 open(CF,"|compface");
85
86 while (<GP>) {
87     $st="";
88     while (s/(0x..)(,|\};)\s*//) {
89         $st .= sprintf("0x%02x, ", &reverse_byte(eval($1)));
90     }
91     $_=$st;
92     s/(0x..), 0x(..)/\1\2/g;
93     s/\s*(0x...., 0x...., 0x....)(,|\};)\s/\1,\n/g;
94     print CF $_;
95 }
96 close (CF);
97 close (GP);
98 unlink $tf;