#!/usr/local/bin/perl

use Getopt::Long;
@option_list = ("reindex", "restart");

if (defined($ENV{"HTTP_HOST"})) {
	print "Content-type: text/plain\n\n";
	$sudo = "";
} else {
	$sudo = "/usr/local/bin/sudo -u dlibuser";
}

GetOptions(@option_list);

if ($opt_reindex) {
	&reindex;
} elsif ($opt_restart) {
	&restart;	
} else {
	# default is all options
	&reindex;
	&restart;	
}	


sub reindex {
	print "starting Dienst reindex\n";
	`$sudo 	whatever_this_command_is`;
}

sub restart {
	# kill dienst first
	`/bin/ps -ef | grep dienst.pl | grep -v grep | awk '{print \$2}' | xargs $sudo /usr/bin/kill`;
	# restart dienst
	`$sudo whatever_this_command_is`;
	print "Dienst killed and restarted\n";

	# do something similar for NCSA httpd if we're still using it
}