---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

【ｽﾚｯﾄﾞ】2ｃｈ型掲示板 その5【ﾌﾛｰﾄ型】

507 ：462 ：02/06/24 01:21 ID:???

# PATH_INFO 対応
sub decode_pathinfo
{
　my ( $path_info, $resno, $h, $tmp );

　$path_info = $_[0];
　if ( $path_info ne '' ) {
　　( $tmp, $FORM{'bbs'}, $FORM{'key'}, $resno ) = split( /\//, $path_info );
　　$resno =~ /(i|l?)([0-9]*)(\-?)([0-9]*)(n?)/;
　　$FORM{'ls'} = $1 if ( $1 ne '' );
　　$FORM{'st'} = $2 if ( $2 ne '' );
　　$h = $3;
　　$FORM{'to'} = $4 if ( $4 ne '' );
　　$FORM{'nofirst'} = 'true' if ( $5 eq 'n' );

　　if ( $FORM{'ls'} eq 'l' ) {
　　　$FORM{'ls'} = $FORM{'st'};
　　　delete $FORM{'st'};
}
　　elsif ( $FORM{'ls'} eq 'i' ) {
　　　$FORM{'imode'} = 'true';
　　　delete $FORM{'ls'};
　　}
　　elsif ( $FORM{'st'} && $FORM{'to'} eq '' ) {
　　　if ( $h ne '-' ) {
　　　　$FORM{'to'} = $FORM{'st'};
　　　　$FORM{'nofirst'} = 'true';
　　　}
　　}
　}
}

187KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30