#!/usr/bin/perl

### This script creates symlinks so things will appear as they do on
### the carbonpictures.com bucky.  You will still have to edit
### "lib/constants.pm" and "cgi-bin/localbucky.pm" due to the ridiculous
### way we set this up so long ago.  But mostly just paths and shit.
### Also, do touch up the stuff in "fortunes".

### If you are going to use FTP/SCP to import shit, do something like this:
# vi $BUCKY_ROOT/bin/buckypoll.pl
### ..and set $localpath to "$BUCKY_DATA_ROOT/incoming"
### then:
# /usr/sbin/useradd --home $BUCKY_DATA_ROOT/incoming \
#   --password $BUCKY_FTP_PASS $BUCKY_FTP_LOGIN
# chown $BUCKY_FTP_LOGIN $BUCKY_ROOT/bin/buckypoll.pl
# su $BUCKY_FTP_LOGIN
# nohup $BUCKY_ROOT/bin/buckypoll.pl > output.log 2>&1 &

###################################################################3

use lib "/bucky/lib";
use Bucky;
use Digest::MD5 qw (md5_hex);

# path to HTTPS docroot
$DOCROOT = "/web/engine/docs";
$CGI_BIN = "/web/engine/cgi-bin";

# path to bucky install
$BUCKY_ROOT = "/bucky";
$BUCKY_LIB  = "/bucky/lib";

# path to bucky data directory (if it lives somewhere else)
$BUCKY_DATA_ROOT = "/bucky/data";

# mysql shit
$MYSQL_HOST = "carbonpictures.com";
$MYSQL_USER = "bucky";
$MYSQL_PASS = "wh4t3v3r";

###################################################################3

system('/bin/mkdir', '-p', $BUCKY_DATA_ROOT.'/incoming');
system('/bin/mkdir', '-p', $BUCKY_DATA_ROOT.'/profile');
system('/bin/mkdir', '-p', $BUCKY_DATA_ROOT.'/profile/.thumb');

system('/bin/ln', '-s', $CGI_BIN.'bucky', $BUCKY_ROOT.'/cgi-bin');
system('/bin/ln', '-s', $DOCROOT, $BUCKY_ROOT.'/docs');
system('/bin/ln', '-s', $DOCROOT.'/css', $BUCKY_ROOT.'/css');
system('/bin/ln', '-s', $BUCKY_DATA_ROOT, $DOCROOT.'/bucky/data');
system('/bin/ln', '-s', $BUCKY_DATA_ROOT, $BUCKY_ROOT.'/data')
  unless ($BUCKY_DATA_ROOT eq $BUCKY_ROOT.'/data');
system('/bin/ln', '-s', $BUCKY_DATA_ROOT.'/incoming', $BUCKY_ROOT.'/incoming');

open MYCNF, "$BUCKY_ROOT/.bucky.cnf";
print MYCNF <<__OUT__;
[client]
host=$MYSQL_HOST
user=$MYSQL_USER
password=$MYSQL_PASS
__OUT__
close MYCNF;

our $USER = ( username => "bucky" );

$dbh = DBI->connect ($dsn);

$hash = generate_invite();
print STDERR "Please create an admin account: " invite_url($hash) . "\n";