[BACK]Return to getcvsdate.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build
File:  [LON-CAPA] / loncom / build / getcvsdate.pl
Revision 1.1: download - view: text, annotated - select for diffs
Fri Jan 27 23:50:57 2012 UTC (12 years, 11 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, version_2_11_5_msu, version_2_11_5, version_2_11_4_uiuc, version_2_11_4_msu, version_2_11_4, version_2_11_3_uiuc, version_2_11_3_msu, version_2_11_3, version_2_11_2_uiuc, version_2_11_2_msu, version_2_11_2_educog, version_2_11_2, version_2_11_1, version_2_11_0_RC3, version_2_11_0_RC2, version_2_11_0_RC1, version_2_11_0, loncapaMITrelate_1, HEAD
- Bug 6535
 Eliminate creation of unnecessary .lpmlsave files during install.
  - PDF manuals are not included in CVS, but instead are built dynamically
    when running make build (e.g., when creating a tarball for release).
    - Assign new categoryname: pdf manual and include check for this in
      lpml_parse.pl so filecompare.pl is called with -b3 flag.
  - license/about.html and loncapa_apache.conf in release tree are modified
    by make aboutVERSION, so developer installations can include version
    and datestamp of build in version info.
    - make aboutVERSION now includes code to set the last modified time to
      the CVS commit date, so unanted .lpmlsave files will no longer be created.
  - new file: getcvsdate.pl now included in loncom/build -- used to extract
    commit date/time from CVS/Entries for about.html and loncapa_apache.conf

#!/usr/bin/perl

# The LearningOnline Network with CAPA
# getcvsdate.pl - script to get CVS commit date for a file from CVS/Entries.
#
# $Id: getcvsdate.pl,v 1.1 2012/01/27 23:50:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#

use strict;

# ------------------------------------------------------------------ Invocation
my $invocation=<<END;
getcvsdate.pl [PATH TO CVS/Entries] [FILE]

END

unless (@ARGV) {
    print $invocation;
    exit 1;
}

my %month_to_twodigit = (
    Jan => '01',
    Feb => '02',
    Mar => '03',
    Apr => '04',
    May => '05',
    Jun => '06',
    Jul => '07',
    Aug => '08',
    Sep => '09',
    Oct => '10',
    Nov => '11',
    Dec => '12',
);

if (@ARGV==2) {
    my $path = $ARGV[0];
    my $file = $ARGV[1];
    my $datetime;
    if ($path ne '' && $file ne '') {
        if (-e $path) {
            if (open(my $fh,"<$path")) {
                while(<$fh>) {
                    chomp();
                    if (m{\Q$file\E/[\d.]+/+([^/]+)/}) {
                        my ($wday,$month,$day,$clock,$yr) = split(/\s+/,$1);
                        if (exists($month_to_twodigit{$month})) { 
                            $datetime = $yr.'-'.$month_to_twodigit{$month}.'-'.$day.' '.$clock.' +0000';
                        }
                        last;
                    }
                }
                close($fh);
            }
        }
    }
    print $datetime;
}

=pod

=head1 NAME

getcvsdate.pl - script to get CVS commit date for a file from CVS/Entries.

=head1 SYNOPSIS

getcvsdate.pl [PATH TO CVS/Entries] [FILE]

=head1 DESCRIPTION

getcvsdate.pl can be used to retrieve the CVS commit date/time for a prticular
file from the corresponding entry in CVS/Entries.

The date is returned in the following format:
YYYY-MM-DD HH:MM:SS +0000

where +0000 (in HHMM) is the (assumed zero) timezone offset from UTC. 

This script is invoked in Makefile (within aboutVERSION and postaboutVERSION
targets) to set the modification dates for two files containing version 
information which are modified during the LON-CAPA installation process. 
In this use case the time string generated by a call to getcvsdate.pl for 
loncapa_apache.conf and about.html is passed as the input for the date argument
in a call to the touch utility, e.g.,

touch --date="$(shell echo `perl getcvsdate.pl 
$(SOURCE)/loncom/license/CVS/Entries about.html`)" 
$(SOURCE)/loncom/license/about.html

=cut
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>