#!/usr/bin/perl
#############################################################################
#	Sample export script
#	copyright Topica 2004
#	
#############################################################################

use LWP;
use strict;
my $SERVER="www.topica.com";
my $debug =1;

#############################################################################
#   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 $emailTo = 'user@domain.com';

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

sendTest();

exit;


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

sub sendTest {
	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/" >
   		<subscriberExport
			list="$list"
			column-delimiter=","
			value-delimiter=";"
			export-type="active"
			from-date="2001-01-01"
			to-date="2004-01-01"
			email-to="$emailTo"/>
	</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)');

	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;
}