<(common.inc.plp)><: Html({ title => 'emoji cheat sheet', version => 'v1.0', description => [ "Emoticons overview and Unicode equivalents" . " of MSN, Y!M, and Gmail icons.", ], keywords => [qw' sheet cheat emoticon smiley emoji unicode chat im messenger msn yahoo ym gmail google '], stylesheet => [qw'light'], }); :>

IM emoticons

<: my %ICONURL = ( msn => 'http://messenger.msn.com/Resource/emoticons/%s.gif', # yahoo => 'http://l.yimg.com/us.yimg.com/i/mesg/emoticons6/%s.gif', yahoo => 'http://l.yimg.com/us.yimg.com/i/mesg/emoticons7/%s.gif', # yahoo-web => 'http://l.yimg.com/a/i/us/msg/emoticons/%s.gif', gmail => 'http://mail.google.com/mail/help/images/screenshots/chat/%s.gif', ); print "

%s

'."\n\n", $system; print ''."\n"; for (my $i = 0; $i <= $#info; $i++) { my $name = $info[$i]; unless (ref $info[$i+1] eq 'ARRAY') { printf '

'."\n", $name; next; } my ($input, $attr, $char, $desc) = @{ $info[++$i] }; printf('

	`%s`	%s%s'."\n", $name, EscapeHTML($input), $desc // $name, $char ? '	'.chr($char) : '', ); } print "

\n\n";