<strong>Report forwarded</strong> to <code>debian-bugs-dist@lists.debian.org, Wichert Akkerman &lt;wakkerma@debian.org&gt;</code>:<br>
<code>Bug#66336</code>; Package <code>dpkg</code>.


debian-bugs-dist@lists.debian.orgWichert Akkerman <wakkerma@debian.org>

Subject: Bug#66336: [patch] add `dpkg-substvars', make `dpkg-gencontrol' perform substvars on Package field.
Reply-To: karlheg@debian.org (Karl M. Hegbloom), 66336@bugs.debian.org
Resent-From: karlheg@debian.org (Karl M. Hegbloom)
Orignal-Sender: karlheg@bittersweet.intra
Resent-To: debian-bugs-dist@lists.debian.org
Resent-CC: Wichert Akkerman <wakkerma@debian.org>
Resent-Date: Wed, 28 Jun 2000 22:10:30 GMT
Resent-Message-ID: <handler.66336.B.96209350011191@bugs.debian.org>
Resent-Sender: owner@bugs.debian.org
X-Debian-PR-Message: report 66336
X-Debian-PR-Package: dpkg
X-Debian-PR-Keywords: 
X-Loop: owner@bugs.debian.org
Received: via spool by bugs@bugs.debian.org id=B.96209350011191
          (code B ref -1); Wed, 28 Jun 2000 22:10:30 GMT
Sender: karlheg@bittersweet.intra
To: submit@bugs.debian.org
From: karlheg@debian.org (Karl M. Hegbloom)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\\R>qDt(t8w!-i{(y0\"`jFw^uk8inzO9wXabd'CdjUWfC\\GHi:6nO*YC89#-qD>Q4r%9!V\"<RYJ=7D#$\";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D\n
Date: 26 Jun 2000 22:33:34 -0700
Message-ID: <87sntz1ydt.fsf@bittersweet.intra>
Mime-Version: 1.0 (generated by tm-edit 1.5)
Content-Type: multipart/mixed;
 boundary="Multipart_Tue_Jun_27_01:11:38_2000-1"
Content-Transfer-Encoding: 7bit
Lines: 713
Delivered-To: submit@bugs.debian.org

--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: text/plain; charset=US-ASCII

Package: dpkg
Version: 1.6.13
Severity: wishlist

 The following script and patch should be applied while standing in
 the "scripts" subdirectory of the `dpkg' sources.

 This allows `control' to contain a variable expansion in the
 "Package:" field, like "Package: guile${GUILE_SHORTVERSION}", where
 GUILE_SHORTVERSION is defined in a substvars file.  I have updated
 the manual also, this behaviour and how to use it some are explained
 there.

 For my version of the `guile' packages, what I'm doing is using the
 upstream "GUILE-VERSION" includer from "debian/rules", with GNU
 Make's "include" instruction, and then also using it as the base for
 a substvars file.  When I (or debhelper) call any of the `dpkg-*'
 scripts that needs to know what package to act on (via the -p<pkg>
 option), the real name of the package is given, by way of a Make
 macro expansion that amounts to the same expansion the substvars on
 the "Package:" field will do, so they match:

  foopkg = foo${FOO_SHORTVERSION}

  sometarget:
	dh_dosomething --package=${foopkg}

  ${foopkg}.postinst: foo.postinst.in
	dpkg-substvars -p${foopkg} < $< > $@

 This avoids hard-coding package names like "guile1.4", or "libguile9"
 in "debian/control", thus improving maintainability.  There are other
 Debian packages out there that could benefit from this backwards
 compatible (afaict) modification.  Please see the "debian/rules" from
 my version of the Guile "debian/*" scripts for a more complex
 example, if you've time and curiosity.

 Included is `dpkg-substvars', which reads stdin, performs variable
 substitutions, and writes to stdout.  It is derived directly from
 `dpkg-gencontrol'.  You can give it the `-@' option to have it
 replace variables enclosed in "@varname@", rather than the usual
 "${varname}", so that it can work on shell scripts and makefile
 includers.

 It is very useful for generating maintainer scripts that have version
 numbers, etc. inside of them, yet again, avoiding a possibly missed
 edit on upstream version upgrade, and thus improving package
 maintainability.

 My version of the Guile debian/* scripts may be viewed via

 <URL:http://bittersweet.inetarena.com/cgi-bin/viewcvs.cgi/guile-core/debian>

 ... if you are curious.  I plan to share them with the real Guile
 package maintainer, but cannot do so until after the attached changes
 are part of the distributed `dpkg'.



--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="dpkg-substvars"
Content-Transfer-Encoding: 8bit

#! /usr/bin/perl

$dpkglibdir="/usr/lib/dpkg";
$version="1.0.0"; # This line modified by Makefile

$controlfile= 'debian/control';
$changelogfile= 'debian/changelog';
$fileslistfile= 'debian/files';
$varlistfile= 'debian/substvars';

$at = 0;
$infile  = '&STDIN';
$outfile = '&STDOUT';

use POSIX;
use POSIX qw(:errno_h);

push(@INC,$dpkglibdir);
require 'controllib.pl';

sub usageversion {
    print STDERR
"Debian GNU/Linux dpkg-substvars $version.
Copyright (C) 2000 Karl M. Hegbloom.
This is free software; see the GNU General Public Licence version 2 or
later for copying conditions.  There is NO warranty.

Usage: dpkg-substvars [options ...]

 infile defaults to STDIN, outfile defaults to STDOUT.

Options:  -i<infile>             take input from infile
          -o<outfile>            write output to outfile
          -\@                     subst \@VAR\@ rather than \${VAR}
          -p<package>            use control file data for package
          -c<controlfile>        get control info from this file
          -l<changelogfile>      get per-version info from this file
          -F<changelogformat>    force change log format
          -v<forceversion>       set version of binary package
          -D<field>=<value>      override or add a field and value
          -U<field>              remove a field
          -V<name>=<value>       set a substitution variable
          -T<varlistfile>        read variables here, not debian/substvars
          -h                     print this message
";
}

$i=100;grep($fieldimps{$_}=$i--,
          qw(Package Version Section Priority Architecture Essential
             Pre-Depends Depends Recommends Suggests Enhances Optional 
	     Conflicts Replaces Provides Installed-Size Maintainer Source
	     Description Build-Depends Build-Depends-Indep Build-Conflicts
	     Build-Conflicts-Indep Source));

while (@ARGV) {
  $_=shift(@ARGV);
  if (m/^-p([-+0-9a-z.]+)$/) {
    $oppackage= $1;
  } elsif (m/^-c/) {
    $controlfile= $';
  } elsif (m/^-l/) {
    $changelogfile= $';
  } elsif (m/^-v(.+)$/) {
    $forceversion= $1;
  } elsif (m/^-F([0-9a-z]+)$/) {
    $changelogformat=$1;
  } elsif (m/^-D([^\=:]+)[=:]/) {
    $override{$1}= $';
  } elsif (m/^-U([^\=:]+)$/) {
    $remove{$1}= 1;
  } elsif (m/^-V(\w[-:0-9A-Za-z]*)[=:]/) {
    $substvar{$1}= $';
  } elsif (m/^-T/) {
    $varlistfile= $';
  } elsif (m/^-i/) {
    $infile= $';
  } elsif (m/^-o/) {
    $outfile= $';
  } elsif (m/^-\@/) {
    $at=1;
  } elsif (m/^-h$/) {
    &usageversion; exit(0);
  } elsif (m/^-/) {
    &usageerr("unknown option \`$_'");
  }
}

&findarch;
&parsechangelog;
&parsevarlistfile;
&parsecontrolfile;
&expandsubstvars;

if (length($oppackage)) {
    defined($p2i{"C $oppackage"}) || &error("package $oppackage not in control info");
    $myindex= $p2i{"C $oppackage"};
} else {
    @packages= grep(m/^C /,keys %p2i);
    @packages==1 ||
        &error("must specify package since control info has many (@packages)");
    $myindex=1;
    $oppackage= &substvars($f{'Package'});
}

#print STDERR "myindex $myindex\n";

for $_ (keys %fi) {
    $v= $fi{$_};
    if (s/^C //) {
#print STDERR "G key >$_< value >$v<\n";
        if (m/^Maintainer$/) { $f{$_}=$v; }
        elsif (m/^Source$/) { &setsourcepackage; }
        elsif (s/^X[CS]*B[CS]*-//i) { $f{$_}= $v; }
	elsif (m/^X[CS]+-|^Standards-Version$|^Build-(Depends|Conflicts)(-Indep)?$/i) { }
	elsif (m/^Section$|^Priority$/) { $spdefault{$_}= $v; }
        else { &unknown('general section of control info file'); }
    } elsif (s/^C$myindex //) {
#print STDERR "P key >$_< value >$v<\n";
      if (m/^Package$/) {
	$f{&substvars($_)}= $v;
      } elsif (m/^(Description|Essential|Pre-Depends|Depends)$/ ||
            m/^(Recommends|Suggests|Enhances|Optional|Conflicts|Provides|Replaces)$/) {
            $f{$_}= $v;
        } elsif (m/^Section$|^Priority$/) {
            $spvalue{$_}= $v;
        } elsif (m/^Architecture$/) {
            if ($v eq 'all') {
                $f{$_}= $v;
            } elsif ($v eq 'any') {
                $f{$_}= $arch;
            } else {
                @archlist= split(/\s+/,$v);
                grep($arch eq $_, @archlist) ||
                    &error("current build architecture $arch does not".
                           " appear in package's list (@archlist)");
                $f{$_}= $arch;
            }
        } elsif (s/^X[CS]*B[CS]*-//i) {
            $f{$_}= $v;
        } elsif (!m/^X[CS]+-/i) {
            &unknown("package's section of control info file");
        }
    } elsif (m/^C\d+ /) {
#print STDERR "X key >$_< value not shown<\n";
    } elsif (s/^L //) {
#print STDERR "L key >$_< value >$v<\n";
        if (m/^Source$/) {
            &setsourcepackage;
        } elsif (m/^Version$/) {
            $sourceversion= $v;
            $f{$_}= $v unless length($forceversion);
        } elsif (m/^(Maintainer|Changes|Urgency|Distribution|Date|Closes)$/) {
        } elsif (s/^X[CS]*B[CS]*-//i) {
            $f{$_}= $v;
        } elsif (!m/^X[CS]+-/i) {
            &unknown("parsed version of changelog");
        }
    } else {
        &internerr("value from nowhere, with key >$_< and value >$v<");
    }
}

$f{'Version'}= $forceversion if length($forceversion);

for $f (qw(Section Priority)) {
    $spvalue{$f}= $spdefault{$f} unless length($spvalue{$f});
    $f{$f}= $spvalue{$f} if $spinclude{$f} && length($spvalue{$f});
}

for $f (qw(Package Version)) {
    defined($f{$f}) || &error("missing information for output field $f");
}
for $f (qw(Maintainer Description Architecture)) {
    defined($f{$f}) || &warn("missing information for output field $f");
}

$verdiff= $f{'Version'} ne $sourceversion;
if ($oppackage ne $sourcepackage || $verdiff) {
    $f{'Source'}= $sourcepackage;
    $f{'Source'}.= " ($sourceversion)" if $verdiff;
}

$sversion=$f{'Version'};
$sversion =~ s/^\d+://;

for $f (keys %override) { $f{&capit($f)}= $override{$f}; }
for $f (keys %remove) { delete $f{&capit($f)}; }

open (IN,  "<$infile")  or die "Cannot open $infile for input";
open (OUT, ">$outfile") or die "Cannot open $outfile for output";

while (<IN>) {
  print OUT &substvars($_,$at);
}
exit (0);

sub spfileslistvalue {
    $r= $spvalue{$_[0]};
    $r= '-' if !length($r);
    return $r;
}

--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: text/plain; charset=US-ASCII



--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: text/plain; type=patch; charset=US-ASCII
Content-Disposition: attachment; filename="thediff.diff"
Content-Transfer-Encoding: 8bit

--- dpkg-source.1	2000/06/27 05:42:50	1.1
+++ dpkg-source.1	2000/06/27 07:34:13
@@ -2,9 +2,9 @@
 .\" Authors: Ian Jackson
 .TH DPKG\-SOURCE 1 "7th August" "Debian Project" "Debian GNU/Linux manual"
 .SH NAME 
-dpkg\-source, dpkg\-gencontrol, dpkg\-shlibdeps, dpkg\-genchanges,
-dpkg\-buildpackage, dpkg\-distaddfile, dpkg\-parsechangelog
-\- Debian source package tools
+dpkg\-source, dpkg\-gencontrol, dpkg\-substvars, dpkg\-shlibdeps,
+dpkg\-genchanges, dpkg\-buildpackage, dpkg\-distaddfile,
+dpkg\-parsechangelog \- Debian source package tools
 .SH SYNOPSIS
 .B dpkg-source
 .BI "-x " filename .dsc
@@ -15,6 +15,9 @@
 .B dpkg-gencontrol
 .RI [ options ]
 .br
+.B dpkg-substvars
+.RI [ options ]
+.br
 .B dpkg-shlibdeps
 .IR options
 .br
@@ -39,6 +42,13 @@
 for the binary package to
 .BR debian/files .
 
+.B dpkg-substvars
+parses
+.B debian/substvars
+then reads an input file, performs variable substitution on it, and
+writes the result back out.  See below for a discussion of output
+substitution.
+
 .B dpkg-shlibdeps
 calculates shared library dependencies for executables named in its
 arguments.  The dependencies are added to the substitution
@@ -148,7 +158,7 @@
 .BI -V name = value
 Set an output substitution variable.
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 See below for a discussion of output substitution.
 .TP
 .BI -T substvarsfile
@@ -159,17 +169,17 @@
 the default is
 .BR debian/substvars .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-shlibdeps " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars ", " dpkg-shlibdeps " and " dpkg-genchanges .
 .TP
 .BI -D field = value
 Override or add an output control file field.
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BI -U field
 Remove an output control file field.
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BR -b | -B
 For
@@ -200,14 +210,14 @@
 default is
 .BR debian/control .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BI -l changelogfile
 Specifies the change log file to read information from.  The
 default is
 .BR debian/changelog .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BI -f fileslistfile
 Read or write the list of files to be uploaded here, rather than using
@@ -223,7 +233,7 @@
 the standard format described in the
 .IR "Debian packaging manual" .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .SH DPKG-SOURCE OPTIONS
 When the common options
 .BR -c " and " -l
@@ -409,7 +419,7 @@
 .TP
 .BI -P packagebuilddir
 Tells
-.B dpkg-source
+.B dpkg-gencontrol
 that the package is being built in
 .I packagebuilddir
 instead of
@@ -429,6 +439,27 @@
 if
 .B -P
 was used).
+.SH DPKG-SUBSTVARS OPTIONS
+.B dpkg-substvars
+does not take any non-option arguments.
+.TP
+.BI -i infile
+Read input from
+.IR infile .
+By default, it reads from standard input.
+.TP
+.BI -o outfile
+Write output to
+.IR outfile .
+By default, it writes to standard output, with warnings about
+undefined variables being printed to standard error.
+.TP
+.BI -p package
+Generate information for the binary package
+.IR package .
+If the source control file lists only one binary package then this
+option may be omitted; otherwise it is essential to select which
+binary package's information to generate.
 .SH DPKG-SHLIBDEPS OPTIONS
 .B dpkg-shlibdeps
 interprets non-option arguments as executable names, just as if they'd
@@ -488,7 +519,7 @@
 .RB ( debian/substvars
 by default).
 .SH DPKG-GENCHANGES OPTIONS
-.B dpkg-gencontrol
+.B dpkg-genchanges
 does not take any non-option arguments.
 .TP
 .BI -u uploadfilesdir
@@ -580,8 +611,7 @@
 .TP
 .B -i[<regexp>]
 Passed unchanged to
-.B dpkg-source
-.TP
+.BR dpkg-source .
 .SH DPKG-DISTADDFILE ARGUMENTS
 .B dpkg-distaddfile
 does not take any non-common options.  It takes three non-option
@@ -601,28 +631,77 @@
 does not take any non-common options or non-option arguments.
 .SH VARIABLE SUBSTITUTION
 Before
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges
 write their control information (to the source control file
 .B .dsc
 for
 .B dpkg-source
 and to standard output for
-.BR dpkg-gencontrol " and " dpkg-genchanges )
+.BR dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges )
 they perform some variable substitutions on the output file.
 
 A variable substitution has the form
 .BI ${ variable-name }\fR.
-Variable names consist of alphanumerics, hyphens and colons and start
-with an alphanumeric.  Variable substitutions are performed repeatedly
-until none are left; the full text of the field after the substitution
-is rescanned to look for more substitutions.
+Variable names consist of alphanumerics, underscores, hyphens and
+colons, and start with an alphanumeric.  Variable substitutions are
+performed repeatedly until none are left; the full text of the field
+after the substitution is rescanned to look for more substitutions.
+
+The
+.B Package
+field of
+.B debian/control
+is also transformed, so it is possible, for example, to add a major
+version number to the name of a package, by saying something like:
+.B Package: foo${FOO_MAJOR_VERSION}
+in
+.BR debian/control ,
+and then, in
+.BR debian/substvars ", define " FOO_MAJOR_VERSION=3 .
+When you do this, use the
+.B -p
+switch, like
+.BI -p foo3\fR,
+perhaps by using a macro expansion from a makefile to fill in the
+variable part (the 3 in this example) of the \fB-p\fR option's
+argument.
+
+For the most part, the syntax of the
+.B debian/substvars
+file is compatible with GNU Make, so you can use the
+.B include
+instruction in your
+.B debian/rules
+to bring in the
+.B debian/substvars
+values if you like.  Note that
+.B dpkg-shlibdeps
+will generate entries that are \fBnot\fR compatible with Make.  A good
+workaround is to include a substvars file by a different name, then
+use it as a base for the actual \fBdebian/substvars\fR (which you
+generate) to be used by the \fBdpkg-*\fR scripts.  That is a good time
+to add values to the \fBdebian/substvars\fR that have been computed by
+your \fBdebian/rules\fR.
+
+If
+.B dpkg-substvars
+is given the
+.B -@
+switch, a variable substitution will have the form
+.BI @ variable-name @
+so that substitutions can be made in shell scripts or makefiles
+without disturbing normal shell or make variables in them.  The
+.B debian/substvars
+file maintains the same syntax as before though, with dollar signs and
+curly braces, not `at' signs.
 
-After all the substitutions have been done each occurence of the
+For all of these utilities except for
+.BR dpkg-substvars ,
+after all the substitutions have been done, each occurence of the
 string
 .B ${}
-(which is not a legal substitution) is replaced with a
-.B $
-sign.
+is replaced with
+.BR $ .
 
 Variables can be set using the
 .B -V
@@ -653,7 +732,8 @@
 .B dpkg-gencontrol
 will use
 .B du -k debian/tmp
-to find the default value.
+to find the default value.  This variable is \fBnot\fR defined by
+.BR dpkg-substvars .
 .TP
 .B Extra-Size
 Additional disk space used when the package is installed.  If this
@@ -662,7 +742,8 @@
 variable (whether set explicitly or using the default value) before it
 is copied into the
 .B Installed-Size
-control file field.
+control file field.  This variable is not defined for
+.BR dpkg-substvars .
 .TP
 .BI F: fieldname
 The value of the output field
--- controllib.pl	2000/06/25 10:16:25	1.1
+++ controllib.pl	2000/06/25 21:45:40
@@ -76,11 +76,56 @@
     $substvar{'Arch'}= $arch;
 }
 
+sub parsevarlistfile {
+    if (length($varlistfile)) {
+        $varlistfile="./$varlistfile" if $varlistfile =~ m/\s/;
+        if (open(SV,"< $varlistfile")) {
+            while (<SV>) {
+                next if m/^\#/ || !m/\S/;
+                s/\s*\n$//;
+                m/^(\w[-_:0-9A-Za-z]*)\=/ ||
+                    &error("bad line in substvars file $varlistfile at line $.");
+                $substvar{$1}= $';
+            }
+            close(SV);
+        } elsif ($! != ENOENT ) {
+            &error("unable to open substvars file $varlistfile: $!");
+        }
+    }
+}
+
+# This must be done when -@ is given otherwise if, for instance,
+# substvars contains:
+#  BLAH=a
+#  FOO=b
+#  VAR=${BLAH}.${FOO}
+# ... a maint script contains:
+#  @VAR@
+# ... and it would expand to:
+#  ${BLAH}.${FOO}
+# ... rather than to
+#  a.b
+# ... without calling &expandsubstvars; first.
+# See: dpkg-substvars for an example of where this is used.
+sub expandsubstvars {
+    for $f (keys %f) { $substvar{"F:$f"}= $f{$f}; }
+    for $sv (keys %substvar) {
+      $substvar{$sv} = &substvars($substvar{$sv});
+    }
+}
+
 sub substvars {
-    my ($v) = @_;
-    my ($lhs,$vn,$rhs,$count);
+    my ($v,$at) = @_;
+    my ($lhs,$vn,$rhs,$count,$re);
     $count=0;
-    while ($v =~ m/\$\{([-:0-9a-z]+)\}/i) {
+    $re = "([-_:0-9a-z]+)";
+    if ($at) {
+      $re = '\@'.$re.'\@';
+    }
+    else {
+      $re = '\$\{'.$re.'\}';
+    }
+    while ($v =~ m/$re/i) {
         $count < $maxsubsts ||
             &error("too many substitutions - recursive ? - in \`$v'");
         $lhs=$`; $vn=$1; $rhs=$';
@@ -97,22 +142,7 @@
 
 sub outputclose {
     my ($dosubstvars) = @_;
-    for $f (keys %f) { $substvar{"F:$f"}= $f{$f}; }
-    if (length($varlistfile) and $dosubstvars) {
-        $varlistfile="./$varlistfile" if $varlistfile =~ m/\s/;
-        if (open(SV,"< $varlistfile")) {
-            while (<SV>) {
-                next if m/^\#/ || !m/\S/;
-                s/\s*\n$//;
-                m/^(\w[-:0-9A-Za-z]*)\=/ ||
-                    &error("bad line in substvars file $varlistfile at line $.");
-                $substvar{$1}= $';
-            }
-            close(SV);
-        } elsif ($! != ENOENT ) {
-            &error("unable to open substvars file $varlistfile: $!");
-        }
-    }
+    &parsevarlistfile if $dosubstvars;
     for $f (sort { $fieldimps{$b} <=> $fieldimps{$a} } keys %f) {
         $v= $f{$f};
         if ($dosubstvars) {
8$1; $v=$2;
             $cf= &capit($cf);
             $fi{"$source$index $cf"}= $v;
-            if (lc $cf eq 'package') { $p2i{"$source $v"}= $index; }
+            if (lc $cf eq 'package') {
+	      $v = &substvars($v);
+	      $p2i{"$source $v"}= $index;
+	    }
         } elsif (m/^\s+\S/) {
             length($cf) || &syntax("continued value line not in field");
             $fi{"$source$index $cf"}.= "\n$_";
--- dpkg-genchanges.pl	2000/06/25 10:27:18	1.1
+++ dpkg-genchanges.pl	2000/06/25 10:51:21
@@ -97,6 +97,7 @@
 
 &findarch;
 &parsechangelog;
+&parsevarlistfile;
 &parsecontrolfile;
 
 $fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
8('general section of control info file'); }
     } elsif (s/^C(\d+) //) {
 #print STDERR "P key >$_< value >$v<\n";
-	$i=$1; $p=$fi{"C$i Package"}; $a=$fi{"C$i Architecture"};
+	$i=$1; $p=&substvars($fi{"C$i Package"}); $a=$fi{"C$i Architecture"};
 	if (!defined($p2f{$p})) {
 	    if ($a eq 'any' || ($a eq 'all' && !$archspecific) ||
 		grep($_ eq $substvar{'Arch'}, split(/\s+/, $a))) {
--- dpkg-gencontrol.pl	2000/06/25 10:19:07	1.1
+++ dpkg-gencontrol.pl	2000/06/25 10:26:54
@@ -91,8 +91,9 @@
 
 &findarch;
 &parsechangelog;
+&parsevarlistfile;
 &parsecontrolfile;
-            
+
 if (length($oppackage)) {
     defined($p2i{"C $oppackage"}) || &error("package $oppackage not in control info");
     $myindex= $p2i{"C $oppackage"};
@@ -101,6 +102,7 @@
     @packages==1 ||
         &error("must specify package since control info has many (@packages)");
     $myindex=1;
+    $oppackage= &substvars($f{'Package'});
 }
 
 #print STDERR "myindex $myindex\n";
@@ -117,7 +119,9 @@
         else { &unknown('general section of control info file'); }
     } elsif (s/^C$myindex //) {
 #print STDERR "P key >$_< value >$v<\n";
-        if (m/^(Package|Description|Essential|Pre-Depends|Depends)$/ ||
+      if (m/^Package$/) {
+	$f{&substvars($_)}= $v;
+      } elsif (m/^(Description|Essential|Pre-Depends|Depends)$/ ||
             m/^(Recommends|Suggests|Enhances|Optional|Conflicts|Provides|Replaces)$/) {
             $f{$_}= $v;
         } elsif (m/^Section$|^Priority$/) {
@@ -161,6 +165,8 @@
 
 $f{'Version'}= $forceversion if length($forceversion);
 
+for $f (keys %f) { $substvar{"F:$f"}= $f{$f}; }
+
 for $f (qw(Section Priority)) {
     $spvalue{$f}= $spdefault{$f} unless length($spvalue{$f});
     $f{$f}= $spvalue{$f} if $spinclude{$f} && length($spvalue{$f});
8ainer Description Architecture)) {
     defined($f{$f}) || &warn("missing information for output field $f");
 }
-$oppackage= $f{'Package'};
 
 $verdiff= $f{'Version'} ne $sourceversion;
 if ($oppackage ne $sourcepackage || $verdiff) {
--- dpkg-source.pl	2000/06/25 10:33:13	1.1
+++ dpkg-source.pl	2000/06/25 10:37:13
@@ -115,6 +115,7 @@
     $controlfile= "$dir/debian/control" unless defined($controlfile);
     
     &parsechangelog;
+    &parsevarlistfile;
     &parsecontrolfile;
     $f{"Format"}=$dscformat;
 

--Multipart_Tue_Jun_27_01:11:38_2000-1--




<strong>Acknowledgement sent</strong> to <code>karlheg@debian.org (Karl M. Hegbloom)</code>:<br>
New Bug report received and forwarded.  Copy sent to <code>Wichert Akkerman &lt;wakkerma@debian.org&gt;</code>.


-t

From: owner@bugs.debian.org (Debian Bug Tracking System)
To: karlheg@debian.org (Karl M. Hegbloom)
Subject: Bug#66336: Acknowledgement ([patch] add `dpkg-substvars', make `dpkg-gencontrol' perform substvars on Package field.)
Message-ID: <handler.66336.B.96209350011191.ack@bugs.debian.org>
In-Reply-To: <87sntz1ydt.fsf@bittersweet.intra>
References: <87sntz1ydt.fsf@bittersweet.intra>
X-Debian-PR-Message: ack 66336

Thank you for the problem report you have sent regarding Debian.
This is an automatically generated reply, to let you know your message has
been received.  It is being forwarded to the developers mailing list for
their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 Wichert Akkerman <wakkerma@debian.org>

If you wish to submit further information on your problem, please send
it to 66336@bugs.debian.org (and *not* to
bugs@bugs.debian.org).

Please do not reply to the address at the top of this message,
unless you wish to report a problem with the Bug-tracking system.

Darren Benham
(administrator, Debian Bugs database)



Received: (at submit) by bugs.debian.org; 27 Jun 2000 08:11:40 +0000
From karlheg@bittersweet.inetarena.com Tue Jun 27 03:11:40 2000
Return-path: <karlheg@bittersweet.inetarena.com>
Received: from bittersweet.inetarena.com [209.102.107.172] 
	by master.debian.org with esmtp (Exim 3.12 2 (Debian))
	id 136qT5-0002uL-00; Tue, 27 Jun 2000 03:11:39 -0500
Received: by bittersweet.inetarena.com (Postfix, from userid 1000)
	id A62B622AF13; Tue, 27 Jun 2000 01:11:38 -0700 (PDT)
Sender: karlheg@bittersweet.intra
To: submit@bugs.debian.org
Subject: [patch] add `dpkg-substvars', make `dpkg-gencontrol' perform substvars on Package field.
From: karlheg@debian.org (Karl M. Hegbloom)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\\R>qDt(t8w!-i{(y0\"`jFw^uk8inzO9wXabd'CdjUWfC\\GHi:6nO*YC89#-qD>Q4r%9!V\"<RYJ=7D#$\";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D\n
Date: 26 Jun 2000 22:33:34 -0700
Message-ID: <87sntz1ydt.fsf@bittersweet.intra>
Mime-Version: 1.0 (generated by tm-edit 1.5)
Content-Type: multipart/mixed;
 boundary="Multipart_Tue_Jun_27_01:11:38_2000-1"
Content-Transfer-Encoding: 7bit
Lines: 713
Delivered-To: submit@bugs.debian.org

--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: text/plain; charset=US-ASCII

Package: dpkg
Version: 1.6.13
Severity: wishlist

 The following script and patch should be applied while standing in
 the "scripts" subdirectory of the `dpkg' sources.

 This allows `control' to contain a variable expansion in the
 "Package:" field, like "Package: guile${GUILE_SHORTVERSION}", where
 GUILE_SHORTVERSION is defined in a substvars file.  I have updated
 the manual also, this behaviour and how to use it some are explained
 there.

 For my version of the `guile' packages, what I'm doing is using the
 upstream "GUILE-VERSION" includer from "debian/rules", with GNU
 Make's "include" instruction, and then also using it as the base for
 a substvars file.  When I (or debhelper) call any of the `dpkg-*'
 scripts that needs to know what package to act on (via the -p<pkg>
 option), the real name of the package is given, by way of a Make
 macro expansion that amounts to the same expansion the substvars on
 the "Package:" field will do, so they match:

  foopkg = foo${FOO_SHORTVERSION}

  sometarget:
	dh_dosomething --package=${foopkg}

  ${foopkg}.postinst: foo.postinst.in
	dpkg-substvars -p${foopkg} < $< > $@

 This avoids hard-coding package names like "guile1.4", or "libguile9"
 in "debian/control", thus improving maintainability.  There are other
 Debian packages out there that could benefit from this backwards
 compatible (afaict) modification.  Please see the "debian/rules" from
 my version of the Guile "debian/*" scripts for a more complex
 example, if you've time and curiosity.

 Included is `dpkg-substvars', which reads stdin, performs variable
 substitutions, and writes to stdout.  It is derived directly from
 `dpkg-gencontrol'.  You can give it the `-@' option to have it
 replace variables enclosed in "@varname@", rather than the usual
 "${varname}", so that it can work on shell scripts and makefile
 includers.

 It is very useful for generating maintainer scripts that have version
 numbers, etc. inside of them, yet again, avoiding a possibly missed
 edit on upstream version upgrade, and thus improving package
 maintainability.

 My version of the Guile debian/* scripts may be viewed via

 <URL:http://bittersweet.inetarena.com/cgi-bin/viewcvs.cgi/guile-core/debian>

 ... if you are curious.  I plan to share them with the real Guile
 package maintainer, but cannot do so until after the attached changes
 are part of the distributed `dpkg'.



--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="dpkg-substvars"
Content-Transfer-Encoding: 8bit

#! /usr/bin/perl

$dpkglibdir="/usr/lib/dpkg";
$version="1.0.0"; # This line modified by Makefile

$controlfile= 'debian/control';
$changelogfile= 'debian/changelog';
$fileslistfile= 'debian/files';
$varlistfile= 'debian/substvars';

$at = 0;
$infile  = '&STDIN';
$outfile = '&STDOUT';

use POSIX;
use POSIX qw(:errno_h);

push(@INC,$dpkglibdir);
require 'controllib.pl';

sub usageversion {
    print STDERR
"Debian GNU/Linux dpkg-substvars $version.
Copyright (C) 2000 Karl M. Hegbloom.
This is free software; see the GNU General Public Licence version 2 or
later for copying conditions.  There is NO warranty.

Usage: dpkg-substvars [options ...]

 infile defaults to STDIN, outfile defaults to STDOUT.

Options:  -i<infile>             take input from infile
          -o<outfile>            write output to outfile
          -\@                     subst \@VAR\@ rather than \${VAR}
          -p<package>            use control file data for package
          -c<controlfile>        get control info from this file
          -l<changelogfile>      get per-version info from this file
          -F<changelogformat>    force change log format
          -v<forceversion>       set version of binary package
          -D<field>=<value>      override or add a field and value
          -U<field>              remove a field
          -V<name>=<value>       set a substitution variable
          -T<varlistfile>        read variables here, not debian/substvars
          -h                     print this message
";
}

$i=100;grep($fieldimps{$_}=$i--,
          qw(Package Version Section Priority Architecture Essential
             Pre-Depends Depends Recommends Suggests Enhances Optional 
	     Conflicts Replaces Provides Installed-Size Maintainer Source
	     Description Build-Depends Build-Depends-Indep Build-Conflicts
	     Build-Conflicts-Indep Source));

while (@ARGV) {
  $_=shift(@ARGV);
  if (m/^-p([-+0-9a-z.]+)$/) {
    $oppackage= $1;
  } elsif (m/^-c/) {
    $controlfile= $';
  } elsif (m/^-l/) {
    $changelogfile= $';
  } elsif (m/^-v(.+)$/) {
    $forceversion= $1;
  } elsif (m/^-F([0-9a-z]+)$/) {
    $changelogformat=$1;
  } elsif (m/^-D([^\=:]+)[=:]/) {
    $override{$1}= $';
  } elsif (m/^-U([^\=:]+)$/) {
    $remove{$1}= 1;
  } elsif (m/^-V(\w[-:0-9A-Za-z]*)[=:]/) {
    $substvar{$1}= $';
  } elsif (m/^-T/) {
    $varlistfile= $';
  } elsif (m/^-i/) {
    $infile= $';
  } elsif (m/^-o/) {
    $outfile= $';
  } elsif (m/^-\@/) {
    $at=1;
  } elsif (m/^-h$/) {
    &usageversion; exit(0);
  } elsif (m/^-/) {
    &usageerr("unknown option \`$_'");
  }
}

&findarch;
&parsechangelog;
&parsevarlistfile;
&parsecontrolfile;
&expandsubstvars;

if (length($oppackage)) {
    defined($p2i{"C $oppackage"}) || &error("package $oppackage not in control info");
    $myindex= $p2i{"C $oppackage"};
} else {
    @packages= grep(m/^C /,keys %p2i);
    @packages==1 ||
        &error("must specify package since control info has many (@packages)");
    $myindex=1;
    $oppackage= &substvars($f{'Package'});
}

#print STDERR "myindex $myindex\n";

for $_ (keys %fi) {
    $v= $fi{$_};
    if (s/^C //) {
#print STDERR "G key >$_< value >$v<\n";
        if (m/^Maintainer$/) { $f{$_}=$v; }
        elsif (m/^Source$/) { &setsourcepackage; }
        elsif (s/^X[CS]*B[CS]*-//i) { $f{$_}= $v; }
	elsif (m/^X[CS]+-|^Standards-Version$|^Build-(Depends|Conflicts)(-Indep)?$/i) { }
	elsif (m/^Section$|^Priority$/) { $spdefault{$_}= $v; }
        else { &unknown('general section of control info file'); }
    } elsif (s/^C$myindex //) {
#print STDERR "P key >$_< value >$v<\n";
      if (m/^Package$/) {
	$f{&substvars($_)}= $v;
      } elsif (m/^(Description|Essential|Pre-Depends|Depends)$/ ||
            m/^(Recommends|Suggests|Enhances|Optional|Conflicts|Provides|Replaces)$/) {
            $f{$_}= $v;
        } elsif (m/^Section$|^Priority$/) {
            $spvalue{$_}= $v;
        } elsif (m/^Architecture$/) {
            if ($v eq 'all') {
                $f{$_}= $v;
            } elsif ($v eq 'any') {
                $f{$_}= $arch;
            } else {
                @archlist= split(/\s+/,$v);
                grep($arch eq $_, @archlist) ||
                    &error("current build architecture $arch does not".
                           " appear in package's list (@archlist)");
                $f{$_}= $arch;
            }
        } elsif (s/^X[CS]*B[CS]*-//i) {
            $f{$_}= $v;
        } elsif (!m/^X[CS]+-/i) {
            &unknown("package's section of control info file");
        }
    } elsif (m/^C\d+ /) {
#print STDERR "X key >$_< value not shown<\n";
    } elsif (s/^L //) {
#print STDERR "L key >$_< value >$v<\n";
        if (m/^Source$/) {
            &setsourcepackage;
        } elsif (m/^Version$/) {
            $sourceversion= $v;
            $f{$_}= $v unless length($forceversion);
        } elsif (m/^(Maintainer|Changes|Urgency|Distribution|Date|Closes)$/) {
        } elsif (s/^X[CS]*B[CS]*-//i) {
            $f{$_}= $v;
        } elsif (!m/^X[CS]+-/i) {
            &unknown("parsed version of changelog");
        }
    } else {
        &internerr("value from nowhere, with key >$_< and value >$v<");
    }
}

$f{'Version'}= $forceversion if length($forceversion);

for $f (qw(Section Priority)) {
    $spvalue{$f}= $spdefault{$f} unless length($spvalue{$f});
    $f{$f}= $spvalue{$f} if $spinclude{$f} && length($spvalue{$f});
}

for $f (qw(Package Version)) {
    defined($f{$f}) || &error("missing information for output field $f");
}
for $f (qw(Maintainer Description Architecture)) {
    defined($f{$f}) || &warn("missing information for output field $f");
}

$verdiff= $f{'Version'} ne $sourceversion;
if ($oppackage ne $sourcepackage || $verdiff) {
    $f{'Source'}= $sourcepackage;
    $f{'Source'}.= " ($sourceversion)" if $verdiff;
}

$sversion=$f{'Version'};
$sversion =~ s/^\d+://;

for $f (keys %override) { $f{&capit($f)}= $override{$f}; }
for $f (keys %remove) { delete $f{&capit($f)}; }

open (IN,  "<$infile")  or die "Cannot open $infile for input";
open (OUT, ">$outfile") or die "Cannot open $outfile for output";

while (<IN>) {
  print OUT &substvars($_,$at);
}
exit (0);

sub spfileslistvalue {
    $r= $spvalue{$_[0]};
    $r= '-' if !length($r);
    return $r;
}

--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: text/plain; charset=US-ASCII



--Multipart_Tue_Jun_27_01:11:38_2000-1
Content-Type: text/plain; type=patch; charset=US-ASCII
Content-Disposition: attachment; filename="thediff.diff"
Content-Transfer-Encoding: 8bit

--- dpkg-source.1	2000/06/27 05:42:50	1.1
+++ dpkg-source.1	2000/06/27 07:34:13
@@ -2,9 +2,9 @@
 .\" Authors: Ian Jackson
 .TH DPKG\-SOURCE 1 "7th August" "Debian Project" "Debian GNU/Linux manual"
 .SH NAME 
-dpkg\-source, dpkg\-gencontrol, dpkg\-shlibdeps, dpkg\-genchanges,
-dpkg\-buildpackage, dpkg\-distaddfile, dpkg\-parsechangelog
-\- Debian source package tools
+dpkg\-source, dpkg\-gencontrol, dpkg\-substvars, dpkg\-shlibdeps,
+dpkg\-genchanges, dpkg\-buildpackage, dpkg\-distaddfile,
+dpkg\-parsechangelog \- Debian source package tools
 .SH SYNOPSIS
 .B dpkg-source
 .BI "-x " filename .dsc
@@ -15,6 +15,9 @@
 .B dpkg-gencontrol
 .RI [ options ]
 .br
+.B dpkg-substvars
+.RI [ options ]
+.br
 .B dpkg-shlibdeps
 .IR options
 .br
@@ -39,6 +42,13 @@
 for the binary package to
 .BR debian/files .
 
+.B dpkg-substvars
+parses
+.B debian/substvars
+then reads an input file, performs variable substitution on it, and
+writes the result back out.  See below for a discussion of output
+substitution.
+
 .B dpkg-shlibdeps
 calculates shared library dependencies for executables named in its
 arguments.  The dependencies are added to the substitution
@@ -148,7 +158,7 @@
 .BI -V name = value
 Set an output substitution variable.
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 See below for a discussion of output substitution.
 .TP
 .BI -T substvarsfile
@@ -159,17 +169,17 @@
 the default is
 .BR debian/substvars .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-shlibdeps " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars ", " dpkg-shlibdeps " and " dpkg-genchanges .
 .TP
 .BI -D field = value
 Override or add an output control file field.
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BI -U field
 Remove an output control file field.
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BR -b | -B
 For
@@ -200,14 +210,14 @@
 default is
 .BR debian/control .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BI -l changelogfile
 Specifies the change log file to read information from.  The
 default is
 .BR debian/changelog .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .TP
 .BI -f fileslistfile
 Read or write the list of files to be uploaded here, rather than using
@@ -223,7 +233,7 @@
 the standard format described in the
 .IR "Debian packaging manual" .
 This option is understood by
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges .
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges .
 .SH DPKG-SOURCE OPTIONS
 When the common options
 .BR -c " and " -l
@@ -409,7 +419,7 @@
 .TP
 .BI -P packagebuilddir
 Tells
-.B dpkg-source
+.B dpkg-gencontrol
 that the package is being built in
 .I packagebuilddir
 instead of
@@ -429,6 +439,27 @@
 if
 .B -P
 was used).
+.SH DPKG-SUBSTVARS OPTIONS
+.B dpkg-substvars
+does not take any non-option arguments.
+.TP
+.BI -i infile
+Read input from
+.IR infile .
+By default, it reads from standard input.
+.TP
+.BI -o outfile
+Write output to
+.IR outfile .
+By default, it writes to standard output, with warnings about
+undefined variables being printed to standard error.
+.TP
+.BI -p package
+Generate information for the binary package
+.IR package .
+If the source control file lists only one binary package then this
+option may be omitted; otherwise it is essential to select which
+binary package's information to generate.
 .SH DPKG-SHLIBDEPS OPTIONS
 .B dpkg-shlibdeps
 interprets non-option arguments as executable names, just as if they'd
@@ -488,7 +519,7 @@
 .RB ( debian/substvars
 by default).
 .SH DPKG-GENCHANGES OPTIONS
-.B dpkg-gencontrol
+.B dpkg-genchanges
 does not take any non-option arguments.
 .TP
 .BI -u uploadfilesdir
@@ -580,8 +611,7 @@
 .TP
 .B -i[<regexp>]
 Passed unchanged to
-.B dpkg-source
-.TP
+.BR dpkg-source .
 .SH DPKG-DISTADDFILE ARGUMENTS
 .B dpkg-distaddfile
 does not take any non-common options.  It takes three non-option
@@ -601,28 +631,77 @@
 does not take any non-common options or non-option arguments.
 .SH VARIABLE SUBSTITUTION
 Before
-.BR dpkg-source ", " dpkg-gencontrol " and " dpkg-genchanges
+.BR dpkg-source ", " dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges
 write their control information (to the source control file
 .B .dsc
 for
 .B dpkg-source
 and to standard output for
-.BR dpkg-gencontrol " and " dpkg-genchanges )
+.BR dpkg-gencontrol ", " dpkg-substvars " and " dpkg-genchanges )
 they perform some variable substitutions on the output file.
 
 A variable substitution has the form
 .BI ${ variable-name }\fR.
-Variable names consist of alphanumerics, hyphens and colons and start
-with an alphanumeric.  Variable substitutions are performed repeatedly
-until none are left; the full text of the field after the substitution
-is rescanned to look for more substitutions.
+Variable names consist of alphanumerics, underscores, hyphens and
+colons, and start with an alphanumeric.  Variable substitutions are
+performed repeatedly until none are left; the full text of the field
+after the substitution is rescanned to look for more substitutions.
+
+The
+.B Package
+field of
+.B debian/control
+is also transformed, so it is possible, for example, to add a major
+version number to the name of a package, by saying something like:
+.B Package: foo${FOO_MAJOR_VERSION}
+in
+.BR debian/control ,
+and then, in
+.BR debian/substvars ", define " FOO_MAJOR_VERSION=3 .
+When you do this, use the
+.B -p
+switch, like
+.BI -p foo3\fR,
+perhaps by using a macro expansion from a makefile to fill in the
+variable part (the 3 in this example) of the \fB-p\fR option's
+argument.
+
+For the most part, the syntax of the
+.B debian/substvars
+file is compatible with GNU Make, so you can use the
+.B include
+instruction in your
+.B debian/rules
+to bring in the
+.B debian/substvars
+values if you like.  Note that
+.B dpkg-shlibdeps
+will generate entries that are \fBnot\fR compatible with Make.  A good
+workaround is to include a substvars file by a different name, then
+use it as a base for the actual \fBdebian/substvars\fR (which you
+generate) to be used by the \fBdpkg-*\fR scripts.  That is a good time
+to add values to the \fBdebian/substvars\fR that have been computed by
+your \fBdebian/rules\fR.
+
+If
+.B dpkg-substvars
+is given the
+.B -@
+switch, a variable substitution will have the form
+.BI @ variable-name @
+so that substitutions can be made in shell scripts or makefiles
+without disturbing normal shell or make variables in them.  The
+.B debian/substvars
+file maintains the same syntax as before though, with dollar signs and
+curly braces, not `at' signs.
 
-After all the substitutions have been done each occurence of the
+For all of these utilities except for
+.BR dpkg-substvars ,
+after all the substitutions have been done, each occurence of the
 string
 .B ${}
-(which is not a legal substitution) is replaced with a
-.B $
-sign.
+is replaced with
+.BR $ .
 
 Variables can be set using the
 .B -V
@@ -653,7 +732,8 @@
 .B dpkg-gencontrol
 will use
 .B du -k debian/tmp
-to find the default value.
+to find the default value.  This variable is \fBnot\fR defined by
+.BR dpkg-substvars .
 .TP
 .B Extra-Size
 Additional disk space used when the package is installed.  If this
@@ -662,7 +742,8 @@
 variable (whether set explicitly or using the default value) before it
 is copied into the
 .B Installed-Size
-control file field.
+control file field.  This variable is not defined for
+.BR dpkg-substvars .
 .TP
 .BI F: fieldname
 The value of the output field
--- controllib.pl	2000/06/25 10:16:25	1.1
+++ controllib.pl	2000/06/25 21:45:40
@@ -76,11 +76,56 @@
     $substvar{'Arch'}= $arch;
 }
 
+sub parsevarlistfile {
+    if (length($varlistfile)) {
+        $varlistfile="./$varlistfile" if $varlistfile =~ m/\s/;
+        if (open(SV,"< $varlistfile")) {
+            while (<SV>) {
+                next if m/^\#/ || !m/\S/;
+                s/\s*\n$//;
+                m/^(\w[-_:0-9A-Za-z]*)\=/ ||
+                    &error("bad line in substvars file $varlistfile at line $.");
+                $substvar{$1}= $';
+            }
+            close(SV);
+        } elsif ($! != ENOENT ) {
+            &error("unable to open substvars file $varlistfile: $!");
+        }
+    }
+}
+
+# This must be done when -@ is given otherwise if, for instance,
+# substvars contains:
+#  BLAH=a
+#  FOO=b
+#  VAR=${BLAH}.${FOO}
+# ... a maint script contains:
+#  @VAR@
+# ... and it would expand to:
+#  ${BLAH}.${FOO}
+# ... rather than to
+#  a.b
+# ... without calling &expandsubstvars; first.
+# See: dpkg-substvars for an example of where this is used.
+sub expandsubstvars {
+    for $f (keys %f) { $substvar{"F:$f"}= $f{$f}; }
+    for $sv (keys %substvar) {
+      $substvar{$sv} = &substvars($substvar{$sv});
+    }
+}
+
 sub substvars {
-    my ($v) = @_;
-    my ($lhs,$vn,$rhs,$count);
+    my ($v,$at) = @_;
+    my ($lhs,$vn,$rhs,$count,$re);
     $count=0;
-    while ($v =~ m/\$\{([-:0-9a-z]+)\}/i) {
+    $re = "([-_:0-9a-z]+)";
+    if ($at) {
+      $re = '\@'.$re.'\@';
+    }
+    else {
+      $re = '\$\{'.$re.'\}';
+    }
+    while ($v =~ m/$re/i) {
         $count < $maxsubsts ||
             &error("too many substitutions - recursive ? - in \`$v'");
         $lhs=$`; $vn=$1; $rhs=$';
@@ -97,22 +142,7 @@
 
 sub outputclose {
     my ($dosubstvars) = @_;
-    for $f (keys %f) { $substvar{"F:$f"}= $f{$f}; }
-    if (length($varlistfile) and $dosubstvars) {
-        $varlistfile="./$varlistfile" if $varlistfile =~ m/\s/;
-        if (open(SV,"< $varlistfile")) {
-            while (<SV>) {
-                next if m/^\#/ || !m/\S/;
-                s/\s*\n$//;
-                m/^(\w[-:0-9A-Za-z]*)\=/ ||
-                    &error("bad line in substvars file $varlistfile at line $.");
-                $substvar{$1}= $';
-            }
-            close(SV);
-        } elsif ($! != ENOENT ) {
-            &error("unable to open substvars file $varlistfile: $!");
-        }
-    }
+    &parsevarlistfile if $dosubstvars;
     for $f (sort { $fieldimps{$b} <=> $fieldimps{$a} } keys %f) {
         $v= $f{$f};
         if ($dosubstvars) {
8$1; $v=$2;
             $cf= &capit($cf);
             $fi{"$source$index $cf"}= $v;
-            if (lc $cf eq 'package') { $p2i{"$source $v"}= $index; }
+            if (lc $cf eq 'package') {
+	      $v = &substvars($v);
+	      $p2i{"$source $v"}= $index;
+	    }
         } elsif (m/^\s+\S/) {
             length($cf) || &syntax("continued value line not in field");
             $fi{"$source$index $cf"}.= "\n$_";
--- dpkg-genchanges.pl	2000/06/25 10:27:18	1.1
+++ dpkg-genchanges.pl	2000/06/25 10:51:21
@@ -97,6 +97,7 @@
 
 &findarch;
 &parsechangelog;
+&parsevarlistfile;
 &parsecontrolfile;
 
 $fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
8('general section of control info file'); }
     } elsif (s/^C(\d+) //) {
 #print STDERR "P key >$_< value >$v<\n";
-	$i=$1; $p=$fi{"C$i Package"}; $a=$fi{"C$i Architecture"};
+	$i=$1; $p=&substvars($fi{"C$i Package"}); $a=$fi{"C$i Architecture"};
 	if (!defined($p2f{$p})) {
 	    if ($a eq 'any' || ($a eq 'all' && !$archspecific) ||
 		grep($_ eq $substvar{'Arch'}, split(/\s+/, $a))) {
--- dpkg-gencontrol.pl	2000/06/25 10:19:07	1.1
+++ dpkg-gencontrol.pl	2000/06/25 10:26:54
@@ -91,8 +91,9 @@
 
 &findarch;
 &parsechangelog;
+&parsevarlistfile;
 &parsecontrolfile;
-            
+
 if (length($oppackage)) {
     defined($p2i{"C $oppackage"}) || &error("package $oppackage not in control info");
     $myindex= $p2i{"C $oppackage"};
@@ -101,6 +102,7 @@
     @packages==1 ||
         &error("must specify package since control info has many (@packages)");
     $myindex=1;
+    $oppackage= &substvars($f{'Package'});
 }
 
 #print STDERR "myindex $myindex\n";
@@ -117,7 +119,9 @@
         else { &unknown('general section of control info file'); }
     } elsif (s/^C$myindex //) {
 #print STDERR "P key >$_< value >$v<\n";
-        if (m/^(Package|Description|Essential|Pre-Depends|Depends)$/ ||
+      if (m/^Package$/) {
+	$f{&substvars($_)}= $v;
+      } elsif (m/^(Description|Essential|Pre-Depends|Depends)$/ ||
             m/^(Recommends|Suggests|Enhances|Optional|Conflicts|Provides|Replaces)$/) {
             $f{$_}= $v;
         } elsif (m/^Section$|^Priority$/) {
@@ -161,6 +165,8 @@
 
 $f{'Version'}= $forceversion if length($forceversion);
 
+for $f (keys %f) { $substvar{"F:$f"}= $f{$f}; }
+
 for $f (qw(Section Priority)) {
     $spvalue{$f}= $spdefault{$f} unless length($spvalue{$f});
     $f{$f}= $spvalue{$f} if $spinclude{$f} && length($spvalue{$f});
8ainer Description Architecture)) {
     defined($f{$f}) || &warn("missing information for output field $f");
 }
-$oppackage= $f{'Package'};
 
 $verdiff= $f{'Version'} ne $sourceversion;
 if ($oppackage ne $sourcepackage || $verdiff) {
--- dpkg-source.pl	2000/06/25 10:33:13	1.1
+++ dpkg-source.pl	2000/06/25 10:37:13
@@ -115,6 +115,7 @@
     $controlfile= "$dir/debian/control" unless defined($controlfile);
     
     &parsechangelog;
+    &parsevarlistfile;
     &parsecontrolfile;
     $f{"Format"}=$dscformat;
 

--Multipart_Tue_Jun_27_01:11:38_2000-1--




<strong>Tags added: patch</strong>
Request was from <code>Adam Heath &lt;adam@doogie.org&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 25 Dec 2000 20:07:30 +0000
From adam@doogie.org Mon Dec 25 14:07:30 2000
Return-path: <adam@doogie.org>
Received: from c304216-a.alntn1.tx.home.com (yakko) [24.4.56.191] (mail)
	by master.debian.org with esmtp (Exim 3.12 1 (Debian))
	id 14Adtw-0006v1-00; Mon, 25 Dec 2000 14:07:20 -0600
Received: from yakko (localhost) [127.0.0.1] (adam)
	by yakko with esmtp (Exim 3.20 1 (Debian))
	id 14Adtr-0000yc-00; Mon, 25 Dec 2000 14:07:15 -0600
Date: Mon, 25 Dec 2000 14:07:15 -0600 (CST)
From: Adam Heath <adam@doogie.org>
X-Sender: adam@yakko
To: control@bugs.debian.org
Subject: do
Message-ID: <Pine.LNX.4.21.0012232245220.8887-100000@yakko>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Delivered-To: control@bugs.debian.org

tag 66336 patch
thanks

----BEGIN GEEK CODE BLOCK----
Version: 3.12
GCS d- s: a-- c+++ UL++++ P+ L++++ !E W+ M o+ K- W--- !O M- !V PS--
PE++ Y+ PGP++ t* 5++ X+ tv b+ D++ G e h*! !r z?
-----END GEEK CODE BLOCK-----
----BEGIN PGP INFO----
Adam Heath <doogie@debian.org>        Finger Print | KeyID
67 01 42 93 CA 37 FB 1E    63 C9 80 1D 08 CF 84 0A | DE656B05 PGP
AD46 C888 F587 F8A3 A6DA  3261 8A2C 7DC2 8BD4 A489 | 8BD4A489 GPG
-----END PGP INFO-----






<strong>Bug reassigned from package `dpkg' to `dpkg-deb'.</strong>
Request was from <code>Wichert Akkerman &lt;wichert@cistron.nl&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 21 Apr 2001 11:43:34 +0000
From wichert@cistron.nl Sat Apr 21 06:43:34 2001
Return-path: <wichert@cistron.nl>
Received: from morsig.xs4all.nl (fog.mors.wiggy.net) [213.84.43.14] 
	by master.debian.org with esmtp (Exim 3.12 1 (Debian))
	id 14qvnZ-0004LU-00; Sat, 21 Apr 2001 06:43:34 -0500
Received: from fog.mors.wiggy.net (IDENT:ucl26ChGZoZdfEQUK89ady5dhS9lC4Mz@localhost [127.0.0.1])
        by localhost (8.12.0.Beta7/8.12.0.Beta7/Debian 8.12.0.Beta7-1) with ESMTP id f3LBcAfI007471
        for <control@bugs.debian.org>; Sat, 21 Apr 2001 13:38:10 +0200
Received: (from wichert@localhost)
        by fog.mors.wiggy.net (8.12.0.Beta7/8.12.0.Beta7/Debian 8.12.0.Beta7-1) id f3LBcAZ8007468
        for control@bugs.debian.org; Sat, 21 Apr 2001 13:38:10 +0200
Date: Sat, 21 Apr 2001 13:38:09 +0200
From: Wichert Akkerman <wichert@cistron.nl>
To: control@bugs.debian.org
Subject: bla
Message-ID: <20010421133809.A7463@cistron.nl>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.3.17i
Delivered-To: control@bugs.debian.org

reassign 66336 dpkg-deb
merge 66336 89697
tag 66336 patch
thanks
-- 
  _________________________________________________________________
 /       Nothing is fool-proof to a sufficiently talented fool     \
| wichert@cistron.nl                  http://www.liacs.nl/~wichert/ |
| 1024D/2FA3BC2D 576E 100B 518D 2F16 36B0  2805 3CB8 9250 2FA3 BC2D |




<strong>Tags added: patch</strong>
Request was from <code>Wichert Akkerman &lt;wichert@cistron.nl&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 21 Apr 2001 11:43:34 +0000
From wichert@cistron.nl Sat Apr 21 06:43:34 2001
Return-path: <wichert@cistron.nl>
Received: from morsig.xs4all.nl (fog.mors.wiggy.net) [213.84.43.14] 
	by master.debian.org with esmtp (Exim 3.12 1 (Debian))
	id 14qvnZ-0004LU-00; Sat, 21 Apr 2001 06:43:34 -0500
Received: from fog.mors.wiggy.net (IDENT:ucl26ChGZoZdfEQUK89ady5dhS9lC4Mz@localhost [127.0.0.1])
        by localhost (8.12.0.Beta7/8.12.0.Beta7/Debian 8.12.0.Beta7-1) with ESMTP id f3LBcAfI007471
        for <control@bugs.debian.org>; Sat, 21 Apr 2001 13:38:10 +0200
Received: (from wichert@localhost)
        by fog.mors.wiggy.net (8.12.0.Beta7/8.12.0.Beta7/Debian 8.12.0.Beta7-1) id f3LBcAZ8007468
        for control@bugs.debian.org; Sat, 21 Apr 2001 13:38:10 +0200
Date: Sat, 21 Apr 2001 13:38:09 +0200
From: Wichert Akkerman <wichert@cistron.nl>
To: control@bugs.debian.org
Subject: bla
Message-ID: <20010421133809.A7463@cistron.nl>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.3.17i
Delivered-To: control@bugs.debian.org

reassign 66336 dpkg-deb
merge 66336 89697
tag 66336 patch
thanks
-- 
  _________________________________________________________________
 /       Nothing is fool-proof to a sufficiently talented fool     \
| wichert@cistron.nl                  http://www.liacs.nl/~wichert/ |
| 1024D/2FA3BC2D 576E 100B 518D 2F16 36B0  2805 3CB8 9250 2FA3 BC2D |




<strong>Bug reassigned from package `dpkg-deb' to `dpkg-dev'.</strong>
Request was from <code>Martin Michlmayr &lt;tbm@cyrius.com&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 21 Apr 2001 12:03:53 +0000
From tbm@cyrius.com Sat Apr 21 07:03:53 2001
Return-path: <tbm@cyrius.com>
Received: from web1.lanscape.net [64.240.156.194] 
	by master.debian.org with esmtp (Exim 3.12 1 (Debian))
	id 14qw7E-0005rU-00; Sat, 21 Apr 2001 07:03:52 -0500
Received: from fisch.cyrius.com (web1.lanscape.net [64.240.156.194])
	by web1.lanscape.net (8.9.3/8.9.3) with ESMTP id HAA04028;
	Sat, 21 Apr 2001 07:03:51 -0500
Received: by fisch.cyrius.com (Postfix, from userid 1000)
	id E8D67229CB; Sat, 21 Apr 2001 13:04:16 +0100 (BST)
Date: Sat, 21 Apr 2001 13:04:16 +0100
From: Martin Michlmayr <tbm@cyrius.com>
To: control@bugs.debian.org
Cc: Wichert Akkerman <wichert@cistron.nl>
Subject: Re: Processed: bla
Message-ID: <20010421130416.A858@fisch.cyrius.com>
References: <20010421133809.A7463@cistron.nl> <handler.s.C.98785341416715.transcript@bugs.debian.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.2.5i
In-Reply-To: <handler.s.C.98785341416715.transcript@bugs.debian.org>; from owner@bugs.debian.org on Sat, Apr 21, 2001 at 06:48:14AM -0500
Delivered-To: control@bugs.debian.org

reassign 66336 dpkg-dev
merge 66336 89697


-- 
Martin Michlmayr
tbm@cyrius.com




<strong>Merged 5210 66336 89697.</strong>
Request was from <code>Martin Michlmayr &lt;tbm@cyrius.com&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 21 Apr 2001 12:03:53 +0000
From tbm@cyrius.com Sat Apr 21 07:03:53 2001
Return-path: <tbm@cyrius.com>
Received: from web1.lanscape.net [64.240.156.194] 
	by master.debian.org with esmtp (Exim 3.12 1 (Debian))
	id 14qw7E-0005rU-00; Sat, 21 Apr 2001 07:03:52 -0500
Received: from fisch.cyrius.com (web1.lanscape.net [64.240.156.194])
	by web1.lanscape.net (8.9.3/8.9.3) with ESMTP id HAA04028;
	Sat, 21 Apr 2001 07:03:51 -0500
Received: by fisch.cyrius.com (Postfix, from userid 1000)
	id E8D67229CB; Sat, 21 Apr 2001 13:04:16 +0100 (BST)
Date: Sat, 21 Apr 2001 13:04:16 +0100
From: Martin Michlmayr <tbm@cyrius.com>
To: control@bugs.debian.org
Cc: Wichert Akkerman <wichert@cistron.nl>
Subject: Re: Processed: bla
Message-ID: <20010421130416.A858@fisch.cyrius.com>
References: <20010421133809.A7463@cistron.nl> <handler.s.C.98785341416715.transcript@bugs.debian.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.2.5i
In-Reply-To: <handler.s.C.98785341416715.transcript@bugs.debian.org>; from owner@bugs.debian.org on Sat, Apr 21, 2001 at 06:48:14AM -0500
Delivered-To: control@bugs.debian.org

reassign 66336 dpkg-dev
merge 66336 89697


-- 
Martin Michlmayr
tbm@cyrius.com




<strong>Merged 5210 66336 89697 154514.</strong>
Request was from <code>Frank Lichtenheld &lt;djpig@debian.org&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 4 Oct 2005 18:15:28 +0000
From frank@lichtenheld.de Tue Oct 04 11:15:28 2005
Return-path: <frank@lichtenheld.de>
Received: from mail.lenk.info [217.160.183.176] 
	by spohr.debian.org with esmtp (Exim 3.36 1 (Debian))
	id 1EMrK3-00043L-00; Tue, 04 Oct 2005 11:15:28 -0700
Received: from smtp.lenk.info ([82.165.24.235] ident=Debian-exim)
	by mail.lenk.info with esmtpsa 
	(Cipher TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.50 1)
	id 1EMrKb-0003Hr-Fl
	for <control@bugs.debian.org>; Tue, 04 Oct 2005 20:16:01 +0200
Received: from p54a3d502.dip.t-dialin.net ([84.163.213.2] helo=feynman.djpig.de)
	by smtp.lenk.info with esmtpsa 
	(Cipher TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.50 1)
	id 1EMrKk-000896-R7
	for <control@bugs.debian.org>; Tue, 04 Oct 2005 20:16:11 +0200
Received: from djpig by feynman.djpig.de with local (Exim 4.52)
	id 1EMrJz-0003Cp-AU
	for control@bugs.debian.org; Tue, 04 Oct 2005 20:15:23 +0200
From: Frank Lichtenheld <djpig@debian.org>
To: control@bugs.debian.org
Subject: merging 5210 154514, merging 5210 150597
Date: Tue,  4 Oct 2005 20:15:23 +0200
X-BTS-Version: 2.9.7
Message-Id: <E1EMrJz-0003Cp-AU@feynman.djpig.de>
Sender: Frank Lichtenheld <frank@lichtenheld.de>
Delivered-To: control@bugs.debian.org
X-Spam-Checker-Version: SpamAssassin 2.60-bugs.debian.org_2005_01_02 
	(1.212-2003-09-23-exp) on spohr.debian.org
X-Spam-Level: 
X-Spam-Status: No, hits=-5.0 required=4.0 tests=BAYES_00,VALID_BTS_CONTROL 
	autolearn=no version=2.60-bugs.debian.org_2005_01_02

# Automatically generated email from bts, devscripts version 2.9.7
 # these are all about substvars in package names
merge 5210 154514
merge 5210 150597





<strong>Merged 5210 66336 89697 150597 154514.</strong>
Request was from <code>Frank Lichtenheld &lt;djpig@debian.org&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 4 Oct 2005 18:15:28 +0000
From frank@lichtenheld.de Tue Oct 04 11:15:28 2005
Return-path: <frank@lichtenheld.de>
Received: from mail.lenk.info [217.160.183.176] 
	by spohr.debian.org with esmtp (Exim 3.36 1 (Debian))
	id 1EMrK3-00043L-00; Tue, 04 Oct 2005 11:15:28 -0700
Received: from smtp.lenk.info ([82.165.24.235] ident=Debian-exim)
	by mail.lenk.info with esmtpsa 
	(Cipher TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.50 1)
	id 1EMrKb-0003Hr-Fl
	for <control@bugs.debian.org>; Tue, 04 Oct 2005 20:16:01 +0200
Received: from p54a3d502.dip.t-dialin.net ([84.163.213.2] helo=feynman.djpig.de)
	by smtp.lenk.info with esmtpsa 
	(Cipher TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.50 1)
	id 1EMrKk-000896-R7
	for <control@bugs.debian.org>; Tue, 04 Oct 2005 20:16:11 +0200
Received: from djpig by feynman.djpig.de with local (Exim 4.52)
	id 1EMrJz-0003Cp-AU
	for control@bugs.debian.org; Tue, 04 Oct 2005 20:15:23 +0200
From: Frank Lichtenheld <djpig@debian.org>
To: control@bugs.debian.org
Subject: merging 5210 154514, merging 5210 150597
Date: Tue,  4 Oct 2005 20:15:23 +0200
X-BTS-Version: 2.9.7
Message-Id: <E1EMrJz-0003Cp-AU@feynman.djpig.de>
Sender: Frank Lichtenheld <frank@lichtenheld.de>
Delivered-To: control@bugs.debian.org
X-Spam-Checker-Version: SpamAssassin 2.60-bugs.debian.org_2005_01_02 
	(1.212-2003-09-23-exp) on spohr.debian.org
X-Spam-Level: 
X-Spam-Status: No, hits=-5.0 required=4.0 tests=BAYES_00,VALID_BTS_CONTROL 
	autolearn=no version=2.60-bugs.debian.org_2005_01_02

# Automatically generated email from bts, devscripts version 2.9.7
 # these are all about substvars in package names
merge 5210 154514
merge 5210 150597





<!-- time:1200523322 -->
<strong>Tags removed: patch</strong>
Request was from <code>Raphael Hertzog &lt;hertzog@debian.org&gt;</code>
to <code>control@bugs.debian.org</code>. 


Received: (at control) by bugs.debian.org; 16 Jan 2008 22:32:18 +0000
From raphael@ouaza.com Wed Jan 16 22:32:18 2008
X-Spam-Checker-Version: SpamAssassin 3.1.4-bugs.debian.org_2005_01_02 
	(2006-07-26) on rietz.debian.org
X-Spam-Level: 
X-Spam-Status: No, score=-7.9 required=4.0 tests=BAYES_00,FROMDEVELOPER,
	MDO_AUTORESP3,MURPHY_DRUGS_REL8,VALID_BTS_CONTROL autolearn=no 
	version=3.1.4-bugs.debian.org_2005_01_02
Return-path: <raphael@ouaza.com>
Received: from arrakeen.ouaza.com ([212.85.152.62])
	by rietz.debian.org with esmtp (Exim 4.63)
	(envelope-from <raphael@ouaza.com>)
	id 1JFGny-0004c4-2K
	for control@bugs.debian.org; Wed, 16 Jan 2008 22:32:18 +0000
Received: from localhost (localhost [127.0.0.1])
	by arrakeen.ouaza.com (Postfix) with ESMTP id 1E13432F11
	for <control@bugs.debian.org>; Wed, 16 Jan 2008 23:32:12 +0100 (CET)
X-Virus-Scanned: Debian amavisd-new at ouaza.com
Received: from arrakeen.ouaza.com ([127.0.0.1])
	by localhost (arrakeen.ouaza.com [127.0.0.1]) (amavisd-new, port 10024)
	with LMTP id LeKWWPa42HVA for <control@bugs.debian.org>;
	Wed, 16 Jan 2008 23:32:11 +0100 (CET)
Received: from soleymieux.ouaza.com (soleymieux.ouaza.com [81.56.130.55])
	by arrakeen.ouaza.com (Postfix) with ESMTP id 78DC832D7B
	for <control@bugs.debian.org>; Wed, 16 Jan 2008 23:32:11 +0100 (CET)
Received: by soleymieux.ouaza.com (Postfix, from userid 1000)
	id C6DBA8F449; Wed, 16 Jan 2008 23:32:04 +0100 (CET)
From: Raphael Hertzog <hertzog@debian.org>
To: control@bugs.debian.org
Subject: tagging 5210
Date: Wed, 16 Jan 2008 23:32:04 +0100
X-BTS-Version: 2.10.13
Message-ID: <1200522724-2836-bts-hertzog@debian.org>
Delivered-To: control@bugs.debian.org

# Automatically generated email from bts, devscripts version 2.10.13
tags 5210 - patch