use Data::Dumper;
use Exporter;
+use Locale::gettext;
use Deb::Versions;
use Packages::CGI;
return $self;
}
-sub gettext { return $_[0]; }
sub split_name_mail {
my $string = shift;
my ( $name, $email );
if ($data{files}) {
my @files = split /\01/so, $data{files};
$self->{src}{files} = \@files;
- print @{$self->{src}{files}};
}
$self->{src}{directory} = $data{directory};
my @uploaders;
return 1;
}
+sub add_provided_by {
+ my ($self, $provided_by) = @_;
+
+ $self->{provided_by} ||= [];
+ push @{$self->{provided_by}}, @$provided_by;
+}
+
+sub is_virtual {
+ my ($self) = @_;
+
+ return (exists($self->{provided_by}) && !exists($self->{versions}));
+}
+
our @TAKE_NEWEST = qw( description essential priority section subsection tag
archive source source-version );
our @STORE_ALL = qw( version source source-version installed-size size
return \%result;
}
-sub get_versions {
- my ($self) = @_;
-
- my %versions;
- foreach (keys %{$self->{versions}}) {
- my $version = $self->{versions}{$_}{version};
- $versions{$version} ||= [];
- push @{$versions{$version}}, $_;
- }
-
- return \%versions;
-}
-
-sub get_version_string {
- my ($self) = @_;
-
- my $versions = $self->get_versions;
- my @versions = version_sort keys %$versions;
- my (@v_str, $v_str, $v_str_arch);
- if ( scalar @versions == 1 ) {
- @v_str = ( [ $versions[0], undef ] );
- $v_str = $versions[0];
- $v_str_arch = $versions[0];
- } else {
- my @v_str_arch;
- foreach ( @versions ) {
- push @v_str, [ $_, $versions->{$_} ];
- push @v_str_arch, "$_ [".join(', ', @{$versions->{$_}})."]";
- }
- $v_str_arch = join( ", ", @v_str_arch );
- $v_str = join( ", ", @versions );
- }
-
- return ($v_str, $v_str_arch, \@v_str);
-}
-
sub get_dep_field {
my ($self, $dep_field) = @_;