#!/usr/bin/perl

use strict;

use lib '/app/tools/common/lib';
use Common::RSDB;

use lib '/app/tools/rps/lib';
use RPS::Import::WMG::Util;

my $rsdb = Common::RSDB->new( client_id => 21 );

my $sth    = $rsdb->DoCmd('select service_id, service_name from service');
my %svcMap = ();
map { $svcMap{ $_->[0] } = $_->[1] } @{ $sth->fetchall_arrayref() };

$sth = $rsdb->DoCmd('select distinct(service_id) from file where period_id=0');

while ( my $row = $sth->fetchrow_arrayref() ) {

    my $svcID = $row->[0];
    print STDERR "svc: $svcID\n";
    my ($billTo) = RPS::Import::WMG::Util::getWirelessBillto($svcID);

    unless ($billTo) {
        print "missing billto/sellto for $svcID ($svcMap{$svcID})\n";
        next;
    }

    unless ( RPS::Import::WMG::Util::getWirelessSellto( $svcID, $billTo ) ) {
        print "missing sellto for $svcID ($svcMap{$svcID})\n";
        next;
    }
}