#!/usr/bin/perl


##################################
# Programed By ikechan
#       Since 2000/07/23
#            http://admjp.com/j/
##################################

#データファイルのディレクトリー
$data_dir = '/home/users/data';

$MSN     = $ENV{'HTTP_X_JPHONE_MSNAME'};
$SOUND   = $ENV{'HTTP_X_JPHONE_SOUND'};
$COLOR   = $ENV{'HTTP_X_JPHONE_COLOR'};
$DISPLAY = $ENV{'HTTP_X_JPHONE_DISPLAY'};

&main;
exit;

sub main
	{
	$fi = $ENV{'PATH_INFO'};
	$fi =~ s/^\///;

	if($fi =~ /\.\./)
		{
		print "Content-type: text/plain\n\n";
		print "Bad PATH_INFO:$ENV{'PATH_INFO'}\n";
		exit;
		}

	if($MSN ne '' && $ENV{'REMOTE_HOST'} =~ /jp-.\.ne\.jp/)
		{

		$fn = "$data_dir/$fi";

		if(open(UD,$fn))
			{
			@bgm = ;
			close(UD);
		
			print "Content-type: text/plain\n\n";
			print @bgm;
			}
		else
			{
			print "Content-type: text/plain\n\n";
			print "File Not Found.\n";
			}
		}
	else
		{
		print "Content-type: text/plain\n\n";
		print "Can't Request.\n";
		}
	}