X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=win%2Frename_installer.pl;h=d24abb995f292892527cfa1892895694a39a9fa9;hb=d4d2b9a1fbeea981dc0c35402483d6216e8e45ac;hp=678b11b8bf475d134c22248161f5ac50a74961b3;hpb=0c024eeffd72086b07a29bd64bc0177c2017487c;p=user%2Fhenk%2Fcode%2Finspircd.git 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");