-
Want to create a tiny server distro
Hi,
I want to create a very, very small Knoppix distribution. All it needs to have is hardware support (including PCMCIA network devices), DHCP server and Samba server. I'm basically wanting to make a bootable CD that will enable a PC/Laptop to act as a NAS device.
Can anyone suggest how best to go about this? I've been through one of the remastering howtos, but it starts with a full-blown GUI source. What I really want to do is start with a minimal install and add the packages I need.
Thanks in advance for any suggestions!
Iain
-
NOTE: I have not tried this (yet) so I really don't know how well it will work. However, you could try knoppifying a basic debian install-- Fabian has apparenlty done this (http://www.knoppix.net/wiki/Knoppix_From_Scratch).
Finding the Knoppix specific deb packages has, for me, been a problem so I wrote the following perl script to extract the needed deb's from a running Knoppix session.
Good luck.
--greg
Code:
#!/usr/bin/perl -w
########################################################################
=head1 NAME
deb_digger.pl
=head1 SYNOPSIS
B<deb_digger.pl> <wanted package> [base dir]
Where <wanted package> is the package to extract and [base dir] is
the (optional) directory to save the extracted deb file to.
=head1 DESCRIPTION
Attempts to extract and rebuild a usable Debian package using nothing
more than the files/metadata for an installed Debian package.
The motivation for this has to do with wanting to create a custom
Knoppix-from-scratch live CD without having to either pare down an
existing knoppix CD or build up a minimalist derivative such as DSL.
Ideally, I'd like to extract the Knoppix specific packages from a live Knoppix
session ala:
for i in `dpkg-query -W --showformat='${Package}\n' | grep -i knoppix` ;
do
echo "### $i #######################################"
perl deb_digger.pl $i
echo ""
done
and apply the resulting deb files to a vanilla Debian install.
=head1 LIMITATIONS
This will neither slice, dice or make Julianne fries. But wait, if you
act now you won't get a bonus set of ginzu steak knifes or a pocket
fisherman either.
=head1 AUTHOR
gsiems
=head1 HISTORY
2006.02.07 Created.
=cut
########################################################################
use strict;
my $wanted_package = $ARGV[0] || die "Usage: $0 <wanted package> [base dir]\n";
my $base_dir = $ARGV[1] || './dug_up_debs';
my %deb = get_deb_data($wanted_package);
# control file
$deb{control} = get_control_file($wanted_package);
die "No control file found for $wanted_package.\n" unless ($deb{control});
# file list
my @file_list = get_file_list($wanted_package);
die "No list file found for $wanted_package.\n" unless (@file_list);
push @{$deb{list}}, @file_list;
# MD5's
my @md5sums = get_md5sums($wanted_package);
die "No MD5's for $wanted_package.\n" unless (@md5sums);
push @{$deb{md5sums}}, @md5sums;
# What shall we name the deb?
my $deb_dir = "$base_dir/${wanted_package}";
for (qw(version architecture)) {
$deb_dir .= '-' . $deb{$_} if ($deb{$_});
}
`rm -rf ${deb_dir}` if (-d ${deb_dir});
#######################################
# Write/copy/create the control.tar.gz pieces
`mkdir -p ${deb_dir}/DEBIAN`;
# write the control, list, and md5sums files
write_file("${deb_dir}/DEBIAN/control", '644', $deb{control});
write_file("${deb_dir}/DEBIAN/list", '644', @{$deb{list}});
write_file("${deb_dir}/DEBIAN/md5sums", '644', @{$deb{md5sums}});
# copy any other files found in /var/lib/dpkg/info/
foreach (`ls /var/lib/dpkg/info/${wanted_package}.*`) {
chomp;
my $file_name = filename($_);
my $target = "${deb_dir}/DEBIAN/" . (split /\./, $file_name)[-1];
`cp -p ${_} ${target}` unless (-e $target);
}
#######################################
# Write/copy/create the data.tar.gz pieces
foreach my $source (@{$deb{list}}) {
chomp $source;
my (undef, undef, $mode, undef, $uid, $gid) = stat $source;
my $target = "${deb_dir}/${source}";
if (-d $source) {
`mkdir -p $target`;
chmod $mode, $target;
`chown $uid.$gid $target`;
} elsif (-f $source) {
`cp -p $source $target`;
}
}
#######################################
`dpkg-deb --build ${deb_dir}`;
#######################################################################
sub filename {
my $filename = (split /\//, $_[0])[-1];
return $filename;
}
sub read_file {
my ($source) = @_;
open(IN, '<', $source) || die "Could not open $source for input. $!\n";
my @ary = (<IN>);
close IN;
return wantarray() ? @ary : (join '', @ary);
}
sub write_file {
my $target = shift;
my $mode = shift;
open(OUT, '>', $target) or die "Could not open $target for output. $!\n";
print OUT @_;
close OUT;
chmod $mode, $target;
}
sub get_control_file {
my ($wanted_package, $status_file) = @_;
$status_file ||= '/var/lib/dpkg/status';
my $control;
my $raw_data = read_file($status_file);
# ASSERTION: it appears theat the first attribute in the status file
# for any given package is the package name.
foreach my $pkg_control (split /Package:\s+/, $raw_data) {
my ($package) = split /\n/, $pkg_control, 2;
next unless ($package && $package eq $wanted_package);
$control = 'Package: ';
foreach (split /\n/, $pkg_control) {
next if (/^Status:/);
$control .= $_ . "\n";
}
last;
}
return $control;
}
sub get_deb_data {
my ($wanted_package) = @_;
my %deb_data;
my $cmd = q(dpkg-query -W --showformat='${Version}\t${Architecture}');
my $result = (`$cmd ${wanted_package}`)[0];
unless ($result =~ /No packages found/) {
my ($version, $architecture) = split /\t/, $result;
$deb_data{version} = $version || '0.0.0';
$deb_data{architecture} = $architecture || '';
}
return %deb_data;
}
sub get_file_list {
my ($wanted_package, $list_file) = @_;
$list_file ||= "/var/lib/dpkg/info/${wanted_package}.list";
my @list;
if (-f $list_file) {
my @listed = read_file($list_file);
chomp @listed;
foreach (@listed) {
if (-d $_ || -f $_) {
push @list, "$_\n";
} else {
warn "File or directory is missing: $_.\n";
}
}
}
return @list;
}
sub get_md5sums {
my ($wanted_package, $md5_file) = @_;
$md5_file ||= "/var/lib/dpkg/info/${wanted_package}.md5sums";
my @md5sums;
if (-f $md5_file) {
my @md5s = read_file($md5_file);
chomp @md5s;
foreach (@md5s) {
my ($md5, $file) = split /\s+/, $_, 2;
$file = '/' . $file;
if (-f $file) {
my $check = (`md5sum $file`)[0];
my ($md5_check) = split /\s+/, $check;
($md5_check eq $md5) || warn "MD5 for $file does not match.\n";
push @md5sums, $check;
} else {
warn "File $file not found.\n";
}
}
} else {
warn "No MD5 file found for $wanted_package.\n";
}
return @md5sums;
}
__END__
-
Hi,
Thanks for the tip, and the script.
Like you, the problem I'm having is finding the debs! The Knoppix debs aren't available in the location in the default sources.list file (developer.linuxtag.net), and the replacement location (debian-knoppix.alioth.debian.org) doesn't contain any binary packages. Aargh!!!
Your script works fine, but in my release of Knoppix (4.0) the installation of the package knoppix-autoconfig can't be found (although /etc/init.d/knoppix-autoconfig exists). A few others are the same... Without them the knoppify script fails ![Sad](images/smilies/icon_sad.gif)
So... I think I'm a bit stuck until the debs appear.
Cheers,
Iain
-
Now this is unexpected...
Code:
root@1[knoppix]# cat /etc/knoppix-version
4.0.2 2005-09-12
root@1[knoppix]# grep knoppix-autoconfig /var/lib/dpkg/info/*list
/var/lib/dpkg/info/sysvinit.list:/etcinit.d/knoppix-autoconfig
I would have thought that it [knoppix-autoconfig] would have been found in a *knoppix* package.
Hmm...
Code:
root@1[knoppix]# grep -c knoppix /var/lib/dpkg/info/*list | grep -v ':0' | cut -d ':' -f 1 | cut -d '/' -f 6 | sed 's/\.list//'
shows a couple of packages that have something knoppix inside but without "knoppix" in the package name. Perhaps the knoppify script should be used as more of a guide than run as a script.
--greg
-
Hmmm. I had a go at picking through the script. In the end I attacked it from a different angle - start with DSL and add the few components that I need! I've got it 95% working already!
Thanks again,
Iain
Similar Threads
-
By rec9140 in forum Other Live CDs
Replies: 0
Last Post: 09-21-2006, 03:04 AM
-
By counsel in forum Customising & Remastering
Replies: 1
Last Post: 08-17-2005, 07:58 PM
-
By ackelley in forum MS Windows & New to Linux
Replies: 1
Last Post: 04-03-2005, 01:07 AM
-
By edge in forum General Support
Replies: 0
Last Post: 06-11-2004, 06:09 AM
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
![commodore 1541 ii mitsumi disk drive head .tested and working. picture](/store/img/g/nFMAAOSwj8JmhcK8/s-l225/commodore-1541-ii-mitsumi-disk-drive-head-tested-a.jpg)
commodore 1541 ii mitsumi disk drive head .tested and working.
$25.00
![Clean Vintage Retro Commodore 64 Computer C64 8-bit home computer - Powers picture](/store/img/g/DB8AAOSwPMZmg4qP/s-l225/Clean-Vintage-Retro-Commodore-64-Computer-C64-8-bi.jpg)
Clean Vintage Retro Commodore 64 Computer C64 8-bit home computer - Powers
$118.70
![6FT TV AV Audio Video 8Pin DIN 3 RCA Composite Cable For Commodore 64 128 16 +4 picture](/store/img/g/b7IAAOSwc8BmQ03T/s-l225/6FT-TV-AV-Audio-Video-8Pin-DIN-3-RCA-Composite-Cab.jpg)
6FT TV AV Audio Video 8Pin DIN 3 RCA Composite Cable For Commodore 64 128 16 +4
$9.99
![Commodore Amiga 4000 Lot With Disks, Cords, Manuals, Accessories, All Untested picture](/store/img/g/Dg8AAOSw4BlmhACc/s-l225/Commodore-Amiga-4000-Lot-With-Disks-Cords-Manuals-.jpg)
Commodore Amiga 4000 Lot With Disks, Cords, Manuals, Accessories, All Untested
$4500.00
![Vintage Commodore VIC-1525 Graphic Printer Powers On picture](/store/img/g/tL8AAOSwQzpmfhxl/s-l225/Vintage-Commodore-VIC-1525-Graphic-Printer-Powers-.jpg)
Vintage Commodore VIC-1525 Graphic Printer Powers On
$25.00
![Commodore 128 Personal Computer Console Untested picture](/store/img/g/e5wAAOSwGvpmhIi2/s-l225/Commodore-128-Personal-Computer-Console-Untested.jpg)
Commodore 128 Personal Computer Console Untested
$119.99
![Super 1750 Clone REU 512K Ram Expansion Unit for Commodore 64 128 Tested Working picture](/store/img/g/oAoAAOSw0wJmhWaC/s-l225/Super-1750-Clone-REU-512K-Ram-Expansion-Unit-for-C.jpg)
Super 1750 Clone REU 512K Ram Expansion Unit for Commodore 64 128 Tested Working
$250.00
![Data 20 - XL 80 - Commodore 64 C64 100% Complete picture](/store/img/g/7P8AAOSwqT9mhGl5/s-l225/Data-20-XL-80-Commodore-64-C64-100-Complete-.jpg)
Data 20 - XL 80 - Commodore 64 C64 100% Complete
$150.00
![pi1541 Disk Emulator for Commodore - picture](/store/img/g/oBUAAOSwVpRe~PRt/s-l225/pi1541-Disk-Emulator-for-Commodore-Free-shipping.jpg)
pi1541 Disk Emulator for Commodore -
$38.95
![TeensyROM Cartridge for Commodore 64/128: MIDI, Fastload, Emulation, and Network picture](/store/img/g/FJEAAOSw5oBlZeGk/s-l225/TeensyROM-Cartridge-for-Commodore-64-128-MIDI-Fast.jpg)
TeensyROM Cartridge for Commodore 64/128: MIDI, Fastload, Emulation, and Network
$65.00