/********************** Hydra/3 - Lost Carrier Unit *************************
*									    *
*	  Copyright 1995 by Dreamer/1oo% and Neurodancer/1oo%		    *
*									    *
****************************************************************************/

signal on Syntax

/******************************* CONFIG **********************************/

/* catalogs :) */

resume.0="c7Hello v1}!n2There are some incomplete Hydra-Uploads from you. If you want to resume them, you can transfer the files in your next Hydra session. You will be prompted for whether resuming or deleting your incomplete uploads before the Hydra session begins.n2c1Note: c7You can NOT resume the file(s) with any other than the Hydra protocol.n2Following is a list of your resumable files:n1"
resume.1="c7Hallo v1}!n2Da sind noch unvollstaendige Hydra-Uploads von Dir da! Wenn Du den Upload vervollstaendigen willst, dann kannst Du das beim naechsten Hydratransfer machen, indem Du das File nochmal mitschickst. Vor dem Uebertragungsbeginn wirst Du nochmal gesondert gefragt, ob Du die Files beenden oder loeschen willst.n2c1Achtung: c7Du kannst die Files NUR mit dem Hydra-Protokoll beenden!n2Hier ist die Liste der unvollstaendigen Files:n1"

/**************************** set some stuff *******************************/

options results
bufferflush

setobject 0 ; putuser 68
getuser 39 ; uucpdir="Mail:Users/"result
getuser 1100452 ; lng=result
getuser 2307346 ; temppath=result

/********************** if AO-Bit was set, unset it ************************/

getuser 1100662 ; privs=d2c(result+(result<0)*256)
aopriv=BitTST(privs,5)
if getclip(port'aopriv')='SET!' then do
	privs=c2d(BitCLR(privs,5))
	privs=privs-(privs>127)*256
	setobject privs ; putuser 1100662
	call setclip('aopriv')
end

/*************************** Enable Idle-Timer *****************************/

setobject 0 ; putuser 1110341

/*************** check, if there where some incomplete Uploads *************/

if exists(uucpdir'/Hydra.BAD/BAD-XFER.LOG') then do
	HydDir=showdir(uucpdir'/Hydra.BAD','files')
	if HyDir='' then break
	else do
		open(mail,temppath||port"Hydramail","W")
		writeln(mail,resume.lng)
		transmit "found UL!"
		open(bad,uucpdir'/Hydra.BAD/BAD-XFER.LOG','R')
			do until ~eof(bad)
				Logline = readln(bad)
				parse var logline fname badname fsize x
				badsize=word(statef(uucpdir"/Hydra.BAD/"badname),2)
				writeln(mail,"c6"left(fname,20," ")" c7- c6"right(badsize,8," ")" c7of c6"right(fsize,8," ")" c7Bytes")
			end
		close(bad);close(mail)

		cleareditor
		setmailsubj "Hydra - Resume"
		loadeditor temppath||port"Hydramail"
		getuser 40; writemail result
	end
end

/*************************** Clean Up temppath *****************************/

address command 'delete 'temppath||port'HydFileLst 'temppath||port'HydraLog 'temppath||port'Hydramail'

/********************************* END ! ***********************************/

exit

syntax:
sendstring "Error occured! Line: "sigl", "rc" - "errortext(rc)
exit