From bfd43e215412246fda883680e6fe6b17eb059be5 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Fri, 9 Nov 2001 20:02:53 +0000
Subject: [PATCH] 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 | 6 +++++-
 yard/scripts/make_debian                     | 7 +++++--
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/add-ons/yard/make-debian-X11/make_debian-X11 b/add-ons/yard/make-debian-X11/make_debian-X11
index 62acc0b..02b978d 100755
--- a/add-ons/yard/make-debian-X11/make_debian-X11
+++ b/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]; 
diff --git a/yard/scripts/make_debian b/yard/scripts/make_debian
index 89dc2de..5158a73 100755
--- a/yard/scripts/make_debian
+++ b/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];