このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1247636661/364
#  質問です。 
#   
#  入退室の時間を自分で打ち込んで、それをデータとして貯めるというシステムを作りたいんですが、こういうシステムを 
#  作る場合はPHPとMySQLで作れるんでしょうか。よろしくお願いします。 
# 

入退室 :-
    もっとも新しい入退室保存ファイル(File),
    reconsult(File).

入室(_氏名) :-
    A is time,
    localtime(A,B,_月,_日,_,_,_時,_分,_秒),
    assertz(入退室(入室,_氏名,_年,_月,_日,_時,_分,_秒)),
    入退室情報を保護する.

退室(_氏名) :-
    A is time,
    localtime(A,B,_月,_日,_,_,_時,_分,_秒),
    assertz(入退室(退室,_氏名,_年,_月,_日,_時,_分,_秒)),
    入退室情報を保護する.

入退室情報を保護する :-
    入退室保存ファイル(_,_入退室保存ファイル),
    tell(_入退室保存ファイル),
    listing(入退室),
    told,!.

%%%% 以下はPrologデータベースのセーブ/世代管理 %%%%

入退室管理ディレクトリ('/var/nyutaishitsu/').

もっとも新しい入退室保存ファイル(File) :-
    入退室管理ディレクトリ(Dir),
    concat_atom(['ls -N ',Dir,'listing.*.pro'],S),
    shs(S,L),
    \+(L=[]),
    max(L,File),!.
もっとも新しい入退室保存ファイル(File) :-
    入退室保存ファイル(_,File),!.

入退室保存ファイル(OldF,NewF) :-
    入退室管理ディレクトリ(Dir),
    concat_atom(['ls -N ',Dir,'listing.*.pro'],S),
    shs(S,L),
    \+(L=[]),
    max(L,OldF),
    sub_atom(OldF,_,6,4,A),
    atom_to_term(A,N,_),
    N2 is N + 1,
    concat_atom([Dir,'lsiting.',N2,'.pro'],NewF),!.
入退室保存ファイル(_,NewF) :-
    入退室管理ディレクトリ(Dir),
    concat_atom([Dir,'listing.100000.pro],NewF),
    tell(NewF),
    told.