ぜろちゃんねるプラス質問スレ

467 ：0ch+開発担当 ◆0chp.sx.ik ：2013/07/10(水) 20:25:35.94 ID:+331Ws7Y0

>>466
IDは以下のようにして生成すれば取得出来ます。
  # $Sys は sub execute の第1引数
  my $Conv = $Sys->Get('MainCGI')->{'CONV'};
  my $id = $Conv->MakeID($Sys->Get('SERVER'), $Sys->Get('CLIENT'), $Sys->Get('KOYUU'), $Sys->Get('BBS'), 8);
ただしメール欄入力やキャップ権限などでID:???や専用IDが
表示されている場合でも8桁の日替わりランダムな文字列が生成されます。

スレッドのタイトルは書き込み前処理(type=16)限定ですが、以下のようにすれば取得出来ます。
  # $Sys は sub execute の第1引数
  my $Threads = $Sys->Get('_THREAD_');
  my $title = $Threads->Get('SUBJECT', $Sys->Get('KEY'));

type=1, 2の場合は直接datファイルから取得してください。
  my $datPath = $Sys->Get('DATPATH');
  open(my $fh, '<', $datPath);
  $_ = <$fh>;
  my $title = (split /<>/, $_, -1)[4];
  close($fh);