diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-08-19 12:52:15 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-08-19 12:52:15 +0000 |
commit | 1cfc38d8c540f57cafb20b0b6316637c29dfbab9 (patch) | |
tree | 79ef7e954c6deca80b097e74528151eb2eabacd7 /lib/sbin/ScheduleParser.pl | |
parent | f1d4f49a673caa29c981e7d8fce25a835fce224f (diff) |
Adding a "help" argument to the CST_error call to start adding suggested causes for the errors.
At the moment the help message is always shown, since I've only added a couple so far.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2307 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ScheduleParser.pl')
-rw-r--r-- | lib/sbin/ScheduleParser.pl | 23 |
1 files changed, 8 insertions, 15 deletions
diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl index 6c09552b..dd204546 100644 --- a/lib/sbin/ScheduleParser.pl +++ b/lib/sbin/ScheduleParser.pl @@ -255,8 +255,7 @@ sub ParseScheduleBlock if($keyword ne "") { $message = "Error parsing schedule block line '$data[$line_number]'\n"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); } $keyword = "BEFORE"; $field++; @@ -266,8 +265,7 @@ sub ParseScheduleBlock if($keyword ne "") { $message="Error parsing schedule block line '$data[$line_number]'\n"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); } $keyword = "AFTER"; $field++; @@ -277,8 +275,7 @@ sub ParseScheduleBlock if($keyword ne "") { $message="Error parsing schedule block line '$data[$line_number]'\n"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); } $keyword = "WHILE"; $field++; @@ -348,8 +345,7 @@ sub ParseScheduleBlock else { $message="Error parsing schedule block line '$data[$line_number]'\n"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); $keyword = ""; $field++; } @@ -367,8 +363,7 @@ sub ParseScheduleBlock if($data[$line_number] !~ m:\s*\{\s*:) { $message="Error parsing schedule block line '$data[$line_number]'\nMissing { at start of block\n"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); $line_number++ while($data[$line_number] !~ m:\s*\}\s*:); } else @@ -405,7 +400,7 @@ sub ParseScheduleBlock $message = "Error parsing schedule block in $thorn\n"; $message .= "Attempt to specify language more than once\n"; $message .= "Line: $thisline"; - &CST_error(0,$message,__LINE__,__FILE__); + &CST_error(0,$message,"",__LINE__,__FILE__); } else { @@ -419,8 +414,7 @@ sub ParseScheduleBlock else { $message = "Error parsing schedule block line '$data[$line_number]'\nUnrecognised statement"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); } } } @@ -431,8 +425,7 @@ sub ParseScheduleBlock else { $message = "Error: Missing description at end of schedule block\n"; - &CST_error(0,$message,__LINE,__FILE__); - $CST_errors++; + &CST_error(0,$message,"",__LINE__,__FILE__); } # Turn the arrays into strings. |