2 # A simple script for making releases of LibUCW
3 # (c) 2012 Martin Mares <mj@ucw.cz>
7 require "maint/release.pm";
9 my $r = new UCW::Release("libucw");
10 $r->{"test_compile"} = "./configure && make -j4";
11 $r->{"archive_dir"} = $ENV{"HOME"} . "/archives/libucw";
12 push @{$r->{"uploads"}}, { "url" => "scp://ftp.ucw.cz/~ftp/pub/libucw/" };
15 $r->GetVersionFromGit;
16 $r->InitDist("maint/tmp");
17 my $reldir = $r->GenPackage;
18 $r->GenFile("README");
23 if ($r->{"do_upload"}) {
24 my $tdir = $r->{"TESTDIR"};
26 print "Upload of documentation\n";
28 system qw(rsync -avz --delete), "$tdir/obj/ucw/doc/", qw(jw:/var/www/libucw/doc/ --exclude=*.deflist --exclude=*.txt);
31 print "WARNING: With --notest, no documentation is published!\n";