Server-monitor.as

1. include "bar-graph.as"

// Establish a connection with perl server socket = new XMLSocket();

createSymbol( this, 'barGraph', 'myGraph', 0 );

// Connect to our host to establish stream if ( socket.connect( 'cs.auckland.ac.nz', 60180 ) ) echo( 'Connecting...', '00ff00' ); else echo( 'Could not initialise connection!', 'ff0000' );

// When connected, send login info socket.onConnect = function( success ) {

   if ( success ) {
       echo( 'Connected!', '00ff00' );
       sendMessage( 'Hello?' );
       }
   else echo( 'Connection failed!', 'ff0000' );
   };

// Decode incoming message socket.onData = function( data ) {

   echo( 'Message received:', '00ff00' );
   echo( data, 'ffff00' );
   };

// Send a message to the associated peer function sendMessage( content ) {

   echo( 'Sending message: "'+content+'"', '00ff00' );
   _root.socket.send( content + String.fromCharCode(13,10,13,10) );
   }

function echo( txt, col ) {

   txt = _root.page.htmlText + "\n" + ''+txt+'';
   _root.page.htmlText = txt;

function reduce() {

   myGraph.rotate( Math.sin( ++x/10 ) * height / 3 + height / 2 );
   }