#!\perl\bin\perl
use LWP::Simple;

$townpath = "./images/asylum/";				##### the archive on webbittown.net
$nowsh = "./cgi-bin/asylumshowing.txt";			##### text file here with more info on whats showing
$slist = "./asylum/batch1.txt";				##### local list of files on MeoWx to show, with pause times
$fastest = 10;

##### how long has it been showing
$isnow = time;
@fstat=stat($nowsh);	
$was = @fstat[9];   

##### get the info on what is showing now
if (open(NOW, "<$nowsh")) {
  @norg=;
  close(NOW);
  chomp(@norg);
  $nows=@norg[0];		##### name
  $atno=@norg[1];		##### number in the sequence
  $showtime=@norg[2];		##### time in seconds to show this slide

  if ($isnow > $was+$showtime) {
	unlink("$nowsh");
	##### read the list of slides in
	open( SL, "<$slist");
	@batch1 = < SL >;
	close( SL );
	chomp(@batch1);

	##### figure out which one is next
	++$atno;
	if ($atno>=scalar(@batch1) ) { $atno=0; }
	($newslide,$newtime) = split(/,/, $batch1[$atno] );

	$nows = "$newslide";

	open(NOW,">$nowsh");
	flock(NOW,2);
	print NOW "$newslide\n";
	print NOW "$atno\n";
	print NOW "$newtime\n";
	flock(NOW,8);
	close(NOW);

  } # showtime
} # nowsh lock


# tell the browser what is about to be sent
print "Refresh: $showtime\n";
print ("Content-type: image/jpeg\n\n"); 

# then send it
$CHUNK_SIZE = 4096;
open( MY_FILE, "<$townpath$nows" );
binmode( MY_FILE );
binmode( STDOUT );
while ( $cb = read( MY_FILE, $data, $CHUNK_SIZE ) ) {
   print $data;
}
close( MY_FILE );

/**	A 'webcam' applet, that repeatedly downloads a designated file and displays it
	Due to caching annoyances, each new version advances in name. This one is camb.
	It was deployed on webbittown.net for a while, but it is not compatible with
	Symantec Netscape JVM 1.1.2 on apple, due to the getSize calls.
	Anfycam -does- work on the apple I could test. Anfycam does not look super on
	decompiling with javap, so I do not know yet what the exact problem is.

 */
import java.applet.*;
import java.awt.*;

public class camb extends Applet implements Runnable {
	Image bi;
	Image offscreenImage;
	Graphics offscreenGraphics;
	MediaTracker mt;
	int rwidth;
	int rheight;
	String slideFile;
	String backFile;
	public void init(){
		String wid = getParameter("width");
		String hig = getParameter("height");
		slideFile = getParameter("slide");
		backFile = getParameter("bkgnd");
		mt = new MediaTracker (this);
		bi=getImage( getDocumentBase(), backFile );

		rwidth = Integer.parseInt(wid);
		rheight = Integer.parseInt(hig);
		offscreenImage = createImage( getSize().width, getSize().height);
		offscreenGraphics = offscreenImage.getGraphics();
	}
	public void paint(Graphics g) {
		g.setColor(getBackground());
		g.fillRect(0,0,getSize().width,getSize().height);
		g.drawImage(bi,0,0,rwidth,rheight,this);
	}
	public void run() {
		while (true) {	
			try{Thread.sleep(20000);}
			catch(InterruptedException ie) { }
			bi.flush();
			bi=getImage(getDocumentBase(),slideFile);
			mt.addImage(bi,1);
			try { mt.waitForID(1);}
			catch (InterruptedException ie) {return;}
			repaint();
		}
	}
	public void update(Graphics g) {
		paint(offscreenGraphics);
		g.drawImage(offscreenImage,0,0,this);
	}
	
	Thread t;

	public void start() {
		t = new Thread(this);
		t.start();
	}
	public void stop() {
		t.stop();
		t = null;
	}
}

/**	A 'webcam' applet, that repeatedly downloads a designated file and displays it
	Due to caching annoyances, each new version advances in name. This one is akm,
	derived from cjm  

Some old apple browsers do not have getSize, so I have to test for the error and use the deprecated 
method if needed:
Symantec Java! ByteCode Compiler Copyright (C) 1996-97 Symantec
Corporation
# Applet exception: error: java.lang.NoSuchMethodError:
java.awt.Component: method getSize ()Ljava/awt/Dimension; not found
java.lang.NoSuchMethodError: java.awt.Component: method getSize
()Ljava/awt/Dimension; not found
  at
  at netscape.applet.DerivedAppletFrame.run(Compiled Code)
  at java.lang.Thread.run(Compiled Code)


 */
import java.applet.*;
import java.awt.*;
import java.net.*;
import java.io.*;
import java.util.*;

public class akm extends Applet implements Runnable {
	Image bi;
	Image offscreenImage;
	Graphics offscreenGraphics;
	MediaTracker mt;
	Dimension apDim;
	String slideFile;
	String backFile;
	String seqFile;
	String imagePath;
	String message;
	Vector seqOfNames; 
	Vector PicBuf;
	int textat;



	public void init(){
		slideFile = getParameter("slide");
		backFile = getParameter("bkgnd");
		imagePath = "http://www.webbittown.com/wml/asylum/asylum/";
		seqFile = "http://www.webbittown.com/wml/asylum/asylum/batch1.txt";
		try {
			apDim = getSize();
		} 
		catch ( NoSuchMethodError e ) {
			apDim = size();
		}

		bi=getImage( getDocumentBase(), backFile );
		repaint();

		mt = new MediaTracker (this);
		seqOfNames = new Vector();
		PicBuf = new Vector();

		textat = 0;

		offscreenImage = createImage( apDim.width, apDim.height);
		offscreenGraphics = offscreenImage.getGraphics();
		repaint();
	}

	public void paint(Graphics g) {
		g.setColor(getBackground());
		g.fillRect(0,0,apDim.width, apDim.height);
		if ( bi != null ) {
			g.drawImage( bi ,0,0,apDim.width,apDim.height,this);
		}
	}

	public void run() {
		if ( t == Thread.currentThread() ) {
			while ( true ) {	
				if ( textat < PicBuf.size() ) {
	 				bi = (Image)PicBuf.elementAt(textat);
					textat = (textat < PicBuf.size()-1)? ++textat : 0;		
					mt.addImage(bi,1);
					try { mt.waitForID(1);}
					catch (InterruptedException ie) {return;}
					repaint();
					try{Thread.sleep(100);}
					catch(InterruptedException ie) { }
				}
			}
		} //if thread t 
		if ( u == Thread.currentThread() ) {
			try {
				URL u = new URL( seqFile );
				DataInputStream dis = new DataInputStream( u.openConnection().getInputStream() );
				String s;
				while ( (s=dis.readLine())!=null ) {
					seqOfNames.addElement(s);
					bi = getImage(getDocumentBase(),imagePath + s );
					mt.addImage(bi,1);
					try { mt.waitForID(1);}
					catch (InterruptedException ie) {return;}
					PicBuf.addElement( bi );
				}
			} 
			catch (Exception e) { 
				e.printStackTrace(); 
			}

		} //if thread u
	}
	public void update(Graphics g) {
		paint(offscreenGraphics);
		g.drawImage(offscreenImage,0,0,this);
	}
	
	Thread t;
	Thread u;

	public void start() {
		t = new Thread(this);
		u = new Thread(this);
		t.start();
		u.start();
	}
	public void stop() {
		// deprecated?? t.stop();
		t = null;
		u = null;
	}
}