#!/usr/bin/perl

#***************************************************************************************************
#                                                                                                  *
# cvsListChangedFiles.perl:                                                                        *
#                                                                                                  *
#***************************************************************************************************

#***************************************************************************************************
#                                                                                                  *
#     Copyright (C) 2003 Joerg Kunze                                                               *
#                                                                                                  *
#     This file is part of siliconBrain.                                                           *
#                                                                                                  *
#     siliconBrain 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.                                                          *
#                                                                                                  *
#     siliconBrain 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 this program; if not, write to the Free Software                                  *
#     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                    *
#                                                                                                  *
#***************************************************************************************************
$siliconBrainRelease       = '$siliconBrainRelease: 0.2.3 $';
$siliconBrainRcsIdentifier = '$Id: cvsListChangedFiles.perl,v 1.7 2004/12/14 23:31:26 joerg Exp $';
$siliconBrainSaveStamp     = '$siliconBrainSaveStamp: 2004/12/14 22:25:28, Joerg Kunze$';

$scriptName = "cvsListChangedFiles.perl";

use SiliconBrain;

#***************************************************************************************************
#                                                                                                  *
# main:                                                                                            *
#                                                                                                  *
#***************************************************************************************************
open( changedFiles, "cvs -nq update |" );

while( <changedFiles> ) {
    ($changeType, $fileName, $restOfTheLine) = split;
    push( @changedFiles, $fileName );
}

print join( ", ", @changedFiles ) . "\n";

exit 0;

# $Log: cvsListChangedFiles.perl,v $
# Revision 1.7  2004/12/14 23:31:26  joerg
# published for new release 0.2.3
#
# Revision 1.6  2004/12/14 23:17:05  joerg
# published for new release 0.2.2
#
# Revision 1.5  2004/12/14 22:42:22  joerg
# allFiles: all sources have a Log CVS keyword at the end now.
#