3 open(FH,"<../src/version.sh") or die("Can't open version.sh");
\r
4 while (chomp($v = <FH>))
\r
6 $version = $v if $v =~ /^echo/;
\r
10 $version =~ /InspIRCd-(\d+)\.(\d+)\.(\d+)([ab\+])/;
\r
17 if ($type =~ /^[ab]$/)
\r
19 $version =~ /InspIRCd-\d+\.\d+\.\d+[ab\+](\d+)/;
\r
21 $name = "InspIRCd-$v1.$v2.$v3$type$alphabeta.exe";
\r
22 $rel = "$v1.$v2.$v3$type$alphabeta";
\r
26 $name = "InspIRCd-$v1.$v2.$v3.exe";
\r
27 $rel = "$v1.$v2.$v3";
\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
35 system("upload_release.bat $name $rel");
\r