#!/usr/bin/perl


if((!$ARGV[0])) {
        print "usage: redirect <domainname.com>\n";
}  else {

print "\n\n\n";
print "Domain Name: $ARGV[0]\n";
print "Creating $ARGV[0].....\n";

$home_path               = "/home";
$domain_name             = $ARGV[0];

system("mkdir -p /$home_path/$domain_name/www");


    open(SECUREA,">/$home_path/$domain_name/www/index.php") or die($!);

    print SECUREA "<?\n";
#    print SECUREA "/"Header("/"HTTP/1.1 301 Moved Permanently/";";
#    print SECUREA "Header/( /"HTTP/1.1 301 Moved Permanently/" /);";
    print SECUREA "Header/" /);";






#<?
#Header( "HTTP/1.1 301 Moved Permanently" );
#Header( "Location: http://www.swpg.com" );
#?>




#    print SECUREA "Header/( /"HTTP/1.1 301 Moved Permanently/" );" . "\n";
#    print SECUREA "Header( /"Location: http://www.swpg.com/" );\n";
#    print SECUREA "?>\n";


    close(SECUREA);


print "Completed $ARGV[0].....\n\n";
exit;
}
exit;