2 # A simple script for making releases of checkmail
3 # (c) 2005 Martin Mares <mj@ucw.cz>
7 require "maint/release.pm";
9 my $r = new UCW::Release("checkmail");
10 my $ver = $r->GetVersionFromFile("Makefile", "^VERSION=(.*)");
11 $r->GetVersionsFromChangelog("ChangeLog", "Released as (.*)\.");
12 push @{$r->{"uploads"}}, {
13 "url" => "scp://atrey.karlin.mff.cuni.cz/~ftp/pub/local/mj/linux/"
16 $r->InitDist("maint/dist");
17 my $reldir = $r->GenPackage;