#!/usr/bin/perl
# Sample Cpanel module by Juan R. Pozo (jrpozo@conclase.net)
#
# Copy this file as /usr/local/cpanel/Cpanel/MySubDomain.pm
# This module defines the following cpanel tag:
# <cpanel MySubDomain="listredirections()">

package Cpanel::MySubDomain;

use strict;

use vars qw(@ISA @EXPORT $VERSION);

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
    MySubDomain_init
    MySubDomain_listredirections
);
$VERSION = '1.0';

require 5.004;

sub MySubDomain_init {
    return(1);
}

sub MySubDomain_listredirections {

    my @subdomains = ::listsubdomains();
    my $cnt = 0;

    foreach my $subd (@subdomains) {
        my $redir = ::subdomainurl($subd);
        if ($redir ne "http://") {
            $subd  =~ s/_/./g;
            print "<b>$subd</b>: $redir<br>\n";
            $cnt++;
        }
    }

    print "No redirections set" unless $cnt;

}

1;