This adds $main::Id and generated by $0, diversions, status and available

can't have comments added, but they are in their own dpkg directory anyways.

add-ons/yard/make-debian-X11/make_debian-X11

@@ -254,7 +254,7 @@ return $stuff;
 use strict;
 use File::Basename;
 my $rm = "\$";
-$main::Id = "# \$Id: make_debian-X11,v 1.32 2001/11/07 18:35:06 freesource Exp $rm"; 
+$main::Id = "# \$Id: make_debian-X11,v 1.33 2001/11/07 18:48:15 freesource Exp $rm"; 
 my $sbin = grep(/\/usr\/sbin/,$ENV{'PATH'});
 if ($sbin == 0) {
     $ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'};
@@ -475,6 +475,8 @@ my @sortedrc = map { $_->[1] }
 sort { $a->[0] <=> $b->[0] }
 map { [ (split(/\s/,$_))[0], $_ ] }
 @file_rc;
+print MY_FILERC "$main::Id\n";
+print MY_FILERC "# GENERATED BY MAKE_DEBIAN-X11\n\n";
 print MY_FILERC @sortedrc;
 close(MY_FILERC);
 
@@ -656,6 +658,8 @@ sub inetd_out {
     open(REP_INETD,">$home_yard_replacements/etc/inetd.conf_debian-X11") 
 	or return "Couldn't open Replacements/etc/inetd.conf_debian-X11: $!\n";
     open(INETD,"$inetd") or return "Couldn't open /etc/inetd.conf: $!\n";
+    print REP_INETD "$main::Id\n";
+    print REP_INETD "# GENERATED BY MAKE_DEBIAN-X11\n\n";
     while (<INETD>) {
 	if ( (split(/\s+/))[6] && !/^#.*/ ) {
 	     my $seventh_column = (split(/\s+/))[6]; 

yard/scripts/make_debian

@@ -233,8 +233,7 @@ return $stuff;
 
 use strict;
 use File::Basename;
-my $rm = "\$";
-$main::Id = "# \$Id: make_debian,v 1.53 2001/11/07 19:03:55 freesource Exp $rm"; 
+$main::Id = "# \$Id: make_debian,v 1.54 2001/11/07 19:07:44 freesource Exp \$"; 
 my $sbin = grep(/\/usr\/sbin/,$ENV{'PATH'});
 if ($sbin == 0) {
     $ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'};
@@ -449,6 +448,8 @@ my @sortedrc = map { $_->[1] }
 sort { $a->[0] <=> $b->[0] }
 map { [ (split(/\s/,$_))[0], $_ ] }
 @file_rc;
+print MY_FILERC "$main::Id\n";
+print MY_FILERC "# GENERATED BY MAKE_DEBIAN\n\n";
 print MY_FILERC @sortedrc;
 close(MY_FILERC);
 
@@ -621,6 +622,8 @@ sub inetd_out {
     open(REP_INETD,">$home_yard_replacements/etc/inetd.conf") 
 	or return "Couldn't open Replacements/etc/inetd.conf: $!\n";
     open(INETD,"$inetd") or return "Couldn't open /etc/inetd.conf: $!\n";
+    print REP_INETD "$main::Id\n";
+    print REP_INETD "# GENERATED BY MAKE_DEBIAN\n\n";
     while (<INETD>) {
 	if ( (split(/\s+/))[6] && !/^#.*/ ) {
 	     my $seventh_column = (split(/\s+/))[6];