#!/usr/bin/perl  -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;


my $JSCRIPT=<<EOF;

function sub_dispatcher() { 
  alert('OK-dispatched win2');
  document.sql_tool.submit();
}

var url1 = 'http://bioinfo.weizmann.ac.il/safety/images/db_connect_qfile.htm';
var url2 = 'http://bioinfo.weizmann.ac.il/safety/images/db_connect_qfile.txt';
var myRef1; var myRef2;
function windo(arg){
  if(arg == "win1"){
   if(myRef1 == null ||  myRef1.closed){
     myRef1 = window.open(url1,'mywin1','left=20,top=20,width=500,height=500,resizable=1,scrollbars=1');
   }else if(!myRef1.closed){
     myRef1.focus();
     myRef1.location.reload(true);
   }
  }else{
   alert('OK-window win2');
   if(myRef2 == null ||  myRef2.closed){
     myRef2 = window.open(url2,'mywin2','left=20,top=20,width=500,height=500,resizable=1,scrollbars=1');
   }else if(!myRef2.closed){
     myRef2.focus();
     myRef2.location.reload(true);
   }
  }
}

EOF
;
#SETTING HEADER - HTML:
print $query->header();

print $query->start_html(-title => 'Selection ',
                         -BGCOLOR=>'lavender',
                         -script=>$JSCRIPT);

#SETTING UP A FORM FOR INPUT:
print $query->startform(-name=>'sql_tool');
print $query->button(-name=>'listfile',
                     -value=>'direct function-call',
                     -onClick=>"windo('win1')"
                      ),p;
print $query->button(-name=>'embedvar',
                     -value=>'indirect function-call',
                     -onClick=>"sub_dispatcher()" 
                      ),p;

print $query->endform(),
hr;
#------------------------------------------------------
#JS FUNCTION CALL:

        my $writsql= "-code=>\'windo(\"win2\")\'}),p";
                my $prntvar =  "print \$query->start_html(-script=>{-language=>\'JavaScript',$writsql;\n";
                eval $prntvar;
print end_html;