mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

renamed a method, plus, building now fully works for deb's

Browse Source
This commit is contained in:
joey
2000-04-21 06:40:08 +00:00
parent eae03ee44d
commit aa4c9a8b71
4 changed files with 47 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Alien/Package/Deb.pm
View File

@@ -52,24 +52,25 @@ sub init {
=item install
Install a deb with dpkg.
Install a deb with dpkg. Pass in the filename of the deb to install.
=cut
sub install {
my $this=shift;
my $deb=shift;
system("dpkg --no-force-overwrite -i ".$this->filename) &&
system("dpkg --no-force-overwrite -i $deb") &&
die "Unable to install: $!";
}
=item read_file
=item scan
Implement the read_file method to read a deb file.
Implement the scan method to read a deb file.
=cut
sub read_file {
sub scan {
my $this=shift;
$this->SUPER::read_file(@_);
my $file=$this->filename;
@@ -196,7 +197,7 @@ file.
sub prep {
my $this=shift;
my $dir=$this->unpacked_tree;
my $dir=$this->unpacked_tree || die "The package must be unpacked first!";
mkdir "$dir/debian", 0755 ||
die "mkdir $dir/debian failed: $!";
@@ -239,7 +240,7 @@ sub prep {
print OUT "Depends: \${shlibs:Depends}\n";
print OUT "Description: ".$this->summary."\n";
print OUT $this->description."\n";
print OUT ".\n"
print OUT ".\n";
print OUT " (Converted from a .".$this->origformat." package by alien.)\n";
close OUT;
@@ -322,6 +323,22 @@ EOF
}
}
=item build
Build a .deb
=cut
sub build {
my $this=shift;
chdir $this->unpacked_tree;
system("debian/rules binary") && die "package build failed: $!";
chdir "..";
return $this->name."_".$this->version."-".$this->release."_".$this->arch.".deb";
}
=item package
Set/get package name.
@@ -498,9 +515,11 @@ sub username {
$username=~s/,.*//g;
# The ultimate fallback.
if (!$username) {
if ($username eq '') {
$username=$login;
}
return $username;
}
=head1 AUTHOR