From 7df379d61e96e84d99a4d815fc879a38e5fabd2c Mon Sep 17 00:00:00 2001 From: brain Date: Sun, 8 Feb 2009 18:22:41 +0000 Subject: Allow this to handle RC style names git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@11063 e03df62e-2008-0410-955e-edbf42e46eb7 --- win/rename_installer.pl | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/win/rename_installer.pl b/win/rename_installer.pl index 678b11b8b..d24abb995 100644 --- a/win/rename_installer.pl +++ b/win/rename_installer.pl @@ -7,17 +7,22 @@ while (chomp($v = )) } close FH; -$version =~ /InspIRCd-(\d+)\.(\d+)\.(\d+)([ab\+])/; +print "Version: '$version'\n"; + +$version =~ /InspIRCd-(\d+)\.(\d+)\.(\d+)([ab\+]|RC|rc)/; $v1 = $1; $v2 = $2; $v3 = $3; $type = $4; -if ($type =~ /^[ab]$/) +print "v1=$1 v2=$2 v3=$3 type=$4\n"; + +if ($type =~ /^[ab]|rc|RC$/) { - $version =~ /InspIRCd-\d+\.\d+\.\d+[ab\+](\d+)/; - $alphabeta = $1; + $version =~ /InspIRCd-\d+\.\d+\.\d+([ab]|RC|rc)(\d+)/; + $alphabeta = $2; + print "Version sub is $type $alphabeta\n"; $name = "InspIRCd-$v1.$v2.$v3$type$alphabeta.exe"; $rel = "$v1.$v2.$v3$type$alphabeta"; } @@ -29,6 +34,7 @@ else print "del $name\n"; print "ren Setup.exe $name\n"; + system("del $name"); system("ren Setup.exe $name"); -- cgit v1.2.3