#!/usr/bin/perl
use strict;
use lib '/mit/scripts/deploy/bin';
use onserver;

setup();

print "\nEnter the code name for your project (a valid Python package name).\n";
print "Do not use 'django' or the name of any other Python library.\n";
print "Project name: ";
my $name = <STDIN>;
chomp $name;

open FASTCGI, ">index.fcgi";
print FASTCGI <<EOF;
#!/usr/bin/env python
import sys, os
sys.path.insert(0, "/mit/$USER/Scripts/django")
os.chdir("/mit/$USER/Scripts/django/$name")
os.environ['DJANGO_SETTINGS_MODULE'] = "$name.settings"

from django.core.servers.fastcgi import runfastcgi
runfastcgi(method="threaded", daemonize="false")
EOF
close FASTCGI;
chmod 0755, "index.fcgi";

open HTACCESS, ">.htaccess";
print HTACCESS <<EOF;
RewriteEngine On
RewriteCond %{REQUEST_FILENAME} !-f
RewriteCond %{REQUEST_FILENAME} !-d
RewriteRule ^(.*)\$ index.fcgi/\$1 [QSA,L]
EOF
close HTACCESS;
chmod 0777, ".htaccess";

chdir "/mit/$USER/Scripts/django/";
system qw{django-admin.py startproject}, $name;
chdir "$name";

open SETTINGS, "settings.py";
open NEWSETTINGS, ">settings.py.new";
while (<SETTINGS>) {
  chomp;
  if (/Your Name/) {
    $_ = "    ('$USER', '$email'),";
  } elsif (/^DATABASE_ENGINE/) {
    $_ = "DATABASE_ENGINE = 'mysql'";
  } elsif  (/^DATABASE_NAME/) {
    $_ = "DATABASE_NAME = '$sqldb'";
  } elsif (/^DATABASE_USER/) {
    $_ = "DATABASE_USER = '$sqluser'";
  } elsif (/^DATABASE_PASSWORD/) {
    $_ = "DATABASE_PASSWORD = '$sqlpass'";
  } elsif (/^DATABASE_HOST/) {
    $_ = "DATABASE_HOST = '$sqlhost'";
  } elsif (/Chicago/) {
    $_ =~ s/Chicago/New_York/;
  } elsif (/^ADMIN_MEDIA_PREFIX/) {
    $_ = "ADMIN_MEDIA_PREFIX = '/__scripts/django/media/'";
  } elsif (/^INSTALLED_APPS/) {
    print NEWSETTINGS "$_\n";
    while (<SETTINGS>) {
      if (/^\)/) {
	print NEWSETTINGS "    'django.contrib.admin',\n";
	print NEWSETTINGS "    'django.contrib.admindocs',\n";
      }
      print NEWSETTINGS $_;
    }
  }
  print NEWSETTINGS "$_\n";
}
close NEWSETTINGS;
close SETTNGS;
rename "settings.py.new", "settings.py";

open URLS, "urls.py";
open NEWURLS, ">urls.py.new";
while (<URLS>) {
  chomp;
  if (/^#.*from django\.contrib import admin/) {
    $_ =~ s/^# *//;
  } elsif (/^#.*admin.autodiscover/) {
    $_ =~ s/^# *//;
  } elsif (/^ *# *\(r\'\^admin\//) {
    $_ =~ s/# *//;
  }
  print NEWURLS "$_\n";
}
close NEWURLS;
close URLS;
rename "urls.py.new", "urls.py";

print "Initializing your project's SQL database schema...\n";
system qw{./manage.py syncdb --noinput};
print "...done\n";

print "Creating your superuser account... ";
system qw{./manage.py createsuperuser --username}, $admin_username, "--email", $email, "--noinput";
print "done\n";
print "Setting your superuser password... ";
system qw{mysql -D}, "$USER+$addrlast", "-e", "UPDATE auth_user SET password=MD5(\'$admin_password\') WHERE username=\'$admin_username\'";
print "done\n";

print "\nDjango has been installed.\n\nYour project is located in:\n";
print "  /mit/$USER/Scripts/django/$name/\n";
print "To access manage.py, run 'ssh -k $USER\@scripts' and cd to the above directory.\n\n";
print "When you edit your code, run the command\n";
print "  touch /mit/$USER/web_scripts/$addrend/index.fcgi\n";
print "before testing, to cause your site to reload the new code.\n";
press_enter;

exit 0;
