Add verbose argument.
This commit is contained in:
		
							parent
							
								
									376075e549
								
							
						
					
					
						commit
						ae0b7000ae
					
				
					 1 changed files with 3 additions and 3 deletions
				
			
		|  | @ -12,12 +12,12 @@ use Supporters; | ||||||
| 
 | 
 | ||||||
| my $TODAY = UnixDate(ParseDate("today"), '%Y-%m-%d'); | my $TODAY = UnixDate(ParseDate("today"), '%Y-%m-%d'); | ||||||
| 
 | 
 | ||||||
| if (@ARGV < 6) { | if (@ARGV < 7 ) { | ||||||
|   print STDERR "usage: $0 <SUPPORTERS_SQLITE_DB_FILE> <REQUEST_NAME> <FROM_ADDRESS> <EMAIL_TEMPLATE> <MONTHLY_SEARCH_REGEX> <ANNUAL_SEARCH_REGEX>  <LEDGER_CMD_LINE>\n"; |   print STDERR "usage: $0 <SUPPORTERS_SQLITE_DB_FILE> <REQUEST_NAME> <FROM_ADDRESS> <EMAIL_TEMPLATE> <MONTHLY_SEARCH_REGEX> <ANNUAL_SEARCH_REGEX>  <VERBOSE> <LEDGER_CMD_LINE>\n"; | ||||||
|   exit 1; |   exit 1; | ||||||
| } | } | ||||||
| 
 | 
 | ||||||
| my($SUPPORTERS_SQLITE_DB_FILE, $REQUEST_NAME, $FROM_ADDRESS, $EMAIL_TEMPLATE, $MONTHLY_SEARCH_REGEX, $ANNUAL_SEARCH_REGEX, | my($SUPPORTERS_SQLITE_DB_FILE, $REQUEST_NAME, $FROM_ADDRESS, $EMAIL_TEMPLATE, $MONTHLY_SEARCH_REGEX, $ANNUAL_SEARCH_REGEX, $VERBOSE, | ||||||
|    @LEDGER_CMN_LINE) = @ARGV; |    @LEDGER_CMN_LINE) = @ARGV; | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn