diff options
Diffstat (limited to 'darwin')
| -rw-r--r-- | darwin/.cvsignore | 2 | ||||
| -rw-r--r-- | darwin/Makefile | 43 | ||||
| -rw-r--r-- | darwin/query.class | 95 |
3 files changed, 0 insertions, 140 deletions
diff --git a/darwin/.cvsignore b/darwin/.cvsignore deleted file mode 100644 index b8e8856..0000000 --- a/darwin/.cvsignore +++ /dev/null @@ -1,2 +0,0 @@ -*.slib -*.lib diff --git a/darwin/Makefile b/darwin/Makefile deleted file mode 100644 index bd59596..0000000 --- a/darwin/Makefile +++ /dev/null @@ -1,43 +0,0 @@ -## -## $Id$ -## -## Makefile for itools/darwin.lib -## - -CPP= cpp -QUIETMAKE= $(MAKE) -s -PHPCOMPILE= /usr/local/bin/phpcompile - -MODULE= darwin -SUBDIRS= -CLASSES= query.class - -# -# Library creation rules, do not change stuff below... -# -SLIB= $(MODULE).slib -LIB= ../$(MODULE).lib - -all: $(LIB) - -$(LIB): $(SLIB) - @if [ -x $(PHPCOMPILE) ]; then (echo Compiling $(SLIB) to $(LIB) ...) 1>&2; $(PHPCOMPILE) <$(SLIB) >$(LIB); else (echo $(PHPCOMPILE) not found, copying $(SLIB) to $(LIB) ...) 1>&2; cp $(SLIB) $(LIB); fi - -$(SLIB): $(CLASSES) DUMMY - @(echo Creating $(SLIB) from $(SUBDIRS) $(CLASSES) ...) 1>&2 - @echo "<?php" >$(SLIB) - @(for dir in DUMMY $(SUBDIRS); do (test -d $$dir && cd $$dir && $(QUIETMAKE) cat); done; for class in DUMMY $(CLASSES); do test -f $$class && cat $$class; done) | $(CPP) -P -undef | perl -ne 's/^\s+//g; print unless /^\s*$$/' | grep -v "^<?php" | grep -v "^?>" >>$(SLIB) - @echo "?>" >>$(SLIB) - -$(SUBDIRS):: - @(cd $@; $(QUIETMAKE)) - -DUMMY: - -cat: $(SLIB) - @cat $(SLIB) - -clean: - @(echo Cleaning $(SLIB) $(LIB) ...) 1>&2 - @rm -f $(SLIB) $(LIB) - @for dir in DUMMY $(SUBDIRS); do (test -d $$dir && cd $$dir && $(QUIETMAKE) $@) || :; done diff --git a/darwin/query.class b/darwin/query.class deleted file mode 100644 index f0a5b7e..0000000 --- a/darwin/query.class +++ /dev/null @@ -1,95 +0,0 @@ -<?php -/* -** $Id$ -** -** itools/darwin/query.class - Query the UltraDarwin 3000 Search Engine -** -** Requires: global $it_text object to determine result language -** -** $Log$ -** Revision 1.4 2000/05/08 16:01:21 cschneid -** Removed need to global $it_text object -** -** Revision 1.3 2000/05/08 15:44:18 cschneid -** Allow absolute http:// url to search binary -** -** Revision 1.2 2000/01/16 22:46:02 weber -** Renamed query to result to avoid confusion -** -** Revision 1.1 2000/01/12 02:26:21 weber -** Added darwin query class -** -** -*/ - -class it_darwin_query -{ - /* Public Result information (read only) */ - var $totalresults; /* Total number of results found */ - var $firstresult; /* first fetched result */ - var $lastresult; /* last fetched result */ - - /* Parameters (read only) */ - var $service; /* Service identifier for query URL */ - var $resultsperpage; /* Number of results to show per page */ - - /* Private */ - var $result; /* Raw query result array */ - var $resptr; /* Result array pointer */ - - /* Constructor */ - function it_darwin_query($service, $resultsperpage=10) - { - if (!ereg('^http://', $service)) - $service = "http://ultrasearch.relog.ch/$service/Search"; - - $this->service = $service; - $this->resultsperpage = $resultsperpage; - $this->totalresults = $this->firstresult = $this->lastresult = 0; - } - - - /* - ** Perform a query for $q starting at $rank. Return true on success, - ** false on error (no results is not an error) - */ - function query($q, $rank=0) - { - global $it_text; - - if (is_object($it_text)) - $lang = "&lang=" . $it_text->get_language(); - - $url = $this->service . "?q=" . urlencode($q) . "$lang&rank=$rank&n=" . $this->resultsperpage; - - /* debug("it_darwin::query(\"$url\",$rank)"); */ - - if ($this->result = file($url)) - { - $this->totalresults = trim($this->result[2]); - $this->firstresult = trim($this->result[3]); - $this->lastresult = trim($this->result[4]); - $this->resptr = $this->firstresult; - return 1; - } - return 0; - } - - /* Fetch a result as an array "url", "title", "description", "size", "date" */ - function fetch_array($number="XX") - { - /* debug("fetch_array($number), resptr==$this->resptr"); */ - if ($number != "XX") - $this->resptr = $number; - - if (($this->resptr >= $this->firstresult) && ($this->resptr <= $this->lastresult)) - { - $n = 5+($this->resptr-$this->firstresult)*5; /* start of result record */ - $this->resptr+=1; /* Spinn ich?? ++ geht nicht !! */ - return array("url" => trim($this->result[$n]), "title" => trim($this->result[$n+1]), "description" => trim($this->result[$n+2]), "size" => trim($this->result[$n+3])*1024, "date" => trim($this->result[$n+4])); - } - else return 0; /* Out of bounds */ - - } -} /* End class it_darwin_query */ -?> |