# Copyright (C) 2012
#     Charles Roussel <charles.roussel@ensimag.imag.fr>
#     Simon Cathebras <simon.cathebras@ensimag.imag.fr>
#     Julien Khayat <julien.khayat@ensimag.imag.fr>
#     Guillaume Sasdy <guillaume.sasdy@ensimag.imag.fr>
#     Simon Perrat <simon.perrat@ensimag.imag.fr>
# License: GPL v2 or later

#
# CONFIGURATION VARIABLES
# You might want to change these ones
#

source ./test.config

setglobal WIKI_URL = "http://"$SERVER_ADDR:$PORT/$WIKI_DIR_NAME""
setglobal CURR_DIR = $[pwd]
setglobal TEST_OUTPUT_DIRECTORY = $[pwd]
setglobal TEST_DIRECTORY = ""$CURR_DIR"/../../../t"

export TEST_OUTPUT_DIRECTORY TEST_DIRECTORY CURR_DIR

if test $LIGHTTPD = "false"  {
	setglobal PORT = '80'
} else {
	setglobal WIKI_DIR_INST = ""$CURR_DIR/$WEB_WWW""
}

proc wiki_upload_file {
	"$CURR_DIR"/test-gitmw.pl upload_file @Argv
}

proc wiki_getpage {
	"$CURR_DIR"/test-gitmw.pl get_page @Argv
}

proc wiki_delete_page {
	"$CURR_DIR"/test-gitmw.pl delete_page @Argv
}

proc wiki_editpage {
	"$CURR_DIR"/test-gitmw.pl edit_page @Argv
}

proc die {
	die_with_status 1 @Argv
}

proc die_with_status {
	setglobal status = $1
	shift
	echo >&2 "$ifsjoin(Argv)> !2 "$*"
	exit "$status"
}


# Check the preconditions to run git-remote-mediawiki's tests
proc test_check_precond {
	if ! test_have_prereq PERL
	{
		setglobal skip_all = ''skipping gateway git-mw tests, perl not available''
		test_done
	}

	setglobal GIT_EXEC_PATH = $[cd $[dirname $0] && cd "../.." && pwd]
	setglobal PATH = ""$GIT_EXEC_PATH"'/bin-wrapper:'"$PATH""

	if test ! -d "$WIKI_DIR_INST/$WIKI_DIR_NAME"
	{
		setglobal skip_all = ''skipping gateway git-mw tests, no mediawiki found''
		test_done
	}
}

# test_diff_directories <dir_git> <dir_wiki>
#
# Compare the contents of directories <dir_git> and <dir_wiki> with diff
# and errors if they do not match. The program will
# not look into .git in the process.
# Warning: the first argument MUST be the directory containing the git data
proc test_diff_directories {
	rm -rf "$1_tmp"
	mkdir -p "$1_tmp"
	cp "$1"/*.mw "$1_tmp"
	diff -r -b "$1_tmp" $2
}

# $1=<dir>
# $2=<N>
#
# Check that <dir> contains exactly <N> files
proc test_contains_N_files {
	if test $[ls -- $1 | wc -l] -ne $2 {
		echo "directory $1 should contain $2 files"
		echo "it contains these files:"
		ls $1
		false
	}
}


# wiki_check_content <file_name> <page_name>
#
# Compares the contents of the file <file_name> and the wiki page
# <page_name> and exits with error 1 if they do not match.
proc wiki_check_content {
	mkdir -p wiki_tmp
	wiki_getpage $2 wiki_tmp
	# replacement of forbidden character in file name
	setglobal page_name = $[printf "%s\n" $2 | sed -e "s/\//%2F/g]

	diff -b $1 wiki_tmp/"$page_name".mw
	if test $Status -ne 0
	{
		rm -rf wiki_tmp
		error "ERROR: file $2 not found on wiki"
	}
	rm -rf wiki_tmp
}

# wiki_page_exist <page_name>
#
# Check the existence of the page <page_name> on the wiki and exits
# with error if it is absent from it.
proc wiki_page_exist {
	mkdir -p wiki_tmp
	wiki_getpage $1 wiki_tmp
	setglobal page_name = $[printf "%s\n" $1 | sed "s/\//%2F/g]
	if test -f wiki_tmp/"$page_name".mw  {
		rm -rf wiki_tmp
	} else {
		rm -rf wiki_tmp
		error "test failed: file $1 not found on wiki"
	}
}

# wiki_getallpagename
#
# Fetch the name of each page on the wiki.
proc wiki_getallpagename {
	"$CURR_DIR"/test-gitmw.pl getallpagename
}

# wiki_getallpagecategory <category>
#
# Fetch the name of each page belonging to <category> on the wiki.
proc wiki_getallpagecategory {
	"$CURR_DIR"/test-gitmw.pl getallpagename @Argv
}

# wiki_getallpage <dest_dir> [<category>]
#
# Fetch all the pages from the wiki and place them in the directory
# <dest_dir>.
# If <category> is define, then wiki_getallpage fetch the pages included
# in <category>.
proc wiki_getallpage {
	if test -z $2
	{
		wiki_getallpagename
	} else {
		wiki_getallpagecategory $2
	}
	mkdir -p $1
	while read -r line {
		wiki_getpage $line $1;
	} < all.txt
}

# ================= Install part =================

proc error {
	echo @Argv > !2
	exit 1
}

# config_lighttpd
#
# Create the configuration files and the folders necessary to start lighttpd.
# Overwrite any existing file.
proc config_lighttpd {
	mkdir -p $WEB
	mkdir -p $WEB_TMP
	mkdir -p $WEB_WWW
	cat > $WEB/lighttpd.conf << """
	server.document-root = "$CURR_DIR/$WEB_WWW"
	server.port = $PORT
	server.pid-file = "$CURR_DIR/$WEB_TMP/pid"

	server.modules = (
	"mod_rewrite",
	"mod_redirect",
	"mod_access",
	"mod_accesslog",
	"mod_fastcgi"
	)

	index-file.names = ("index.php" , "index.html")

	mimetype.assign		    = (
	".pdf"		=>	"application/pdf",
	".sig"		=>	"application/pgp-signature",
	".spl"		=>	"application/futuresplash",
	".class"	=>	"application/octet-stream",
	".ps"		=>	"application/postscript",
	".torrent"	=>	"application/x-bittorrent",
	".dvi"		=>	"application/x-dvi",
	".gz"		=>	"application/x-gzip",
	".pac"		=>	"application/x-ns-proxy-autoconfig",
	".swf"		=>	"application/x-shockwave-flash",
	".tar.gz"	=>	"application/x-tgz",
	".tgz"		=>	"application/x-tgz",
	".tar"		=>	"application/x-tar",
	".zip"		=>	"application/zip",
	".mp3"		=>	"audio/mpeg",
	".m3u"		=>	"audio/x-mpegurl",
	".wma"		=>	"audio/x-ms-wma",
	".wax"		=>	"audio/x-ms-wax",
	".ogg"		=>	"application/ogg",
	".wav"		=>	"audio/x-wav",
	".gif"		=>	"image/gif",
	".jpg"		=>	"image/jpeg",
	".jpeg"		=>	"image/jpeg",
	".png"		=>	"image/png",
	".xbm"		=>	"image/x-xbitmap",
	".xpm"		=>	"image/x-xpixmap",
	".xwd"		=>	"image/x-xwindowdump",
	".css"		=>	"text/css",
	".html"		=>	"text/html",
	".htm"		=>	"text/html",
	".js"		=>	"text/javascript",
	".asc"		=>	"text/plain",
	".c"		=>	"text/plain",
	".cpp"		=>	"text/plain",
	".log"		=>	"text/plain",
	".conf"		=>	"text/plain",
	".text"		=>	"text/plain",
	".txt"		=>	"text/plain",
	".dtd"		=>	"text/xml",
	".xml"		=>	"text/xml",
	".mpeg"		=>	"video/mpeg",
	".mpg"		=>	"video/mpeg",
	".mov"		=>	"video/quicktime",
	".qt"		=>	"video/quicktime",
	".avi"		=>	"video/x-msvideo",
	".asf"		=>	"video/x-ms-asf",
	".asx"		=>	"video/x-ms-asf",
	".wmv"		=>	"video/x-ms-wmv",
	".bz2"		=>	"application/x-bzip",
	".tbz"		=>	"application/x-bzip-compressed-tar",
	".tar.bz2"	=>	"application/x-bzip-compressed-tar",
	""		=>	"text/plain"
	)

	fastcgi.server = ( ".php" =>
	("localhost" =>
	( "socket" => "$CURR_DIR/$WEB_TMP/php.socket",
	"bin-path" => "$PHP_DIR/php-cgi -c $CURR_DIR/$WEB/php.ini"

	)
	)
	)
"""

	cat > $WEB/php.ini << """
	session.save_path ='$CURR_DIR/$WEB_TMP'
"""
}

# start_lighttpd
#
# Start or restart daemon lighttpd. If restart, rewrite configuration files.
proc start_lighttpd {
	if test -f "$WEB_TMP/pid" {
		echo "Instance already running. Restarting..."
		stop_lighttpd
	}
	config_lighttpd
	"$LIGHTTPD_DIR"/lighttpd -f "$WEB"/lighttpd.conf

	if test $Status -ne 0  {
		echo "Could not execute http deamon lighttpd"
		exit 1
	}
}

# stop_lighttpd
#
# Kill daemon lighttpd and removes files and folders associated.
proc stop_lighttpd {
	test -f "$WEB_TMP/pid" && kill $[cat "$WEB_TMP/pid]
}

# Create the SQLite database of the MediaWiki. If the database file already
# exists, it will be deleted.
# This script should be runned from the directory where $FILES_FOLDER is
# located.
proc create_db {
	rm -f "$TMP/$DB_FILE"

	echo "Generating the SQLite database file. It can take some time ..."
	# Run the php script to generate the SQLite database file
	# with cURL calls.
	php "$FILES_FOLDER/$DB_INSTALL_SCRIPT" $[basename $DB_FILE .sqlite] \
		$WIKI_ADMIN $WIKI_PASSW $TMP $PORT

	if test ! -f "$TMP/$DB_FILE"  {
		error "Can't create database file $TMP/$DB_FILE. Try to run ./install-wiki.sh delete first."
	}

	# Copy the generated database file into the directory the
	# user indicated.
	cp "$TMP/$DB_FILE" $FILES_FOLDER ||
		error "Unable to copy $TMP/$DB_FILE to $FILES_FOLDER"
}

# Install a wiki in your web server directory.
proc wiki_install {
	if test $LIGHTTPD = "true"  {
		start_lighttpd
	}

	setglobal SERVER_ADDR = "$SERVER_ADDR:$PORT"
	# In this part, we change directory to $TMP in order to download,
	# unpack and copy the files of MediaWiki
	shell {
	mkdir -p "$WIKI_DIR_INST/$WIKI_DIR_NAME"
	if test ! -d "$WIKI_DIR_INST/$WIKI_DIR_NAME"  {
		error "Folder $WIKI_DIR_INST/$WIKI_DIR_NAME doesn't exist.
		Please create it and launch the script again."
	}

	# Fetch MediaWiki's archive if not already present in the TMP directory
	setglobal MW_FILENAME = ""mediawiki-$MW_VERSION_MAJOR.$MW_VERSION_MINOR.tar.gz""
	cd $TMP
	if test ! -f $MW_FILENAME  {
		echo "Downloading $MW_VERSION_MAJOR.$MW_VERSION_MINOR sources ..."
		wget "http://download.wikimedia.org/mediawiki/$MW_VERSION_MAJOR/$MW_FILENAME" ||
			error "Unable to download "\
			"http://download.wikimedia.org/mediawiki/$MW_VERSION_MAJOR/"\
			"$MW_FILENAME. "\
			"Please fix your connection and launch the script again."
		echo "$MW_FILENAME downloaded in $[pwd]. "\
			"You can delete it later if you want."
	} else {
		echo "Reusing existing $MW_FILENAME downloaded in $[pwd]."
	}
	setglobal archive_abs_path = "$[pwd]/$MW_FILENAME"
	cd "$WIKI_DIR_INST/$WIKI_DIR_NAME/" ||
		error "can't cd to $WIKI_DIR_INST/$WIKI_DIR_NAME/"
	tar xzf $archive_abs_path --strip-components=1 ||
		error "Unable to extract WikiMedia's files from $archive_abs_path to "\
			"$WIKI_DIR_INST/$WIKI_DIR_NAME"
	} || exit 1

	create_db

	# Copy the generic LocalSettings.php in the web server's directory
	# And modify parameters according to the ones set at the top
	# of this script.
	# Note that LocalSettings.php is never modified.
	if test ! -f "$FILES_FOLDER/LocalSettings.php"  {
		error "Can't find $FILES_FOLDER/LocalSettings.php " \
			"in the current folder. "\
		"Please run the script inside its folder."
	}
	cp "$FILES_FOLDER/LocalSettings.php" \
		"$FILES_FOLDER/LocalSettings-tmp.php" ||
		error "Unable to copy $FILES_FOLDER/LocalSettings.php " \
		"to $FILES_FOLDER/LocalSettings-tmp.php"

	# Parse and set the LocalSettings file of the user according to the
	# CONFIGURATION VARIABLES section at the beginning of this script
	setglobal file_swap = ""$FILES_FOLDER/LocalSettings-swap.php""
	sed "s,@WG_SCRIPT_PATH@,/$WIKI_DIR_NAME," \
		"$FILES_FOLDER/LocalSettings-tmp.php" > $file_swap
	mv $file_swap "$FILES_FOLDER/LocalSettings-tmp.php"
	sed "s,@WG_SERVER@,http://$SERVER_ADDR," \
		"$FILES_FOLDER/LocalSettings-tmp.php" > $file_swap
	mv $file_swap "$FILES_FOLDER/LocalSettings-tmp.php"
	sed "s,@WG_SQLITE_DATADIR@,$TMP," \
		"$FILES_FOLDER/LocalSettings-tmp.php" > $file_swap
	mv $file_swap "$FILES_FOLDER/LocalSettings-tmp.php"
	sed "s,@WG_SQLITE_DATAFILE@,$[ basename $DB_FILE .sqlite]," \
		"$FILES_FOLDER/LocalSettings-tmp.php" > $file_swap
	mv $file_swap "$FILES_FOLDER/LocalSettings-tmp.php"

	mv "$FILES_FOLDER/LocalSettings-tmp.php" \
		"$WIKI_DIR_INST/$WIKI_DIR_NAME/LocalSettings.php" ||
		error "Unable to move $FILES_FOLDER/LocalSettings-tmp.php" \
		"in $WIKI_DIR_INST/$WIKI_DIR_NAME"
	echo "File $FILES_FOLDER/LocalSettings.php is set in" \
		" $WIKI_DIR_INST/$WIKI_DIR_NAME"

	echo "Your wiki has been installed. You can check it at
		http://$SERVER_ADDR/$WIKI_DIR_NAME"
}

# Reset the database of the wiki and the password of the admin
#
# Warning: This function must be called only in a subdirectory of t/ directory
proc wiki_reset {
	# Copy initial database of the wiki
	if test ! -f "../$FILES_FOLDER/$DB_FILE"  {
		error "Can't find ../$FILES_FOLDER/$DB_FILE in the current folder."
	}
	cp "../$FILES_FOLDER/$DB_FILE" $TMP ||
		error "Can't copy ../$FILES_FOLDER/$DB_FILE in $TMP"
	echo "File $FILES_FOLDER/$DB_FILE is set in $TMP"
}

# Delete the wiki created in the web server's directory and all its content
# saved in the database.
proc wiki_delete {
	if test $LIGHTTPD = "true" {
		stop_lighttpd
		rm -fr $WEB
	} else {
		# Delete the wiki's directory.
		rm -rf "$WIKI_DIR_INST/$WIKI_DIR_NAME" ||
			error "Wiki's directory $WIKI_DIR_INST/" \
			"$WIKI_DIR_NAME could not be deleted"
		# Delete the wiki's SQLite database.
		rm -f "$TMP/$DB_FILE" ||
			error "Database $TMP/$DB_FILE could not be deleted."
	}

	# Delete the wiki's SQLite database
	rm -f "$TMP/$DB_FILE" || error "Database $TMP/$DB_FILE could not be deleted."
	rm -f "$FILES_FOLDER/$DB_FILE"
	rm -rf "$TMP/mediawiki-$MW_VERSION_MAJOR.$MW_VERSION_MINOR.tar.gz"
}