#!/usr/bin/perl -T

BEGIN {
    unshift @INC, '/usr/local/cpanel';
}

use Cpanel::Redirect ();

my ($zero) = reverse( split( /\//, $0 ) );

Cpanel::Redirect::redirect(
    service => ( $zero =~ /whm/ ? 'whm' : ( $zero =~ /^w|\s+w/ ? 'webmail' : 'cpanel' ) ),
    ssl => ( $zero =~ /^s|\s+s/ ? 1 : 0 )
);