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:
@@ -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);
|
||||||
|
|||||||
Reference in New Issue
Block a user