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 print "Version: '$version'\n";
\r
12 $version =~ /InspIRCd-(\d+)\.(\d+)\.(\d+)([ab\+]|RC|rc)/;
\r
19 print "v1=$1 v2=$2 v3=$3 type=$4\n";
\r
21 if ($type =~ /^[ab]|rc|RC$/)
\r
23 $version =~ /InspIRCd-\d+\.\d+\.\d+([ab]|RC|rc)(\d+)/;
\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
31 $name = "InspIRCd-$v1.$v2.$v3.exe";
\r
32 $rel = "$v1.$v2.$v3";
\r
35 print "del $name\n";
\r
36 print "ren Setup.exe $name\n";
\r
38 system("del $name");
\r
39 system("ren Setup.exe $name");
\r
41 system("upload_release.bat $name $rel");
\r