#!/usr/bin/perl
#############################################################################
#   Example subscriberImport
#	copyright Topica 2004
#	
#############################################################################

use LWP;
use strict;
my $SERVER="www.topica.com";
my $debug =1;
my $timeout = 600; # seconds


#############################################################################
#	These values must be changed
#   Make sure to use single quotes or perl will interpret the @ sign
#############################################################################

my $user = 'user@domain.com';
my $pass = 'password';
my $list = 'your_list@topica.com';
my $fileURL = 'http://www.topica.com/services/sample_import.txt'; # replace with your url
my $mailTo = 'user@domain.com';

#############################################################################


sendTest();

exit;


#############################################################################
#############################################################################

sub sendTest {
	#my $data = getDataInline(); # an inline example
	my $data = getDataURL();	# URL based example

	my $message = <<EOT;
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
	<topicaAction username="$user" password="$pass" 
		xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
		xsi:SchemaLocation="http://www.topica.com/services/" 
		xmlns="http://www.topica.com/Dispatcher/" >
   		<subscriberImport
       		 list="$list"
		        column-delimiter=","
				value-delimiter=";"
		        duplicate="replace-existing"
		        from-date="2001-01-01"
		        to-date="2004-01-01"
		        first-row="data"
		        send-confirmations="false"
		        email-to="$mailTo">
			<mapping>
				<column order="1" field="Email Address"  create-if-new="false"/>
				<column order="3" field="Address 1"      create-if-new="true" data-type="text"/>
				<column order="2" field="Favorite Color" create-if-new="true"  data-type="multi">
					<category-values convert-case="true" create-if-new="true">
						<map from="y" to="Yellow"/>
						<map from="yellow" to="Yellow"/>
						<map from="b" to="Black"/>
					</category-values>
				</column>
				<column order="4" field="Address 2"      create-if-new="true" data-type="text"/>
				<column order="5" field="City"   create-if-new="true" data-type="text"/>
				<column order="6" field="State or Province"  create-if-new="false" data-type="category"/>
			</mapping>
			$data
		</subscriberImport>
	</topicaAction>
  </soap:Body>
</soap:Envelope>
EOT

	my $length = length($message);

	my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)');
	$ua->timeout( $timeout ) ;

	my $resp = $ua->post(
		"http://$SERVER/api/Dispatcher" ,
		'Host'			=> $SERVER,
		'Content-Type'	=> 'text/xml; charset=utf-8',
		'Content-Length'	=> $length,
		Content       => $message,
	);
        
	if ($debug) {
		print $message . "\n\n";
		print $resp->error_as_HTML . "\n" unless $resp->is_success;
		print $resp->content() . "\n";
	}
	return $resp->is_success;
}

sub getDataInline {
	my $data = '<data source="inline">';
	for (1..24) {
		$data .= qq|user+5555$_\@get.topica.com,"grey;red;black;yellow",13$_ Market Street,Apt 29, Cincinnati, OREGON\n|;
	}
	$data .="</data>";
	return $data;
}

sub getDataURL {
	return <<EOT;
			<data source="url">$fileURL</data>
EOT
}