#!/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);