diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-12-16 12:24:45 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-12-16 12:24:45 +0000 |
commit | 16b775ad5e47c3e6f4b2f086116a258c6f5c8840 (patch) | |
tree | 772ec03131333509368b9235c4bb277672fcc527 /lib/sbin/ScheduleParser.pl | |
parent | 8bd960b7180f9dd468c5a89dfdda84f9352b9ac2 (diff) |
Added standard error calls
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1958 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ScheduleParser.pl')
-rw-r--r-- | lib/sbin/ScheduleParser.pl | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl index a3bf3e1f..87186901 100644 --- a/lib/sbin/ScheduleParser.pl +++ b/lib/sbin/ScheduleParser.pl @@ -254,7 +254,8 @@ sub ParseScheduleBlock { if($keyword ne "") { - print STDERR "Error parsing schedule block line '$data[$line_number]'\n"; + $message = "Error parsing schedule block line '$data[$line_number]'\n"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; } $keyword = "BEFORE"; @@ -264,7 +265,8 @@ sub ParseScheduleBlock { if($keyword ne "") { - print STDERR "Error parsing schedule block line '$data[$line_number]'\n"; + $message="Error parsing schedule block line '$data[$line_number]'\n"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; } $keyword = "AFTER"; @@ -274,7 +276,8 @@ sub ParseScheduleBlock { if($keyword ne "") { - print STDERR "Error parsing schedule block line '$data[$line_number]'\n"; + $message="Error parsing schedule block line '$data[$line_number]'\n"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; } $keyword = "WHILE"; @@ -344,7 +347,8 @@ sub ParseScheduleBlock } else { - print STDERR "Error parsing schedule block line '$data[$line_number]'\n"; + $message="Error parsing schedule block line '$data[$line_number]'\n"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; $keyword = ""; $field++; @@ -362,8 +366,8 @@ sub ParseScheduleBlock if($data[$line_number] !~ m:\s*\{\s*:) { - print STDERR "Error parsing schedule block line '$data[$line_number]'\n"; - print STDERR "Missing { at start of block\n"; + $message="Error parsing schedule block line '$data[$line_number]'\nMissing { at start of block\n"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; $line_number++ while($data[$line_number] !~ m:\s*\}\s*:); } @@ -410,8 +414,8 @@ sub ParseScheduleBlock } else { - print STDERR "Error parsing schedule block line '$data[$line_number]'\n"; - print STDERR "Unrecognised statement\n"; + $message = "Error parsing schedule block line '$data[$line_number]'\nUnrecognised statement"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; } } @@ -422,7 +426,8 @@ sub ParseScheduleBlock } else { - print STDERR "Error: Missing description at end of schedule block\n"; + $message = "Error: Missing description at end of schedule block\n"; + &CST_error(0,$message,__LINE,__FILE__); $CST_errors++; } |