[cılgıngenc]

<script>
<!-- hide this script from non-Javascript browsers

// All code in this script is Copyright(C) 1996, Justin Boyan, jab+j@cs.cmu.edu
// For documentation and more info, see: [Linkleri görebilmek için üye olun veya giriş yapın.]
// This is SNARK Version 1.0, 18 May 1996

var MAX_ENGINES = 30;
var SNARK_STRING = "hunting+the+snark";

function MakeArray(n) {
for (var i = 1; i <= n; i++) {
this[i] = 0;
}
this.maxlen = n;
this.len = 0;
return this;
}

var engs = new MakeArray(MAX_ENGINES);

function find_substring(needle, haystack) {
var i, needlen = needle.length, haylen = haystack.length;
for (i=0; i<=haylen-needlen; i++) {
if (needle == haystack.substring(i,i+needlen))
return i;
}
return false;
}

function Engine(name, opts, home, search) {
var snark = find_substring(SNARK_STRING, search);
this.name = name;
this.opts = opts;
this.home = home;
this.pre_snark = search.substring(0,snark);
this.post_snark= search.substring(snark+SNARK_STRING.length, search.length);
}

function Add(name, opts, home, search) {
engs.len++;
if (engs.len <= engs.maxlen) {
engs[engs.len] = new Engine(name, opts, home, search)
}
else {
alert("Better increase MAX_ENGINES: " + engs.len + ">" + engs.maxlen)
}
}

// ADD YOUR OWN SEARCH ENGINES BELOW. (See [Linkleri görebilmek için üye olun veya giriş yapın.] )


Add("Netnews: AltaVista", "",
"http://altavista.digital.com/",
"http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunting+the+snark" );

Add("Shareware/Windows", "",
"http://vsl.cnet.com/",
"http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=MS-Windows%28all%29&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );

Add("Shareware/Unix", "",
"http://vsl.cnet.com/",
"http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=UNIX&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );

Add("the Web: AltaVista", "SELECTED",
"http://altavista.digital.com/",
"http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunting+the+snark" );

Add("the Web: Lycos", "",
"http://www.lycos.com/",
"http://twelve.srv.lycos.com/cgi-bin/pursuit?query=hunting+the+snark" );

Add("the Web: Yahoo!", "",
"http://www.yahoo.com/",
"http://search.yahoo.com/bin/search?p=hunting+the+snark" );

Add("Weather (City, ST)", "",
"http://www.nnic.noaa.gov/cgi-bin/page?pg=netcast",
"http://www.nnic.noaa.gov/cgi-bin/netcast.do-it?state=hunting+the+snark&area=Local+Forecast&html=yes&match=strong");


// ADD YOUR OWN SEARCH ENGINES ABOVE. (See [Linkleri görebilmek için üye olun veya giriş yapın.] )

function HandleForm(form) {
form.submit(); // This fixes a mysterious Netscape bug. Without this line,
// you can't use <enter> to start the search the first time.
var i, oldq=form.query.value, newq="";
for (i=0; i<oldq.length; i++) { // compress [ ]+ into +
var thischar = oldq.charAt(i);
if (thischar != ' ')
newq += thischar;
else if (lastchar != ' ')
newq += '+';
lastchar = thischar;
}
var eng = engs[1+form.service.selectedIndex];
location.href = newq ? eng.pre_snark + newq + eng.post_snark : eng.home;
}

function DisplayForm() {
document.writeln(' document.writeln('Search <SELECT name="service">');
for (i=1; i <= engs.len; i++) {
document.writeln(" }
document.writeln('</SELECT> for <INPUT size=26 name="query">');
document.writeln('<input type=submit value=" GO!">');
document.writeln('</FORM> </CENTER>');
}

DisplayForm();

// done hiding from old browsers -->

</script>

Kod:

<script>
<!-- hide this script from non-Javascript browsers

// All code in this script is Copyright(C) 1996, Justin Boyan, jab+j@cs.cmu.edu
// For documentation and more info, see:  http://www.cs.cmu.edu/~jab/snark/
// This is SNARK Version 1.0, 18 May 1996

var MAX_ENGINES = 30;
var SNARK_STRING = "hunting+the+snark";

function MakeArray(n) {
  for (var i = 1; i <= n; i++) {
    this[i] = 0;
  }
  this.maxlen = n;
  this.len = 0;
  return this;
}

var engs = new MakeArray(MAX_ENGINES);

function find_substring(needle, haystack) {
  var i, needlen = needle.length, haylen = haystack.length;
  for (i=0; i<=haylen-needlen; i++) {
      if (needle == haystack.substring(i,i+needlen))
        return i;
  }
  return false;
}

function Engine(name, opts, home, search) {
  var snark = find_substring(SNARK_STRING, search);
  this.name = name;
  this.opts = opts;
  this.home = home;
  this.pre_snark = search.substring(0,snark);
  this.post_snark= search.substring(snark+SNARK_STRING.length, search.length);
}

function Add(name, opts, home, search) {
  engs.len++;
  if (engs.len <= engs.maxlen) {
    engs[engs.len] = new Engine(name, opts, home, search)
  }
  else {
    alert("Better increase MAX_ENGINES: " + engs.len + ">" + engs.maxlen)
  }
}

// ADD YOUR OWN SEARCH ENGINES BELOW.  (See http://www.cs.cmu.edu/~jab/snark/ )


Add("Netnews: AltaVista", "",
  "http://altavista.digital.com/",
  "http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunting+the+snark" );

Add("Shareware/Windows", "",
  "http://vsl.cnet.com/",
  "http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=MS-Windows%28all%29&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );

Add("Shareware/Unix", "",
  "http://vsl.cnet.com/",
  "http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=UNIX&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );

Add("the Web: AltaVista", "SELECTED",
  "http://altavista.digital.com/",
  "http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunting+the+snark" );

Add("the Web: Lycos", "",
  "http://www.lycos.com/",
  "http://twelve.srv.lycos.com/cgi-bin/pursuit?query=hunting+the+snark" );

Add("the Web: Yahoo!", "",
  "http://www.yahoo.com/",
  "http://search.yahoo.com/bin/search?p=hunting+the+snark" );

Add("Weather (City, ST)", "",
  "http://www.nnic.noaa.gov/cgi-bin/page?pg=netcast",
  "http://www.nnic.noaa.gov/cgi-bin/netcast.do-it?state=hunting+the+snark&area=Local+Forecast&html=yes&match=strong");


// ADD YOUR OWN SEARCH ENGINES ABOVE.  (See http://www.cs.cmu.edu/~jab/snark/ )

function HandleForm(form) {
  form.submit();  // This fixes a mysterious Netscape bug.  Without this line,
                  // you can't use <enter> to start the search the first time.
  var i, oldq=form.query.value, newq="";
  for (i=0; i<oldq.length; i++) {  // compress [ ]+ into +
    var thischar = oldq.charAt(i);
    if (thischar != ' ')
      newq += thischar;
    else if (lastchar != ' ')
      newq += '+';
    lastchar = thischar;
  }
  var eng = engs[1+form.service.selectedIndex];
  location.href = newq ? eng.pre_snark + newq + eng.post_snark : eng.home;
}

function DisplayForm() {
  document.writeln('<CENTER><FORM OnSubmit="HandleForm(this); return false">');
  document.writeln('Search <SELECT name="service">');
  for (i=1; i <= engs.len; i++) {
    document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);
  }
  document.writeln('</SELECT> for <INPUT size=26 name="query">');
  document.writeln('<input type=submit value=" GO!">');
  document.writeln('</FORM> </CENTER>');
}

DisplayForm();

// done hiding from old browsers -->

</script>