projekt kivitendo

package SL::ShopConnector::ALL;

use strict;

use SL::ShopConnector::XTCommerce;

use SL::ShopConnector::Shopware;

# use SL::ShopConnector::ideal;

my %shop_connector_by_name = (

  xtcommerce  => 'SL::ShopConnector::XTCommerce',

  shopware    => 'SL::ShopConnector::Shopware',

  ideal       => 'SL::ShopConnector::IDeal',

);

my %shop_connector_by_connector = (

  xtcommerce => 'SL::ShopConnector::XTCommerce',

  shopware   => 'SL::ShopConnector::Shopware',

  ideal      => 'SL::ShopConnector::IDeal',

);

my @shop_connector_order = qw(

  xtcommerce

  shopware

  ideal

);

sub all_enabled_shop_connectors {

  my %disabled = map { $_ => 1 } @{ $::instance_conf->get_disabled_shop_connectors || [] };

  map { $shop_connector_by_name{$_} } grep { !$disabled{$_} } @shop_connector_order;

}

sub all_shop_connectors {

  map { $shop_connector_by_name{$_} } @shop_connector_order;

}

sub shop_connector_class_by_name {

  $shop_connector_by_name{$_[1]};

}

sub shop_connector_class_by_connector {

  $shop_connector_by_connector{$_[1]};

}

1;

package SL::ShopConnector::Base;

use strict;

use parent qw(SL::DB::Object);

use Rose::Object::MakeMethods::Generic (

  scalar => [ qw(config) ],

);

sub get_order { die 'get_order needs to be implemented' }

sub get_new_orders { die 'get_order needs to be implemented' }

sub update_part { die 'update_part needs to be implemented' }

1;

__END__

=encoding utf-8

=head1 NAME

SL::ShopConnectorBase - this is the base class for shop connectors

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 AVAILABLE METHODS

=over 4

=item C<get_order>

=item C<get_orders>

=item C<update_part>

=back

=head1 SEE ALSO

L<SL::ShopConnector::ALL>

=head1 BUGS

None yet. :)

=head1 AUTHOR

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

=cut

package SL::ShopConnector::XTCommerce;

use strict;

use parent qw(SL::ShopConnector::Base);

use LWP::UserAgent;     

use LWP::Authen::Digest;

use Data::Dumper;

use Rose::Object::MakeMethods::Generic (

  'scalar --get_set_init' => [ qw(connector url) ],

);

sub get_order {

  my ($self, $id) = @_;

  my $url = $self->url;

  my $data = $self->connector->get("$url/order/$id");

  my $data_json = $data->content;

  my $import = SL::JSON::decode_json($data_json);

# need to check return here, only return well defined data

  return $import;

  # printf("loading %s:%s\n", $self->config->url, $self->config->port);

};

sub get_new_orders {

  my ($self) = @_;

  my $url = $self->url;

  my $data = $self->connector->get("$url/orders");

  my $data_json = $data->content;

  my $orders = SL::JSON::decode_json($data_json);

# need to check return here, only return well defined data

  return $orders;

  # printf("loading %s:%s\n", $self->config->url, $self->config->port);

};

sub update_part {

  my ($self, $part) = @_;

  my $url = $self->url;

  my $partnumber = $part->partnumber;

  my $data = $self->connector->get("$url/part/$partnumber");

};

sub init_url {

  my ($self) = @_;

  # TODO: validate url and port

  $self->url($self->config->url . ":" . $self->config->port);

};

sub init_connector {

  my ($self) = @_;

  my $ua = LWP::UserAgent->new;          

  $ua->credentials(                      

      $self->url,

      "XT Commerce SOAP 2.0",                

      "user" => "sdfsdfsdfsdfasdfsdf"     

      );                                     

  return $ua;                            

};

1;

__END__

=encoding utf-8

=head1 NAME

SL::ShopConnecter::XTCommerce - connector for XTCommerce with SOAP2.0 plugin

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 BUGS

None yet. :)

=head1 AUTHOR

=cut