	$B$*$b$A$c$N%b%G%k(B ($B%G!<%?%Y!<%9%"%/%;%9$N%b%G%k(B)


$B"~(B fml $B$+$i%G!<%?%Y!<%9%I%i%$%P$X$N8F$S=P$7J}(B

 fml $B$O<!$N$h$&$J8F$S=P$7J}$r$7$^$9!#(B

  # try to probe server
  my (%mib, %result, %misc, $error);
  &DataBaseMIBPrepare(\%mib, $B%"%/%7%g%s(B, $B%*%W%7%g%s(B);
  &DataBaseCtl(\%Envelope, \%mib, \%result, \%misc); 
  if ($mib{'error'}) {
      $B%(%i!<$r5-O?$9$k(B ( &Mesg() $B$H$+(B &Log() )
      $B$b$7$/$O%(%i!<$@$C$?$i2?$+$r$9$k%3!<%I$r=q$/(B
  }

 $BE57?E*$JNc$O$3$N$h$&$K$J$j$^$9!#(B

   &DataBaseMIBPrepare(\%mib, 'member_p', {'address' => $From_address});

 &DataBaseMIBPrepare() $B$O(B $mib{'_action'} $B$K%G!<%?%Y!<%9%I%i%$%P$X(B
 $B$7$FM_$7$$%"%/%7%g%s$r;XDj$7$^$9!#(B
 $B%(%i!<$,H/@8$7$?>l9g$O(B $mib{'error'} $B$K%(%i!<$,5-=R$5$l$F$$$^$9!#(B


$B"~(B $B%i%$%V%i%j$N4X78(B 

             fml -> libdatabaes.pl -> $B3F%I%i%$%P(B

  fml $B$NCf(B 
      $B"-(B
    &DataBaseCtl() ( libdatabases.pl $B$GDj5A$5$l$F$$$k(B)
         $B"-(B
       $BMxMQ$9$k%G!<%?%Y!<%9$4$H!"%9%-!<%^$4$H$N%I%i%$%P$X(B
                  $B"-(B
              $BNc$($P(B /usr/local/fml/databaes/ldap/toymodel.pl


toymodel.pl $B$K$O<B:]$K(B LDAP $B%5!<%P$HDL?.$9$kE%$/$5$$ItJ,$,A4$F5-=R$5$l(B
$B$F$$$J$1$l$P$J$i$J$$!#5U$K(B libdatabases.pl $B$K$O$=$l$i$r=q$$$F$O$$$1$J(B
$B$$!#(B



$B"~(B $B%G!<%?%Y!<%9%I%i%$%P$,$9$k$Y$-$3$H(B

ldap/toymodel.pl $B$rNc$K$H$j$^$9!#3F%9%-!<%^$H%W%m%H%3%k$4$H$KF1MM$N4X(B
$B?t72$rDj5A$7$F2<$5$$!#(B

$mib->{'_action'} $B$K$O<!$N$h$&$J$b$N$,$"$j$^$9!#(B
$B!v(B $B9T$O=>Mh$N(B fml $B$G$O2?$KAjEv$9$k$N$+$r@bL@$7$F$$$^$9!#(B 


	get_status
		$mib->{'_address'} $B$N%a!<%k%"%I%l%9$N%b!<%I(B
		$BNc(B: $B$^$H$a$*$/$j$+H]$+!)(B

		$mib{'_result'} $B$KCM$rF~$l$FJV$9$H!"(B
		status $B%3%^%s%I$O$=$NCM$r$=$N$^$^%a!<%k$KF~$l$F(B
		$BJV$7$^$9!#(B

		$B!v(B status $B%3%^%s%I$,;H$$$^$9!#(B

	num_active
		$BG[Aw@h%a!<%k%"%I%l%9$NAm?t(B

		$B!v(B wc /var/spool/ml/elena/actives $B$KAjEv$7$^$9!#(B

	num_member
		$BEj9F2DG=$J%a!<%k%"%I%l%9$NAm?t(B

		$B!v(B wc /var/spool/ml/elena/members $B$KAjEv$7$^$9!#(B


	get_active_list
	dump_active_list

		SQL/LDAP $B$+$iG[Aw%j%9%H$N%a!<%k%"%I%l%90lMw$r<h$j$@$7!"(B	
		$mib->{'_cache_file'} $B$G;XDj$5$l$?%U%!%$%k$K(B
		$B=q$-$3$s$G$/$@$5$$!#(B

		* $B$D$^$j(B actives $B%U%!%$%k$r5?;wE*$K$D$/$C$F2<$5$$!#(B

	get_member_list
	dump_member_list

		SQL/LDAP $B$+$i%a%s%P!<%j%9%H$N%a!<%k%"%I%l%90lMw$r<h$j$@$7!"(B
		$mib->{'_cache_file'} $B$G;XDj$5$l$?%U%!%$%k$K(B
		$B=q$-$3$s$G$/$@$5$$!#(B

		* $B$D$^$j(B members $B%U%!%$%k$r5?;wE*$K$D$/$C$F2<$5$$!#(B

	active_p

		$mib->{'_address'} $B%"%I%l%9$OG[Aw@h$N%j%9%H$K(B
		$B4^$^$l$F$^$9$+!)(B
		$mib->{'_result'} $B$K(B 1 (yes) $B$+(B 0 (no) $B$r$$$l$F$/$@$5$$!#(B

		$B!v(B actives $B%U%!%$%k$K%a!<%k%"%I%l%9$,$"$j$^$9$+!)(B

	member_p

		$mib->{'_address'} $B%"%I%l%9$OEj9F2DG=$J%"%I%l%9$G$9$+!)(B
		$mib->{'_result'} $B$K(B 1 (yes) $B$+(B 0 (no) $B$r$$$l$F$/$@$5$$!#(B

		$B!v(B members $B%U%!%$%k$K%a!<%k%"%I%l%9$,$"$j$^$9$+!)(B

	admin_member_p

		$mib->{'_address'} $B%"%I%l%9$O%j%b!<%H4IM}<T$H$7$F(B
		$BEPO?$5$l$F$$$k$+!)(B
		$mib->{'_result'} $B$K(B 1 (yes) $B$+(B 0 (no) $B$r$$$l$F$/$@$5$$!#(B

		$B!v(B members-admin $B%U%!%$%k$K%a!<%k%"%I%l%9$,$"$j$^$9$+!)(B


	add
	bye
	subscribe
	unsubscribe
	on
	off
	addadmin
	byeadmin

		$mib->{'_address'} $B%"%I%l%9$K$D$$$F(B
		$B%G!<%?%Y!<%9$r$$$8$C$F$/$@$5$$!#(B
		* makefml $B$d%3%^%s%I%a!<%k$G;H$C$F$$$k%3%^%s%I$HF1$80UL#$G$9!#(B

	add2actives
	addactives
	add2members
	addmembers

		$B$I$A$i$+$N%U%!%$%k$K$N$_%"%I%l%9$r2C$($^$9!#(B
		* makefml $B$d%3%^%s%I%a!<%k$G;H$C$F$$$k%3%^%s%I$HF1$80UL#$G$9!#(B

	chaddr

		_old_address $B$H(B _new_address $B$,EO$5$l$^$9!#(B
		$B%G!<%?%Y!<%9>e$N(B _old_address $B$r(B _new-address $B$K(B
		$B:9$7BX$($F2<$5$$!#(B

		* makefml $B$d%3%^%s%I%a!<%k$G;H$C$F$$$k%3%^%s%I$HF1$80UL#$G$9!#(B

	digest
	matome

		$B%Q%i%a!<%?$,(B $mib->{'_value'} $B$GEO$5$l$^$9!#(B
		$B$3$NCM$GF~$l49$($F2<$5$$!#(B
		$BNc$($P(B $mib->{'_value'} $B$NCM$O(B m=3u $B$J$I$H$J$C$F$$$^$9!#(B
		* makefml $B$d%3%^%s%I%a!<%k$G;H$C$F$$$k%3%^%s%I$HF1$80UL#$G$9!#(B

	store_article

		$BG[Aw$5$l$?5-;v$r(B DB $B$KF~$l$?$$$J$i$3$N$?$a$N%3!<%I$r(B
		$B=q$$$F2<$5$$!#(B

		$B5-;v$NG[AwD>8e$K8F$S=P$5$l$^$9!#(B
		Distribute() $B$N:G8e$G!"(B$DISTRIBUTE_END_HOOK $B$h$j$b8e$K(B
		$B8F$S=P$5$l$F$$$^$9!#(B

		$B%(%i!<$K$J$i$J$$$h$&$K$7$F$"$j$^$9$,!"<BBN$O0l9T$b$"$j$^$;$s!#(B
		$B5-;v$r(B largeobject (PostgreSQL)$B$K$9$k$J$j!"(B
		$B%U%!%$%k$N(BPATH$B$r(BDB$B$KF~$l$k$J$j$O$*9%$-$J(BSCHEMA$B$r(B
		$B=q$$$F2<$5$$!#(B

		$B%G!<%?%Y!<%9$N4X?t$r8F$S=P$9:]$K(B
		$e $B$G(B %Envelope $B$X$N(B reference $B$,EO$5$l$F$$$k$N$G(B
		$e->{'Body'} $B$GCf?H$,8+$($^$9!#(B
		$B$^$?(B $mib->{'_article_id'} $B$G5-;vHV9f$,$o$+$j$^$9!#(B

	store_subscribe_mail
		$B!J$&!<$s!"$3$N%-!<%o!<%I$OJQ$8$c$J$$$+$$!)!)!K(B

		$B<+F0EPO?$N4X?t$N:G8e$G8F$P$l$^$9!#(B
		$B<+F0EPO?$N%a!<%k$r(BDB$B$K$$$l$?$$$J$i(B
		$BA0=R$N(B store_article $B$N$h$&$J$b$N$r=q$$$F2<$5$$!#(B

		$B$G$b!X(Bconfirm $B?t;z!Y$@$1$N%a!<%k$N2DG=@-$,Bg$G$9(B;-)


----------
$FML: TOY_MODEL.Japanese,v 1.7.2.1 2003/01/18 02:32:29 fukachan Exp $
