package DBAccess;

use strict;
 
use Sybase::CTlib;
 
sub addMaillog {
    my $self = shift;
    my %args = @_;
 
    my $config = { name => 'addMaillog',
                   param => { 
                     token => { type => CS_CHAR_TYPE,
                                opt => 0},
                     email => { type => CS_CHAR_TYPE,
                                opt => 0},
                     action => { type => CS_CHAR_TYPE,
                                 opt => 0},
                    },
                    output => [ {
                                   name => 'maillog',
                                   cols => [qw(maillogId)],
                                          }],
                      server => 'main',
                      database => 'rpc',
                    };
    $self->execute($config, \%args);
}
 
1;