#!/usr/bin/perl -w # # Copyright (c) 2001-2003 Regents of the University of California. # All rights reserved. # # See the file LICENSE included in this distribution for details. # # $Id: genpage.pl,v 1.3 2006/07/05 16:59:56 srhea Exp $ use strict; my $title = shift; my $content_file = shift; open (FILE, "$content_file") or die "Could not open $content_file"; print< Golden Cheetah: PowerTap Software for Linux and Mac OS X
Picture of Cheetah

Introduction
Screenshots
User's Guide
FAQ
Wish List
License
Download
Contributors
Search
Mailing List

Golden Cheetah
PowerTap Software for Linux and Mac OS X

$title
EOF my $match = "\\\$" . "Id:.* (\\d\\d\\d\\d\\/\\d\\d\\/\\d\\d " . "\\d\\d:\\d\\d:\\d\\d) .*\\\$"; my $last_mod; while () { if (m/$match/) { $last_mod = $1; } print; } close (FILE); if (defined $last_mod) { print "

Last modified $last_mod.\n"; } print<
EOF