#!/usr/local/bin/rexx

form = "chEvents.html"

/* --- initialise variables --- */
filename = "events"
homedir  = "/home/web/home/tof_forms/"

/* -------------- CHANGE -------------------- */
txt_file  = homedir || filename || ".txt"

parse arg .	"title="     new_title,
		"url="	     new_url,
		"by="	     new_by,
		"type="	     new_type,
		"place="     new_place,
		"fday="	     new_fday,
		"fmonth="    new_fmonth,
		"fyear="     new_fyear,
		"uday="	     new_uday,
		"umonth="    new_umonth,
		"uyear="     new_uyear,
		"institute=" new_institute,
		"organisers=" new_organisers,
		"comments="  new_comments,
		"action="    action,
		"selection=" selection

new_title = strip(new_title)
new_url = strip(new_url)
new_by = strip(new_by)
new_type = strip(new_type)
new_place = strip(new_place)
new_fday = strip(new_fday)
new_fmonth = strip(new_fmonth)
new_fyear = strip(new_fyear)
new_uday = strip(new_uday)
new_umonth = strip(new_umonth)
new_uyear = strip(new_uyear)
new_institute = strip(new_institute)
new_organisers = strip(new_organisers)
new_comments = strip(new_comments)

call load_events
call BubbleSort

if action = "DELETE" then call DeleteRecord
else
if action = "UPDATE" then do
	if new_title <> "" then do
		if selection >= 0 then call UpdateRecord
		else
		if selection < 0 then call AddRecord
	end
end

call create_html
exit

/* ---------------- Load events from file ------------- */
load_events:
	f = open(txt_file,"r")
	if f<0 then do
		title.0 = 0
		return
	end
	n = 0
	do until eof(f)
		n = n + 1
		title.n = linein(f)
		url.n = linein(f)
		by.n  = linein(f)
		type.n = linein(f)
		place.n = linein(f)
		fday.n = linein(f)
		fmonth.n = linein(f)
		fyear.n = linein(f)
		uday.n = linein(f)
		umonth.n = linein(f)
		uyear.n = linein(f)
		institute.n = linein(f)
		organisers.n = linein(f)
		comments.n = linein(f)

	end
	call close f
	title.0 = n-1
return


/* ------------ UpdateRecord ------------------- */
UpdateRecord:
        if new_title = "" then return 

	s=selection+1
	title.s = new_title
	url.s = new_url
	by.s = new_by
	type.s = new_type
	place.s = new_place
	fday.s = new_fday
	fmonth.s = new_fmonth
	fyear.s = new_fyear
	uday.s = new_uday
	umonth.s = new_umonth
	uyear.s = new_uyear
	institute.s = new_institute
	organisers.s = new_organisers
	comments.s = new_comments

	call BubbleSort
	call WriteFile
return


/* -------------- AddRecord -------------------- */
AddRecord:
        if new_title = "" then return        

	title.0 = title.0 + 1
	i = title.0

	title.i = new_title
	url.i = new_url
	by.i = new_by
	type.i = new_type
	place.i = new_place
	fday.i = new_fday
	fmonth.i = new_fmonth
	fyear.i = new_fyear
	uday.i = new_uday
	umonth.i = new_umonth
	uyear.i = new_uyear
	institute.i = new_institute
	organisers.i = new_organisers
	comments.i = new_comments

	call BubbleSort
	call WriteFile
return


/* ------------- DeleteRecord ----------------- */
DeleteRecord:
	if selection = -1 then return
	s = selection+1
	do i=s to title.0-1
		next = i+1
		title.i  = title.next
		url.i	 = url.next
		by.i	 = by.next
		type.i	 = type.next
		place.i	 = place.next
		fday.i   = fday.next
		fmonth.i = fmonth.next
		fyear.i  = fyear.next
		uday.i   = uday.next
		umonth.i = umonth.next
		uyear.i  = uyear.next
		institute.i = institute.next
		organisers.i = organisers.next
		comments.i = comments.next

	end
	title.0 = title.0 - 1

	call WriteFile
return


/* --------------- WriteFile -------------------- */
WriteFile:
	f = open(txt_file,"w")
	do i=1 to title.0
		call lineout f,title.i
		call lineout f,url.i
		call lineout f,by.i
		call lineout f,type.i
		call lineout f,place.i
		call lineout f,fday.i
		call lineout f,fmonth.i
		call lineout f,fyear.i
		call lineout f,uday.i
		call lineout f,umonth.i
		call lineout f,uyear.i
		call lineout f,institute.i
		call lineout f,organisers.i
		call lineout f,comments.i

	end
	call close f
return


/* ----------------- BubbleSort ------------------- */
BubbleSort:
	do i=2 to title.0
		changed = 0
		do j=title.0 to i by -1
			jp = j-1
			prev=title.jp; 
			cur =title.j;  
			UPPER cur prev
			if prev > cur then do
				str = title.j
				title.j = title.jp
				title.jp = str

				str = url.j
				url.j = url.jp
				url.jp = str

				str = by.j
				by.j = by.jp
				by.jp = str

				str = type.j
				type.j = type.jp
				type.jp = str

				str = place.j
				place.j = place.jp
				place.jp = str

				str = fday.j
				fday.j = fday.jp
				fday.jp = str

				str = fmonth.j
				fmonth.j = fmonth.jp
				fmonth.jp = str

				str = fyear.j
				fyear.j = fyear.jp
				fyear.jp = str

				str = uday.j
				uday.j = uday.jp
				uday.jp = str

				str = umonth.j
				umonth.j = umonth.jp
				umonth.jp = str

				str = uyear.j
				uyear.j = uyear.jp
				uyear.jp = str

				str = institute.j
				institute.j = institute.jp
				institute.jp = str

				str = organisers.j
				organisers.j = organisers.jp
				organisers.jp = str

				str = comments.j
				comments.j = comments.jp
				comments.jp = str

				changed = 1
			end
		end
		if ^changed then leave
	end

return


/* ------------ Create the FORM ----------------- */
create_html:
	say '<html>'
	say '<head>'
	say '<title>n_TOF Events Form</title>'
	say
	say '<script language="javascript">'

	say '	title      = new Array();'
	say '	url	   = new Array();'
	say '	by	   = new Array();'
	say '	type	   = new Array();'
	say '	place      = new Array();'
	say '	fday	   = new Array();'
	say '	fmonth	   = new Array();'
	say '	fyear	   = new Array();'
	say '	uday	   = new Array();'
	say '	umonth	   = new Array();'
	say '	uyear	   = new Array();'
	say '	institute  = new Array();'
	say '	organisers = new Array();'
	say '	comments   = new Array();'

	do i=1 to title.0
		say '	title.push("'title.i'");'
		say '	url.push("'url.i'");'
		say '	by.push("'by.i'");'
		say '	type.push("'type.i'");'
		say '	place.push("'place.i'");'
		say '	fday.push("'fday.i'");'
		say '	fmonth.push("'fmonth.i'");'
		say '	fyear.push("'fyear.i'");'
		say '	uday.push("'uday.i'");'
		say '	umonth.push("'umonth.i'");'
		say '	uyear.push("'uyear.i'");'
		say '	institute.push("'institute.i'");'
		say '	organisers.push("'organisers.i'");'
		say '	comments.push("'comments.i'");'

	end

	say 'function fillList() {'
	say '	for (var i=0; i< title.length; i++)'
	say '		document.write("<option>"+title[i]);'
	say '}'

	say 'function findOption(choice) {'
	say '	if (choice == "Workshop")'
	say '		document.myForm.type[0].checked=1;'
	say '	if (choice == "Conference")'
	say '	        document.myForm.type[1].checked=1;'
	say '}'


	say 'function fillData(sel) {'
	say '	document.myForm.title.value=title[sel];'
	say '	document.myForm.url.value=url[sel];'
	say '	document.myForm.by.value=by[sel];'
	say '	findOption(type[sel]);' 
	say '	document.myForm.place.value=place[sel];'
	say '	document.myForm.fday.value=fday[sel];'
	say '	document.myForm.fmonth.value=fmonth[sel];'
	say '	document.myForm.fyear.value=fyear[sel];'
	say '	document.myForm.uday.value=uday[sel];'
	say '	document.myForm.umonth.value=umonth[sel];'
	say '	document.myForm.uyear.value=uyear[sel];'
	say '	document.myForm.institute.value=institute[sel];'
	say '	document.myForm.organisers.value=organisers[sel];'
	say '	document.myForm.comments.value=comments[sel];'
	say '	document.myForm.selection.value=sel;'
	say '}'
	say


	say 'function clearForm() {'
	say '	document.myForm.title.value = "";'
	say '	document.myForm.url.value   = "";'
	say '	document.myForm.by.value    = "";'
	say '	document.myForm.type[0].checked  = 0;'
	say '	document.myForm.type[1].checked  = 0;'
	say '	document.myForm.place.value = "";'
	say '	document.myForm.fday.value   = "";'
	say '	document.myForm.fmonth.value = "";'
	say '	document.myForm.fyear.value  = "";'
	say '	document.myForm.uday.value   = "";'
	say '	document.myForm.umonth.value = "";'
	say '	document.myForm.uyear.value  = "";'
	say '	document.myForm.institute.value  = "";'
	say '	document.myForm.organisers.value = "";'
	say '	document.myForm.comments.value	 = "";'
	say '	document.myForm.selection.value	 =-1;'
	say '}'

	say '</script>'

	say '<body bgcolor="lightblue">'
	say '<center>'
	say '<h1><font color="darkblue"><img src="red.gif">n_TOF Events Form<img src="red.gif"></font></h1>'
	say '<hr>'
	say '<form method="get" name="myForm" action="'form'">'
	say '<table border="0">'
	say '<tr><td>List of Events<br>'
	say '	<select name="list" size="10" onChange="fillData(document.myForm.list.selectedIndex)">'
	say '	<script> '
	say '	fillList()'
	say '	</script>'
	say '	</select>'
	say '</td></tr>'
	say '</table>'

	say '<table border="1">'
	say '<tr><th>Title</th><td><input type="text" size="60" maxlength="400" name="title"></td></tr>'
	say '<tr><th>URL</th><td><input type="text" size="60" maxlength="400" name="url"></td></tr>'
	say '<tr><th>Organised by</th><td><input type="text" size="60" maxlength="400" name="by"></td></tr>'
	say '<tr><th>Type</th><td><input type="radio" name="type" value="Workshop">&nbsp;&nbsp;&nbsp;&nbsp;Workshop <input type="radio" name="type" value="Conference">&nbsp;&nbsp;&nbsp;&nbsp;Conference</td></tr>'
	say '<tr><th>Place</th><td><input type="text" size="60" name="place"></td></tr>'
	say '<tr><th>Date</th><td><font color="red"><b>FROM</b></font> Day:<input type="text" size="2" maxlength="2" name="fday">'
	say 'Month:<input type="text" size="2" maxlength="2" name="fmonth">'
	say 'Year:<input type="text" size="4" maxlength="4" name="fyear">'
	say ' <font color="red"><b>UNTIL</b></font> Day:<input type="text" size="2" maxlength="2" name="uday">'
	say 'Month:<input type="text" size="2" maxlength="2" name="umonth">'
	say 'Year:<input type="text" size="4" maxlength="4" name="uyear">'
	say '</td></tr>'

	say '<tr><th>Institute</th><td><input type="text" size="60" name="institute"></td></tr>'
	say '<tr><th>Organisers</th><td> <input type="text" size="60" name="organisers"></td></tr>'
	say '<tr><th>Comments</th><td><input type="text" size="60" name="comments"></td></tr>'

	say '<tr><td colspan=2 align="center">'
	say '	<input type="button" value="NEW" name="action" onClick="clearForm()">'
	say '	<input type="submit" value="UPDATE" name="action">'
	say '	<input type="submit" value="DELETE" name="action">'
	say '	<input type="hidden" value="-1" name="selection">'
	say '</td></tr>'
	say '</table>'

	say '</form>'
	say '</center>'

	say '<address>'
	say '<a href="mailto:synteta8@etu.unige.ch">Vivian Synteta</a>'
	say '</address>'
	say '</html>'
return