package SL::Shop;

use strict;

use parent qw(Rose::Object);
use SL::ShopConnector::ALL;
use SL::DB::Part;

use Rose::Object::MakeMethods::Generic (
  'scalar'                => [ qw(config) ],
  'scalar --get_set_init' => [ qw(connector) ],
);

sub updatable_parts {
  my ($self, $last_update) = @_;
  $last_update ||= DateTime->now(); # need exact timestamp, with minutes

  my $parts;
  my $active_shops = SL::DB::Manager::Shop->get_all(query => [ obsolete => 0 ]);
  foreach my $shop ( @{ $active_shops } ) {
    # maybe run as an iterator? does that make sense with with_objects?
    my $update_parts = SL::DB::Manager::ShopPart->get_all(query => [
             and => [
                'active' => 1,
                'shop_id' => $shop->id,
                # shop => '1',
                or => [ 'part.mtime' => { ge => $last_update },
                        'part.itime' => { ge => $last_update },
                        'itime'      => { ge => $last_update },
                        'mtime'      => { ge => $last_update },
                      ],
                    ]
             ],
             with_objects => ['shop', 'part'],
             # multi_many_ok   => 1,
          );
    push( @{ $parts }, @{ $update_parts });
  };
  return $parts;

};

sub check_connectivity {
  my ($self) = @_;
  my $version = $self->connector->get_version;
  return $version;
}

sub init_connector {
  my ($self) = @_;
  # determine the connector from the connector type in the webshop config
  return SL::ShopConnector::ALL->shop_connector_class_by_name($self->config->connector)->new( config => $self->config);

};

1;

__END__

=encoding utf8

=head1 NAME

SL::Shop - Do stuff with WebShop instances

=head1 SYNOPSIS

my $config = SL::DB::Manager::Shop->get_first();
my $shop = SL::Shop->new( config => $config );

From the config we know which Connector class to load, save in $shop->connector
and do stuff from there:

$shop->connector->get_new_orders;

=head1 FUNCTIONS

=over 4

=item C<updatable_parts>

=item C<check_connectivity>

=item C<init_connector>

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

G. Richardson <lt>information@kivitendo-premium.deE<gt>

=cut