65 lines
972 B
Perl
Executable File
65 lines
972 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Marks all Questions in FAQ as new.
|
|
#
|
|
# (c) 1996 Matthias Heßler <hessler@wi-inf.uni-essen.de>
|
|
#
|
|
# $Id$
|
|
|
|
#
|
|
# Get file names from prompt
|
|
#
|
|
|
|
$in = $ARGV[0];
|
|
die "Usage: new.pl infile [outfile]\n" unless length ($in) gt 0;
|
|
|
|
$out = $ARGV[1];
|
|
$out = "$in" unless length ($out) gt 0;
|
|
|
|
|
|
#
|
|
# Open files
|
|
#
|
|
|
|
if ("$in" eq "$out") {
|
|
if( -e "$in.orig") {
|
|
unlink( "$in.orig") || die "Can not remove $in.orig!\n";
|
|
}
|
|
rename( "$in", "$in.orig") || die "Can not rename $in to $in.orig!\n";
|
|
$in .= ".orig";
|
|
}
|
|
|
|
open(IN,"<$in") || die "Can not open $in for input!\n";
|
|
open(OUT,">$out") || die "Can not open $out for output!\n";
|
|
|
|
|
|
#
|
|
# Updating FAQ
|
|
#
|
|
|
|
print "Marking all FAQ questions as new...\n";
|
|
|
|
$old = 0;
|
|
|
|
while($line = <IN>) {
|
|
|
|
chop($line); # kill \n character (newline)
|
|
|
|
if ($line =~ /^!old/) { # remove all "!old"
|
|
# Do not output line...
|
|
}
|
|
else {
|
|
print OUT "$line\n";
|
|
}
|
|
|
|
}
|
|
|
|
|
|
#
|
|
# Close files
|
|
#
|
|
|
|
close (IN);
|
|
close (OUT);
|
|
|