Hi,
Ik heb hier een systeem dat ik graag weer (atm draait er veel op Debian hier) van een Gentoo install zou willen voorzien, om niet té gewend te raken aan Debian
Maar... mijn enige voorgebakken cd'tje met Gentoo is voorzien van den 2007.0 versie en onherstelbaar beschadigd. Voordat ik nu weer een cd moet gaan branden heb ik gekeken naar een installatie met PXE. Een PXE server heb ik al; ik heb er succesvol de Debian installer vanaf geboot
Maar Debian had netboot images.
Bij Gentoo ben ik nog geen netboot images (ik heb alleen de installer nodig die alles van het internet plukt) tegengekomen. Wel ben ik een
guide tegengekomen die een dergelijke set-up beschrijft, maar die gaat ervanuit dat je PXE server ook onder Gentoo draait, terwijl dit hier een Debian machine is. Er moet dan een perl module geïnstalleerd worden waarmee er met een script iets aan een file genaamd 'gentoo' (dat geef je mee als argument) wordt aangepast.
Dit is het script:
Code:
!/usr/bin/perl -w
#
use strict;
use Perl6::Slurp qw(slurp);
my $ifile = slurp($ARGV[0], binmode=> ':raw');
my $newfile;
my $i=1;
my @newfiles = split(/TRAILER!!!/,$ifile);
`mkdir $ARGV[0].dir`;
foreach $newfile (@newfiles)
{
$newfile =~ s/^[\0]*//;
if($newfile){
open F, "> ./$ARGV[0].dir/$i";
$newfile = $newfile . "TRAILER!!!";
for(my $null=22*16+21;$null>0;$null--){
$newfile = $newfile . "\0";
}
print F $newfile;
close F;
print "$i\n";
`cd $ARGV[0].dir; cpio -i -H newc < $i; rm $i; cd ..`;
$i++;
}
}
Maar helaas geeft het script deze error terug:
Code:
vm-server:/# ./script gentoo
vm-server:/# More than one argument to open(,':perlio') at /usr/share/perl5/Perl6/Slurp.pm line 93.
Dat gaat dus niet werken. Weet iemand of en hoe dit simpeler kan?
.
