197 lines
4.8 KiB
Plaintext
197 lines
4.8 KiB
Plaintext
|
#!/usr/bin/env perl
|
|||
|
#Framework, welches ein komplettes Linux System aus den Sourcen erstellt
|
|||
|
#dieses Framework wird im CVS Repository
|
|||
|
#:pserver:cvs.compuextreme.de:/Data/cvs zur Verf<72>gung gestellt
|
|||
|
#
|
|||
|
#Lage dieser Datei im Archiv: $HeadURL: svn://svn.compuextreme.de/Viitor/V962/ViitorMake/Scripts/GenInstallcfg $
|
|||
|
#
|
|||
|
#(c) 2003 Harald Kueller, Germany
|
|||
|
#This program is free software; you can redistribute it and/or
|
|||
|
#modify ist under the terms of the GNU General Public License
|
|||
|
#as published by the Free Software Foundation; either version
|
|||
|
#2 of the License, or (at your option) any later version.
|
|||
|
#
|
|||
|
#This program is distributed in the hope that it will be useful,
|
|||
|
#but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|||
|
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|||
|
#See the GNU General Public License for more details.
|
|||
|
#
|
|||
|
#You should have received a copy of the GNU General Public License
|
|||
|
#along with this program; if not write to the Free Software Foundation,
|
|||
|
#Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|||
|
#
|
|||
|
#Script:
|
|||
|
#
|
|||
|
#Letzte <20>nderung von: $Author: kueller $
|
|||
|
#Datum der letzten <20>nderung: $Date: 2010-01-19 12:27:40 +0100 (Di, 19 Jan 2010) $
|
|||
|
#Version der Datei: $Revision: 5134 $
|
|||
|
#
|
|||
|
#
|
|||
|
|
|||
|
use strict;
|
|||
|
use Getopt::Std;
|
|||
|
|
|||
|
my %ArgSwitches;
|
|||
|
my $DistTarget;
|
|||
|
my $CfgFile;
|
|||
|
my $PkgName;
|
|||
|
my @PkgList;
|
|||
|
my @CheckDependics;
|
|||
|
|
|||
|
getopts('d:f:',\%ArgSwitches);
|
|||
|
foreach (sort keys %ArgSwitches) {
|
|||
|
( $_ eq "d" ) && ($DistTarget = $ArgSwitches{$_});
|
|||
|
( $_ eq "f" ) && ($CfgFile = $ArgSwitches{$_});
|
|||
|
}
|
|||
|
|
|||
|
if ( ($ArgSwitches{f}) && ($ArgSwitches{d}) ) {
|
|||
|
my @CfgFile;
|
|||
|
my @Dependics;
|
|||
|
open(CFG,"$CfgFile") or die "Could not open the in file: $!";
|
|||
|
@CfgFile=<CFG>;
|
|||
|
foreach(@CfgFile) {
|
|||
|
chomp($_);
|
|||
|
}
|
|||
|
close CFG;
|
|||
|
open(PKGLIST,"$DistTarget/.pkglist") or die "Could no open pkglist: $!";
|
|||
|
@PkgList = <PKGLIST>;
|
|||
|
close PKGLIST;
|
|||
|
@CheckDependics=@CfgFile;
|
|||
|
foreach ( @CheckDependics ) {
|
|||
|
print STDERR "Generating Dependics for $_\n";
|
|||
|
my @PkgFileInfo = &GetPkgInfoList($_);
|
|||
|
if ( ! @PkgFileInfo ) {
|
|||
|
print STDERR "Error in Config File: Shortname $_ not found!";
|
|||
|
exit 10;
|
|||
|
}
|
|||
|
my $PkgFilePath="$DistTarget/$PkgFileInfo[1]/$PkgFileInfo[0]";
|
|||
|
@Dependics=&GetDependicsList($PkgFilePath);
|
|||
|
foreach ( @Dependics ) {
|
|||
|
my $NotFound;
|
|||
|
|
|||
|
chomp($_);
|
|||
|
$_ =~ s/^WARN\s(.*)$/$1/;
|
|||
|
$_ =~ s/^FORCE\s(.*)$/$1/;
|
|||
|
my $DepName=$_;
|
|||
|
$DepName =~ s/\+/\\+/g;
|
|||
|
$NotFound=0;
|
|||
|
foreach ( @CheckDependics ) {
|
|||
|
if ( /^$DepName$/ ) {
|
|||
|
$NotFound=1;
|
|||
|
last;
|
|||
|
} else {
|
|||
|
$NotFound=0;
|
|||
|
}
|
|||
|
}
|
|||
|
if ( ! $NotFound ) {
|
|||
|
push @CheckDependics,$_;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
open (BASE,"$DistTarget/../install/BaseDevel.cfg") or die "BaseDevel.cfg not found - should be created first! :$!\n";
|
|||
|
my @Cfg = <BASE>;
|
|||
|
close BASE;
|
|||
|
foreach ( @Cfg ) {
|
|||
|
chomp($_);
|
|||
|
my @CfgLine = split /\s/,$_;
|
|||
|
my $NotFound;
|
|||
|
my $DepName = $CfgLine[2];
|
|||
|
$DepName=~ s/\+/\\+/g;
|
|||
|
foreach ( @CheckDependics ) {
|
|||
|
if ( /^$DepName$/ ) {
|
|||
|
$NotFound=1;
|
|||
|
last;
|
|||
|
} else {
|
|||
|
$NotFound=0;
|
|||
|
}
|
|||
|
}
|
|||
|
if ( ! $NotFound ) {
|
|||
|
push @CheckDependics, $DepName;
|
|||
|
}
|
|||
|
}
|
|||
|
open ( ALL,"$DistTarget/../install/All.cfg" ) or die "All.cfg must be created first!: $!\n";
|
|||
|
@Cfg = <ALL>;
|
|||
|
close ALL;
|
|||
|
my @NewCfg;
|
|||
|
foreach ( @Cfg ) {
|
|||
|
chomp($_);
|
|||
|
my @CfgLine = split /\s/,$_;
|
|||
|
my $NotFound;
|
|||
|
my $DepName = $CfgLine[2];
|
|||
|
$DepName =~ s/\+/\\+/g;
|
|||
|
foreach ( @CheckDependics ) {
|
|||
|
if ( /^$DepName$/ ) {
|
|||
|
$NotFound=1;
|
|||
|
last;
|
|||
|
} else {
|
|||
|
$NotFound=0;
|
|||
|
}
|
|||
|
}
|
|||
|
if ( $NotFound ) {
|
|||
|
push @NewCfg, $_;
|
|||
|
}
|
|||
|
}
|
|||
|
foreach ( @NewCfg ) {
|
|||
|
print "$_\n"
|
|||
|
}
|
|||
|
} else {
|
|||
|
&HELP_MESSAGE();
|
|||
|
}
|
|||
|
|
|||
|
sub DeBzip2() {
|
|||
|
open(UNCOMPRESS,"|bzip2 -d -c >/tmp/installpkg_bzip2_$$") or die "Can not start decompress: $!";
|
|||
|
print UNCOMPRESS @_;
|
|||
|
close UNCOMPRESS;
|
|||
|
open(DATA,"/tmp/installpkg_bzip2_$$") or die "Data File after decompression not found: $!";
|
|||
|
my @UnBzip2Data = <DATA>;
|
|||
|
close DATA;
|
|||
|
unlink("/tmp/installpkg_bzip2_$$");
|
|||
|
return @UnBzip2Data;
|
|||
|
}
|
|||
|
|
|||
|
sub GetPkgInfoList() {
|
|||
|
my @PkgFile;
|
|||
|
my $SearchName=$_[0];
|
|||
|
|
|||
|
$SearchName=~s/\+/\\+/g;
|
|||
|
foreach ( @PkgList ) {
|
|||
|
if ( /SN=$SearchName;PF=(.*);PP=(.*)/ ) {
|
|||
|
$PkgFile[0]=$1;
|
|||
|
$PkgFile[1]=$2;
|
|||
|
chomp($PkgFile[1]);
|
|||
|
return @PkgFile;
|
|||
|
}
|
|||
|
}
|
|||
|
return();
|
|||
|
}
|
|||
|
|
|||
|
sub GetDependicsList() {
|
|||
|
my $PkgFile=@_[0];
|
|||
|
my @StartFile;
|
|||
|
|
|||
|
open(ARCH,$PkgFile) or die "Could not open Archive File: $!";
|
|||
|
my $ArchiveInfo=<ARCH>;
|
|||
|
my @FileSizes = split /\s/,$ArchiveInfo;
|
|||
|
unshift(@FileSizes,0);
|
|||
|
$FileSizes[0]=tell(ARCH);
|
|||
|
for ( my $j = 0; $j <= 11; $j++ ) {
|
|||
|
for ( my $i=0; $i <= $j; $i++ ) {
|
|||
|
$StartFile[$j]+=$FileSizes[$i];
|
|||
|
}
|
|||
|
}
|
|||
|
shift @FileSizes;
|
|||
|
if ( $FileSizes[0] > 0 ) {
|
|||
|
read ARCH,my $Dependics, $FileSizes[0];
|
|||
|
close ARCH;
|
|||
|
return(&DeBzip2($Dependics));
|
|||
|
} else {
|
|||
|
close ARCH;
|
|||
|
return () ;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
sub HELP_MESSAGE() {
|
|||
|
printf("\nGenInstallcfg: Aus den *.in files *.cfg files f<>r make_base_install erzeugen\n");
|
|||
|
printf("usage: ./GenInstallcfg -d <Distributionbinarydir> -f <cfg.in file>\n");
|
|||
|
}
|