**********************************************************************************************************
Rikiy Library Ver.1.20 README
2006/8/6 Written By Rikiya Takazawa.
http://rikiy.jp/
**********************************************************************************************************
̃Tu[`Cujcode.pl(UtashiroJ)mimew.pl(cJ)ƍ킹ȂΓ삵܂B
CGI̖{̖`

require './lib/rikiy-lib.pl';
require './lib/mimew.pl';
require './lib/jcode.pl';

ƕ\LAK3ƂǂݍŉB

[ver.1.00 > ver.1.10 ̏C_]*****************************************************

	ETj^CWOɑΉ
		ver.1.00ł̓tH[html̃^OނƂ̃^O\[XƂFœǂ܂Ă܂Tj^CWOɑ΂Ή{܂B

	EReadDataTu[`ɋ@\ǉ
		tH[̓͒lǂݍ݁AAzzɕϊۂɁAIvVŕR[hƔpJiSpȂ̕ϊ\ɂȂ܂B

	E^jcode.plŐV(ver.2.13)ɃAbvf[g

[ver.1.10 > ver.1.20 ̏C_]*****************************************************

	ESendMailTu[`̃Abvf[g
		[̈ɕAhXݒ肪\ɂȂ܂B
		CcyBccւ̃AhXݒ肪\ɂȂ܂B


[rikiy-lib.pl^̃Tu[`]*****************************************************

ReadDataTu[`*****************************************************

	tH[̓͒lǂݍ݁AAzzɕϊĕԂ܂B
	{

	&ReadData(*dat);

	ƕ\L邱ƂŌĂяoATu[`sł܂B
	s邱ƂɂtH[Ȃǂ擾Ăl@datƂAzzɕϐYƂĊi[܂B

	Ⴆ΃tH["type"Ƃϐ"0"Ƃl𓾂ĂꍇA"0"Ƃl

	$dat{'type'}

	ƂϐɊi[ƂƂłB

	ɃIvVŕR[h̕ϊpJiSpȂ̉\łB
	Shift-JISŏꂽtH[̒lEUCŏꂽCGIŏꍇȂǂɗLȋ@\łB
	R[hϊƓɔpJi͊{IɎgpƃoO̗vƂȂ܂̂ł炪܂܂ĂꍇA
	SđSpȂɕϊĕԂ܂B

	IvVgpꍇ̋LqłAShift-JISEUCɕϊꍇ

	&ReadData(*dat,'sjis','euc');

	ƂȂ܂B*daťɃJ}ŕϊO̕R[hAϊ̕R[hLqĉB
	Lq̍ۂ̊eR[hShift-JISAJISAEUCꂼsjis,jis,eucƂȂ܂B

	R[h̕ῗApJiSpȂւ̕ϊꍇ͕ϊO̕R[hLqĉB
	Ȃ킿tH[̒lShift-JISȂ΁A

	&ReadData(*dat,'sjis');

	ƂȂ܂B

TimeChgTu[`*****************************************************

	COT[o[𗘗pۓɎ擾Ԃ̎C邽߂̃Tu[`łB
	{

	&TimeChg($chnum,$sec,$min,$hour,$mday,$mon,$year,$wday);

	ƕ\L邱ƂŌĂяoAsł܂B

	$chnum(炷),$sec(b),$min(),$hour(),$mday(),$mon(),$year(N),$wday(j)Ƃln
	̒l$chnumԐi߂

	"$sec,$min,$hour,$mday,$mon,$year,$wday"

	ƂŕԂ܂B

	split֐ŕJ}؂łꂼ̕ϐɒĐlĉB


SendMailTu[`*****************************************************

	sendmailR}h𗘗p[MTu[`łB
	{

	&SendMail($mailcmd,$mailto,$mailcc,$mailbcc,$mailfrom,$subject,$msg);

	ƕ\L邱ƂŌĂяoAs܂B

	$mailcmd(sendmail̃pX),$mailto([̈[To]),$mailcc([̈[Cc]),$mailbcc([̈[Bcc]),$mailfrom([̑茳),$subject([̃^Cg),$msg([̖{)

	̓J}؂ŕݒ\łBCcBccɊւĂ͐ݒ肵ȂꍇA󔒂ɂĂĉB
	̒lnAMʂɉĐlԂ܂B

	0 c ȂM܂
	1 c [̈AhX̋LqԈĂ܂
	2 c sendmailJ܂ł(sendmailւ̃pXԈĂ\܂)
	3or5 c wb_̑MɃG[܂
	4or6 c {̑MɃG[܂
	7 c ̑̃G[őMł܂ł


GetDateTu[`*****************************************************

	Cӂ̓t̗j擾邱Ƃł܂B
	{

	&GetDate($year,$month,$day);

	ƕ\L邱ƂŌĂяoAs܂B
	$year(N),$month(),$day()nƂ̗̓j𐔒l(0`6)ŕԂ܂B