win/rename_installer.pl

   1 #!perl\r
   2 \r
   3 open(FH,"<../src/version.sh") or die("Can't open version.sh");\r
   4 while (chomp($v = <FH>))\r
   5 {\r
   6         $version = $v if $v =~ /^echo/;\r
   7 }\r
   8 close FH;\r
   9 \r
  10 print "Version: '$version'\n";\r
  11 \r
  12 $version =~ /InspIRCd-(\d+)\.(\d+)\.(\d+)([ab\+]|RC|rc)/;\r
  13 \r
  14 $v1 = $1;\r
  15 $v2 = $2;\r
  16 $v3 = $3;\r
  17 $type = $4;\r
  18 \r
  19 print "v1=$1 v2=$2 v3=$3 type=$4\n";\r
  20 \r
  21 if ($type =~ /^[ab]|rc|RC$/)\r
  22 {\r
  23         $version =~ /InspIRCd-\d+\.\d+\.\d+([ab]|RC|rc)(\d+)/;\r
  24         $alphabeta = $2;\r
  25         print "Version sub is $type $alphabeta\n";\r
  26         $name = "InspIRCd-$v1.$v2.$v3$type$alphabeta.exe";\r
  27         $rel = "$v1.$v2.$v3$type$alphabeta";\r
  28 }\r
  29 else\r
  30 {\r
  31         $name = "InspIRCd-$v1.$v2.$v3.exe";\r
  32         $rel = "$v1.$v2.$v3";\r
  33 }\r
  34 \r
  35 print "del $name\n";\r
  36 print "ren Setup.exe $name\n";\r
  37 \r
  38 system("del $name");\r
  39 system("ren Setup.exe $name");\r
  40 \r
  41 system("upload_release.bat $name $rel");\r