mirror of
https://github.com/Project-OSS-Revival/alien.git
synced 2026-04-24 14:00:17 +00:00
28 lines
655 B
Perl
28 lines
655 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Package for converting to .tgz file.
|
||
|
|
|
||
|
|
sub Convert { my ($workdir,%fields)=@_;
|
||
|
|
# Nothing to do.
|
||
|
|
}
|
||
|
|
|
||
|
|
# Passed the available info about the package in a hash, return the name of
|
||
|
|
# the tgz package that will be made.
|
||
|
|
sub GetPackageName { my %fields=@_;
|
||
|
|
return "$fields{NAME}.tgz";
|
||
|
|
}
|
||
|
|
|
||
|
|
# Build a tgz file.
|
||
|
|
sub Build { my (%fields)=@_;
|
||
|
|
SafeSystem("tar czf ../".GetPackageName(%fields)." .");
|
||
|
|
}
|
||
|
|
|
||
|
|
# Install the passed tgz file.
|
||
|
|
sub Install { my $package=shift;
|
||
|
|
# Not yet supported. (I really don't like unpacking tgz files into the
|
||
|
|
# root directory. :-)
|
||
|
|
print STDERR "Sorry, installing generated .tgz files in not yet supported.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
1
|