Server-monitor.as

1. include "bar-graph.as"

createTextField( 'rc', 1, 0, 0, width, height ); with (rc) {

   _alpha = 30;
   selectable = true;
   _quality = 'BEST';
   border = false;
   multiline = true;
   wordWrap = true;
   html = true;
   }

echo( 'Begin: Hello world!', 'ff0000' );

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

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

// Connect to our host to establish stream if ( socket.connect( 'organicdesign.co.nz', 1729 ) ) 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.rc.htmlText = txt;

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