#!/usr/bin/perl

#  require("/ibin/functions/coming_soon_page.func");


  # -----[ Init  Variables ]-----------
  $plan_name = "Chad-Default";
  $color_red    = "\033[1;31m";
  $color_yellow    = "\033[1;33m";
  $color_clear  = "\033[0m";
  $color_none   = "";

  system("clear");
  print $color_yellow . "              I n n o v a t i v e   I n t e r n e t   S o l u t i o n s\n";
  print                 "                       Coming Soon Page\n";
  print $color_red . "========================================================================" . $color_clear . "\n";
  print "  Remember when entering the domain name to include the extension(.com)\n";
  print "\n";

  # -----[ Linux Configuration Variables ]-----------
  $home_path   		   = "/home";
  $base_web		   = "/home/base/baseweb";



#----------< Collect Information >------------------------------------------------------------------------------------
  print "     Domain Name: "; $domain_name 	= <STDIN>; chomp($domain_name);
  print "    Company Name: "; $company_name 	= <STDIN>; chomp($company_name);
#  $domain_name = "$ARGV[0]";
#  $company_name = "$ARGV[1]";

#print $domain_name ."\n";
#print $company_name ."\n";
  
  &coming_page;


#  &restart;


# =====[ Sub Routines ]=============================================

sub coming_page {


    system("cp -ra $base_web/. $home_path/$domain_name/www/.");
}