4 title => 'emoji cheat sheet',
10 sheet cheat emoticon smiley emoji msn
12 stylesheet => [qw'light dark red'],
20 msn => 'http://messenger.msn.com/Resource/emoticons/%s.gif',
21 yahoo => 'http://l.yimg.com/us.yimg.com/i/mesg/emoticons7/%s.gif',
22 # yahoo-web => 'http://l.yimg.com/a/i/us/msg/emoticons/%s.gif',
27 for my $system (qw'msn yahoo') {
28 my @info = do "emoji-$system.inc.pl";
29 printf '<div class="section"><h3>%s</h3>'."\n\n", $system;
30 print '<table><tbody>'."\n";
31 for (my $i = 0; $i <= $#info; $i++) {
33 unless (ref $info[$i+1] eq 'ARRAY') {
34 printf '</table><table><tbody>'."\n", $name;
37 my ($input, $attr, $char, $desc) = @{ $info[++$i] };
38 printf('<tr><th><img src="'.$ICONURL{$system}.'"><td><kbd>%s</kbd><td>%s%s'."\n",
39 $name, EscapeHTML($input), $desc // $name, $char ? '<td>'.chr($char) : '',
42 print "</table></div>\n\n";
45 print "</ul><hr>\n\n";