#! /bin/rc
rfork
ramfs -p
rimport temuorin /lib/ /n/t
cd /
bind /lib/muffet/html /usr/jalae/www/site
bind /lib/muffet/links /usr/jalae/www/links

echo '---grabbing temuorin ls(1)-lp ---'

rcpu -h temuorin -c 'cd /lib/http/site/ ; ls -lp > /lib/ls/thtml.ls;
					 cd /lib/http/links/ ; ls -lp > /lib/ls/tlink.ls;
					 cd /lib/http/src/ ; ls -lp > /lib/ls/tsrc.ls;
					 cd /lib/http/media/bg/ ; ls -lp > /lib/ls/tbg.ls;
					 cd /lib/http/media/backgrounds/ ; ls -lp > /lib/ls/tbkg.ls;
					 cd /lib/http/media/identity/ ; ls -lp > /lib/ls/tid.ls;
					 cd /lib/http/media/sound/ ; ls -lp > /lib/ls/tsnd.ls;
					 cd /lib/http/media/docs/ ; ls -lp > /lib/ls/tdoc.ls;
					 cd /lib/http/media/img/generic/ ; ls -lp > /lib/ls/tgen.ls;
					 cd /lib/http/media/img/services/ ; ls -lp > /lib/ls/tsrv.ls;
					 cd /lib/http/media/fonts/ ; ls -lp > /lib/ls/tfont.ls;
					 cd /lib/http/media/rom/ ; ls -lp > /lib/ls/trom.ls;
					 cd /lib/gem/ ; ls -lp > /lib/ls/tggmi.ls;
					 cd /lib/gem/links/ ; ls -lp > /lib/ls/tglink.ls;
					 cd /lib/gem/src/ ; ls -lp > /lib/ls/tgsrc.ls;
					 cd /lib/gem/media/bg/ ; ls -lp > /lib/ls/tgbg.ls;
					 cd /lib/gem/media/sound/ ; ls -lp > /lib/ls/tgsnd.ls;
					 cd /lib/gem/media/img/generic/ ; ls -lp > /lib/ls/tggen.ls;
					 cd /lib/gem/media/img/services/ ; ls -lp > /lib/ls/tgsrv.ls;'

clone /n/t/ls/*ls /tmp/
cat /tmp/tggmi.ls | grep gmi > /tmp/ggmi.ls

ls -lp /usr/jalae/www/site/*html > /tmp/mhtml.ls
ls -lp /usr/jalae/www/links/ > /tmp/mlink.ls
ls -lp /usr/jalae/www/src/ > /tmp/msrc.ls
ls -lp /usr/jalae/www/media/bg/*png > /tmp/mbg.ls
ls -lp /usr/jalae/www/media/backgrounds/*png > /tmp/mbkg.ls
ls -lp /usr/jalae/www/media/identity/*png > /tmp/mid.ls
ls -lp /usr/jalae/www/media/sound/*mp3 > /tmp/msnd.ls
ls -lp /usr/jalae/www/media/docs/ > /tmp/mdoc.ls
ls -lp /usr/jalae/www/media/img/generic/*png > /tmp/mgen.ls
ls -lp /usr/jalae/www/media/img/services/ > /tmp/msrv.ls
ls -lp /usr/jalae/www/media/fonts/ > /tmp/mfont.ls
ls -lp /usr/jalae/www/media/rom/ > /tmp/mrom.ls

ls -lp /lib/muffet/gemini/*gmi > /tmp/mggmi.ls
ls -lp /lib/muffet/links/*xml > /tmp/mglink.ls
ls -lp /usr/jalae/www/src/ > /tmp/mgsrc.ls
ls -lp /usr/jalae/www/media/bg/*png > /tmp/mgbg.ls
ls -lp /usr/jalae/www/media/sound/*mp3 > /tmp/mgsnd.ls
ls -lp /usr/jalae/www/media/img/generic/*png > /tmp/mggen.ls
ls -lp /usr/jalae/www/media/img/services/ > /tmp/mgsrv.ls

html=` {lsdif /tmp/mhtml.ls /tmp/thtml.ls}
link=` {lsdif /tmp/mlink.ls /tmp/tlink.ls}
src=` {lsdif /tmp/msrc.ls /tmp/tsrc.ls}
bg=` {lsdif /tmp/mbg.ls /tmp/tbg.ls}
bkg=` {lsdif /tmp/mbkg.ls /tmp/tbkg.ls}
id=` {lsdif /tmp/mid.ls /tmp/tid.ls}
snd=` {lsdif /tmp/msnd.ls /tmp/tsnd.ls}
doc=` {lsdif /tmp/mdoc.ls /tmp/tdoc.ls}
gen=` {lsdif /tmp/mgen.ls /tmp/tgen.ls}
srv=` {lsdif /tmp/msrv.ls /tmp/tsrv.ls}
fonts=` {lsdif /tmp/mfont.ls /tmp/tfont.ls}
rom=` {lsdif /tmp/mrom.ls /tmp/trom.ls}

ggmi=` {lsdif /tmp/mggmi.ls /tmp/ggmi.ls}
glink=` {lsdif /tmp/mglink.ls /tmp/tglink.ls}
gsrc=` {lsdif /tmp/mgsrc.ls /tmp/tgsrc.ls}
gbg=` {lsdif /tmp/mgbg.ls /tmp/tgbg.ls}
gsnd=` {lsdif /tmp/mgsnd.ls /tmp/tgsnd.ls}
ggen=` {lsdif /tmp/mggen.ls /tmp/tggen.ls}
gsrv=` {lsdif /tmp/mgsrv.ls /tmp/tgsrv.ls}

echo '---tar(1)ing:
--HTML--
	./site/ '^$"html^'
	./links/ '^$"link^'
	./src/ '^$"src'
	./media/bg/ '^$"bg'
	./media/background/ '^$"bkg'
	./media/identity/ '^$"id'
	./media/sound/ '^$"snd'
	./media/docs/ '^$"doc'
	./media/img/generic/ '^$"gen'
	./media/img/services/ '^$"srv'
	./media/fonts/ '^$"fonts'
	./media/rom/ '^$"rom^'
--GEM--
	./ '^$"ggmi^'
	./links/ '^$"glink^'
	./src/ '^$"gsrc'
	./media/bg/ '^$"gbg'
	./media/sound/ '^$"gsnd'
	./media/img/generic/ '^$"ggen'
	./media/img/services/ '^$"gsrv

	cd /usr/jalae/www/

	touch index.html
	tar c index.html > /tmp/hi.tar

	if(test $#html -gt '0'){
		tar c ./site/$html > /tmp/hh.tar
	}

	if(test $#link -gt '0'){
		tar c ./links/^$link > /tmp/hl.tar
	}

	if(test $#src -gt '0'){
		tar c ./src/^$src > /tmp/hsrc.tar
	}
	
	if(test $#bg -gt '0'){
		tar c ./media/bg/^$bg > /tmp/hbg.tar
	}

	if(test $#bkg -gt '0'){
		tar c ./media/backgrounds/^$bkg > /tmp/hbk.tar
	}

	if(test $#id -gt '0'){
		tar c ./media/identity/^$id > /tmp/hid.tar
	}

	if(test $#snd -gt '0'){
		tar c ./media/sound/^$snd > /tmp/hs.tar
	}

	if(test $#doc -gt '0'){
		tar c ./media/docs/^$doc > /tmp/hd.tar
	}

	if(test $#gen -gt '0'){
		tar c ./media/img/generic/^$gen > /tmp/hg.tar
	}

	if(test $#srv -gt '0'){
		tar c ./media/img/services/^$srv > /tmp/hsv.tar
	}

	if(test $#fonts -gt '0'){
		tar c ./media/fonts/^$fonts > /tmp/hf.tar
	}

	if(test $#rom -gt '0'){
		tar c ./media/rom/^$rom > /tmp/hr.tar
	}

	cd /tmp
	tar c h*tar | gzip -c > /tmp/h.tar.gz


	cd /lib/muffet/gemini/
	touch updated
	tar c updated > /tmp/gg.tar
	if(test $#ggmi -gt '0'){
		tar c $ggmi > /tmp/ggmi.tar
	}


	cd /lib/muffet/
	if(test $#glink -gt '0'){
		tar c ./links/^$glink > /tmp/glink.tar
	}

	cd /usr/jalae/www/
	if(test $#gsrc -gt '0'){
		tar c ./src/^$gsrc > /tmp/gsrc.tar
	}
	
	if(test $#gbg -gt '0'){
		tar c ./media/bg/^$gbg > /tmp/gbg.tar
	}

	if(test $#gsnd -gt '0'){
		tar c ./media/sound/^$gsnd > /tmp/gsnd.tar
	}

	if(test $#ggen -gt '0'){
		tar c ./media/img/generic/^$ggen > /tmp/ggen.tar
	}

	if(test $#gsrv -gt '0'){
		tar c ./media/img/services/^$gsrv > /tmp/gsrv.tar
	}

	cd /tmp
	tar c g*tar | gzip -c > /tmp/g.tar.gz

echo cloning...
	clone /tmp/h.tar.gz /n/t/http/
	clone /tmp/g.tar.gz /n/t/gem/
	echo decompressing...
	cd /
	rcpu -h temuorin -c 'cd /lib/http/ ; cat h.tar.gz | tar xTz ; for(f in *tar) cat $f | tar xT ; rm *tar; rm h.tar.gz; cd /lib/gem/ ; cat g.tar.gz | tar xTz ; for(f in *tar) cat $f | tar xT ; rm *tar; rm g.tar.gz'