#!/usr/local/bin/perl
#==============================================================================
#                        cnt 
#==============================================================================
#
$cntdir = 'cntdir/cnt';
$web = 'http://ftvjapan.dip.jp/~funa/sha';
$newd  = 's-new';
$userd = '/home/funa/sha/s-user';
$mailprog  = '/usr/sbin/sendmail'; # mail system
$admin = 'funa@cc.seikei.ac.jp';
$jsky = 'J-PHONE';
$imode = 'DoCoMo';
$ezweb ='UP.Browser';

$agent = $ENV{'HTTP_USER_AGENT'};
if($agent =~ /$jsky/){
    print "<img src=\"smw.jpg\" alt=\"写メールdeウエブ\">\n";
}else{
    if($agent =~ /$imode/){
        if($agent =~ /'P502'/){
   	 	print "<img src=\"smwb.gif\" alt=\"写メールdeウエブ\">\n";
        }else{
    		print "<img src=\"smw.gif\" alt=\"写メールdeウエブ\">\n";
        }
    } else {
        if($agent =~ /$ezweb/){

#	$color = $ENV {'HTTP_X_UP_DEVCAP_ISCOLOR'};
	print "Content-type: text/hdml;charset=Shift_JIS\n\n";
	print "<HDML version=\"3.0\" public=\"true\"><DISPLAY>\n";
    	print "<CENTER><IMG src=\"color.png\" alt=\"写メールdeウエブ\">\">\n";
	print "<DISPLAY></HDML>";

#if ($color == 1){
#} else {
    print "<CENTER><IMG src=\"mono.bmp\" alt=\"image\">\n";
#}

#			$file_name = "smw.png";
#			$file_size = -s $file_name;
#			open(IN, $file_name);
#			binmode(IN);
#			read(IN, $img_file, $file_size);
#			close(IN);
#			print "Content-type: image/png\n\n";
#			print $img_file;
#			print "<img src=\"smw.bmp\" alt=\"写メールdeウエブ\">\n";
		}else {
     	    print "<img src=\"smw.gif\" alt=\"写メールdeウエブ\">\n";
		}
    }
}