#!/usr/bin/perl
###############################################################################
#
# Author: Derek Magee
#
# Script to rename a VC++ .NET project in the current directory
#
# Usage: rename_vcnet_project.perl <old name> <new name>
#
###############################################################################

$no_args = $#ARGV + 1 ;
if($no_args != 2){
    print("Usage: rename_vcnet_project.perl <old name> <new name>\n") ;
    exit(-1) ;
}

$oldname = $ARGV[0] ;
$newname = $ARGV[1] ;

$files_s= `ls $oldname.*`;
@files = split(/\n/,$files_s) ;


$no_files = push(@files) ;

for($file_no = 0 ; $file_no < $no_files ; $file_no++){
    $fn = $files[$file_no] ;
    @ext_s = split(/\./,$fn) ;
    $ext = $ext_s[1] ;

    `sed "s/$oldname/$newname/g" $fn > $newname.$ext`;
}