[freeside-commits] freeside/FS/FS/part_export ikano.pm,NONE,1.1

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv25571/FS/FS/part_export

Added Files:
	ikano.pm 
Log Message:
ikano.pm initial commit, svc_dsl UI initial commit, and svc_dsl on-going work, RT7111


--- NEW FILE: ikano.pm ---
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;