b399651997-07-22Henrik Grubbström (Grubba) constant cvs_version = "$Id: roxen.pike,v 1.87 1997/07/22 03:41:17 grubba Exp $";
4dd97c1996-12-04Per Hedbor #define IN_ROXEN
8540e11997-06-14Francesco Chemolli #include <roxen.h> #include <config.h>
8557d51997-02-19David Hedbor #ifdef THREADS
14179b1997-01-29Per Hedbor #include <fifo.h>
8557d51997-02-19David Hedbor #endif
b1fca01996-11-12Per Hedbor #include <module.h> #include <variables.h>
14179b1997-01-29Per Hedbor 
48fa361997-04-05Per Hedbor inherit "read_config";
b1fca01996-11-12Per Hedbor  #ifdef NO_DNS inherit "dummy_hosts"; #else inherit "hosts"; #endif inherit "socket"; inherit "disk_cache"; inherit "language";
603e0a1997-07-20Henrik Grubbström (Grubba) // This is the real Roxen version. It should be changed before each // release
85c30a1997-07-20Henrik Grubbström (Grubba) constant real_version = "Roxen Challenger/1.2alpha8";
603e0a1997-07-20Henrik Grubbström (Grubba) 
3e646f1997-05-15David Hedbor #if _DEBUG_HTTP_OBJECTS mapping httpobjects = ([]); static int idcount; int new_id(){ return idcount++; } #endif
0f8c871997-06-01Henrik Grubbström (Grubba) #ifdef MODULE_DEBUG #define MD_PERROR(X) perror X; #else #define MD_PERROR(X) #endif /* MODULE_DEBUG */
5e89211997-02-13Per Hedbor import Array; import spider;
aaef2a1997-03-02Henrik Grubbström (Grubba) import String;
48fa361997-04-05Per Hedbor import Stdio;
5e89211997-02-13Per Hedbor 
14179b1997-01-29Per Hedbor object roxen=this_object(), current_configuration;
48fa361997-04-05Per Hedbor // int num_connections;
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor private program Configuration; /*set in create*/
b1fca01996-11-12Per Hedbor 
48fa361997-04-05Per Hedbor array configurations = ({});
b1fca01996-11-12Per Hedbor object main_configuration_port;
e493e81997-07-11Per Hedbor mapping allmodules, somemodules=([]);
b1fca01996-11-12Per Hedbor  #if efun(send_fd) int shuffle_fd; #endif // A mapping from ports (objects, that is) to an array of information // about that port. // This will be moved to objects cloned from the configuration object // in the future. mapping portno=([]);
e382ed1997-07-16Henrik Grubbström (Grubba) // decode.pike used to be here. constant decode = MIME.decode_base64;
b1fca01996-11-12Per Hedbor // End of what was formely known as decode.pike, the base64 decoder // Function pointer and the root of the to the configuration interface // object. private function build_root; private object root; // Fork, and then do a 'slow-quit' in the forked copy. Exit the // original copy, after all listen ports are closed. // Then the forked copy finish all current connections. private static void fork_or_quit() { int i; object *f;
14179b1997-01-29Per Hedbor  int pid; perror("Exiting Roxen.\n");
b1fca01996-11-12Per Hedbor #ifdef SOCKET_DEBUG perror("SOCKETS: fork_or_quit()\n Bye!\n"); #endif if(fork()) exit(0); #if efun(_pipe_debug) call_out(lambda() { // Wait for all connections to finish
aaef2a1997-03-02Henrik Grubbström (Grubba)  call_out(Simulate.this_function(), 20);
b1fca01996-11-12Per Hedbor  if(!_pipe_debug()[0]) exit(0); }, 1); #endif call_out(lambda(){ exit(0); }, 600); // Slow buggers.. f=indices(portno); for(i=0; i<sizeof(f); i++) catch(destruct(f[i])); } // Keep a count of how many times in a row there has been an error // while 'accept'ing. private int failed_connections = 0; // This is called for each incoming connection. private static void accept_callback( object port ) {
14179b1997-01-29Per Hedbor  int q=QUERY(NumAccept);
b1fca01996-11-12Per Hedbor  object file;
14179b1997-01-29Per Hedbor  array pn=portno[port];
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor #ifdef DEBUG if(!pn)
b1fca01996-11-12Per Hedbor  { destruct(port->accept()); perror("$&$$& Garbage Collector bug!!\n"); return; }
14179b1997-01-29Per Hedbor #endif
b1fca01996-11-12Per Hedbor  while(q--) { catch { file = port->accept(); };
14179b1997-01-29Per Hedbor #ifdef SOCKET_DEBUG if(!pn[-1])
b1fca01996-11-12Per Hedbor  { report_error("In accept: Illegal protocol handler for port.\n"); if(file) destruct(file); return; } perror(sprintf("SOCKETS: accept_callback(CONF(%s))\n",
14179b1997-01-29Per Hedbor  pn[1]&&pn[1]->name||"Configuration"));
b1fca01996-11-12Per Hedbor #endif if(!file) { switch(port->errno()) { case 0: case 11: return; default: #ifdef DEBUG perror("Accept failed.\n"); # if efun(real_perror) real_perror(); # endif
95e2b41997-05-25Wilhelm Köhler #endif /* DEBUG */
b1fca01996-11-12Per Hedbor  return; case 24:
14179b1997-01-29Per Hedbor  report_fatal("Out of sockets. Restarting server gracefully.\n"); fork_or_quit();
b1fca01996-11-12Per Hedbor  return; } }
14179b1997-01-29Per Hedbor #ifdef SOCKET_DEBUG
b1fca01996-11-12Per Hedbor  mark_fd( file->query_fd(), "Connection from "+file->query_address());
14179b1997-01-29Per Hedbor #endif pn[-1](file,pn[1]);
b1fca01996-11-12Per Hedbor #ifdef SOCKET_DEBUG perror(sprintf("SOCKETS: Ok. Connect on %O:%O from %O\n",
14179b1997-01-29Per Hedbor  pn[2], pn[0], file->query_address())); #endif } }
3aaaa71997-06-12Wilhelm Köhler void unthreaded_handle(function f, mixed ... args) { f(@args); } function handle = unthreaded_handle;
14179b1997-01-29Per Hedbor #ifdef THREADS #define THREAD_DEBUG object (Queue) handle_queue = Queue(); void handler_thread(int id) { #ifdef THREAD_DEBUG perror("Handler thread "+id+" started.\n"); #endif array (mixed) h; while( h=handle_queue->read() ) { #ifdef THREAD_DEBUG
95e2b41997-05-25Wilhelm Köhler  //perror(id+" START.\n");
14179b1997-01-29Per Hedbor #endif #ifdef DEBUG array err= #endif catch { h[0](@h[1]); }; #ifdef DEBUG if(err) perror("Error in handler thread:\n"+describe_backtrace(err)+"\n"); #endif #ifdef THREAD_DEBUG
95e2b41997-05-25Wilhelm Köhler  //perror(id+" DONE.\n");
b1fca01996-11-12Per Hedbor #endif
14179b1997-01-29Per Hedbor  h=0;
b1fca01996-11-12Per Hedbor  } }
3aaaa71997-06-12Wilhelm Köhler void threaded_handle(function f, mixed ... args) { handle_queue->write(({f, args })); }
14179b1997-01-29Per Hedbor int number_of_threads; void start_handler_threads() {
a60c4c1997-07-03Henrik Grubbström (Grubba)  if (QUERY(numthreads) <= 1) { QUERY(numthreads) = 1; perror("Starting 1 thread to handle requests.\n"); } else { perror("Starting "+QUERY(numthreads)+" threads to handle requests.\n"); }
14179b1997-01-29Per Hedbor  for(; number_of_threads < QUERY(numthreads); number_of_threads++) thread_create( handler_thread, number_of_threads );
3aaaa71997-06-12Wilhelm Köhler  if(number_of_threads > 0) handle = threaded_handle;
14179b1997-01-29Per Hedbor }
95e2b41997-05-25Wilhelm Köhler #endif /* THREADS */
14179b1997-01-29Per Hedbor 
b1fca01996-11-12Per Hedbor // Listen to a port, connected to the configuration 'conf', binding // only to the netinterface 'ether', using 'requestprogram' as a // protocol handled. // If you think that the argument order is quite unintuitive and odd, // you are right, the order is the same as the implementation order. // Old spinners only listened to a port number, then the // configurations came, then the need to bind to a specific // ethernetinterface, and then the need to have more than one concurrent // protocol (http, ftp, ssl, etc.)
14179b1997-01-29Per Hedbor 
b1fca01996-11-12Per Hedbor object create_listen_socket(mixed port_no, object conf,
9f46de1997-04-08Per Hedbor  string|void ether, program requestprogram, array prt)
b1fca01996-11-12Per Hedbor { object port; #ifdef SOCKET_DEBUG perror(sprintf("SOCKETS: create_listen_socket(%d,CONF(%s),%s)\n", port_no, conf?conf->name:"Configuration port", ether)); #endif if(!requestprogram) error("No request handling module passed to create_listen_socket()\n"); if(!port_no) {
5e89211997-02-13Per Hedbor  port = files.port ( "stdin", accept_callback );
b1fca01996-11-12Per Hedbor  if(port->errno()) { report_error("Cannot listen to stdin.\n" "Errno is "+port->errno()+"\n"); } } else {
5e89211997-02-13Per Hedbor  port = files.port ();
b1fca01996-11-12Per Hedbor  if(!stringp(ether) || (lower_case(ether) == "any")) ether=0; if(ether) sscanf(ether, "addr:%s", ether);
19104e1996-12-07Per Hedbor 
b1fca01996-11-12Per Hedbor  if(!port->bind(port_no, accept_callback, ether)) { if(ether==0 || !port->bind(port_no, accept_callback)) { #ifdef SOCKET_DEBUG perror("SOCKETS: -> Failed.\n"); #endif
68a0a21997-06-12Henrik Grubbström (Grubba)  report_error("Failed to open socket on "+ether+":"+port_no+ " (already bound?)\nErrno is: "+ port->errno()+"\n");
b1fca01996-11-12Per Hedbor  return 0; } else if(ether) { report_error("Failed to bind to specific IP address " + ether + "(using ANY instead).\n"); ether=0; } } }
14179b1997-01-29Per Hedbor  portno[port]=({ port_no, conf, ether||"Any", 0, requestprogram });
b1fca01996-11-12Per Hedbor #ifdef SOCKET_DEBUG perror("SOCKETS: -> Ok.\n"); #endif return port; } // The configuration interface is loaded dynamically for faster // startup-time, and easier coding in the configuration interface (the // Roxen environment is already finished when it is loaded) object configuration_interface_obj; int loading_config_interface; int enabling_configurations; object configuration_interface() { if(enabling_configurations) return 0; if(loading_config_interface) { perror("Recursive calls to configuration_interface()\n" + describe_backtrace(backtrace())+"\n"); } if(!configuration_interface_obj) { perror("Loading configuration interface.\n"); loading_config_interface = 1;
01d0811996-11-12Mirar (Pontus Hagland)  configuration_interface_obj= ( (program) "mainconfig" )();
b1fca01996-11-12Per Hedbor  root = configuration_interface_obj->root; } if(!configuration_interface_obj) perror("Failed to load the configuration interface!\n"); loading_config_interface = 0; return configuration_interface_obj; } // Create a new configuration from scratch. // 'type' is as in the form. 'none' for a empty configuration. int add_new_configuration(string name, string type) { return configuration_interface()->low_enable_configuration(name, type); } // Call the configuration interface function. This is more or less // equivalent to a virtual configuration with the configurationinterface // mounted on '/'. This will probably be the case in future versions mixed configuration_parse(mixed ... args) { if(args) return configuration_interface()->configuration_parse(@args); }
025d221997-06-01Henrik Grubbström (Grubba) mapping(string:array(int)) error_log=([]);
ec2fe11997-06-09Henrik Grubbström (Grubba) string last_error="";
b1fca01996-11-12Per Hedbor // Write a string to the configuration interface error log and to stderr. void nwrite(string s, int|void perr) {
ec2fe11997-06-09Henrik Grubbström (Grubba)  last_error = s;
025d221997-06-01Henrik Grubbström (Grubba)  if (!error_log[s]) { error_log[s] = ({ time(1) }); } else { error_log[s] += ({ time(1) }); }
35aead1997-05-08Per Hedbor  roxen_perror(s);
b1fca01996-11-12Per Hedbor } // When was Roxen started? int start_time; string version() { return QUERY(ident); } // The db for the nice '<if supports=..>' tag. mapping (string:array (array (object|multiset))) supports; private multiset default_supports = (< >); private static inline array positive_supports(array from) { array res = copy_value(from); int i; for(i=0; i<sizeof(res); i++) if(res[i][0] == '-') res[i] = 0; return res - ({ 0 }); } private inline array negative_supports(array from) { array res = copy_value(from); int i; for(i=0; i<sizeof(res); i++) if(res[i][0] != '-') res[i] = 0; else res[i] = res[i][1..]; return res - ({ 0 }); } private static mapping foo_defines = ([ ]); // '#define' in the 'supports' file. static private string current_section; // Used below. // '#section' in the 'supports' file. private void parse_supports_string(string what) { string foo; array lines; int i; lines=replace(what, "\\\n", " ")/"\n"-({""}); foreach(lines, foo) { array bar, gazonk; if(foo[0] == '#') { string file; string name, to; if(sscanf(foo, "#include <%s>", file)) {
5e89211997-02-13Per Hedbor  if(foo=Stdio.read_bytes(file))
b1fca01996-11-12Per Hedbor  parse_supports_string(foo); else report_error("Supports: Cannot include file "+file+"\n"); } else if(sscanf(foo, "#define %[^ ] %s", name, to)) { name -= "\t"; foo_defines[name] = to; // perror("#defining '"+name+"' to "+to+"\n"); } else if(sscanf(foo, "#section %[^ ] {", name)) { // perror("Entering section "+name+"\n"); current_section = name; if(!supports[name]) supports[name] = ({}); } else if((foo-" ") == "#}") { // perror("Leaving section "+current_section+"\n"); current_section = 0; } else { // perror("Comment: "+foo+"\n"); } } else { int rec = 10; string q=replace(foo,",", " "); foo=""; // Handle all defines. while((strlen(foo)!=strlen(q)) && --rec) { foo=q; q = replace(q, indices(foo_defines), values(foo_defines)); } foo=q; if(!rec) perror("Too deep recursion while replacing defines.\n"); // perror("Parsing supports line '"+foo+"'\n"); bar = replace(foo, ({"\t",","}), ({" "," "}))/" " -({ "" }); foo=""; if(sizeof(bar) < 2) continue; if(bar[0] == "default")
01d0811996-11-12Mirar (Pontus Hagland)  default_supports = aggregate_multiset(@bar[1..]);
b1fca01996-11-12Per Hedbor  else { gazonk = bar[1..]; supports[current_section]
01d0811996-11-12Mirar (Pontus Hagland)  += ({ ({ Regexp(bar[0])->match, aggregate_multiset(@positive_supports(gazonk)), aggregate_multiset(@negative_supports(gazonk)),
b1fca01996-11-12Per Hedbor  })}); } } } } public void initiate_supports() { supports = ([ 0:({ }) ]); foo_defines = ([ ]); current_section = 0; parse_supports_string(QUERY(Supports)); foo_defines = 0; } array _new_supports = ({}); void done_with_roxen_com() { string new, old; new = _new_supports * "";
5e89211997-02-13Per Hedbor  old = Stdio.read_bytes( "etc/supports" );
b1fca01996-11-12Per Hedbor  if(strlen(new) < strlen(old)-200) // Error in transfer? return; if(old != new) {
a60c4c1997-07-03Henrik Grubbström (Grubba)  perror("Got new supports data from www.roxen.com\n");
b1fca01996-11-12Per Hedbor  perror("Replacing old file with new data.\n");
5c6bc51997-06-04Henrik Grubbström (Grubba)  object privs=((program)"privs")("Replacing etc/supports");
b1fca01996-11-12Per Hedbor  mv("etc/supports", "etc/supports~");
5e89211997-02-13Per Hedbor  Stdio.write_file("etc/supports", new); old = Stdio.read_bytes( "etc/supports" );
b1fca01996-11-12Per Hedbor  if(old != new) { perror("FAILED to update the supports file.\n"); mv("etc/supports~", "etc/supports");
5c6bc51997-06-04Henrik Grubbström (Grubba)  privs = 0; } else { privs = 0;
b1fca01996-11-12Per Hedbor  initiate_supports();
5c6bc51997-06-04Henrik Grubbström (Grubba)  }
b1fca01996-11-12Per Hedbor  } #ifdef DEBUG else perror("No change to the supports file.\n"); #endif } void got_data_from_roxen_com(object this, string foo) { if(!foo) return; _new_supports += ({ foo }); } void connected_to_roxen_com(object port) { if(!port) { #ifdef DEBUG
a60c4c1997-07-03Henrik Grubbström (Grubba)  perror("Failed to connect to www.roxen.com:80.\n");
b1fca01996-11-12Per Hedbor #endif return 0; } #ifdef DEBUG
a60c4c1997-07-03Henrik Grubbström (Grubba)  perror("Connected to www.roxen.com.:80\n");
b1fca01996-11-12Per Hedbor #endif _new_supports = ({}); port->set_id(port); port->write("GET /supports\n"); port->set_nonblocking(got_data_from_roxen_com, got_data_from_roxen_com, done_with_roxen_com); } public void update_supports_from_roxen_com() {
f6d62d1997-03-26Per Hedbor  if(QUERY(next_supports_update) <= time())
b1fca01996-11-12Per Hedbor  {
f6d62d1997-03-26Per Hedbor  if(QUERY(AutoUpdate)) {
bc42561997-06-12Henrik Grubbström (Grubba)  async_connect("www.roxen.com.", 80, connected_to_roxen_com);
b1fca01996-11-12Per Hedbor #ifdef DEBUG
bc42561997-06-12Henrik Grubbström (Grubba)  perror("Connecting to www.roxen.com.:80\n");
b1fca01996-11-12Per Hedbor #endif
f6d62d1997-03-26Per Hedbor  } remove_call_out( update_supports_from_roxen_com );
b1fca01996-11-12Per Hedbor  // Check again in one week.
f6d62d1997-03-26Per Hedbor  QUERY(next_supports_update)=3600*24*7 + time(); store("Variables", variables, 0, 0); } call_out(update_supports_from_roxen_com, QUERY(next_supports_update)-time());
b1fca01996-11-12Per Hedbor } // Return a list of 'supports' values for the current connection. public multiset find_supports(string from) { multiset (string) sup = (< >); multiset (string) nsup = (< >); array (function|multiset) s; string v; array f; if(from != "unknown") { foreach(indices(supports), v) { if(!v || !search(from, v)) { // perror("Section "+v+" match "+from+"\n"); f = supports[v]; foreach(f, s) if(s[0](from)) { sup |= s[1]; nsup |= s[2]; } } } if(!sizeof(sup)) { sup = default_supports; #ifdef DEBUG perror("Unknown client: "+from+"\n"); #endif } } else { sup = default_supports; } return sup - nsup; } public void log(mapping file, object request_id) {
14179b1997-01-29Per Hedbor  if(!request_id->conf) return; request_id->conf->log(file, request_id);
b1fca01996-11-12Per Hedbor } // Support for unique user id's private object current_user_id_file; private int current_user_id_number, current_user_id_file_last_mod; private void restore_current_user_id_number() { if(!current_user_id_file) current_user_id_file = open(configuration_dir + "LASTUSER~", "rwc"); if(!current_user_id_file) { call_out(restore_current_user_id_number, 2); return; } current_user_id_number = (int)current_user_id_file->read(100); current_user_id_file_last_mod = current_user_id_file->stat()[2]; perror("Restoring unique user ID information. (" + current_user_id_number + ")\n"); mark_fd(current_user_id_file->query_fd(), "Unique user ID logfile.\n"); }
f6d62d1997-03-26Per Hedbor 
b1fca01996-11-12Per Hedbor int increase_id() { if(!current_user_id_file) { restore_current_user_id_number(); return current_user_id_number+time(); } if(current_user_id_file->stat()[2] != current_user_id_file_last_mod) restore_current_user_id_number(); current_user_id_number++; //perror("New unique id: "+current_user_id_number+"\n"); current_user_id_file->seek(0); current_user_id_file->write((string)current_user_id_number); current_user_id_file_last_mod = current_user_id_file->stat()[2]; return current_user_id_number; } public string full_status() { int tmp; string res=""; array foo = ({0.0, 0.0, 0.0, 0.0, 0}); if(!sizeof(configurations)) return "<B>No virtual servers enabled</B>\n";
88e1cb1996-12-07David Hedbor #define conf configurations[tmp] for(tmp = 0; tmp < sizeof(configurations); tmp++)
b1fca01996-11-12Per Hedbor  {
88e1cb1996-12-07David Hedbor  if(!conf->sent ||!conf->received ||!conf->hsent) continue;
14179b1997-01-29Per Hedbor  foo[0]+=conf->sent->mb()/(float)(time(1)-start_time+1); foo[1]+=conf->sent->mb(); foo[2]+=conf->hsent->mb(); foo[3]+=conf->received->mb(); foo[4]+=conf->requests;
b1fca01996-11-12Per Hedbor  }
88e1cb1996-12-07David Hedbor #undef conf
b1fca01996-11-12Per Hedbor  for(tmp = 1; tmp < 4; tmp ++) { if(foo[tmp] < 1024.0)
27b0e11996-11-26Per Hedbor  foo[tmp] = sprintf("%.2f MB", foo[tmp]);
b1fca01996-11-12Per Hedbor  else
27b0e11996-11-26Per Hedbor  foo[tmp] = sprintf("%.2f GB", foo[tmp]/1024.0);
b1fca01996-11-12Per Hedbor  } res = ("<table><tr align=right><td><b>Sent data:</b></td><td>"+ foo[1] + sprintf("</td><td>%.2f Kbit</td>", foo[0] * 8192.0)); res += "<td><b>Sent headers:</b></td><td>"+ foo[2] +"</td>\n"; tmp=(foo[4]*600)/((time(1)-start_time)+1); res += ("<tr align=right><td><b>Number of requests:</b></td><td>" + sprintf("%8d", foo[4]) + sprintf("</td><td>%.2f/min</td>", (float)tmp/(float)10)+ "<td><b>Recieved data:</b></td><td>" + foo[3] +"</td>"); return res +"</table>"; } // These are now more or less outdated, the modules really _should_ // pass the information about the current configuration to roxen, // to enable async operations. This information is in id->conf. // // In the future, most, if not all, of these functions will be moved // to the configuration object. The functions will still be here for // compatibility for a while, though.
d589871997-03-09Henrik Grubbström (Grubba) public string *userlist(void|object id)
b1fca01996-11-12Per Hedbor {
48fa361997-04-05Per Hedbor  if(id) current_configuration = id->conf;
b1fca01996-11-12Per Hedbor  if(current_configuration->auth_module) return current_configuration->auth_module->userlist(); return 0; }
d589871997-03-09Henrik Grubbström (Grubba) public string *user_from_uid(int u, void|object id)
b1fca01996-11-12Per Hedbor {
48fa361997-04-05Per Hedbor  if(id) current_configuration = id->conf;
b1fca01996-11-12Per Hedbor  if(current_configuration->auth_module) return current_configuration->auth_module->user_from_uid(u); } public string last_modified_by(object file, object id) { int *s; int uid; mixed *u; if(objectp(file)) s=file->stat(); if(!s || sizeof(s)<5) return "A. Nonymous"; uid=s[5]; u=user_from_uid(uid, id); if(u) return u[0]; return "A. Nonymous"; } // FIXME private object find_configuration_for(object bar) { object maybe; if(!bar) return configurations[0]; foreach(configurations, maybe) if(maybe->otomod[bar]) return maybe; return configurations[-1]; } // FIXME
d589871997-03-09Henrik Grubbström (Grubba) public varargs array|string type_from_filename( string file, int to )
b1fca01996-11-12Per Hedbor { mixed tmp;
14179b1997-01-29Per Hedbor  object current_configuration;
b1fca01996-11-12Per Hedbor  string ext=extension(file); if(!current_configuration)
aaef2a1997-03-02Henrik Grubbström (Grubba)  current_configuration = find_configuration_for(Simulate.previous_object());
b1fca01996-11-12Per Hedbor  if(!current_configuration->types_fun) return to?({ "application/octet-stream", 0 }):"application/octet-stream"; while(file[-1] == '/') file = file[0..strlen(file)-2]; // Security patch? if(tmp = current_configuration->types_fun(ext)) { mixed tmp2,nx; if(tmp[0] == "strip") { tmp2=file/"."; if(sizeof(tmp2) > 2) nx=tmp2[-2]; if(nx && (tmp2=current_configuration->types_fun(nx))) tmp[0] = tmp2[0]; else if(tmp2=current_configuration->types_fun("default")) tmp[0] = tmp2[0]; else tmp[0]="application/octet-stream"; } return to?tmp:tmp[0]; } else { if(!(tmp=current_configuration->types_fun("default"))) tmp=({ "application/octet-stream", 0 });
44e3371997-06-12Per Hedbor  return to?tmp:tmp[0]; // Per..
b1fca01996-11-12Per Hedbor  } return 0; }
14179b1997-01-29Per Hedbor #define COMPAT_ALIAS(X) mixed X(string file, object id){return id->conf->X(file,id);}
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor COMPAT_ALIAS(find_dir); COMPAT_ALIAS(stat_file); COMPAT_ALIAS(access); COMPAT_ALIAS(real_file); COMPAT_ALIAS(is_file); COMPAT_ALIAS(userinfo);
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor public mapping|int get_file(object id, int|void no_magic) { return id->conf->get_file(id, no_magic); }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor public mixed try_get_file(string s, object id, int|void status, int|void nocache) { return id->conf->try_get_file(s,id,status,nocache); }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor // Called from the configuration interface. string check_variable(string name, string value) { switch(name)
b1fca01996-11-12Per Hedbor  {
14179b1997-01-29Per Hedbor  case "cachedir": if(!sscanf(value, "%*s/roxen_cache")) { object node; node = (configuration_interface()->root->descend("Globals", 1)-> descend("Proxy disk cache: Base Cache Dir", 1)); if(node && !node->changed) node->change(1); call_out(set, 0, "cachedir", value+"roxen_cache/"); mkdirhier(value+"roxen_cache/foo"); } break;
27b0e11996-11-26Per Hedbor 
14179b1997-01-29Per Hedbor  case "ConfigurationURL": case "MyWorldLocation": if(strlen(value)<7 || value[-1] != '/' || !(sscanf(value,"%*s://%*s/")==2)) return "The URL should follow this format: protocol://computer[:port]/"; }
b1fca01996-11-12Per Hedbor }
14179b1997-01-29Per Hedbor void stop_all_modules()
b1fca01996-11-12Per Hedbor {
14179b1997-01-29Per Hedbor  foreach(configurations, object conf) conf->stop();
b1fca01996-11-12Per Hedbor }
14179b1997-01-29Per Hedbor // Perhaps somewhat misnamed, really... This function will close all // listen ports, fork a new copy to handle the last connections, and // then quit the original process. The 'start' script should then // start a new copy of roxen automatically. mapping restart() { stop_all_modules(); call_out(fork_or_quit, 1);
5e89211997-02-13Per Hedbor  return ([ "data":Stdio.read_bytes("etc/restart.html"), "type":"text/html" ]);
14179b1997-01-29Per Hedbor } private array configuration_ports = ({ }); int startpid;
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor // This has to be refined in some way. It is not all that nice to do // it like this (write a file in /tmp, and then exit.) The major part // of code to support this is in the 'start' script. mapping shutdown()
b1fca01996-11-12Per Hedbor {
5e89211997-02-13Per Hedbor  catch(Array.map(indices(portno)), destruct);
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  object privs = ((program)"privs")("Shutting down the server"); // Change to root user.
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  stop_all_modules(); if(main_configuration_port && objectp(main_configuration_port))
b1fca01996-11-12Per Hedbor  {
14179b1997-01-29Per Hedbor  // Only _really_ do something in the main process. int pid;
5e89211997-02-13Per Hedbor  catch(map(configuration_ports, destruct));
14179b1997-01-29Per Hedbor  perror("Shutting down Roxen.\n"); // Fallback for systems without geteuid, Roxen will (probably) // not be able to kill the start-script if this is the case. rm("/tmp/Roxen_Shutdown_"+startpid);
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  object f; f=open("/tmp/Roxen_Shutdown_"+startpid, "wc"); if(!f) perror("cannot open shutdown file.\n"); else f->write(""+getpid());
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  if(startpid != getpid())
b1fca01996-11-12Per Hedbor  {
14179b1997-01-29Per Hedbor  kill(startpid, signum("SIGINTR")); kill(startpid, signum("SIGHUP"));
5e89211997-02-13Per Hedbor  kill(getppid(), signum("SIGINTR")); kill(getppid(), signum("SIGHUP"));
14179b1997-01-29Per Hedbor // kill(startpid, signum("SIGKILL"));
b1fca01996-11-12Per Hedbor  } }
14179b1997-01-29Per Hedbor  call_out(exit, 1, 0);
5e89211997-02-13Per Hedbor  return ([ "data":replace(Stdio.read_bytes("etc/shutdown.html"), "$PWD", getcwd()),
14179b1997-01-29Per Hedbor  "type":"text/html" ]); }
b1fca01996-11-12Per Hedbor 
82f5191997-03-02Per Hedbor private string docurl;
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor // I will remove this in a future version of roxen. private program __p; private mapping my_loaded = ([]); program last_loaded() { return __p; }
b1fca01996-11-12Per Hedbor 
68a0a21997-06-12Henrik Grubbström (Grubba) string last_module_name;
14179b1997-01-29Per Hedbor string filename(object o) {
68a0a21997-06-12Henrik Grubbström (Grubba)  return my_loaded[object_program(o)]||last_module_name;
14179b1997-01-29Per Hedbor }
b1fca01996-11-12Per Hedbor 
e382ed1997-07-16Henrik Grubbström (Grubba) // ([ filename:stat_array ]) mapping(string:array) module_stat_cache = ([]);
14179b1997-01-29Per Hedbor object load(string s) // Should perhaps be renamed to 'reload'. {
08065d1997-05-27Per Hedbor  string cvs;
e493e81997-07-11Per Hedbor  array st;
08065d1997-05-27Per Hedbor  sscanf(s, "/cvs:%s", cvs);
82f5191997-03-02Per Hedbor // perror("Module is "+s+"?");
e493e81997-07-11Per Hedbor  if(st=file_stat(s+".pike"))
5e89211997-02-13Per Hedbor  {
82f5191997-03-02Per Hedbor // perror("Yes, compile "+s+"?");
08065d1997-05-27Per Hedbor  if((cvs?(__p=master()->cvs_load_file( cvs+".pike" )) :(__p=compile_file(s+".pike"))))
14179b1997-01-29Per Hedbor  {
82f5191997-03-02Per Hedbor // perror("Yes.");
14179b1997-01-29Per Hedbor  my_loaded[__p]=s+".pike";
e493e81997-07-11Per Hedbor  module_stat_cache[s-dirname(s)]=st;
14179b1997-01-29Per Hedbor  return __p();
5e89211997-02-13Per Hedbor  } else perror(s+".pike exists, but compilation failed.\n"); }
e493e81997-07-11Per Hedbor  if(st=file_stat(s+".lpc"))
08065d1997-05-27Per Hedbor  if(cvs?(__p=master()->cvs_load_file( cvs+".lpc" )): (__p=compile_file(s+".lpc")))
2a2a5b1996-12-01Per Hedbor  { my_loaded[__p]=s+".lpc";
e493e81997-07-11Per Hedbor  module_stat_cache[s-dirname(s)]=st;
2a2a5b1996-12-01Per Hedbor  return __p();
5e89211997-02-13Per Hedbor  } else perror(s+".lpc exists, but compilation failed.\n");
e493e81997-07-11Per Hedbor  if(st=file_stat(s+".module"))
5e89211997-02-13Per Hedbor  if(__p=load_module(s+".so"))
2a2a5b1996-12-01Per Hedbor  {
5e89211997-02-13Per Hedbor  my_loaded[__p]=s+".so";
e493e81997-07-11Per Hedbor  module_stat_cache[s-dirname(s)]=st;
2a2a5b1996-12-01Per Hedbor  return __p();
5e89211997-02-13Per Hedbor  } else perror(s+".so exists, but compilation failed.\n");
b1fca01996-11-12Per Hedbor  return 0; // FAILED.. }
ab2f671996-11-12Mirar (Pontus Hagland) array(string) expand_dir(string d)
5e4ede1996-11-12Per Hedbor { string nd;
ab2f671996-11-12Mirar (Pontus Hagland)  array(string) dirs=({d});
5e4ede1996-11-12Per Hedbor 
5e89211997-02-13Per Hedbor //perror("Expand dir "+d+"\n");
82f5191997-03-02Per Hedbor  catch { foreach((get_dir(d) || ({})) - ({"CVS"}) , nd) if(file_stat(d+nd)[1]==-2) dirs+=expand_dir(d+nd+"/"); }; // This catch is needed....
ab2f671996-11-12Mirar (Pontus Hagland)  return dirs;
5e4ede1996-11-12Per Hedbor }
ab2f671996-11-12Mirar (Pontus Hagland) array(string) last_dirs=0,last_dirs_expand;
5e4ede1996-11-12Per Hedbor object load_from_dirs(array dirs, string f)
14179b1997-01-29Per Hedbor { string dir; object o;
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  if (dirs!=last_dirs) {
5e89211997-02-13Per Hedbor  last_dirs_expand=({}); foreach(dirs, dir) last_dirs_expand+=expand_dir(dir);
14179b1997-01-29Per Hedbor  }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  foreach (last_dirs_expand,dir) if ( (o=load(dir+f)) ) return o;
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  return 0; }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor void create()
b1fca01996-11-12Per Hedbor {
5e89211997-02-13Per Hedbor  add_constant("roxen", this_object());
aaef2a1997-03-02Henrik Grubbström (Grubba)  add_constant("spinner", this_object()); add_constant("load", load);
82f5191997-03-02Per Hedbor  (object)"color.pike";
8e727d1997-03-11Per Hedbor  (object)"fonts.pike";
14179b1997-01-29Per Hedbor  Configuration = (program)"configuration";
b1fca01996-11-12Per Hedbor } // Get the current domain. This is not as easy as one could think. private string get_domain(int|void l) { array f; string t, s; // ConfigurationURL is set by the 'install' script. if(!(!l && sscanf(QUERY(ConfigurationURL), "http://%s:%*s", s))) {
1e64b61997-01-09Anders Jackson #if efun(gethostbyname) && efun(gethostname)
b1fca01996-11-12Per Hedbor  f = gethostbyname(gethostname()); // First try.. if(f)
ea9a311997-03-01Henrik Grubbström (Grubba)  foreach(f, f) if (arrayp(f)) { foreach(f, t) if(search(t, ".") != -1 && !(int)t) if(!s || strlen(s) < strlen(t)) s=t; }
b1fca01996-11-12Per Hedbor #endif if(!s) { t = read_bytes("/etc/resolv.conf"); if(t) { if(!sscanf(t, "domain %s\n", s)) if(!sscanf(t, "search %s%*[ \t\n]", s)) s="nowhere"; } else { s="nowhere"; } s = "host."+s; } } sscanf(s, "%*s.%s", s); if(s && strlen(s)) { if(s[-1] == '.') s=s[..strlen(s)-2]; if(s[0] == '.') s=s[1..]; } else { s="unknown"; } return s; } // This is the most likely URL for a virtual server. Again, this // should move into the actual 'configuration' object. It is not all // that nice to have all this code lying around in here. private string get_my_url() { string s; s = (gethostname()/".")[0] + "." + query("Domain"); s -= "\n"; return "http://" + s + "/"; }
14179b1997-01-29Per Hedbor // Set the uid and gid to the ones requested by the user. If the sete* // functions are available, and the define SET_EFFECTIVE is enabled, // the euid and egid is set. This might be a minor security hole, but // it will enable roxen to start CGI scripts with the correct // permissions (the ones the owner of that script have).
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor int set_u_and_gid()
b1fca01996-11-12Per Hedbor {
14179b1997-01-29Per Hedbor  string u, g; array pw;
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  u=QUERY(User); if(sscanf(u, "%s:%s", u, g) == 2) { if(getuid()) { perror("It is not possible to change uid and gid if the server\n" "is not started as root.\n"); } else { if(pw = getpwnam(u)) { u = (string)pw[2]; } else pw = getpwuid((int)u); #if efun(initgroups) if(pw) initgroups(pw[0], (int)g);
b1fca01996-11-12Per Hedbor #endif
14179b1997-01-29Per Hedbor #if efun(setegid) && defined(SET_EFFECTIVE) setegid((int)g); #else setgid((int)g); #endif #if efun(seteuid) && defined(SET_EFFECTIVE) seteuid((int)u); #else setuid((int)u); #endif return 1; } } }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor static mapping __vars = ([ ]);
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor // These two should be documented somewhere. They are to be used to // set global, but non-persistent, variables in Roxen. By using // these functions modules can "communicate" with one-another. This is // not really possible otherwise. mixed set_var(string var, mixed to) { __vars[var] = to; }
ba73a21996-12-10Per Hedbor 
14179b1997-01-29Per Hedbor mixed query_var(string var) { return __vars[var]; }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor // The update_*_vars functions are here to automatically change the // configurationfileformat between releases, so the user can reuse the // old configuration files. They are very useful, atleast for me.
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor private void update_global_vars(int from) { string report = ""; #define perr(X) do { report += X; perror(X); } while(0) perr("Updating global variables file....\n"); perr("----------------------------------------------------\n"); switch(from) { case 0: // if(!QUERY(IfModified)) // { // perr("Setting the 'honor If-Modified-Since: flag to true. The " // "bug\nin Roxen seems to be gone now.\n"); // QUERY(IfModified) = 1; // }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  case 1: case 2: case 3: perr("The configuration port variable is now a standard port.\n" "Adding the port '"+QUERY(ConfigurationPort)+" http "+ QUERY(ConfigurationIP)+"\n"); QUERY(ConfigPorts) = ({ ({ QUERY(ConfigurationPort), "http", QUERY(ConfigurationIP), "" }) }); case 4: case 5:
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  if(search(QUERY(ident), "Spinner")!=-1) { QUERY(ident) = real_version; perr("Updating version field to "+real_version+"\n"); }
b1fca01996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor  if(search(QUERY(ident), "Challenger")!=-1) QUERY(ident) = real_version; if(!search(QUERY(ident), "Roxen Challenger/1.0") && (replace(QUERY(ident),"·"," ") != real_version)) { QUERY(ident)=real_version; perr("Updating version field to "+real_version+"\n"); } else { perr("Not updating version field ("+QUERY(ident)+") since it is " "either already updated, or modified by the administrator.\n"); } case 6: // Current level
b1fca01996-11-12Per Hedbor  }
14179b1997-01-29Per Hedbor  perr("----------------------------------------------------\n"); report_debug(report); }
5e4ede1996-11-12Per Hedbor 
14179b1997-01-29Per Hedbor object enable_configuration(string name) { object cf = Configuration(name); configurations += ({ cf });
9f46de1997-04-08Per Hedbor  current_configuration = cf;
14179b1997-01-29Per Hedbor  return cf;
b1fca01996-11-12Per Hedbor } // Enable all configurations static private void enable_configurations() {
14179b1997-01-29Per Hedbor  array err;
b1fca01996-11-12Per Hedbor  enabling_configurations = 1;
48fa361997-04-05Per Hedbor  configurations = ({}); foreach(list_all_configurations(), string config) { if(err=catch { enable_configuration(config)->start(); }) perror("Error while enabling configuration "+config+":\n"+ describe_backtrace(err)+"\n");
b1fca01996-11-12Per Hedbor  }; enabling_configurations = 0; } // return the URL of the configuration interface. This is not as easy // as it sounds, unless the administrator has entered it somewhere. public string config_url() { if(strlen(QUERY(ConfigurationURL)-" ")) return QUERY(ConfigurationURL)-" "; array ports = QUERY(ConfigPorts), port, tmp; if(!sizeof(ports)) return "CONFIG"; int p; string prot; string host; foreach(ports, tmp)
9f46de1997-04-08Per Hedbor  if(tmp[1][0..2]=="ssl")
b1fca01996-11-12Per Hedbor  { port=tmp; break; } if(!port) foreach(ports, tmp) if(tmp[1]=="http") { port=tmp; break; } if(!port) port=ports[0]; if(port[2] == "ANY") // host = quick_ip_to_host( port[2] ); // else { #if efun(gethostname) host = gethostname(); #else host = "127.0.0.1"; #endif }
9f46de1997-04-08Per Hedbor  prot = (port[1][0..2]!="ssl"?port[1]:"https");
b1fca01996-11-12Per Hedbor  p = port[0]; return (prot+"://"+host+":"+p+"/"); } // The following three functions are used to hide variables when they // are not used. This makes the user-interface clearer and quite a lot // less clobbered. int cache_disabled_p() { return !QUERY(cache); } int syslog_disabled() { return QUERY(LogA)!="syslog"; } private void define_global_variables( int argc, array (string) argv ) { int p; // Hidden variables (compatibility ones, or internal or too // dangerous (in the case of chroot, the variable is totally // removed. globvar("set_cookie", 1, "Set unique user id cookies", TYPE_FLAG, "If set, all users of your server whose clients supports " "cookies will get a unique 'user-id-cookie', this can then be " "used in the log and in scripts to track individual users.");
a773c61997-07-06Henrik Grubbström (Grubba)  globvar("set_cookie_only_once",0,"Set ID cookies only once",TYPE_FLAG, "If set, Roxen will attempt to set unique user ID cookies only " "upon receiving the first request (and again after some minutes). " "Thus, if the user doesn't allow the cookie to be set, he won't be " "bothered with multiple requests",0, lambda() {return !QUERY(set_cookie);});
b1fca01996-11-12Per Hedbor  globvar("show_internals", 1, "Show the internals", TYPE_FLAG, "Show 'Internal server error' messages to the user. " "This is very useful if you are debugging your own modules "
d8aa651996-12-09David Hedbor  "or writing Pike scripts.");
b1fca01996-11-12Per Hedbor  globvar("ConfigurationIP", "ANY", "Configuration interface: Interface", TYPE_STRING, "The IP number to bind to. If set to 127.0.0.1, all configuration " "will have to take place from the localhost. This is most secure, " "but it will be more cumbersome to configure the server remotely.", 0, 1); globvar("ConfigurationPort", 22202, "Configuration interface: Port", TYPE_INT, "the portnumber of the configuration interface. Anything will do, " "but you will have to be able to remember it to configure " "the server.", 0, 1); globvar("_v", CONFIGURATION_FILE_LEVEL, 0, TYPE_INT, 0, 0, 1);
8e727d1997-03-11Per Hedbor  globvar("default_font_size", 32, 0, TYPE_INT, 0, 0, 1); globvar("default_font", "lucida", "Fonts: Default font", TYPE_FONT, "The default font to use when modules request a font.");
85a2e51997-06-23Per Hedbor // globvar("font_dir", "nfonts/", "Fonts: Font directory", TYPE_DIR, // "This is where the fonts are located."); globvar("font_dirs", ({"../nfonts/", "nfonts/" }), "Fonts: Font directories", TYPE_DIR_LIST,
8e727d1997-03-11Per Hedbor  "This is where the fonts are located.");
e4bc531996-11-15Per Hedbor  globvar("logdirprefix", "../logs/", "Log directory prefix", TYPE_DIR, "This is the default file path that will be prepended to the log " " file path in all the default modules and the virtual server.");
b1fca01996-11-12Per Hedbor  // Cache variables. The actual code recides in the file // 'disk_cache.pike' globvar("cache", 0, "Proxy disk cache: Enabled", TYPE_FLAG, "Is the cache enabled at all?"); globvar("garb_min_garb", 1, "Proxy disk cache: Clean size", TYPE_INT, "Minimum number of Megabytes removed when a garbage collect is done", 0, cache_disabled_p); globvar("cache_minimum_left", 5, "Proxy disk cache: Minimum "
f8978c1997-03-20Wilhelm Köhler  "available free space and inodes (in %)", TYPE_INT, "If less than this amount of disk space or inodes (in %) is left, " "the cache will remove a few files. This check may work half hearted " "if the diskcache is spread over several filesystems.",
3aaaa71997-06-12Wilhelm Köhler  0, #if efun(filesystem_stat) cache_disabled_p #else 1 #endif /* filesystem_stat */ );
b1fca01996-11-12Per Hedbor  globvar("cache_size", 25, "Proxy disk cache: Size", TYPE_INT,
27b0e11996-11-26Per Hedbor  "How many MB may the cache grow to before a garbage collect is done?",
b1fca01996-11-12Per Hedbor  0, cache_disabled_p);
f8978c1997-03-20Wilhelm Köhler  globvar("cache_max_num_files", 0, "Proxy disk cache: Maximum number " "of files", TYPE_INT, "How many cache files (inodes) may " "be on disk before a garbage collect is done ? May be left " "zero to disable this check.", 0, cache_disabled_p);
b1fca01996-11-12Per Hedbor  globvar("bytes_per_second", 50, "Proxy disk cache: Bytes per second", TYPE_INT, "How file size should be treated during garbage collect. " " Each X bytes counts as a second, so that larger files will" " be removed first.", 0, cache_disabled_p);
88e1cb1996-12-07David Hedbor  globvar("cachedir", "/tmp/roxen_cache/", "Proxy disk cache: Base Cache Dir",
b1fca01996-11-12Per Hedbor  TYPE_DIR, "This is the base directory where cached files will reside. " "To avoid mishaps, 'roxen_cache/' is always prepended to this " "variable.", 0, cache_disabled_p);
e4bc531996-11-15Per Hedbor  globvar("hash_num_dirs", 500, "Proxy disk cache: Number of hash directories", TYPE_INT, "This is the number of directories to hash the contents of the disk " "cache into. Changing this value currently invalidates the whole " "cache, since the cache cannot find the old files. In the future, "
88e1cb1996-12-07David Hedbor  " the cache will be recalculated when this value is changed.", 0, cache_disabled_p);
e4bc531996-11-15Per Hedbor 
f8978c1997-03-20Wilhelm Köhler  globvar("cache_keep_without_content_length", 1, "Proxy disk cache: " "Keep without Content-Length", TYPE_FLAG, "Keep files " "without Content-Length header information in the cache ?", 0, cache_disabled_p); globvar("cache_check_last_modified", 0, "Proxy disk cache: " "Refresh on Last-Modified", TYPE_FLAG, "Refresh files without " "Expires header information after they stayed in the cache " "as long as they were old when they got cached ? " "This may be useful for some regularly updated docs as in " "online newpapers.", 0, cache_disabled_p); globvar("cache_last_ressort", 0, "Proxy disk cache: " "Last ressort (in days)", TYPE_INT, "How many days " "shall files without Expires and without Last-Modified header " "information be kept ?", 0, cache_disabled_p); globvar("cache_gc_logfile", "", "Proxy disk cache: " "Garbage collector logfile", TYPE_FILE, "Information about garbage collector runs, removed and refreshed " "files, cache and disk status goes here.",
48fa361997-04-05Per Hedbor  0, cache_disabled_p);
f8978c1997-03-20Wilhelm Köhler 
e4bc531996-11-15Per Hedbor  /// End of cache variables..
b1fca01996-11-12Per Hedbor 
a60c4c1997-07-03Henrik Grubbström (Grubba)  globvar("docurl", "http://www.roxen.com", "Documentation URL",
b1fca01996-11-12Per Hedbor  TYPE_STRING, "The URL to prepend to all documentation urls throughout the " "server. This URL should _not_ end with a '/'."); globvar("pidfile", "/tmp/roxen_pid:$uid", "PID file", TYPE_FILE, "In this file, the server will write out it's PID, and the PID " "of the start script. $pid will be replaced with the pid, and " "$uid with the uid of the user running the process."); globvar("ident", replace(real_version," ","·"), "Identify as", TYPE_STRING, "What Roxen will call itself when talking to clients " "It might be useful to set this so that it does not include " "the actual version of Roxen, as recommended by " "the HTTP/1.0 draft 03:<p><blockquote><i>" "Note: Revealing the specific software version of the server " "may allow the server machine to become more vulnerable to " "attacks against software that is known to contain security " "holes. Server implementors are encouraged to make this field " "a configurable option.</i></blockquote>"); globvar("BS", 0, "Configuration interface: Compact layout", TYPE_FLAG, "Sick and tired of all those images? Set this variable to 'Yes'!"); globvar("DOC", 1, "Configuration interface: Help texts", TYPE_FLAG, "Do you want documentation? (this is an example of documentation)"); globvar("BG", 1, "Configuration interface: Background", TYPE_FLAG, "Should the background be set by the configuration interface?"); globvar("NumAccept", 1, "Number of accepts to attempt", TYPE_INT_LIST, "The maximum number of accepts to attempt for each read callback " "from the main socket. <p> Increasing this will make the server" " faster for users making many simultaneous connections to it, or" " if you have a very busy server. <p> It won't work on some systems" ", though, eg. IBM AIX 3.2<p> To see if it works, change this" " variable, <b> but don't press save</b>, and then try connecting to" " your server. If it works, come back here and press the save button" ". <p> If it doesen't work, just restart the server and be happy " "with having '1' in this field.<p>" "The higher you set this value, the less load balancing between" " virtual servers (if there are 256 more or less simultaneous " "requests to server 1, and one to server 2, and this variable is " "set to 256, the 256 accesses to the first server might very well be" " handled before the one to the second server.)",
14179b1997-01-29Per Hedbor  ({ 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024 }));
b1fca01996-11-12Per Hedbor  globvar("ConfigPorts", ({ ({ 22202, "http", "ANY", "" }) }), "Configuration interface: Ports", TYPE_PORTS, "The ports that the configuration interface will be " "accessible via.<p>If you have none, you have a problem.\n"); globvar("ConfigurationURL", "", "Configuration interface: URL", TYPE_STRING, "The URL of the configuration interface. This is used to " "generate redirects now and then (when you press save, when " "a module is added, etc.)."); globvar("ConfigurationPassword", "", "Configuration interface: Password", TYPE_PASSWORD, "The password you will have to enter to use the configuration " "interface. Please note that changing this password in the " "configuration interface will _not_ require an additional entry " "of the password, so it is easy to make a typo. It is recommended " "that you use the <a href=/(changepass)/Globals/>form instead</a>."); globvar("ConfigurationUser", "", "Configuration interface: User", TYPE_STRING, "The username you will have to enter to use the configuration " "interface"); globvar("ConfigurationIPpattern", "*", "Configuration interface: IP-Pattern", TYPE_STRING, "The IP-pattern hosts trying to connect to the configuration " "interface will have to match."); globvar("User", "", "Change uid and gid to", TYPE_STRING, "When roxen is run as root, to be able to open port 80 " "for listening, change to this user-id:group-id when the port " " has been opened. <b>NOTE:</b> Since this is done before the " "modules have been loaded, you will have to use the numeric user and" " group id's, and not the symbolic ones.\n"); globvar("NumHostnameLookup", 2, "Number of hostname lookup processes", TYPE_INT, "The number of simultaneos host-name lookup processes roxen should " "run. Roxen must be restarted for a change of this variable to "+ "take effect. If you constantly see a large host name lookup " "queue size in the configuration interface 'Status' section, " "consider increasing this variable. A good guidline is: " "<ul>\n" "<li> 1 for normal operation\n" "<li> 1 extra for each 300 000 accesses/day\n" "<li> 1 for each proxy\n" "<li> 1 for each 100 proxy users\n" "</ul>\n"); globvar("ModuleDirs", ({ "modules/" }), "Module directories", TYPE_DIR_LIST, "Where to look for modules. Can be relative paths, from the "
01d0811996-11-12Mirar (Pontus Hagland)  "directory you started roxen, " + getcwd() + " this time."
b1fca01996-11-12Per Hedbor  " The directories are searched in order for modules."); globvar("Supports", "#include <etc/supports>\n", "Client supports regexps", TYPE_TEXT_FIELD, "What do the different clients support?\n<br>" "The default information is normally fetched from the file "+
01d0811996-11-12Mirar (Pontus Hagland)  getcwd()+"etc/supports, and the format is:<pre>"
b1fca01996-11-12Per Hedbor  "<a href=$docurl/configuration/regexp.html>regular-expression</a>" " feature, -feature, ...\n" "</pre>" "If '-' is prepended to the name of the feature, it will be removed" " from the list of features of that client. All patterns that match" " each given client-name are combined to form the final feature list" ". See the file etc/supports for examples.");
14179b1997-01-29Per Hedbor // globvar("IfModified", 1, "Honor If-Modified-Since headers", TYPE_FLAG, // "If set, send a 'Not modified' response in reply to " // "if-modified-since headers, as " // "<a href=http://www.w3.org/pub/WWW/Protocols/HTTP/1.1/spec" // "#If-Modified-Since>specified by the HTTP draft.</a>");
b1fca01996-11-12Per Hedbor 
ba73a21996-12-10Per Hedbor  globvar("audit", 0, "Audit trail", TYPE_FLAG, "If set, log all changes of uid in the debug log.");
b1fca01996-11-12Per Hedbor #if efun(syslog) globvar("LogA", "file", "Logging method", TYPE_STRING_LIST, "What method to use for logging, default is file, but " "syslog is also available. When using file, the output is really" " sent to stdout and stderr, but this is handled by the " "start script", ({ "file", "syslog" })); globvar("LogSP", 1, "Syslog: Log PID", TYPE_FLAG, "If set, the PID will be included in the syslog", 0, syslog_disabled); globvar("LogCO", 0, "Syslog: Log to system console", TYPE_FLAG, "If set and syslog is used, the error/debug message will be printed" " to the system console as well as to the system log", 0, syslog_disabled); globvar("LogST", "Daemon", "Syslog: Log type", TYPE_STRING_LIST, "When using SYSLOG, which log type should be used", ({ "Daemon", "Local 0", "Local 1", "Local 2", "Local 3", "Local 4", "Local 5", "Local 6", "Local 7", "User" }), syslog_disabled); globvar("LogWH", "Errors", "Syslog: Log what", TYPE_STRING_LIST, "When syslog is used, how much should be sent to it?<br><hr>" "Fatal: Only messages about fatal errors<br>"+ "Errors: Only error or fatal messages<br>"+ "Warning: Warning messages as well<br>"+ "Debug: Debug messager as well<br>"+ "All: Everything<br>", ({ "Fatal", "Errors", "Warnings", "Debug", "All" }), syslog_disabled); globvar("LogNA", "Roxen", "Syslog: Log as", TYPE_STRING, "When syslog is used, use this as the id of the Roxen daemon" ". This will be appended to all logs.", 0, syslog_disabled); #endif
14179b1997-01-29Per Hedbor #ifdef THREADS
3aaaa71997-06-12Wilhelm Köhler  globvar("numshufflethreads", 1, "Number of shuffler threads to run", TYPE_INT, "The number of simultaneous threads roxen will use " "to shuffle data, using a select loop based system.\n" "<i>This is quite useful if you have more than one CPU in " "your machine, or if you have a quite a lot of proxy requests.</i>");
14179b1997-01-29Per Hedbor  globvar("numthreads", 5, "Number of threads to run", TYPE_INT, "The number of simultaneous threads roxen will use.\n" "<p>Please note that even if this is one, Roxen will still "
3aaaa71997-06-12Wilhelm Köhler  "be able to serve multiple requests, using a select loop based " "system.\n"
b1fca01996-11-12Per Hedbor  "<i>This is quite useful if you have more than one CPU in " "your machine, or if you have a lot of slow NFS accesses.</i>");
14179b1997-01-29Per Hedbor #endif
b1fca01996-11-12Per Hedbor  globvar("AutoUpdate", 1, "Update the supports database automatically", TYPE_FLAG, "If set, the etc/supports file will be updated automatically "
a60c4c1997-07-03Henrik Grubbström (Grubba)  "from www.roxen.com now and then. This is recomended, since "
b1fca01996-11-12Per Hedbor  "you will then automatically get supports info for new " "clients, and new versions of old ones."); globvar("next_supports_update", time()+3600, "", TYPE_INT,"",0,1);
14179b1997-01-29Per Hedbor  setvars(retrieve("Variables", 0));
b1fca01996-11-12Per Hedbor 
cc2d581997-01-29Per Hedbor  if(QUERY(_v) < CONFIGURATION_FILE_LEVEL)
b1fca01996-11-12Per Hedbor  {
14179b1997-01-29Per Hedbor  update_global_vars(retrieve("Variables", 0)->_v?QUERY(_v):0);
b1fca01996-11-12Per Hedbor  QUERY(_v) = CONFIGURATION_FILE_LEVEL;
14179b1997-01-29Per Hedbor  store("Variables", variables, 0, 0);
cc2d581997-01-29Per Hedbor  set("_v", CONFIGURATION_FILE_LEVEL);
b1fca01996-11-12Per Hedbor  } for(p = 1; p < argc; p++) { string c, v; if(sscanf(argv[p],"%s=%s", c, v) == 2) if(variables[c]) variables[c][VAR_VALUE]=compat_decode_value(v); else perror("Unknown variable: "+c+"\n"); } docurl=QUERY(docurl); }
14179b1997-01-29Per Hedbor  // To avoid stack error :-) This is really a bug in Pike, that is // probably fixed by now, but since I needed a catch() as well, I // never did come around to removing the hack. void do_dest(object|void o) { catch { destruct(o); }; }
291a801997-07-10Per Hedbor // return all available fonts. Taken from thef ont_dirs list. array font_cache; array available_fonts(int cache) { array res = ({}); if(cache && font_cache) return font_cache; foreach(QUERY(font_dirs), string dir) { dir+="32/"; array d; if(array d = get_dir(dir)) { foreach(d,string f) { if(f=="CVS") continue; array a; if((a=file_stat(dir+f)) && (a[1]==-2)) res |= ({ replace(f,"_"," ") }); } } } sort(res); return font_cache = res; }
14179b1997-01-29Per Hedbor 
b1fca01996-11-12Per Hedbor // Somewhat misnamed, since there can be more then one // configuration-interface port nowdays. But, anyway, this function // opens and listens to all configuration interface ports. void initiate_configuration_port( int|void first ) { object o; array port;
5e89211997-02-13Per Hedbor  if(catch(map(configuration_ports, destruct))) catch(map(configuration_ports, do_dest));
b1fca01996-11-12Per Hedbor  catch(do_dest(main_configuration_port)); configuration_ports = ({ }); main_configuration_port=0;
9f46de1997-04-08Per Hedbor  current_configuration = 0;
b1fca01996-11-12Per Hedbor  if(sizeof(QUERY(ConfigPorts))) { foreach(QUERY(ConfigPorts), port) {
9f46de1997-04-08Per Hedbor  program requestprogram = (program)(getcwd()+"/protocols/"+port[1]); function rp; array tmp; if(!requestprogram) { report_error("No request program for "+port[1]+"\n"); continue; } if(rp = requestprogram()->real_port) if(tmp = rp(port)) port = tmp; if(o=create_listen_socket(port[0],0,port[2],requestprogram,port))
b1fca01996-11-12Per Hedbor  {
025d221997-06-01Henrik Grubbström (Grubba)  perror("Configuration port: "+port[1]+" port number "
b1fca01996-11-12Per Hedbor  +port[0]+" interface " +port[2]+"\n"); main_configuration_port = o; configuration_ports += ({ o }); } else { report_error("The configuration port "+port[0] +" on the interface " +port[2]+" " "could not be opened\n"); } } if(!main_configuration_port) { report_error("No configuration ports could be created.\n" "Is roxen already running?\n"); if(first) exit( 0 ); } } else { perror("No configuration port. I hope this is what you want.\n" "Unless the configuration interface as a location module\n" "is enabled, you will not be allowed access to the configuration\n" "interface. You can re-enable the configuration port like this:\n" "./configvar ConfigurationPort=22202\n"); } }
e493e81997-07-11Per Hedbor #include <stat.h>
b1fca01996-11-12Per Hedbor // Find all modules, so a list of them can be presented to the // user. This is not needed when the server is started. void scan_module_dir(string d) {
e493e81997-07-11Per Hedbor  MD_PERROR(("\n\nLooking for modules in "+d+" "));
01d0811996-11-12Mirar (Pontus Hagland)  string file,path=d; mixed err;
990b441997-07-18Per Hedbor  array q = (get_dir( d )||({})) - ({".","..","CVS","RCS" }); if(!sizeof(q)) { MD_PERROR(("No modules in here. Continuing elsewhere")); return; }
e493e81997-07-11Per Hedbor  MD_PERROR(("There are "+language("en","number")(sizeof(q))+" files.\n"));
01d0811996-11-12Mirar (Pontus Hagland) 
e493e81997-07-11Per Hedbor  foreach( q, file )
b1fca01996-11-12Per Hedbor  {
0f8c871997-06-01Henrik Grubbström (Grubba)  _master->set_inhibit_compile_errors("");
fd0b6f1996-12-02Per Hedbor  if ( file[0]!='.' && !backup_extension(file) && (file[-1]!='z'))
b1fca01996-11-12Per Hedbor  {
e493e81997-07-11Per Hedbor  array stat = file_stat(path+file); if(!stat || (stat[ST_SIZE] < 0))
5e4ede1996-11-12Per Hedbor  {
e493e81997-07-11Per Hedbor  if(err = catch ( scan_module_dir(path+file+"/") )) MD_PERROR((sprintf("Error in module rescanning directory code:" " %s\n",describe_backtrace(err))));
0f8c871997-06-01Henrik Grubbström (Grubba)  } else {
e493e81997-07-11Per Hedbor  MD_PERROR(("Considering "+file+" - ")); if((module_stat_cache[path+file] && module_stat_cache[path+file][ST_MTIME])==stat[ST_MTIME]) { MD_PERROR(("Already tried this one.\n")); continue; } module_stat_cache[path+file]=stat;
28d38d1997-03-12Per Hedbor  switch(extension(file)) {
0f8c871997-06-01Henrik Grubbström (Grubba)  case "pike": case "lpc":
dd47911997-04-12Per Hedbor  if(catch{
0f8c871997-06-01Henrik Grubbström (Grubba)  if((open(path+file,"r")->read(4))=="#!NO") {
e382ed1997-07-16Henrik Grubbström (Grubba)  MD_PERROR(("Not a module\n"));
e493e81997-07-11Per Hedbor  file=0;
28d38d1997-03-12Per Hedbor  }
0f8c871997-06-01Henrik Grubbström (Grubba)  }) {
f1cee51997-06-06Henrik Grubbström (Grubba)  MD_PERROR(("Couldn't open file\n"));
e493e81997-07-11Per Hedbor  file=0;
0f8c871997-06-01Henrik Grubbström (Grubba)  }
e493e81997-07-11Per Hedbor  if(!file) break;
0f8c871997-06-01Henrik Grubbström (Grubba)  case "mod": case "so":
28d38d1997-03-12Per Hedbor  string *module_info; if (!(err=catch( module_info = lambda ( string file ) { array foo; object o;
6193221997-05-31Henrik Grubbström (Grubba)  program p;
0f8c871997-06-01Henrik Grubbström (Grubba) 
6193221997-05-31Henrik Grubbström (Grubba)  if (catch(p = compile_file(file)) || (!p)) {
0f8c871997-06-01Henrik Grubbström (Grubba)  MD_PERROR((" compilation failed"));
3d0e7c1997-06-01Henrik Grubbström (Grubba)  throw("Compilation failed.\n");
6193221997-05-31Henrik Grubbström (Grubba)  }
68a0a21997-06-12Henrik Grubbström (Grubba)  // Set the module-filename, so that create in the // new object can get it. roxen->last_module_name = file;
6193221997-05-31Henrik Grubbström (Grubba)  array err = catch(o = p());
68a0a21997-06-12Henrik Grubbström (Grubba)  roxen->last_module_name = 0;
6193221997-05-31Henrik Grubbström (Grubba)  if (err) {
0f8c871997-06-01Henrik Grubbström (Grubba)  MD_PERROR((" load failed"));
6193221997-05-31Henrik Grubbström (Grubba)  throw(err); } else if (!o) {
0f8c871997-06-01Henrik Grubbström (Grubba)  MD_PERROR((" load failed")); throw("Failed to initialize module.\n"); } else { MD_PERROR((" load ok - ")); if (!o->register_module) { MD_PERROR(("register_module missing")); throw("No registration function in module.\n"); }
6193221997-05-31Henrik Grubbström (Grubba)  } foo = o->register_module(); if (!foo) {
0f8c871997-06-01Henrik Grubbström (Grubba)  MD_PERROR(("registration failed")); throw("Failed to register module.\n");
6193221997-05-31Henrik Grubbström (Grubba)  } else {
0f8c871997-06-01Henrik Grubbström (Grubba)  MD_PERROR(("registered."));
6193221997-05-31Henrik Grubbström (Grubba)  }
0f8c871997-06-01Henrik Grubbström (Grubba)  return({ foo[1], foo[2]+"<p><i>"+ replace(o->file_name_and_stuff(), "0<br>", file+"<br>") +"</i>", foo[0] }); }(path + file)))) { // Load OK
28d38d1997-03-12Per Hedbor  allmodules[ file-("."+extension(file)) ] = module_info; } else {
0f8c871997-06-01Henrik Grubbström (Grubba)  // Load failed.
28d38d1997-03-12Per Hedbor  _master->errors += "\n";
6193221997-05-31Henrik Grubbström (Grubba)  if (arrayp(err)) {
0f8c871997-06-01Henrik Grubbström (Grubba)  _master->errors += path + file + ": " + describe_backtrace(err) + "\n";
6193221997-05-31Henrik Grubbström (Grubba)  } else {
0f8c871997-06-01Henrik Grubbström (Grubba)  _master->errors += path + file + ": " + err;
6193221997-05-31Henrik Grubbström (Grubba)  }
8e727d1997-03-11Per Hedbor #if 0
28d38d1997-03-12Per Hedbor  perror(file+": "+describe_backtrace(err[sizeof(err)-4..])+
6193221997-05-31Henrik Grubbström (Grubba)  _master->errors);
8e727d1997-03-11Per Hedbor #endif
28d38d1997-03-12Per Hedbor  }
b1fca01996-11-12Per Hedbor  }
0f8c871997-06-01Henrik Grubbström (Grubba)  MD_PERROR(("\n"));
b1fca01996-11-12Per Hedbor  } }
0f8c871997-06-01Henrik Grubbström (Grubba)  if(strlen(_master->errors)) {
e493e81997-07-11Per Hedbor  nwrite("Errors found in "+d+":\n" + _master->errors+"\n");
0f8c871997-06-01Henrik Grubbström (Grubba)  } _master->set_inhibit_compile_errors(0);
b1fca01996-11-12Per Hedbor  } } void rescan_modules() { string file, path; mixed err;
e382ed1997-07-16Henrik Grubbström (Grubba)  if (!allmodules) { allmodules=copy_value(somemodules); }
0f8c871997-06-01Henrik Grubbström (Grubba) 
b1fca01996-11-12Per Hedbor  foreach(QUERY(ModuleDirs), path) {
dd47911997-04-12Per Hedbor  array err; err = catch(scan_module_dir( path ));
6193221997-05-31Henrik Grubbström (Grubba)  if(err) {
0f8c871997-06-01Henrik Grubbström (Grubba)  nwrite("Error while scanning module dir (\""+path+"\"): " + describe_backtrace(err) + "\n");
6193221997-05-31Henrik Grubbström (Grubba)  } }
b1fca01996-11-12Per Hedbor } // ================================================= // Parse options to Roxen. This function is quite generic, see the // main() function for more info about how it is used. private string find_arg(array argv, array|string shortform, array|string|void longform, array|string|void envvars, string|void def) { string value; int i; for(i=1; i<sizeof(argv); i++) { if(argv[i] && strlen(argv[i]) > 1) { if(argv[i][0] == '-') { if(argv[i][1] == '-') { string tmp; int nf; if(!sscanf(argv[i], "%s=%s", tmp, value)) { if(i < sizeof(argv)-1) value = argv[i+1]; else value = argv[i]; tmp = argv[i]; nf=1; } if(arrayp(longform) && search(longform, tmp[2..1000]) != -1) { argv[i] = 0; if(i < sizeof(argv)-1) argv[i+nf] = 0; return value; } else if(longform && longform == tmp[2..10000]) { argv[i] = 0; if(i < sizeof(argv)-1) argv[i+nf] = 0; return value; } } else { if((arrayp(shortform) && search(shortform, argv[i][1..1]) != -1) || stringp(shortform) && shortform == argv[i][1..1]) { if(strlen(argv[i]) == 2) { if(i < sizeof(argv)-1) value =argv[i+1]; argv[i] = argv[i+1] = 0; return value; } else { value=argv[i][2..100000]; argv[i]=0; return value; } } } } } } if(arrayp(envvars)) foreach(envvars, value) if(getenv(value)) return getenv(value); if(stringp(envvars)) if(getenv(envvars)) return getenv(envvars); return def; } // do the chroot() call. This is not currently recommended, since // roxen dynamically loads modules, all module files must be // available at the new location. private void fix_root(string to) { if(getuid()) { perror("It is impossible to chroot() if the server is not run as root.\n"); return; } if(!chroot(to)) { perror("Roxen: Cannot chroot to "+to+": "); #if efun(real_perror) real_perror(); #endif return; } perror("Root is now "+to+".\n"); } void create_pid_file(string where) { if(!where) return; where = replace(where, ({ "$pid", "$uid" }), ({ (string)getpid(), (string)getuid() })); rm(where);
5e89211997-02-13Per Hedbor  if(catch(Stdio.write_file(where, sprintf("%d\n%d", getpid(), getppid()))))
b1fca01996-11-12Per Hedbor  perror("I cannot create the pid file ("+where+").\n"); }
5bc1991997-01-29Per Hedbor void init_shuffler();
b1fca01996-11-12Per Hedbor // External multi-threaded data shuffler. This leaves roxen free to // serve new requests. The file descriptors of the open files and the // clients are sent to the program, then the shuffler just shuffles // the data to the client.
95e2b41997-05-25Wilhelm Köhler void _shuffle(object from, object to, object|void to2, function(:void)|void callback)
14179b1997-01-29Per Hedbor {
d23e421997-05-08Per Hedbor #if efun(send_fd)
95e2b41997-05-25Wilhelm Köhler  if(shuffle_fd && !to2)
5bc1991997-01-29Per Hedbor  {
a2dfac1997-05-07Henrik Grubbström (Grubba)  from->set_blocking(); to->set_blocking();
14179b1997-01-29Per Hedbor  if(send_fd(shuffle_fd,from->query_fd())&&
95e2b41997-05-25Wilhelm Köhler  send_fd(shuffle_fd,to->query_fd())) { if (callback) { callback(); }
5bc1991997-01-29Per Hedbor  return;
95e2b41997-05-25Wilhelm Köhler  }
5bc1991997-01-29Per Hedbor  init_shuffler(); }
95e2b41997-05-25Wilhelm Köhler #endif /* send_fd */
35aead1997-05-08Per Hedbor  // Fallback, when there is no external shuffler.
4dbf801997-02-27Per Hedbor  object p = Pipe.pipe();
3aaaa71997-06-12Wilhelm Köhler  // p->input(from);
14179b1997-01-29Per Hedbor  p->output(to);
95e2b41997-05-25Wilhelm Köhler  if (to2) { p->output(to2); } if (callback) { p->set_done_callback(callback); } p->input(from);
14179b1997-01-29Per Hedbor }
d23e421997-05-08Per Hedbor 
35aead1997-05-08Per Hedbor 
14179b1997-01-29Per Hedbor #ifdef THREADS object shuffle_queue = Queue();
3aaaa71997-06-12Wilhelm Köhler void shuffle_thread(int id)
14179b1997-01-29Per Hedbor {
95e2b41997-05-25Wilhelm Köhler #ifdef THREAD_DEBUG
a60c4c1997-07-03Henrik Grubbström (Grubba)  perror("shuffle_thread "+id+" started.\n");
95e2b41997-05-25Wilhelm Köhler #endif
14179b1997-01-29Per Hedbor  while(mixed s=shuffle_queue->read()) _shuffle(@s); }
95e2b41997-05-25Wilhelm Köhler void shuffle(object a, object b, object|void c, function(:void)|void d)
14179b1997-01-29Per Hedbor {
95e2b41997-05-25Wilhelm Köhler  shuffle_queue->write(({a, b, c, d}));
14179b1997-01-29Per Hedbor }
95e2b41997-05-25Wilhelm Köhler #else /* THREADS */
14179b1997-01-29Per Hedbor function shuffle = _shuffle;
95e2b41997-05-25Wilhelm Köhler #endif /* THREADS */
14179b1997-01-29Per Hedbor 
5bc1991997-01-29Per Hedbor #ifdef THREADS
3aaaa71997-06-12Wilhelm Köhler int number_of_shuffler_threads; void start_shuffler_threads() {
a60c4c1997-07-03Henrik Grubbström (Grubba)  if (QUERY(numshufflethreads) <= 1) { QUERY(numshufflethreads) = 1; perror("Starting 1 thread to shuffle data.\n"); } else { perror("Starting "+QUERY(numshufflethreads)+" threads to shuffle data.\n"); }
3aaaa71997-06-12Wilhelm Köhler  for(int i = number_of_shuffler_threads; i < QUERY(numshufflethreads); i++) { thread_create( shuffle_thread, i ); } number_of_shuffler_threads = i; } #endif /* THREADS */
5bc1991997-01-29Per Hedbor 
8557d51997-02-19David Hedbor #if efun(send_fd)
b1fca01996-11-12Per Hedbor object shuffler; void init_shuffler() { object out; object out2;
5e89211997-02-13Per Hedbor  if(file_stat("bin/shuffle"))
b1fca01996-11-12Per Hedbor  { if(shuffler) destruct(shuffler);
5e89211997-02-13Per Hedbor  out=files.file();
b1fca01996-11-12Per Hedbor  out2=out->pipe(); mark_fd(out->query_fd(), "Data shuffler local end of pipe.\n");
5e89211997-02-13Per Hedbor  spawne("bin/shuffle", ({}), ({}), out2, Stdio.stderr, Stdio.stderr, 0, 0);
b1fca01996-11-12Per Hedbor  perror("Spawning data mover. (bin/shuffle)\n"); destruct(out2); shuffler = out; shuffle_fd = out->query_fd(); } }
95e2b41997-05-25Wilhelm Köhler #endif /* send_fd */
3aaaa71997-06-12Wilhelm Köhler 
b1fca01996-11-12Per Hedbor static private int _recurse; void exit_when_done() { object o; int i;
38dca81996-12-10Per Hedbor  perror("Interrupt request received. Exiting,\n");
b1fca01996-11-12Per Hedbor  if(++_recurse > 4)
38dca81996-12-10Per Hedbor  { werror("Exiting roxen (spurious signals received).\n"); stop_all_modules();
291a801997-07-10Per Hedbor  exit(0);
14179b1997-01-29Per Hedbor  kill(getpid(), 9); kill(0, -9);
38dca81996-12-10Per Hedbor  }
14179b1997-01-29Per Hedbor 
b1fca01996-11-12Per Hedbor  // First kill off all listening sockets.. foreach(indices(portno)||({}), o) do_dest(o); // Then wait for all sockets, but maximum 10 minutes.. #if efun(_pipe_debug) call_out(lambda() {
aaef2a1997-03-02Henrik Grubbström (Grubba)  call_out(Simulate.this_function(), 5);
38dca81996-12-10Per Hedbor  if(!_pipe_debug()[0]) { werror("Exiting roxen (all connections closed).\n"); stop_all_modules();
291a801997-07-10Per Hedbor  exit(0);
14179b1997-01-29Per Hedbor  kill(getpid(), 9); kill(0, -9); perror("Odd. I am not dead yet.\n");
38dca81996-12-10Per Hedbor  } }, 0.1);
b1fca01996-11-12Per Hedbor #endif
38dca81996-12-10Per Hedbor  call_out(lambda(){ werror("Exiting roxen (timeout).\n"); stop_all_modules();
291a801997-07-10Per Hedbor  exit(0);
14179b1997-01-29Per Hedbor  kill(getpid(), 9); kill(0, -9);
38dca81996-12-10Per Hedbor  }, 600, 0); // Slow buggers..
b1fca01996-11-12Per Hedbor } void exit_it() { perror("Recursive signals.\n");
291a801997-07-10Per Hedbor  exit(0);
14179b1997-01-29Per Hedbor  kill(getpid(), 9); kill(0, -9);
b1fca01996-11-12Per Hedbor }
48fa361997-04-05Per Hedbor // REMOVE ME array fork_it(){}
14179b1997-01-29Per Hedbor 
b1fca01996-11-12Per Hedbor // And then we have the main function, this is the oldest function in // Roxen :) It has not changed all that much since Spider 2.0. varargs int main(int argc, array (string) argv) { mixed tmp; start_time=time(1);
5e89211997-02-13Per Hedbor  add_constant("write", perror);
b1fca01996-11-12Per Hedbor  mark_fd(0, "Stdin"); mark_fd(1, "Stdout"); mark_fd(2, "Stderr");
14179b1997-01-29Per Hedbor  configuration_dir = find_arg(argv, "d",({"config-dir","configuration-directory" }),
b1fca01996-11-12Per Hedbor  ({ "ROXEN_CONFIGDIR", "CONFIGURATIONS" }), "../configurations"); if(configuration_dir[-1] != "/") configuration_dir += "/"; startpid = (int)find_arg(argv, "s", ({ "start-script-pid" }), ({ "ROXEN_START_SCRIPT_PID"})); create_pid_file(find_arg(argv, "p", "pid-file", "ROXEN_PID_FILE"));
14179b1997-01-29Per Hedbor  // Dangerous... if(tmp = find_arg(argv, "r", "root")) fix_root(tmp);
b1fca01996-11-12Per Hedbor  argv -= ({ 0 }); argc=sizeof(argv); perror("Restart initiated at "+ctime(time())); define_global_variables(argc, argv); create_pid_file(QUERY(pidfile)); #if efun(syslog) init_logger(); #endif init_garber(); initiate_supports(); initiate_languages(); enable_configurations();
f6d62d1997-03-26Per Hedbor #if 0 restore_current_user_id_number(); #endif
b1fca01996-11-12Per Hedbor // Rebuild the configuration interface tree if the interface was // loaded before the configurations was enabled (a configuration is a // virtual server, perhaps the name should be changed internally as // well.. :-)
14179b1997-01-29Per Hedbor  if(root) { destruct(configuration_interface());
b1fca01996-11-12Per Hedbor  configuration_interface()->build_root(root);
14179b1997-01-29Per Hedbor  }
b1fca01996-11-12Per Hedbor  call_out(update_supports_from_roxen_com, QUERY(next_supports_update)-time()); if(set_u_and_gid()) perror("Setting UID and GID ...\n");
48fa361997-04-05Per Hedbor #ifdef THREADS
3aaaa71997-06-12Wilhelm Köhler  start_shuffler_threads();
48fa361997-04-05Per Hedbor  start_handler_threads();
3aaaa71997-06-12Wilhelm Köhler #if efun(thread_set_concurrency) thread_set_concurrency(QUERY(numthreads)+QUERY(numshufflethreads)+1);
48fa361997-04-05Per Hedbor #endif
3aaaa71997-06-12Wilhelm Köhler #endif /* THREADS */
48fa361997-04-05Per Hedbor #if efun(send_fd) init_shuffler(); // No locking here.. Each process need one on it's own. #endif create_host_name_lookup_processes();
b399651997-07-22Henrik Grubbström (Grubba)  foreach( ({ "SIGUSR1", "SIGUSR2", "SIGHUP", "SIGINT" }), string sig) { catch { signal(signum(sig), exit_when_done); }; }
14179b1997-01-29Per Hedbor  initiate_configuration_port( 1 ); perror("Time to boot: "+(time()-start_time)+" seconds.\n"); perror("-------------------------------------\n\n");
b1fca01996-11-12Per Hedbor // start_time=time(); // Used by the "uptime" info later on. return -1; } // Debug functions. List _all_ open filedescriptors inline static private string checkfd_fix_line(string l) { string *s; s=l/","; s[0]=decode_mode((int)("0"+s[0])); if((int)s[1]) s[1]=sizetostring((int)s[1]); else s[1]="-";
842a9b1997-05-28Per Hedbor  s[2]=(int)s[3]?s[3]:"-"; return s[0..2]*",";
b1fca01996-11-12Per Hedbor }
bb79bf1997-03-11Henrik Grubbström (Grubba) string checkfd(object|void id)
b1fca01996-11-12Per Hedbor { // perror(sprintf("%O\n", get_all_active_fd())); return ("<h1>Active filedescriptors</h1>\n"+ "<br clear=left><hr>\n"+ "<table width=100% cellspacing=0 cellpadding=0>\n"+ "<tr align=right><td>fd</td><td>type</td><td>mode</td>"+
842a9b1997-05-28Per Hedbor  "<td>size</td><td>inode</td></tr>\n"+
5e89211997-02-13Per Hedbor  (map(get_all_active_fd(),
aaef2a1997-03-02Henrik Grubbström (Grubba)  lambda(int fd) { return ("<tr align=right><th>"+fd+"</th><td>"+
842a9b1997-05-28Per Hedbor  replace(checkfd_fix_line(fd_info(fd)),",",
aaef2a1997-03-02Henrik Grubbström (Grubba)  "</td><td>") +"</td><td align=left>"
842a9b1997-05-28Per Hedbor  +(mark_fd(fd)||"?")+"<br></td></tr>");
aaef2a1997-03-02Henrik Grubbström (Grubba)  })*"\n")+
b1fca01996-11-12Per Hedbor  "</table>"); }