Mercurial > hg > chronicle
annotate bin/check-titles @ 275:327943acc84b
Correctly sort comments by submission time.
| author | Steve Kemp <steve@steve.org.uk> |
|---|---|
| date | Mon, 01 Sep 2008 20:36:29 +0100 |
| parents | a9e686d7f419 |
| children |
| rev | line source |
|---|---|
| 227 | 1 #!/usr/bin/perl -w |
| 2 # | |
| 3 # A simple utility which will process each "*.txt" file inside a named | |
| 4 # directory. | |
| 5 # | |
| 6 # Any entries with a duplicate title will be alerted. | |
| 7 # | |
| 8 # Steve | |
| 9 # | |
| 10 | |
| 11 use strict; | |
| 12 use warnings; | |
| 13 | |
| 14 | |
| 15 # | |
| 16 # Get the directory and ensure it exists. | |
| 17 # | |
| 18 my $dir = shift; | |
| 19 die "Usage: $0 directory" unless ( defined($dir) ); | |
| 20 die "Not a directory : $dir" unless ( -d $dir ); | |
| 21 | |
| 22 | |
| 23 # | |
| 24 # The hash of arrays | |
| 25 # | |
| 26 my $titles; | |
| 27 | |
| 28 | |
| 29 # | |
| 30 # Find the files. | |
| 31 # | |
| 32 foreach my $file ( sort( glob( $dir . "/*" ) ) ) | |
| 33 { | |
| 34 | |
| 35 # | |
| 36 # Skip non-files | |
| 37 # | |
| 38 next if ( -d $file ); | |
| 39 next if ( $file =~ /~$/ ); | |
| 40 | |
| 41 # | |
| 42 # Title for this entry. | |
| 43 # | |
| 44 my $title = undef; | |
| 45 | |
| 46 # | |
| 47 # Read each file, and look for the title. | |
| 48 # | |
| 49 open( IN, "<", $file ) | |
| 50 or die "Failed to read $file - $!"; | |
| 51 foreach my $line (<IN>) | |
| 52 { | |
| 53 $title = $2 | |
| 54 if ( !defined($title) | |
| 55 && ( $line =~ /^(Subject|Title):(.*)/i ) ); | |
| 56 | |
| 57 } | |
| 58 close(IN); | |
| 59 | |
| 60 # | |
|
228
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
61 # Ignore entries with no title. |
|
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
62 # |
|
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
63 next if ( !$title ); |
|
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
64 |
|
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
65 # |
| 227 | 66 # Get current entries we might have found with |
| 67 # this title; and add on the new one. | |
| 68 # | |
| 69 my $a = $titles->{ $title }; | |
| 70 push( @$a, $file ); | |
| 71 $titles->{ $title } = $a; | |
| 72 } | |
| 73 | |
| 74 | |
| 75 # | |
| 76 # Now look for dupes | |
| 77 # | |
| 78 my $fail = 0; | |
| 79 foreach my $title ( keys %$titles ) | |
| 80 { | |
| 81 my $a = $titles->{ $title }; | |
| 82 | |
| 83 if ( ( scalar @$a ) > 1 ) | |
| 84 { | |
| 85 print "Title: $title\n"; | |
| 86 foreach my $file (@$a) | |
| 87 { | |
| 88 print "\t" . $file . "\n"; | |
| 89 } | |
| 90 | |
| 91 $fail = 1; | |
| 92 } | |
| 93 } | |
| 94 | |
| 95 | |
| 96 exit($fail); |