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 $version =~ /InspIRCd-(\d+)\.(\d+)\.(\d+)([ab\+])/;\r
  11 \r
  12 $v1 = $1;\r
  13 $v2 = $2;\r
  14 $v3 = $3;\r
  15 $type = $4;\r
  16 \r
  17 if ($type =~ /^[ab]$/)\r
  18 {\r
  19         $version =~ /InspIRCd-\d+\.\d+\.\d+[ab\+](\d+)/;\r
  20         $alphabeta = $1;\r
  21         $name = "InspIRCd-$v1.$v2.$v3$type$alphabeta.exe";\r
  22         $rel = "$v1.$v2.$v3$type$alphabeta";\r
  23 }\r
  24 else\r
  25 {\r
  26         $name = "InspIRCd-$v1.$v2.$v3.exe";\r
  27         $rel = "$v1.$v2.$v3";\r
  28 }\r
  29 \r
  30 print "del $name\n";\r
  31 print "ren Setup.exe $name\n";\r
  32 system("del $name");\r
  33 system("ren Setup.exe $name");\r
  34 \r
  35 system("upload_release.bat $name $rel");\r