1 files changed, 102 insertions, 0 deletions
diff --git a/FS/FS/part_export/ikano.pm b/FS/FS/part_export/ikano.pm
new file mode 100644
index 0000000..c44db64
--- /dev/null
+++ b/FS/FS/part_export/ikano.pm
@@ -0,0 +1,102 @@
+package FS::part_export::ikano;
+
+use vars qw(@ISA %info);
+use Tie::IxHash;
+use Date::Format qw( time2str );
+use FS::Record qw(qsearch dbh);
+use FS::part_export;
+use FS::svc_dsl;
+
+@ISA = qw(FS::part_export);
+
+tie my %options, 'Tie::IxHash',
+  'keyid'         => { label=>'Ikano keyid' },
+  'username'      => { label=>'Ikano username',
+			default => 'admin',
+			},
+  'password'      => { label=>'Ikano password' },
+  'check_networks' => { label => 'Check Networks',
+		    default => 'ATT,BELLCA',
+		    },
+;
+
+%info = (
+  'svc'     => 'svc_dsl',
+  'desc'    => 'Provision DSL to Ikano',
+  'options' => \%options,
+  'notes'   => <<'END'
+Requires installation of
+<a href="http://search.cpan.org/dist/Net-Ikano">Net::Ikano</a> from CPAN.
+END
+);
+
+sub rebless { shift; }
+
+sub dsl_pull {
+    '';
+}
+
+sub status_line {
+    my($svc_dsl,$date_format,$separator) = (shift,shift,shift);
+    my %orderTypes = ( 'N' => 'New', 'X' => 'Cancel', 'C' => 'Change' );
+    my %orderStatus = ( 'N' => 'New', 'P' => 'Pending', 'X' => 'Cancelled',
+			'C' => 'Completed', 'E' => 'Error' );
+    my $status = "Ikano ".$orderTypes{$svc_dsl->vendor_order_type}." order #"
+	. $svc_dsl->vendor_order_id . " (Status: " 
+	. $orderStatus{$svc_dsl->vendor_order_status} . ") $separator ";
+    my $monitored = $svc_dsl->monitored eq 'Y' ? 'Yes' : 'No';
+    my $pushed = $svc_dsl->pushed ? 
+		time2str("$date_format %k:%M",$svc_dsl->pushed) : "never";
+    my $last_pull = $svc_dsl->last_pull ? 
+		time2str("$date_format %k:%M",$svc_dsl->last_pull) : "never";
+    my $ddd = $svc_dsl->desired_dd ? time2str($date_format,$svc_dsl->desired_dd)
+				   : "";
+    my $dd = $svc_dsl->dd ? time2str($date_format,$svc_dsl->dd) : "";
+    $status .= "$separator Pushed: $pushed   Monitored: $monitored  Last Pull: ";
+    $status .= "$lastpull $separator $separator Desired Due Date: $ddd  ";
+    $status .= "Due Date: $dd";
+    return $status;	
+}
+
+sub ikano_command {
+  my( $self, $command, @args ) = @_;
+
+  eval "use Net::Ikano;";
+  die $@ if $@;
+
+  my $ikano = Net::Ikano->new(
+    'keyid' => $self->option('keyid'),
+    'username'  => $self->option('username'),
+    'password'  => $self->option('password'),
+    #'debug'    => 1,
+  );
+
+  $ikano->$command(@args);
+}
+
+sub _export_insert {
+  my( $self, $svc_dsl ) = (shift, shift);
+  '';
+}
+
+sub _export_replace {
+  my( $self, $new, $old ) = (shift, shift, shift);
+  '';
+}
+
+sub _export_delete {
+  my( $self, $svc_dsl ) = (shift, shift);
+  '';
+}
+
+sub _export_suspend {
+  my( $self, $svc_dsl ) = (shift, shift);
+  '';
+}
+
+sub _export_unsuspend {
+  my( $self, $svc_dsl ) = (shift, shift);
+  '';
+}
+
+1;