Interchange Reference Pages: Global and catalog variables

my ($name, $opt) = @_;
my $joiner = $opt->{joiner} || ' ';
return "Cannot dump or find sessions with session type $Vend::Cfg->{SessionType}."
  if ($Vend::Cfg->{SessionType} ne 'File' && $Vend::Cfg->{SessionType} ne 'DBI');


if ($Vend::Cfg->{SessionType} eq 'File') {
  if($opt->{find}) {
    require File::Find;
    my $expire = $Vend::Cfg->{SessionExpire};
    if( int($::Variable->{ACTIVE_SESSION_MINUTES}) ) {
      $expire = $::Variable->{ACTIVE_SESSION_MINUTES} * 60;
    }
    my $now = time();
    $expire = $now - $expire;

      $out = Vend::Util::uneval($ref);
    };
    return uneval($ref) if $@;
    return $out;
  }
}

if ($Vend::Cfg->{SessionType} eq 'DBI') {
  if($opt->{find}) {
    my $expire = $Vend::Cfg->{SessionExpire};
    if( int($::Variable->{ACTIVE_SESSION_MINUTES}) ) {
      $expire = $::Variable->{ACTIVE_SESSION_MINUTES} * 60;
    }
    my $now = time();
    $expire = $now - $expire;

# $Id: backup_database.coretag,v 1.10 2008-08-12 22:02:57 jon Exp $

UserTag backup-database Order    tables
UserTag backup-database AddAttr
UserTag backup-database Version  $Revision: 1.10 $
UserTag backup-database Routine  <<EOR
sub {
my ($tables, $opt) = @_;
my (@tables) = grep /\S/, split /['\s\0]+/, $tables;
my $backup_dir =  $opt->{dir}
          || $::Variable->{BACKUP_DIRECTORY}
          || "$Vend::Cfg->{VendRoot}/backup";
my $gnum   = $opt->{gnumeric};
my $agg = "$backup_dir/DBDOWNLOAD.all";

# $Id: breadcrumbs.tag,v 1.5 2007/08/09 13:40:53 pajamian Exp $

UserTag breadcrumbs Order number
UserTag breadcrumbs addAttr
UserTag breadcrumbs Routine <<EOR
sub {
my ($number, $opt) = @_;

use vars qw/$Tag $Scratch $CGI $Session $Variable/;
my $only_last = $::Variable->{BREADCRUMB_ONLY_LAST} || 'ord/basket login';
my $exclude   = $::Variable->{BREADCRUMB_EXCLUDE};
my $max   = $number || $::Variable->{BREADCRUMB_MAX} || 6;

my %exclude;
my %only_last;

UserTag breadcrumbs Order number
UserTag breadcrumbs addAttr
UserTag breadcrumbs Routine <<EOR
sub {
my ($number, $opt) = @_;

use vars qw/$Tag $Scratch $CGI $Session $Variable/;
my $only_last = $::Variable->{BREADCRUMB_ONLY_LAST} || 'ord/basket login';
my $exclude   = $::Variable->{BREADCRUMB_EXCLUDE};
my $max   = $number || $::Variable->{BREADCRUMB_MAX} || 6;

my %exclude;
my %only_last;

# 
# $Id: breadcrumbs.tag,v 1.5 2007/08/09 13:40:53 pajamian Exp $

UserTag breadcrumbs Order number
UserTag breadcrumbs addAttr
UserTag breadcrumbs Routine <<EOR
sub {
my ($number, $opt) = @_;

use vars qw/$Tag $Scratch $CGI $Session $Variable/;
my $only_last = $::Variable->{BREADCRUMB_ONLY_LAST} || 'ord/basket login';
my $exclude   = $::Variable->{BREADCRUMB_EXCLUDE};
my $max   = $number || $::Variable->{BREADCRUMB_MAX} || 6;

my %exclude;

$opt->{length} ||= 4;
my $en = $opt->{error_name} || 'captcha';

my $subdir = $opt->{image_subdir}
     || $::Variable->{CAPTCHA_IMAGE_SUBDIR}
     || 'captcha';
my $tmpdir = "$Vend::Cfg->{ScratchDir}/$subdir";

mkdir($tmpdir) unless -d $tmpdir;

my $imgdir = $opt->{image_location} || $::Variable->{CAPTCHA_IMAGE_LOCATION};

unless ($imgdir ) {
  if(! $Global::NoAbsolute and $::Variable->{DOCROOT}) {
     $imgdir = "$::Variable->{DOCROOT}$::Variable->{IMAGE_DIR}/$subdir";

unless ($imgdir ) {
if(! $Global::NoAbsolute and $::Variable->{DOCROOT}) {
$imgdir = "$::Variable->{DOCROOT}$::Variable->{IMAGE_DIR}/$subdir";
}
else {
  $imgdir = "images/$subdir";
 }
 }

 my $imgpath = $opt->{image_path}
        || $::Variable->{CAPTCHA_IMAGE_PATH}
        || "$::Variable->{IMAGE_DIR}/$subdir";

 
 my $captcha = Authen::Captcha->new(

$func =~ s/[^a-z]+//g;
my $result = '';
if($func eq 'code') {
  $result = $Vend::Session->{captcha};
}

$opt->{length} ||= 4;
my $en = $opt->{error_name} || 'captcha';

my $subdir = $opt->{image_subdir}
       || $::Variable->{CAPTCHA_IMAGE_SUBDIR}
       || 'captcha';
my $tmpdir = "$Vend::Cfg->{ScratchDir}/$subdir";

mkdir($tmpdir) unless -d $tmpdir;

  elsif($status == -2) {
    $Tag->error( { name => $en, set => "Code never generated" });
    return 0;
  }
  elsif($status == -3) {
    $Tag->error( { name => $en, set => "Code doesn't match" });
    return 0;
  }
}
else {
    my $save_u = umask($::Variable->{CAPTCHA_UMASK} || 2);

  if($opt->{reset}) {
    undef $Vend::Captcha;
    delete $Vend::Session->{captcha};

  $host = $Global::IpQuad == 0 ? 'nobody' : '';
  my @ip;
  @ip = split /\./, $CGI::ip;
  $CGI::ip = '';
  $CGI::ip = join ".", @ip[0 .. ($Global::IpQuad - 1)] if $Global::IpQuad;
}
#
# end AOL fix

# Fix Cobalt/CGIwrap problem
  if($Global::Variable->{CGIWRAP_WORKAROUND}) {
      $CGI::path_info =~ s!^$CGI::script_name!!;
  }

  $CGI::host = $host || $CGI::ip;

  if(-f "$dir/.autoload") {
    my $status = ::interpolate_html( readfile("$dir/.autoload") );
    $status =~ s/\s+//g;
    undef $level if $status;
  }
  $gate = check_gate($file,$dir)
    if defined $level;
}

if( defined $level and ! check_security($file, $level, $gate) ){
  my $realm = $::Variable->{COMPANY} || $Vend::Cat;
  if(-f "$try/violation$suffix") {
    $fn = "$try/violation$suffix";
  }
  else {

}

package Vend::Payment;

sub itransact {
my ($opt, $amount) = @_;

my $user = $opt->{id} || charge_param('id');

my $company = $opt->{company} || "$::Variable->{COMPANY} Order";

my %actual;
if($opt->{actual}) {
  %actual = %{$opt->{actual}};

    ::logError("%s: using logdir %s instead of disallowed %s", __PACKAGE__, \
 $default_logdir, $logdir);
    $logdir = $default_logdir;
}
$logdir = Vend::File::make_absolute_file($logdir);

my $logzero    = charge_param('logzero')    || 'no';
my $available  = charge_param('available')  || 'no';
my $logempty   = $::Values->{logempty} || charge_param('logempty') || 'no';
my $double_pay = $::Values->{double_pay} || charge_param('double_pay') || 'no';
my $findcard   = charge_param('find_card_type') || 'no'; # yes for \
 auto, page for input, no for IC
my $description = charge_param('description') || $::Variable->{COMPANY};
$description = substr($description,0,99);
my $applyAVSCV2 = $::Values->{applyavscv2} || charge_param('applyavscv2') || '0';

# if payment is logged as made, raise an error message and exit

      key => $record->{category},
      title => $record->{category},
      description => undef,
      url => $Tag->area({ search => join "\n", @parms }),
    };
  }
}

if(! $ptitle) {
  $ptitle = $Scratch->{page_title};
  $ptitle =~ s/(\s*\W+\s*)?$Variable->{COMPANY}(\s*\W+\s*)?//;
}

$ptitle =~ s/^\s+//;
$ptitle =~ s/\s+$//;

return '';
[/perl]
[/if]


<form action="[area @@MV_PAGE@@]" method="post">
[if scratch ui_failure]
<p>
<blockquote>
<font color="__CONTRAST__">[scratch ui_failure][set ui_failure][/set]</font>
</blockquote>
<p>
&nbsp;
[/if]

<p>
<blockquote>
<font color="__CONTRAST__">[scratch ui_failure][set ui_failure][/set]</font>
</blockquote>
<p>
&nbsp;
[/if]
[if scratch ui_message]
<p>
<blockquote>
<font color="__CONTRAST__">[scratch ui_message][set ui_message][/set]</font>
</blockquote>
<p>
&nbsp;
[/if]

my $die = sub {
  my ($msg, @args) = @_;
  $msg = ::errmsg($msg, @args);
  $Vend::Session->{ship_message} .= " $msg";
  return 0;
};

my $fed;

$opt->{target_url} ||= 'http://grd.fedex.com/cgi-bin/rrr2010.exe';
$opt->{origin_country} ||= $::Variable->{COUNTRY} || 'US';
$opt->{origin} ||= $::Variable->{UPS_ORIGIN};
$opt->{zip} ||= $::Values->{$::Variable->{UPS_POSTCODE_FIELD}};
$opt->{country} ||= $::Values->{$::Variable->{UPS_COUNTRY_FIELD}};
$opt->{country} = uc $opt->{country};

}
else {
  $error = $Tag->error({name => $checkfor, keep => $keep});
}

if ($error) {
  if ($opt->{signal}) {
    sprintf($opt->{signal}, $label);
  }
  else {
    my $contrast = $::Variable->{CSS_CONTRAST} || 'mv_contrast';
    qq{<span class="$contrast">$label</span>};
  }  
}
else {      

# store the error label in user's session for later
# possible use in [error show_label=1] calls
$Vend::Session->{errorlabels}{$var} = $opt->{std_label};
if($text) {
# do nothing
}
elsif(defined $::Variable->{MV_ERROR_STD_LABEL}) {
$text = $::Variable->{MV_ERROR_STD_LABEL};
}
else {
my $contrast = $::Variable->{CSS_CONTRAST} || 'mv_contrast';
  $text = <<EOF;
<span class="$contrast">{LABEL} <small><i>(%s)</i></small></span>
[else]{REQUIRED <b>}{LABEL}{REQUIRED </b>}[/else]
EOF

$Vend::Session->{payment_result} =
$Vend::Session->{cybercash_result} = \%result;
}
elsif ($actual{cyber_mode} =~ /^minivend_test(?:_(.*))?/) {
my $status = $1 || 'success';
# Interchange test mode
my %payment = (
'host' => $::Variable->{CYBER_HOST} || 'localhost',
'port' => $::Variable->{CYBER_PORT} || 8000,
'secret' => $::Variable->{CYBER_SECRET} || '',
'config' => $::Variable->{CYBER_CONFIGFILE} || '',
);
&testSetServer ( %payment );
%result = testsendmserver(
        $actual{cyber_mode},

  $result{MStatus} = $status;
  $Vend::Session->{payment_result} =
    $Vend::Session->{cybercash_result} = \%result;
  }
elsif ($Vend::CC3) {
  # Live interface operations follow
  $Vend::CC3server = 1;

  # Cybercash 3.x libraries to be used.
  # Initialize the merchant configuration file
  my $status = InitConfig($::Variable->{CYBER_CONFIGFILE});
  if ($status != 0) {
    $Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
    ::logError(
      "Failed to initialize CyberCash from file %s: %s",

# Live interface operations follow
$Vend::CC3server = 1;

# Cybercash 3.x libraries to be used.
# Initialize the merchant configuration file
my $status = InitConfig($::Variable->{CYBER_CONFIGFILE});
if ($status != 0) {
  $Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
  ::logError(
    "Failed to initialize CyberCash from file %s: %s",
      $Variable->{CYBER_CONFIGFILE},
      $Vend::Session->{cybercash_error},
      );
    return undef;
  }

}
return %actual;
}

sub charge {
my ($charge_type) = @_;
my (%actual) = map_actual();

#::logDebug ("cyber_charge, mode val=$::Values->{mv_cyber_mode} cgi=$CGI::values{mv_cyber_mode} \
 \
 actual=$actual{cyber_mode}");
my $currency =  $::Variable->{MV_PAYMENT_CURRENCY}
      || $::Variable->{CYBER_CURRENCY}
      || 'usd';
$actual{mv_credit_card_exp_month} =~ s/\D//g;
$actual{mv_credit_card_exp_month} =~ s/^0+//;
  $actual{mv_credit_card_exp_year} =~ s/\D//g;

    return undef;
  }
  %result = $sub->(@args);
  $Vend::Session->{payment_result} =
    $Vend::Session->{cybercash_result} = \%result;
}
  elsif ($actual{cyber_mode} =~ /^minivend_test(?:_(.*))?/) {
  my $status = $1 || 'success';
  # Interchange test mode
  my %payment = (
    'host' => $::Variable->{CYBER_HOST} || 'localhost',
    'port' => $::Variable->{CYBER_PORT} || 8000,
    'secret' => $::Variable->{CYBER_SECRET} || '',
    'config' => $::Variable->{CYBER_CONFIGFILE} || '',
  );

if ($status != 0) {
$Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
::logError(
  "Failed to initialize CyberCash from file %s: %s",
    $Variable->{CYBER_CONFIGFILE},
    $Vend::Session->{cybercash_error},
    );
  return undef;
}

  unless($::Variable->{CYBER_HOST}) {
    $::Variable->{CYBER_HOST} = $Config{CCPS_HOST};
  }
  if($Vend::CC3server) {
    # Cybercash 3.x server and libraries to be used.

unless($::Variable->{CYBER_HOST}) {
$::Variable->{CYBER_HOST} = $Config{CCPS_HOST};
}
if($Vend::CC3server) {
# Cybercash 3.x server and libraries to be used.

    if ($status != 0) {
      $Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
      return undef;
    }
    $sendurl = $::Variable->{CYBER_HOST} . 'directcardpayment.cgi';

    my %paymentNVList;
    $paymentNVList{'mo.cybercash-id'} = $Config{CYBERCASH_ID};
    $paymentNVList{'mo.version'} = $MCKversion;

my (%actual) = map_actual();

my @errMsgs = ();
# Required for validation
if (! $user) {
$user      = $opt->{id} || 
           charge_param('id') ||  
           $::Variable->{ECHO_PAYMENT_ID} ||
           $::Variable->{MV_PAYMENT_ID} ||
            $::Variable->{CYBER_ID}
            or push @errMsgs, "No payment ID found.";
}

# Required for validation

}
%result = $sub->(@args);
$Vend::Session->{payment_result} =
  $Vend::Session->{cybercash_result} = \%result;
}
elsif ($actual{cyber_mode} =~ /^minivend_test(?:_(.*))?/) {
my $status = $1 || 'success';
# Interchange test mode
my %payment = (
  'host' => $::Variable->{CYBER_HOST} || 'localhost',
  'port' => $::Variable->{CYBER_PORT} || 8000,
  'secret' => $::Variable->{CYBER_SECRET} || '',
  'config' => $::Variable->{CYBER_CONFIGFILE} || '',
);
  &testSetServer ( %payment );

   charge_param('server') ||
$::Variable->{ECHO_PAYMENT_SERVER} ||
$::Variable->{MV_PAYMENT_SERVER} ||
   $::Variable->{CYBER_SERVER} ||
   'https://wwws.echo-inc.com/scripts/INR200.EXE';

my $precision  =  $opt->{precision} ||
      charge_param('precision') ||
$::Variable->{ECHO_PAYMENT_PRECISION} ||
$::Variable->{MV_PAYMENT_PRECISION} ||
       $::Variable->{CYBER_PRECISION} ||
       2;

##### ECHO SPECIFIC VARIABLES #####

      $::Variable->{CYBER_ID}
      or push @errMsgs, "No payment ID found.";
}

# Required for validation
if (! $secret) {
$secret    = $opt->{secret} ||
           charge_param('secret') ||
       $::Variable->{ECHO_PAYMENT_SECRET} ||
       $::Variable->{MV_PAYMENT_SECRET} ||
           $::Variable->{CYBER_SECRET}
           or push @errMsgs, "No payment secret found.";
}

if (scalar @errMsgs) {

  ::logError($_);
}
return 0;
}
@errMsgs = ();

my $server     = $opt->{server} ||
                 charge_param('server') ||
          $::Variable->{ECHO_PAYMENT_SERVER} ||
          $::Variable->{MV_PAYMENT_SERVER} ||
                 $::Variable->{CYBER_SERVER} ||
                 'https://wwws.echo-inc.com/scripts/INR200.EXE';

my $precision  =  $opt->{precision} ||
                    charge_param('precision') ||

last SMTP unless $none and $mhost;
eval {
require Net::SMTP;
};
last SMTP if $@;
$ok = 0;
$using = "Net::SMTP (mail server $mhost)";
#::logDebug("using $using");
undef $none;

my $smtp = Net::SMTP->new($mhost, Debug => $Global::Variable->{DEBUG}, \
 Hello => $helo) or last SMTP;
#::logDebug("smtp object $smtp");

my $from = $::Variable->{MV_MAILFROM}
    || $Global::Variable->{MV_MAILFROM}

last SMTP unless $none and $mhost;
eval {
require Net::SMTP;
};
last SMTP if $@;
$ok = 0;
$using = "Net::SMTP (mail server $mhost)";
#::logDebug("using $using");
undef $none;

my $smtp = Net::SMTP->new($mhost, Debug => $Global::Variable->{DEBUG}, Hello => $helo);
#::logDebug("smtp object $smtp");

my $from = $::Variable->{MV_MAILFROM}
    || $Global::Variable->{MV_MAILFROM}

UserTag image AttrAlias resize makesize
UserTag image AddAttr
UserTag image Version   $Revision: 1.24 $
UserTag image Routine   <<EOR
sub {
my ($src, $opt) = @_;
my ($image, $path, $secure, $sku);
my ($imagedircurrent, $imagedir, $imagedirsecure);

my @descriptionfields = grep /\S/, split /\s+/,
  $opt->{descriptionfields} || $::Variable->{DESCRIPTIONFIELDS} || $Vend::Cfg->{DescriptionField};
@descriptionfields = qw( description ) if ! @descriptionfields;

my @imagefields = grep /\S/, split /\s+/,
  $opt->{imagefields} || $::Variable->{IMAGEFIELDS};

my @js;
my $image;

my @from_html = qw/class id style/;

if($src) {
  if( $opt->{srcliteral} || $src =~ m{^https?://}i ) {
    $image = $src;
  }
  else {
    my $dr = $::Variable->{DOCROOT};
    my $id = $Tag->image( { dir_only => 1 } );
    $id =~ s:/+$::;
    $id =~ s:/~[^/]+::;

      }
    }
  }
}
push @srclist, $sku if $sku;
push @srclist, $opt->{default} if $opt->{default};

if ($opt->{imagesubdir}) {
  $opt->{imagesubdir} .= '/' unless $opt->{imagesubdir} =~ m:/$:;
}
my $dr = $::Variable->{DOCROOT};
my $id = $imagedircurrent;
$id =~ s:/+$::;
$id =~ s:/~[^/]+::;

my $subdir = $opt->{image_subdir}
   || $::Variable->{CAPTCHA_IMAGE_SUBDIR}
   || 'captcha';
my $tmpdir = "$Vend::Cfg->{ScratchDir}/$subdir";

mkdir($tmpdir) unless -d $tmpdir;

my $imgdir = $opt->{image_location} || $::Variable->{CAPTCHA_IMAGE_LOCATION};

unless ($imgdir ) {
if(! $Global::NoAbsolute and $::Variable->{DOCROOT}) {
   $imgdir = "$::Variable->{DOCROOT}$::Variable->{IMAGE_DIR}/$subdir";
  }
  else {
     $imgdir = "images/$subdir";

##### ECHO SPECIFIC VARIABLES #####

my $order_type = $::Variable->{ECHO_PAYMENT_ORDER_TYPE} || 'S';
my $isp_echo_id = $::Variable->{ECHO_PAYMENT_ISP_ECHO_ID};
my $isp_pin = $::Variable->{ECHO_PAYMENT_ISP_PIN};
my $merchant_email = $::Variable->{ECHO_PAYMENT_MERCHANT_EMAIL};

# Set to 'C' for Certify mode to check compliance with the ECHO spec on a
# transaction-by-transaction basis.  'T' or 'TRUE' for full ECHO debugging.
my $debug = $::Variable->{ECHO_PAYMENT_DEBUG};

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

 $actual{mv_credit_card_exp_month} =~ s/\D//g;

#::logDebug("echo called, args=" . ::uneval(\@_));

my (%actual) = map_actual();

my @errMsgs = ();
# Required for validation
if (! $user) {
  $user      = $opt->{id} || 
               charge_param('id') ||  
               $::Variable->{ECHO_PAYMENT_ID} ||
               $::Variable->{MV_PAYMENT_ID} ||
                $::Variable->{CYBER_ID}
                or push @errMsgs, "No payment ID found.";
}

my $precision  =  $opt->{precision} ||
  charge_param('precision') ||
$::Variable->{ECHO_PAYMENT_PRECISION} ||
$::Variable->{MV_PAYMENT_PRECISION} ||
   $::Variable->{CYBER_PRECISION} ||
   2;

##### ECHO SPECIFIC VARIABLES #####

my $order_type = $::Variable->{ECHO_PAYMENT_ORDER_TYPE} || 'S';
my $isp_echo_id = $::Variable->{ECHO_PAYMENT_ISP_ECHO_ID};
my $isp_pin = $::Variable->{ECHO_PAYMENT_ISP_PIN};
my $merchant_email = $::Variable->{ECHO_PAYMENT_MERCHANT_EMAIL};

# Set to 'C' for Certify mode to check compliance with the ECHO spec on a

charge_param('precision') ||
$::Variable->{ECHO_PAYMENT_PRECISION} ||
$::Variable->{MV_PAYMENT_PRECISION} ||
 $::Variable->{CYBER_PRECISION} ||
 2;

##### ECHO SPECIFIC VARIABLES #####

my $order_type = $::Variable->{ECHO_PAYMENT_ORDER_TYPE} || 'S';
my $isp_echo_id = $::Variable->{ECHO_PAYMENT_ISP_ECHO_ID};
my $isp_pin = $::Variable->{ECHO_PAYMENT_ISP_PIN};
my $merchant_email = $::Variable->{ECHO_PAYMENT_MERCHANT_EMAIL};

# Set to 'C' for Certify mode to check compliance with the ECHO spec on a
# transaction-by-transaction basis.  'T' or 'TRUE' for full ECHO debugging.

$::Variable->{ECHO_PAYMENT_PRECISION} ||
$::Variable->{MV_PAYMENT_PRECISION} ||
$::Variable->{CYBER_PRECISION} ||
2;

##### ECHO SPECIFIC VARIABLES #####

my $order_type = $::Variable->{ECHO_PAYMENT_ORDER_TYPE} || 'S';
my $isp_echo_id = $::Variable->{ECHO_PAYMENT_ISP_ECHO_ID};
my $isp_pin = $::Variable->{ECHO_PAYMENT_ISP_PIN};
my $merchant_email = $::Variable->{ECHO_PAYMENT_MERCHANT_EMAIL};

# Set to 'C' for Certify mode to check compliance with the ECHO spec on a
# transaction-by-transaction basis.  'T' or 'TRUE' for full ECHO debugging.
 my $debug = $::Variable->{ECHO_PAYMENT_DEBUG};

my $precision  =  $opt->{precision} ||
    charge_param('precision') ||
$::Variable->{ECHO_PAYMENT_PRECISION} ||
$::Variable->{MV_PAYMENT_PRECISION} ||
     $::Variable->{CYBER_PRECISION} ||
     2;

##### ECHO SPECIFIC VARIABLES #####

my $order_type = $::Variable->{ECHO_PAYMENT_ORDER_TYPE} || 'S';
my $isp_echo_id = $::Variable->{ECHO_PAYMENT_ISP_ECHO_ID};
my $isp_pin = $::Variable->{ECHO_PAYMENT_ISP_PIN};
my $merchant_email = $::Variable->{ECHO_PAYMENT_MERCHANT_EMAIL};