1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
// This file is part of Roxen Search 
// Copyright © 2001 Roxen IS. All rights reserved. 
// 
// $Id: Base.pike,v 1.15 2003/03/19 10:53:26 jonasw Exp $ 
 
//! The MIME content types this class can filter. 
constant contenttypes = ({ }); 
 
constant tmp_filename = Search.TmpFile.tmp_filename; 
 
//! 
class Output 
{ 
  // Wide strings here 
 
  //! 
  mapping(string:string) fields=([]); 
  // body, title, description, keywords 
 
  //! 
  int document_size; 
 
  //! 
  mapping(string:string) uri_anchors=([]); 
  // Maps un-normalized URLs to raw text 
  // ([ "http://www.roxen.com": "the Roxen web-server" ]) 
 
  //! 
  array(Standards.URI|string) links=({}); 
 
  //! 
  void fix_relative_links(Standards.URI base_uri) 
  { 
    for(int i=0; i<sizeof(links); i++) 
    { 
      links[i]=Standards.URI(links[i], base_uri); 
      if(links[i]->fragment) 
        links[i]->fragment=0; 
    } 
  } 
} 
 
//! 
Output filter(Standards.URI uri, string|Stdio.File data, 
              string content_type, mixed ... more); 
 
string my_popen(array(string) args, string|void cwd, int|void wait_for_exit) 
  // A smarter version of Process.popen: No need to quote arguments. 
{     
  Stdio.File pipe0 = Stdio.File(); 
  Stdio.File pipe1 = pipe0->pipe(Stdio.PROP_IPC); 
  if(!pipe1) 
    if(!pipe1) error("my_popen failed (couldn't create pipe).\n"); 
  mapping setup = ([ "env":getenv(), "stdout":pipe1 ]); 
  if (cwd) 
    setup["cwd"] = cwd; 
  Process.create_process proc = Process.create_process(args, setup); 
  pipe1->close(); 
  string result = pipe0->read(); 
  if(!result) 
    error("my_popen failed with error "+pipe0->errno()+".\n"); 
  pipe0->close(); 
  if (wait_for_exit) 
    proc->wait(); 
  return result; 
}