#!/usr/bin/perl

use LWP::Simple;
use XML::Simple;


my $xml = new XML::Simple;
my @userdata;

$page = 1;

#Get Unity subscriber data from cucxnpub one page at a time, 2000 records to a page
while(1)
{
  #Uses ADQuery as the Unity service account
  my $url = "https://User:password\@cucxnpub/vmrest/users?rowsPerPage=2000\&pageNumber=$page";
  my $content = get($url);
  die "Error getting $url" unless defined $content;

  my $data = $xml->XMLin($content);
  $size = @{$data->{User}};

  #If we don't get at least one user end the loop
  if(@{$data->{User}} < 1)
  {
    last;
  }

  #Build the userdata array, each entry contains "username,extension"
  $start = (($page-1) * 2000);
  for($i=$start;$i<=$start + @{$data->{User}} - 1;$i++)
  {
    push(@userdata,"$data->{User}->[$i-$start]->{Alias},$data->{User}->[$i-$start]->{DtmfAccessId}");
  }
  $page++;
}

#Create a timestamp containing year, month, and day
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year+=1900;
$mon++;
$timestamp = sprintf("%4d%02d%02d",$year,$mon,$mday);

#Dump the results of the unity query to a file
open(UNITY,">/usr/scripts/unityLDAP/$timestamp-unity.csv");
  for(@userdata)
  {
    print UNITY "$_\n";
  }
close(UNITY);