nihilist/tor
1
0
Fork 0
mirror of https://gitlab.torproject.org/tpo/core/tor.git synced 2024-11-27 22:03:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

Update reindex script to check filename lines.

Browse Source 
svn:r15278
This commit is contained in:
Nick Mathewson 2008-06-15 17:08:28 +00:00
parent 8555a768fd
commit 16edff2185
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
doc/spec/proposals/reindex.pl
View File

@ -22,6 +22,7 @@ for my $f (@files) {
my $num = substr($f, 0, 3); my $num = substr($f, 0, 3);
my $status = undef; my $status = undef;
my $title = undef; my $title = undef;
my $alleged_fname = undef;
if ($f !~ /\.txt/) { print "$f doesn't end with .txt\n"; } if ($f !~ /\.txt/) { print "$f doesn't end with .txt\n"; }
open(F, "$f"); open(F, "$f");
while (<F>) { while (<F>) {
@ -30,6 +31,10 @@ for my $f (@files) {
$status = uc $1; $status = uc $1;
chomp $status; chomp $status;
} }
if (/^Filename: (.*)/) {
$alleged_fname = $1;
chomp $alleged_fname;
}
if (/^Title: (.*)/) { if (/^Title: (.*)/) {
$title = $1; $title = $1;
$title =~ s/\.$//; $title =~ s/\.$//;
@ -41,6 +46,9 @@ for my $f (@files) {
unless (grep(/$status/, @KNOWN_STATUSES) == 1); unless (grep(/$status/, @KNOWN_STATUSES) == 1);
die "Proposal $num has a bad status line" if (!defined $status); die "Proposal $num has a bad status line" if (!defined $status);
die "Proposal $num has a bad title line" if (!defined $title); die "Proposal $num has a bad title line" if (!defined $title);
die "Proposal $num has no Filename line" unless (defined $alleged_fname);
die "Proposal $num says its fname is $alleged_fname, but it's really $f"
if ($alleged_fname ne $f);
$title{$num} = $title; $title{$num} = $title;
$status{$num} = $status; $status{$num} = $status;
} }