#!/usr/bin/perl


##################################
# Programed By ikechan
#       Since 2001/02/27
#            http://admjp.com/j/
##################################


if($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo/)
	{ ; }
elsif($ENV{'HTTP_USER_AGENT'} =~ /J-PHONE/)
	{ print "\x1b\$$ARGV[0]\x0f"; }
else
	{
	$emoji = "StEmoji$ARGV[0]EdEmoji";
	
	while($emoji =~ /StEmoji(E|F|G)(.)/)
		{
		if($emoji =~ /StEmoji[EFG]EdEmoji/)
			{
			$emoji =~ s/StEmoji[EFG]EdEmoji//;
			last;
			}
		$mname  = "$1$2";
		$gname  = "$1_";
		$gname .= unpack("H*",$2);
		$emoji =~ s/StEmoji(E|F|G)(.)/<IMG SRC="\/img\/$gname.gif" WIDTH=15 HEIGHT=15 BORDER=0 ALT="$mname">StEmoji$1/;
		}	
	print "$emoji";
	}