mirror of
https://github.com/Project-OSS-Revival/alien.git
synced 2026-04-24 14:00:17 +00:00
66 lines
1.6 KiB
Perl
66 lines
1.6 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Package for converting from a tgz file.
|
|
|
|
# Query a tgz file for fields, and return a hash of the fields found.
|
|
# Pass the filename of the tgz file to query.
|
|
sub GetFields { my $file=shift;
|
|
my %fields;
|
|
|
|
# Get basename of the filename.
|
|
my ($basename)=('/'.$file)=~m#^/?.*/(.*?)$#;
|
|
|
|
# Strip out any tar extentions.
|
|
$basename=~s/\.(tgz|tar\.gz)$//;
|
|
|
|
if ($basename=~m/(.*)-(.*)/ ne undef) {
|
|
$fields{NAME}=$1;
|
|
$fields{VERSION}=$2;
|
|
}
|
|
else {
|
|
$fields{NAME}=$basename;
|
|
$fields{VERSION}=1;
|
|
}
|
|
|
|
$fields{ARCH}='i386';
|
|
$fields{SUMMARY}='Converted Slackware tgz package';
|
|
$fields{DESCRIPTION}=$fields{SUMMARY};
|
|
$fields{COPYRIGHT}="unknown";
|
|
$fields{RELEASE}=1;
|
|
$fields{DISTRIBUTION}="Slackware";
|
|
|
|
# Now figure out the conffiles. Assume anything in etc/ is a conffile.
|
|
# It's a little nasty to do it here, but it's much cleaner than waiting
|
|
# until the tar file is unpacked and then doing it.
|
|
$fields{CONFFILES}='';
|
|
open (FILELIST,"tar zvtf $file | grep etc/ |") || Error("Getting filelist: $!");
|
|
while (<FILELIST>) {
|
|
# Make sure it's a normal file. This is looking at the
|
|
# permissions, and making sure the first character is '-'.
|
|
# Ie: -rw-r--r--
|
|
if (m:^-:) {
|
|
# Strip it down to the filename.
|
|
m/^(.*) (.*)$/;
|
|
$fields{CONFFILES}.="/$2\n";
|
|
}
|
|
}
|
|
close FILELIST;
|
|
|
|
# Now get the whole filelist. We have to add leading /'s to the filenames.
|
|
$fields{FILELIST}='';
|
|
open (FILELIST, "tar ztf $file |");
|
|
while (<FILELIST>) {
|
|
$fields{FILELIST}.="/$_";
|
|
}
|
|
close FILELIST;
|
|
|
|
return %fields;
|
|
}
|
|
|
|
# Handles unpacking of tgz's.
|
|
sub Unpack { my ($file)=@_;
|
|
SafeSystem ("(cd ..;cat $file) | tar zxpf -","Error unpacking $file\n");
|
|
}
|
|
|
|
1
|