bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-03-04 11:53:26 -05:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
can't have comments added, but they are in their own dpkg directory anyways.
This commit is contained in:
freesource 2001-11-09 20:02:53 +00:00
parent 157e8de6e4
commit bfd43e2154
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
add-ons/yard/make-debian-X11/make_debian-X11
View File

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

7
yard/scripts/make_debian
View File

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