Mercurial > hg > chronicle

comparison bin/chronicle-spooler @ 198:889827a88e34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;