first commit

admin/overlib/overlibmws_function.js

@@ -0,0 +1,44 @@
+/*
+ overlibmws_function.js plug-in module - Copyright Foteos Macrides 2002-2007. All rights reserved.
+   For support of the FUNCTION feature.
+   Initial: August 18, 2002 - Last Revised: January 1, 2007
+ See the Change History and Command Reference for overlibmws via:
+
+	http://www.macridesweb.com/oltest/
+
+ Published under an open source license: http://www.macridesweb.com/oltest/license.html
+*/
+
+OLloaded=0;
+OLregCmds('function');
+
+// DEFAULT CONFIGURATION
+if(OLud('function'))var ol_function=null;
+// END CONFIGURATION
+
+var o3_function=null;
+
+function OLloadFunction(){
+OLload('function');
+}
+
+function OLparseFunction(pf,i,ar){
+var k=i,v=null;
+if(k<ar.length){
+if(ar[k]==FUNCTION){if(pf=='ol_'){if(typeof ar[k+1]!='number'){v=ar[++k];
+ol_function=(typeof v=='function'?v:null);}}
+else{OLudf=0;v=null;if(typeof ar[k+1]!='number')v=ar[++k];OLoptFUNCTION(v);}return k;}}
+return -1;
+}
+
+function OLoptFUNCTION(callme){
+o3_text=(callme?(typeof callme=='string'?(/.+\(.*\)/.test(callme)?eval(callme):
+callme):callme()):(o3_function?o3_function():'No Function'));
+return 0;
+}
+
+OLregRunTimeFunc(OLloadFunction);
+OLregCmdLineFunc(OLparseFunction);
+
+OLfunctionPI=1;
+OLloaded=1;