massage.pl

#!/usr/bin/perl
# 
# 	lojban-web - The official lojban website.
#	Version: .C017
# 	Copyright (C) 2001 Robin Lee Powell.  All rights reserved.
# 	Written by rlpowell@digitalkingdom.org
# 
# 	Redistribution and use in source and binary forms, with or without
# 	modification, are permitted provided that the following conditions are
# 	met:
# 	
# 	 1. Redistributions of source code must retain the above copyright
# 	 notice, this list of conditions and the following disclaimer.
# 	
# 	 2. Redistributions in binary form must reproduce the above copyright
# 	 notice, this list of conditions and the following disclaimer in the
# 	 documentation and/or other materials provided with the distribution.
# 	
# 	THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# 	IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# 	WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# 	DISCLAIMED. IN NO EVENT SHALL THE AUTHER OR CONTRIBUTORS BE LIABLE FOR
# 	ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# 	DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# 	OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# 	HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
# 	STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# 	ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# 	POSSIBILITY OF SUCH DAMAGE.
#
# Shell script to affix_insert 
#

my ($infile, $outfile) = @ARGV;

use POSIX 'strftime';
my $date = strftime( '%a %b %d %H:%M:%S %Z %Y', localtime );

#$version = $origversion;
#$version =~ s/\.[A-Z].*//;
#$version = `svn info $infile | grep Revision | awk '{ print \$2 }'`;
#chomp $version;

#print "$origversion, $version, $infile, $outfile\n";

open( my $inf, '<', $infile );
open( my $out, '>', $outfile );
while( <$inf> )
{
    if( /<!-- #JVS#DATE# -->/  )
    {
	s/<!-- #JVS#DATE# -->/$date/;
    }
#    if( /<!-- #JVS#VERSION# -->/ )
#    {
#	s/<!-- #JVS#VERSION# -->/$version/;
#    }
    
    print $out $_;
}

chmod 0444, $outfile;