#!/usr/bin/perl # A simple script for making releases of checkmail # (c) 2005 Martin Mares use strict; use warnings; require "maint/release.pm"; my $r = new UCW::Release("checkmail"); $r->{'do_patch'} = 0; my $ver = $r->GetVersionFromFile("Makefile", "^VERSION=(.*)"); # $r->GetVersionsFromChangelog("ChangeLog", "Released as (.*)\."); push @{$r->{"uploads"}}, { "url" => "scp://atrey.karlin.mff.cuni.cz/~ftp/pub/local/mj/linux/" }; $r->ParseOptions; $r->InitDist("maint/dist"); my $reldir = $r->GenPackage; $r->Dispatch;