#!/usr/local/bin/perl
#==============================================================================
# sha-mail diary Version 0.1
#==============================================================================
# require './jcode.pl';
$datad = 's-data';
$datad = '/home/funa/public_html/sha/s-data';
$bdatad = '/home/funa/public_html/sha/tbbs';
$web = 'http://ftvjapan.dip.jp/~funa/sha';
$newd = 's-new';
$prfile = 'pr.html';
$catef = 'cate.txt';
$userd = '/home/funa/sha/s-user';
$cntd = '/home/funa/public_html/sha/cntdir';
$cated = '/home/funa/public_html/sha/s-cate';
$based = '/home/funa/public_html/sha';
$mailprog = '/usr/sbin/sendmail'; # mail system
$admin = 'funa@cc.seikei.ac.jp';
$jsky = 'J-PHONE';
$imode = 'DoCoMo';
$ezweb ='UP.Browser';
@scate = ("無","写","ア","着","待","イ","宣","人","成","変","男","女","同","他");
@pairs = split(/&/,$formdata);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $value =~ s/</g;
# $value =~ s/>/>/g;
$value =~ s/\n//g;
# $value =~ s/^M/
/g;
$value =~ s/\,//g;
&jcode'convert(*value,'sjis');
$FORM{$name} = $value;
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
$month = ($mon + 1);
$year = $year + 1900;
$date = "$year/$month/$mday $hour:$min:$sec";
#print "Content-type: text/html\n\n";
#print "
\n"; #print "写メールdeウエブ
\n"; &cntshow(); # print "ACT = $ACT\n"; # print "user = $USER\n"; # print "file = $FILE\n"; exit ; # print "写メールdeウエブ\n"; &getpr(); print "\n"; exit ; ### END PROGRAM #### sub cntshow { # open (NOTE,">$based/nurstmp.tmp") || exit; # print "写メールdeウエブ
\n"; # print NOTE "[an error occurred while processing this directive]