1#!/usr/bin/perl 2# A simple script for making releases of the pciutils 3# (c) 2003--2006 Martin Mares <[email protected]> 4 5use strict; 6use warnings; 7require "maint/release.pm"; 8 9# Check API version 10my $apiver = "???"; 11open X, "lib/pci.h" or die; 12while (<X>) { 13 /^#define PCI_LIB_VERSION 0x(.{6})$/ and $apiver = $1; 14} 15print "API version is $apiver ... <confirm> "; <STDIN>; 16 17print "Updating public GIT tree\n"; 18`git push --tags public`; die if $?; 19 20my $r = new UCW::Release("pciutils"); 21my $ver = $r->GetVersionFromFile("Makefile", "VERSION=(.*)"); 22$r->GetVersionsFromChangelog("ChangeLog", "Released as (.*)\."); 23push @{$r->{"rules"}}, '^win32/config.h' => 's'; 24if ($ver =~ /-/) { 25 $r->{"ALPHADIR"} = "alpha/"; 26 $r->{"conditions"}->{"ALPHA_VERSION"} = 1; 27} else { 28 $r->{"ALPHADIR"} = ""; 29 $r->{"conditions"}->{"ALPHA_VERSION"} = -1; 30} 31push @{$r->{"uploads"}}, { 32 "url" => "scp://atrey.karlin.mff.cuni.cz/~ftp/pub/linux/pci/" . $r->{"ALPHADIR"} 33 },{ 34 "url" => "scp://master.kernel.org/pub/software/utils/pciutils/" . $r->{"ALPHADIR"} 35 }; 36push @{$r->{"uploads"}}, { 37 "url" => "ftp://metalab.unc.edu/incoming/linux/", 38 "filter" => '(\.tar\.gz|\.lsm)$' 39 } if $r->{"ALPHADIR"} eq ""; 40$r->ParseOptions; 41$r->InitDist("maint/dist"); 42my $reldir = $r->GenPackage; 43$r->GenFile("README"); 44$r->GenFile("pciutils.lsm"); 45$r->Dispatch; 46if ($r->{"do_upload"}) { 47 print "Uploading pci.ids to Jabberwock\n"; 48 `scp -C pci.ids pciids\@jabberwock.ucw.cz:05-pciutils.new`; die if $?; 49 `ssh pciids\@jabberwock.ucw.cz mv 05-pciutils.new origs/05-pciutils`; die if $?; 50} 51