#!/usr/bin/perl -I../../../../..

use strict;
use Pos::Webtop::Toolbox;
use Pos::Webtop::WebtopConnection;

package Pos::Webtop::Web::ContentModule::Mail::Proxy;

our @ISA = qw(
	Pos::Webtop::WebtopConnection
);

sub new 
{
	my $this = shift;
	my $class = ref($this) || $this;
	my ($self,$tb,$db) = @{{@_}}{qw/self tb db/};

	if ( not defined $self )
	{
		$self = {};
		bless($self,$class);
	}

   # setup base class 
	my %args = @_;
	$args{'tb'} = $tb;
	Pos::Webtop::WebtopConnection->new( %args );

	$self->{'tb'} = $tb;
	$self->{'db'} = $db;

	if (not defined($db)) {
		$self->{'db'} = $tb->getWebtopDbReader();
	}

	return $self;	
}

sub DESTROY {
	my $self = shift;

	$self->disconnect;
}

sub login {
	die(ref(shift) . " did not define login method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub logout {
	die(ref(shift) . " did not define logout method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub checkEmail {
	die(ref(shift) . " did not define checkEmail method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub deleteEmail {
	die(ref(shift) . " did not define deleteEmail method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub sendEmail {
	die(ref(shift) . " did not define sendEmail method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub createFolder {
	die(ref(shift) . " did not define createFolder method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub getFolders {
	die(ref(shift) . " did not define getFolders method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub moveToFolder {
	die(ref(shift) . " did not define moveToFolder method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub getEmail {
	die(ref(shift) . " did not define getEmail method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub getPreviewEmails {
	die(ref(shift) . " did not define getPreviewEmails method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub getAdjacentEmails {
	die(ref(shift) . " did not define getAdjacentEmails method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub cacheCredentials {
	die(ref(shift) . " did not define cacheCredentials method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub markEmailAsRead {
	die(ref(shift) . " did not define markEmailAsRead method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub doesFolderExist {
	die(ref(shift) . " did not define doesFolderExist method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub getNextOutgoingMailId {
	die(ref(shift) . " did not define getNextOutgoingMailId method required by base class Pos::Webtop::Web::ContentModule::Mail::Proxy\n");	
}

sub getTb {
	my $self = shift;

	return $self->{'tb'};
}

1;