gno/doc/refs/mksgml

26 lines
497 B
Plaintext
Raw Normal View History

#! /usr/bin/perl
$months[0] = '';
$months[1] = 'January';
$months[2] = 'February';
$months[3] = 'March';
$months[4] = 'April';
$months[5] = 'May';
$months[6] = 'June';
$months[7] = 'July';
$months[8] = 'August';
$months[9] = 'September';
$months[10] = 'October';
$months[11] = 'November';
$months[12] = 'December';
while (<>) {
if (m,\$Date: 1999/02/21 23:37:13 $,) {
$year = $1;
$month = $2;
$day = $3;
$_ = $` . $day . ' ' . $months[int($month)] . ' ' . $year . $';
}
print;
}