head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	97.11.26.14.43.50;	author alexis;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@#!/usr/bin/perl
# $Id: at_rpt,v 1.1 1997/09/24 14:23:29 alexis Exp $' | cut -f3 -d' '`

sub ident
{
    my($file) = @@_;

    print "file is $file\n";
    ( ! -f $file || ! -r $file ) && return(0);
    open(FILE_HANDLE, $file) || return(0);

    while (<FILE_HANDLE>) {
        chop;
        if (/^.*,v ([0-9\.]+) .*$/) {
            close(FILE_HANDLE);
            return($1);
        }
    }
    close(FILE_HANDLE);
    return(0);
}

print "ident: " . &ident("myident.pl") . "\n";
@