debugging option

diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm
index 8a68a20..a2fc049 100644 (file)
--- a/FS/FS/part_export/infostreet.pm
+++ b/FS/FS/part_export/infostreet.pm
@@ -1,11 +1,13 @@
 package FS::part_export::infostreet;
 
 package FS::part_export::infostreet;
 

-use vars qw(@ISA %infostreet2cust_main);
+use vars qw(@ISA %infostreet2cust_main $DEBUG);

 use FS::UID qw(dbh);
 use FS::part_export;
 
 @ISA = qw(FS::part_export);
 
 use FS::UID qw(dbh);
 use FS::part_export;
 
 @ISA = qw(FS::part_export);
 

+$DEBUG = 0;
+

 %infostreet2cust_main = (
   'firstName'   => 'first',
   'lastName'    => 'last',
 %infostreet2cust_main = (
   'firstName'   => 'first',
   'lastName'    => 'last',


@@ -151,6 +153,8 @@ sub infostreet_setContact {
 sub infostreet_command { #subroutine, not method
   my($url, $username, $password, $groupID, $method, @args) = @_;
 
 sub infostreet_command { #subroutine, not method
   my($url, $username, $password, $groupID, $method, @args) = @_;
 

+  warn "[FS::part_export::infostreet] $method ".join(' ', @args)."\n" if $DEBUG;
+

   #quelle hack
   if ( $method =~ /,/ ) {
     foreach my $part ( split(/,\s*/, $method) ) {
   #quelle hack
   if ( $method =~ /,/ ) {
     foreach my $part ( split(/,\s*/, $method) ) {