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

packages automatically scan when the filename is set

Browse Source
This commit is contained in:
joey
2000-04-21 07:33:07 +00:00
parent aa4c9a8b71
commit 5bb771334d
1 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Alien/Package.pm
View File

@@ -21,7 +21,7 @@ and populate those fields. And they can build the actual package using the
data stored in the fields. data stored in the fields.
A typical use of this object class will be to instantiate an object from A typical use of this object class will be to instantiate an object from
a class derived from this one, such as Alien::Package::Rpm Feed the object a class derived from this one, such as Alien::Package::Rpm. Feed the object
a rpm file, thus populating all of its fields. Then rebless the object into a rpm file, thus populating all of its fields. Then rebless the object into
the destination class, such as Alien::Package::Deb. Finally, ask the object the destination class, such as Alien::Package::Deb. Finally, ask the object
to build a package, and the package has been converted. to build a package, and the package has been converted.
@@ -124,10 +124,6 @@ The prerm script of the package.
Points to a directory where the package has been unpacked. Points to a directory where the package has been unpacked.
=item filename
The filename of the package the object represents.
=back =back
=head1 METHODS =head1 METHODS
@@ -144,7 +140,8 @@ parameters that specify the values of any fields in the class.
sub new { sub new {
my $proto = shift; my $proto = shift;
my $class = ref($proto) || $proto; my $class = ref($proto) || $proto;
my $this=bless ({@_}, $class); my $this=bless ({}, $class);
$this->$_(shift) while $_=shift; # run named parameters as methods
$this->init; $this->init;
return $this; return $this;
} }
@@ -169,17 +166,37 @@ sub install {
my $this=shift; my $this=shift;
} }
=item scan =item filename
This method looks at the actual package file the package represents, and Set/get the filename of the package the object represents.
populates all the fields it can from that package file. The filename field
should already be set before this method is called. When it is set, it performs a scan of the file, populating most other
fields with data from it.
(This is just a stub; child classes should override it to actually do (This is just a stub; child classes should override it to actually do
something.) something.)
=cut =cut
sub filename {
my $this=shift;
# set
if (@_) {
$this->{filename} = shift;
$this->scan;
}
return $this->{filename};
}
=item scan
This method scans the file associated with an object, and populates as many
other fields as it can with data from it.
=cut
sub scan { sub scan {
my $this=shift; my $this=shift;
my $file=$this->filename; my $file=$this->filename;