Mercurial > hg > chronicle
comparison bin/chronicle-spooler @ 198:889827a88e34
perltidy
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Mon, 14 Apr 2008 18:55:20 +0100 |
parents | 4004fa368f64 |
children | 967ecb541df9 |
comparison
equal
deleted
inserted
replaced
197:c472e482ca68 | 198:889827a88e34 |
---|---|
427 | 427 |
428 # | 428 # |
429 # OK we got a header - is it current / past? | 429 # OK we got a header - is it current / past? |
430 # | 430 # |
431 my $today = time; | 431 my $today = time; |
432 if ( !defined( $today ) ) | 432 if ( !defined($today) ) |
433 { | 433 { |
434 print "FAILED TO FIND TODAY\n"; | 434 print "FAILED TO FIND TODAY\n"; |
435 return 0; | 435 return 0; |
436 } | 436 } |
437 | 437 |
438 # | 438 # |
439 # Date of entry | 439 # Date of entry |
440 # | 440 # |
441 my $ent = str2time($header); | 441 my $ent = str2time($header); |
442 if ( !defined( $ent ) ) | 442 if ( !defined($ent) ) |
443 { | 443 { |
444 print "FAILED TO PARSE: '$header'\n"; | 444 print "FAILED TO PARSE: '$header'\n"; |
445 return 0; | 445 return 0; |
446 } | 446 } |
447 | 447 |
496 } | 496 } |
497 | 497 |
498 # | 498 # |
499 # Moving | 499 # Moving |
500 # | 500 # |
501 File::Copy::move( $file, | 501 File::Copy::move( $file, $CONFIG{ 'live-dir' } . "/" . $base ); |
502 $CONFIG{ 'live-dir' } . "/" . $base ); | |
503 } | 502 } |
504 else | 503 else |
505 { | 504 { |
506 print "Weirdness $CONFIG{'live-dir'} is not a directory!\n"; | 505 print "Weirdness $CONFIG{'live-dir'} is not a directory!\n"; |
507 exit; | 506 exit; |