Slackware::Slackget::Package - This class is the internal representation of a package for slack-get 1.0

Version 1.0.3

This module is used to represent a package for slack-get

    use Slackware::Slackget::Package;

    my $package = Slackware::Slackget::Package->new('package-1.0.0-noarch-1');
    $package->set_value('description',"This is a test of the Slackware::Slackget::Package object");
    $package->fill_object_from_package_name();

This class inheritate from Slackware::Slackget::MD5, so you can use :

	$sgo->installpkg($package) if($package->verify_md5);

Isn't it great ?

The constructor take two parameters : a package name, and an id (the namespace of the package like 'slackware' or 'linuxpackages')

	my $package = new Slackware::Slackget::Package ('aaa_base-10.0.0-noarch-1','slackware');

The constructor automatically call the fill_object_from_package_name() method.

You also can pass some extra arguments like that :

	my $package = new Slackware::Slackget::Package ('aaa_base-10.0.0-noarch-1', 'package-object-version' => '1.0.0');

The constructor return undef if the id is not defined.

This method merge $another_package with $package.

** WARNING ** : $another_package will be destroy in the operation (this is a collateral damage ;-), for some dark preocupation of memory.

** WARNING 2 ** : the merge keep the id from $package, this mean that an inconsistency can be found between the id and the version number.

This method overwrite existing value.

	$package->merge($another_package);

This method return true (1) if the first argument is an "heavy word" and return false (0) otherwise.

	print "heavy word found !\n" if($package->is_heavy_word($request[$i]));

Return a given statistic about the description of the package. Currently available are : dwc (description words count) and hw (heavy words, a list of important words).

Those are for the optimisation of the search speed.

This method take another Slackware::Slackget::Package as argument and compare it's version to the current object.

	if( $package->compare_version( $another_package ) == -1 )
	{
		print $another_package->get_id," is newer than ",$package->get_id ,"\n";
	}

Returned code :

	-1 => $package version is lesser than $another_package's one
	0 => $package version is equal to $another_package's one
	1 => $package version is greater than $another_package's one
	undef => an error occured.

Try to extract the maximum informations from the name of the package. The constructor automatically call this method.

	$package->fill_object_from_package_name();

Extract informations about a package from a string. This string must be a line of the description of a package.

	$package->extract_informations($data);

This method is designe to be called by the Slackware::Slackget::SpecialFiles::PACKAGES class, and automatically call the clean_description() method.

remove the "<package_name>: " string in front of each line of the description. Remove extra tabulation (for identation).

	$package->clean_description();

Try to find some informations in the description. For example, packages from linuxpackages.net contain a line starting by Packager: ..., this method will extract this information and re-set the package-maintener tag.

The supported tags are: package-maintener, info-destination-slackware, info-packager-mail, info-homepage, info-packager-tool, info-packager-tool-version

	$package->grab_info_from_description();

Same as to_xml(), provided for backward compatibility.

return the package as an XML encoded string.

	$xml = $package->to_xml();

Return a string describing the package using the official Slackware text based semantic.

	my $text = $package->to_string();

In this case, $text contains something like that :

	PACKAGE NAME:  test_package-1.0-i486-1.tgz 
	PACKAGE LOCATION:  ./path/to/test_package/
	PACKAGE SIZE (compressed):  677 K
	PACKAGE SIZE (uncompressed):  1250 K
	PACKAGE REQUIRED:  acl >= 2.2.47_1-i486-1,attr >= 2.4.41_1-i486-1,cxxlibs >= 6.0.9-i486-1 | gcc-g++ >= 4.2.3-i486-1,expat >= 2.0.1-i486-1,fontconfig >= 2.4.2-i486-2,freetype >= 2.3.5-i486-1,
	PACKAGE CONFLICTS:  
	PACKAGE SUGGESTS:  
	PACKAGE DESCRIPTION:
	test_package: Test Package
	test_package:
	test_package: Test Package is a package for testing
	test_package: the slack-get API.
	test_package:

WARNING: This method behavior have changed compare to previous versions.

Same as to_html(), provided for backward compatibility.

return the package as an HTML string

	my $html = $package->to_html ;

Note: I have design this method for 2 reasons. First for an easy integration of the search result in a GUI, second for my website search engine. So this HTML may not satisfy you. In this case just generate new HTML from accessors ;-)

Print a part of package information.

	$package->print_restricted_info();

Print all informations found in the package.

	$package->print_full_info();

Same as print_restricted_info, but output in HTML

	$package->fprint_restricted_info();

Same as print_full_info, but output in HTML

	$package->fprint_full_info();

Set the value of a named key to the value passed in argument.

	$package->set_value($key,$value);

Return $value (for integrity check).

Same as set_value(), provided for backward compatibility.

Same as get_value(), provided for backward compatibility.

Return the value of a key :

	$string = $package->get_value($key);

Return the current status of the package object as a Slackware::Slackget::Status object. This object is set by other class, and in most case you don't have to set it by yourself.

	print "The current status for ",$package->name," is ",$package->status()->to_string,"\n";

You also can set the status, by passing a Slackware::Slackget::Status object, to this method.

	$package->status($status_object);

This method return 1 if all goes well and undef else.

Add a dependency to the package. Parameters are :

* the type of dependency between : required, suggested, conflicts * the dependency as a hashref containing the following keys : pkg_name (mandatory), comparison_type and required_version (optional).

	$package->add_dependency('required',{pkg_name => 'gcc', comparison_type => '>=', required_version => '4.2'}) ;

If you want to let a choice between 2 or more dependencies (like between cxxlibs and gcc-g++), use an arrayref which contains as mush hashref as needed :

	$package->add_dependency('required',[{pkg_name => 'gcc-g++', comparison_type => '>=', required_version => '4.2.3'},{pkg_name => 'cxxlibs', comparison_type => '>=', required_version => '6.0.9'}]) ;

set the package ID (normally the package complete name, like aaa_base-10.0.0-noarch-1). In normal use you don't need to use this method

	$package->_setId('aaa_base-10.0.0-noarch-1');

return the package id (full name, like aaa_base-10.0.0-noarch-1).

	$string = $package->get_id();

return the description of the package.

	$string = $package->description();

return the list of files in the package. WARNING: by default this list is not included !

	$string = $package->filelist();

return the name of the package. Ex: for the package aaa_base-10.0.0-noarch-1 name() will return aaa_base

	my $string = $package->name();

return the compressed size of the package

	$number = $package->compressed_size();

return the uncompressed size of the package

	$number = $package->uncompressed_size();

return the location of the installed package.

	$string = $package->location();

return the list of conflicting pakage.

	$string = $package->conflicts();

return the suggested package related to the current package.

	$string = $package->suggested();

return the required packages for installing the current package

	$string = $package->required();

return the architecture the package is compiled for.

	$string = $package->architecture();

return the package version.

	$string = $package->version();

return a list of all fields of the package. This method is suitable for example in GUI for displaying informations on packages.

	foreach my $field ( $package->get_fields_list )
	{
		qt_textbrowser->append( "<b>$field</b> : ".$package->getValue( $field )."<br/>\n" ) ;
	}

DUPUIS Arnaud, <a.dupuis@infinityperl.org>

Please report any bugs or feature requests to bug-Slackware-Slackget@rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Slackware-Slackget. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

You can find documentation for this module with the perldoc command.

    perldoc Slackware::Slackget::Package

You can also look for information at:

* Infinity Perl website

http://www.infinityperl.org/category/slack-get

* slack-get specific website

http://slackget.infinityperl.org

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Slackware-Slackget

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Slackware-Slackget

* CPAN Ratings

http://cpanratings.perl.org/d/Slackware-Slackget

* Search CPAN

http://search.cpan.org/dist/Slackware-Slackget

Thanks to Bertrand Dupuis (yes my brother) for his contribution to the documentation.

Copyright 2005 DUPUIS Arnaud, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.