From 1228b36f062e5d7324162a50eb9cd0052a5cd96c Mon Sep 17 00:00:00 2001
From: Werner Hahn <wh@futureworldsearch.net>
Date: Mon, 25 Sep 2017 11:58:18 +0200
Subject: [PATCH] WebshopApi: SL/Shop.pm

---
 SL/Shop.pm | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100644 SL/Shop.pm

diff --git a/SL/Shop.pm b/SL/Shop.pm
new file mode 100644
index 000000000..22b5667a0
--- /dev/null
+++ b/SL/Shop.pm
@@ -0,0 +1,96 @@
+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
-- 
2.20.1