/[meteor]/trunk/meteord
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/meteord

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by andrew.betts, Mon Nov 20 17:59:30 2006 UTC revision 47 by knops.gerd, Mon Feb 4 21:06:42 2008 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  ###############################################################################  ###############################################################################
3  #       Copyright 2006 BITart Gerd Knops,  All rights reserved.  #   Meteor
4    #   An HTTP server for the 2.0 web
5    #   Copyright (c) 2006 contributing authors
6  #  #
7  #       Project : Meteor  #   The Meteor daemon
 #       File    : meteord  
 #       Author  : Gerd Knops gerti@BITart.com  
8  #  #
9  ###############################################################################  #       Main program should call Meteor::Config::setCommandLineParameters(@ARGV),.
10  #  #       Afterwards anybody can access $::CONF{<parameterName>}, where
11  #       History:  #       <parameterName> is any valid parameter (except 'Help') listed in the
12  #       060821 Creation of file  #       @DEFAULTS array below.
13  #  #
14  ###############################################################################  ###############################################################################
15  #  #
16  #       Description:  #   This program is free software; you can redistribute it and/or modify it
17  #       The Meteor daemon  #   under the terms of the GNU General Public License as published by the Free
18    #   Software Foundation; either version 2 of the License, or (at your option)
19    #   any later version.
20  #  #
21  #       $Id:$  #   This program is distributed in the hope that it will be useful, but WITHOUT
22  #  #   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
23  ###############################################################################  #   FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
24    #   more details.
25  #  #
26  # DISCLAIMER  #   You should have received a copy of the GNU General Public License along
27    #   with this program; if not, write to the Free Software Foundation, Inc.,
28    #   59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
29  #  #
30  # BITart and Gerd Knops make no warranties, representations or commitments  #   For more information visit www.meteorserver.org
 # with regard to the contents of this software. BITart and Gerd Knops  
 # specifically disclaim any and all warranties, whether express, implied or  
 # statutory, including, but not limited to, any warranty of merchantability  
 # or fitness for a particular purpose, and non-infringement. Under no  
 # circumstances will BITart or Gerd Knops be liable for loss of data,  
 # special, incidental or consequential damages out of the use of this  
 # software, even if those damages were foreseeable, or BITart or Gerd Knops  
 # was informed of their potential.  
31  #  #
32  ###############################################################################  ###############################################################################
33    
34    ###############################################################################
35    # meterod version
36    ################################################################################
37            
38            $::VERSION='1.05.04';
39            $::RELEASE_DATE='not yet released';
40    
41    ###############################################################################
42  # Configuration  # Configuration
43  ###############################################################################  ###############################################################################
44                    
# Line 63  Line 69 
69  ###############################################################################  ###############################################################################
70                    
71          #          #
72            # Record startup time
73            #
74            $::STARTUP_TIME=time;
75            $::STARTUP_TIME+=0; # avoid warning
76            
77            #
78          # Program name          # Program name
79          #          #
80          $::PGM=$0;          $::PGM=$0;
# Line 90  Line 102 
102          {          {
103                  $0="$::PGM daemon";                  $0="$::PGM daemon";
104                                    
105                  unless($::CONF{'Debug'})                  my $facility=$::CONF{'SyslogFacility'} || $Meteor::Syslog::DEFAULT_FACILITY;
106                    
107                    unless($::CONF{'Debug'} || $facility eq 'none')
108                  {                  {
109                          # close standard file descriptors                          # close standard file descriptors
110                          close(STDIN);                          close(STDIN);
# Line 113  Line 127 
127                  }                  }
128                  else                  else
129                  {                  {
130                          print "$::PGM PID: $$\n";                          &::syslog('info',"PID\t%s",$$);
131                  }                  }
132          }          }
133                    
# Line 167  Line 181 
181                                  my $rVec=$serverVector;                                  my $rVec=$serverVector;
182                                  my $wVec='';                                  my $wVec='';
183                                  my $eVec='';                                  my $eVec='';
184                                            
185                                  my $rout;                                  my $rout;
186                                  my $wout;                                  my $wout;
187                                  my $eout;                                  my $eout;
188                                            
189                                  Meteor::Connection->addAllHandleBits(\$rVec,\$wVec,\$eVec);                                  Meteor::Connection->addAllHandleBits(\$rVec,\$wVec,\$eVec);
190                                                                    
191                                  my $timeout=$MAIN_LOOP_TIMEOUT;                                  my $timeout=$MAIN_LOOP_TIMEOUT;
Legend:
Removed from v.3  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.26