small bug fix to agi-record-prompt.agi

git-svn-id: svn://192.168.202.10@108 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2006-08-02 17:38:28 +00:00
parent 390a1ada24
commit a91264503d
+3 -3
View File
@@ -59,20 +59,20 @@ $REC_next = 0;
if (-e "/prompt_count.txt") if (-e "/prompt_count.txt")
{ {
open(test, "prompt_count.txt") || die "can't open prompt_count.txt: $!\n"; open(test, "/prompt_count.txt") || die "can't open /prompt_count.txt: $!\n";
@test = <test>; @test = <test>;
close(test); close(test);
$REC_next = ($test[0] + 1); $REC_next = ($test[0] + 1);
$REC_id = ($REC_id + $REC_next); $REC_id = ($REC_id + $REC_next);
open(test, ">prompt_count.txt") || die "can't open prompt_count.txt: $!\n"; open(test, ">/prompt_count.txt") || die "can't open /prompt_count.txt: $!\n";
print test "$REC_next"; print test "$REC_next";
close(test); close(test);
} }
else else
{ {
open(test, ">prompt_count.txt") || die "can't open prompt_count.txt: $!\n"; open(test, ">/prompt_count.txt") || die "can't open /prompt_count.txt: $!\n";
print test "1"; print test "1";
close(test); close(test);
$REC_id = ($REC_id + 1); $REC_id = ($REC_id + 1);