/[meteor]/trunk/Meteor/Config.pm
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/Meteor/Config.pm

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

revision 9 by andrew.betts, Fri Dec 8 16:52:58 2006 UTC revision 49 by knops.gerd, Mon Feb 4 22:30:35 2008 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  ###############################################################################  ###############################################################################
3  #   Meteor  #   Meteor
4  #   An HTTP server for the 2.0 web  #   An HTTP server for the 2.0 web
5  #   Copyright (c) 2006 contributing authors  #   Copyright (c) 2006 contributing authors
6  #  #
7  #   Subscriber.pm  #   Subscriber.pm
8  #  #
9  #       Description:  #       Description:
10  #       Meteor Configuration handling.  #       Meteor Configuration handling.
11  #  #
12  #       Main program should call Meteor::Config::setCommandLineParameters(@ARGV),.  #       Main program should call Meteor::Config::setCommandLineParameters(@ARGV),.
13  #       Afterwards anybody can access $::CONF{<parameterName>}, where  #       Afterwards anybody can access $::CONF{<parameterName>}, where
14  #       <parameterName> is any valid parameter (except 'Help') listed in the  #       <parameterName> is any valid parameter (except 'Help') listed in the
15  #       @DEFAULTS array below.  #       @DEFAULTS array below.
16  #  #
17  ###############################################################################  ###############################################################################
18  #  #
19  #   This program is free software; you can redistribute it and/or modify it  #   This program is free software; you can redistribute it and/or modify it
20  #   under the terms of the GNU General Public License as published by the Free  #   under the terms of the GNU General Public License as published by the Free
21  #   Software Foundation; either version 2 of the License, or (at your option)  #   Software Foundation; either version 2 of the License, or (at your option)
22  #   any later version.  #   any later version.
23  #  #
24  #   This program is distributed in the hope that it will be useful, but WITHOUT  #   This program is distributed in the hope that it will be useful, but WITHOUT
25  #   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or  #   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
26  #   FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for  #   FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
27  #   more details.  #   more details.
28  #  #
29  #   You should have received a copy of the GNU General Public License along  #   You should have received a copy of the GNU General Public License along
30  #   with this program; if not, write to the Free Software Foundation, Inc.,  #   with this program; if not, write to the Free Software Foundation, Inc.,
31  #   59 Temple Place, Suite 330, Boston, MA 02111-1307 USA  #   59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
32  #  #
33  #   For more information visit www.meteorserver.org  #   For more information visit www.meteorserver.org
34  #  #
35  ###############################################################################  ###############################################################################
36    
37  package Meteor::Config;  package Meteor::Config;
38  ###############################################################################  ###############################################################################
39  # Configuration  # Configuration
40  ###############################################################################  ###############################################################################
41                    
42          use strict;          use strict;
43                    
44          our @DEFAULTS=(          our @DEFAULTS=(
45  'Configuration file location on disk (if any)',  'Configuration file location on disk (if any)',
46          ConfigFileLocation              => '/etc/meteord.conf',          ConfigFileLocation              => '/etc/meteord.conf',
47    
48  'IP address for controller server (leave empty for all local addresses)',  'IP address for controller server (leave empty for all local addresses)',
49          ControllerIP                    => '',          ControllerIP                    => '',
50    
51  'Port number for controller connections',  'Port number for controller connections',
52          ControllerPort                  => 4671,          ControllerPort                  => 4671,
53    
54  'Controller Shutdown message, sent when the controller server shuts down (leave empty for no message)',  'Controller Shutdown message, sent when the controller server shuts down (leave empty for no message)',
55          ControllerShutdownMsg   => '',          ControllerShutdownMsg   => '',
56    
57  'Debug Flag, when set daemon will run in foreground and emit debug messages',  'Debug Flag, when set daemon will run in foreground and emit debug messages',
58          Debug                                   => 0,          Debug                                   => 0,
59                    
60  'Name of index file to serve when a directory is requested from the static file web server',  'Name of index file to serve when a directory is requested from the static file web server',
61          DirectoryIndex  => 'index.html',          DirectoryIndex  => 'index.html',
62    
63  'Header to be served with static documents. ~server~ and ~status~ will be replaced by the appropriate values',  'Header template, ~server~, ~servertime~ and ~status~ will be replaced by the appropriate values.  **NOTE**: It is possible to define more than one HeaderTemplate by appending a number at the end, for example *HeaderTemplate42*. Clients can request a specific header to be used by adding the parameter template=<number> to their GET request. If *HeaderTemplate<number>* is not found, the system will use the default HeaderTemplate (no number)',
64          DocumentHeaderTemplate                  => 'HTTP/1.1 ~status~\r\nServer: ~server~\r\nContent-Type: text/html; charset=utf-8\r\n\r\n',          HeaderTemplate                  => 'HTTP/1.1 ~status~\r\nServer: ~server~\r\nContent-Type: text/html; charset=utf-8\r\nPragma: no-cache\r\nCache-Control: no-cache, no-store, must-revalidate\r\nExpires: Thu, 1 Jan 1970 00:00:00 GMT\r\n\r\n<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8">\r\n<meta http-equiv="Cache-Control" content="no-store">\r\n<meta http-equiv="Cache-Control" content="no-cache">\r\n<meta http-equiv="Pragma" content="no-cache">\r\n<meta http-equiv="Expires" content="Thu, 1 Jan 1970 00:00:00 GMT">\r\n<script type="text/javascript">\r\nwindow.onError = null;\r\nvar domainparts = document.domain.split(".");\r\ndocument.domain = domainparts[domainparts.length-2]+"."+domainparts[domainparts.length-1];\r\nparent.Meteor.register(this);\r\n</script>\r\n</head>\r\n<body onload="try { parent.Meteor.reset(this) } catch (e) {}">\r\n',
65    
66  'Header template, ~server~, ~servertime~ and ~status~ will be replaced by the appropriate values.  **NOTE**: It is possible to define more than one HeaderTemplate by appending a number at the end, for example *HeaderTemplate42*. Clients can request a specific header to be used by adding the parameter template=<number> to their GET request. If *HeaderTemplate<number>* is not found, the system will use the default HeaderTemplate (no number)',  'Template for each line in channelinfo',
67          HeaderTemplate                  => 'HTTP/1.1 ~status~\r\nServer: ~server~\r\nContent-Type: text/html; charset=utf-8\r\nPragma: no-cache\r\nCache-Control: no-cache, no-store, must-revalidate\r\nExpires: Thu, 1 Jan 1970 00:00:00 GMT\r\n\r\n<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8">\r\n<meta http-equiv="Cache-Control" content="no-store">\r\n<meta http-equiv="Cache-Control" content="no-cache">\r\n<meta http-equiv="Pragma" content="no-cache">\r\n<meta http-equiv="Expires" content="Thu, 1 Jan 1970 00:00:00 GMT">\r\n<script type="text/javascript">\r\nwindow.onError = null;\r\nvar domainparts = document.domain.split(".");\r\ndocument.domain = domainparts[domainparts.length-2]+"."+domainparts[domainparts.length-1];\r\nparent.Meteor.register(this);\r\nparent.Meteor.setServerTime(~servertime~);\r\n</script>\r\n</head>\r\n<body onload="r()">\r\n',  
68            ChannelInfoTemplate             => '~name~ ~messageCount~ ~lastMsgID~\r\n',
69  'Print out this help message',  
70          Help                                    => '',  'Print out this help message',
71            Help                                    => '',
72  'Maximum age of a message in seconds',  
73          MaxMessageAge                   => 7200,  'Maximum age of a message in seconds',
74            MaxMessageAge                   => 7200,
75  'Maximum number of messages to send to a subscriber before forcing their connection to close. Use 0 to disable',  
76          MaxMessages                             => 0,  'Maximum number of messages to send to a subscriber before forcing their connection to close. Use 0 to disable',
77            MaxMessages                             => 0,
78  'Maximum number of stored messages per channel',  
79          MaxMessagesPerChannel   => 250,  'Maximum number of stored messages per channel',
80            MaxMessagesPerChannel   => 250,
81  'Maximum duration in seconds for a subscriber connection to exist before forcing a it to close. Note that the server checks for expired connections in 60 second intervals, so small changes to this value will not have much of an effect. Use 0 to disable',  
82          MaxTime                                 => 0,  'Maximum duration in seconds for a subscriber connection to exist before forcing a it to close. Note that the server checks for expired connections in 60 second intervals, so small changes to this value will not have much of an effect. Use 0 to disable',
83            MaxTime                                 => 0,
84  'Message template, ~text~, ~id~ and ~timestamp~ will be replaced by the appropriate values',  
85          MessageTemplate                 => '<script>p(~id~,"~text~");</script>\r\n',  'Message template, ~text~, ~id~, ~channel~ and ~timestamp~ will be replaced by the appropriate values',
86            MessageTemplate                 => '<script>p(~id~,"~channel~","~text~");</script>\r\n',
87  'Interval at which PingMessage is sent to all persistent and identified subscriber connections (ie those including id=someuniqueidentifier in their request, and not specifying persist=0). Must be at least 3 if set higher than zero. Set to zero to disable.',  
88          PingInterval                    => 5,  'Interval at which PingMessage is sent to all persistent and identified subscriber connections (ie those including id=someuniqueidentifier in their request, and not specifying persist=0). Must be at least 3 if set higher than zero. Set to zero to disable.',
89            PingInterval                    => 5,
90  'Message to be sent to all persistent and identified subscriber connections (see above) every PingInterval seconds',  
91          PingMessage                             => '<script>p(-1,"");</script>\r\n',  'Persistence of a connection. Note: some modes have this hardcoded!',
92    
93  'IP address for subscriber server (leave empty for all local addresses)',          Persist                                 => 0,
94          SubscriberIP                    => '',  
95    'Message to be sent to all persistent and identified subscriber connections (see above) every PingInterval seconds',
96  'Port number for subscriber connections',          PingMessage                             => '<script>p(-1,"");</script>\r\n',
97          SubscriberPort                  => 4670,  
98    'IP address for subscriber server (leave empty for all local addresses)',
99  'Subscriber Shutdown message, sent when the subscriber server shuts down (leave empty for no message)',          SubscriberIP                    => '',
100          SubscriberShutdownMsg           => '<script>eof();</script>\r\n',  
101    'Port number for subscriber connections',
102  'An absolute filesystem path, to be used as the document root for Meteor\'s static file web server. If left empty, no documents will be served.',          SubscriberPort                  => 4670,
103          SubscriberDocumentRoot  => '/usr/local/meteor/public_html',  
104    'Subscriber Shutdown message, sent when the subscriber server shuts down (leave empty for no message)',
105  'Since Meteor is capable of serving static pages from a document root as well as streaming events to subscribers, this paramter is used to specify the URI at which the event server can be reached. If set to the root, Meteor will lose the ability to serve static pages.',          SubscriberShutdownMsg           => '<script>eof();</script>\r\n',
106          SubscriberDynamicPageAddress    => '/push',  
107    'An absolute filesystem path, to be used as the document root for Meteor\'s static file web server. If left empty, no documents will be served.',
108  'The syslog facility to use',          SubscriberDocumentRoot  => '/usr/local/meteor/public_html',
109          SyslogFacility                  => 'daemon',  
110          );  'Since Meteor is capable of serving static pages from a document root as well as streaming events to subscribers, this paramter is used to specify the URI at which the event server can be reached. If set to the root, Meteor will lose the ability to serve static pages.',
111                    SubscriberDynamicPageAddress    => '/push',
112          our %ConfigFileData=();  
113          our %CommandLine=();  'The syslog facility to use',
114          our %Defaults=();          SyslogFacility                  => 'daemon',
115          our %ExtraKeys=();          
116            'IP address for udp server (leave empty for all local addresses)',
117          for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)          UDPIP                                   => '',
118          {          
119                  $Defaults{$DEFAULTS[$i+1]}=$DEFAULTS[$i+2];  'Port number for udp connections, set to 0 to disable',
120          }          UDPPort                                 => 0,
121    
122  ###############################################################################          );
123  # Class methods          
124  ###############################################################################          our %ConfigFileData=();
125  sub updateConfig {          our %CommandLine=();
126          my $class=shift;          our %Defaults=();
127                    our %Modes=();
128          %::CONF=();          
129                    for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
130          my $debug=$class->valueForKey('Debug');          {
131                            $Defaults{$DEFAULTS[$i+1]}=$DEFAULTS[$i+2];
132          print STDERR '-'x79 ."\nParamters:\nSource \tName and Value\n".'-'x79 ."\n" if($debug);          }
133            
134          my @keys=();  ###############################################################################
135            # Class methods
136          for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)  ###############################################################################
137          {  sub updateConfig {
138                  next if($DEFAULTS[$i+1] eq 'Help');          my $class=shift;
139                  push(@keys,$DEFAULTS[$i+1]);          
140          }          %::CONF=();
141          push(@keys,keys %ExtraKeys);          
142                    my $debug=$class->valueForKey('Debug');
143          foreach my $key (@keys)          
144          {                        print STDERR '-'x79 ."\nParamters:\nSource \tName and Value\n".'-'x79 ."\n" if($debug);
145                  if(exists($CommandLine{$key}))          
146                  {          my @keys=();
147                          print STDERR "CmdLine" if($debug);          
148                          $::CONF{$key}=$CommandLine{$key};          for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
149                  }          {
150                  elsif(exists($ConfigFileData{$key}))                  next if($DEFAULTS[$i+1] eq 'Help');
151                  {                  push(@keys,$DEFAULTS[$i+1]);
152                          print STDERR "CnfFile" if($debug);          }
153                          $::CONF{$key}=$ConfigFileData{$key};          
154                  }          foreach my $mode ('',keys %Modes)
155                  elsif(exists($Defaults{$key}))          {
156                  {                  foreach my $baseKey (@keys)
157                          print STDERR "Default" if($debug);                  {
158                          $::CONF{$key}=$Defaults{$key};                          my $foundValue=0;
159                  }                          my $key=$baseKey.$mode;
160                                            
161                  print STDERR "\t$key\t$::CONF{$key}\n" if($debug);                          if(exists($CommandLine{$key}))
162                                            {
163                  # Take care of escapes                                  print STDERR "CmdLine" if($debug);
164                  $::CONF{$key}=~s/\\(.)/                                  $::CONF{$key}=$CommandLine{$key};
165                          if($1 eq 'r')                                  $foundValue=1;
166                          {                          }
167                                  "\r";                          elsif(exists($ConfigFileData{$key}))
168                          }                          {
169                          elsif($1 eq 'n')                                  print STDERR "CnfFile" if($debug);
170                          {                                  $::CONF{$key}=$ConfigFileData{$key};
171                                  "\n";                                  $foundValue=1;
172                          }                          }
173                          elsif($1 eq 's')                          elsif(exists($Defaults{$key}))
174                          {                          {
175                                  ' ';                                  print STDERR "Default" if($debug);
176                          }                                  $::CONF{$key}=$Defaults{$key};
177                          elsif($1 eq 't')                                  $foundValue=1;
178                          {                          }
179                                  "\t";                          
180                          }                          next unless($foundValue);
181                          else                          
182                          {                          print STDERR "\t$key\t$::CONF{$key}\n" if($debug);
183                                  $1;                          
184                          }                          # Take care of escapes
185                  /gex;                          $::CONF{$key}=~s/\\(.)/
186          }                                  if($1 eq 'r')
187                                            {
188          print STDERR '-'x79 ."\n" if($debug);                                          "\r";
189  }                                  }
190                                    elsif($1 eq 'n')
191  sub valueForKey {                                  {
192          my $class=shift;                                          "\n";
193          my $key=shift;                                  }
194                                            elsif($1 eq 's')
195          return $CommandLine{$key} if(exists($CommandLine{$key}));                                  {
196          return $ConfigFileData{$key} if(exists($ConfigFileData{$key}));                                          ' ';
197                                            }
198          $Defaults{$key};                                  elsif($1 eq 't')
199  }                                  {
200                                            "\t";
201  sub setCommandLineParameters {                                  }
202          my $class=shift;                                  else
203                                            {
204          while(my $cnt=scalar(@_))                                          $1;
205          {                                  }
206                  my $k=shift(@_);                          /gex;
207                  &usage("'$k' invalid") unless($k=~s/^\-(?=.+)//);                  }
208                            }
209                  $k='Debug' if($k eq 'd');          print STDERR '-'x79 ."\n" if($debug);
210                    }
211                  my $key=undef;  
212                  my $kl=length($k);  sub valueForKey {
213                  my $kOrig=$k;          my $class=shift;
214                  $k=lc($k);          my $key=shift;
215                            
216                  for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)          return $CommandLine{$key} if(exists($CommandLine{$key}));
217                  {          return $ConfigFileData{$key} if(exists($ConfigFileData{$key}));
218                          my $p=$DEFAULTS[$i+1];          
219                          my $pl=length($p);          $Defaults{$key};
220                            }
221                          next if($kl>$pl);  
222                            sub setCommandLineParameters {
223                          #print "$kl $pl $k $p\n";          my $class=shift;
224                                    
225                          if($kl==$pl && $k eq lc($p))          #
226                          {          # Quick check if we should show the version, if so ignore everything else
227                                  $key=$p;          # Accept -v, -version, and everything in between
228                                  last;          #
229                          }          foreach my $p (@_)
230                                    {
231                          my $ps=lc(substr($p,0,$kl));                  if(index($p,'-v')==0 && index('-version',$p)==0)
232                                            {
233                          if($k eq $ps)                          print "$::PGM $::VERSION\n";
234                          {                          exit(0);
235                                  if(defined($key))                  }
236                                  {          }
237                                          &usage("Ambigous parameter name '$kOrig'");          
238                                  }          while(my $cnt=scalar(@_))
239                                  $key=$p;          {
240                          }                  my $k=shift(@_);
241                  }                  &usage("'$k' invalid") unless($k=~s/^\-(?=.+)//);
242                                    
243                  if($k=~/^HeaderTemplate(\d+)$/i)                  $k='Debug' if($k eq 'd');
244                  {                  
245                          $key="HeaderTemplate$1";                  my $mode='';
246                          $ExtraKeys{$key}=1;                  
247                  }                  if($k=~s/(\..+)$//)
248                                            {
249                  &usage("Unknown parameter name '$kOrig'") unless(defined($key));                          $mode=$1;
250                                            $Modes{$mode}=1;
251                  &usage() if($key eq 'Help');                  }
252                                    
253                  #print "$kOrig: $key\n";                  my $key=undef;
254                                    my $kl=length($k);
255                  $CommandLine{$key}=1;                  my $kOrig=$k;
256                                    $k=lc($k);
257                  if($cnt>1 && $_[0]!~/^\-(?!\-)/)                  
258                  {                  for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
259                          my $param=shift;                  {
260                          $param=~s/^\-\-/\-/;                          my $p=$DEFAULTS[$i+1];
261                          $CommandLine{$key}=$param;                          my $pl=length($p);
262                  }                          
263          }                          next if($kl>$pl);
264                                    
265          $class->readConfig();                          #print "$kl $pl $k $p\n";
266                                    
267          $class->updateConfig();                          if($kl==$pl && $k eq lc($p))
268  }                          {
269                                    $key=$p;
270  sub readConfig {                                  last;
271          my $class=shift;                          }
272                                    
273          %ConfigFileData=();                          my $ps=lc(substr($p,0,$kl));
274                                    
275          my $path=$class->valueForKey('ConfigFileLocation');                          if($k eq $ps)
276          return unless(defined($path) && -f $path);                          {
277                                            if(defined($key))
278          open(CONFIG,"$path") or &usage("Config file '$path' for read: $!\n");                                  {
279          while(<CONFIG>)                                          &usage("Ambigous parameter name '$kOrig'");
280          {                                  }
281                  next if(/^\s*#/);                                  $key=$p;
282                  next if(/^\s*$/);                          }
283                                    }
284                  s/[\r\n]*$//;                          
285                                    &usage("Unknown parameter name '$kOrig'") unless(defined($key));
286                  unless(/^(\S+)\s*(.*)/)                  
287                  {                  &usage() if($key eq 'Help');
288                          &usage("Invalid configuration file parameter line '$_'");                  
289                  }                  #print "$kOrig: $key\n";
290                                    
291                  my $key=$1;                  $CommandLine{"$key$mode"}=1;
292                  my $val=$2;                  
293                  $val='' unless(defined($val));                  if($cnt>1 && $_[0]!~/^\-(?!\-)/)
294                                    {
295                  if($key=~/^HeaderTemplate\d+$/)                          my $param=shift;
296                  {                          $param=~s/^\-\-/\-/;
297                          $ExtraKeys{$key}=1;                          $CommandLine{"$key$mode"}=$param;
298                  }                  }
299                  else          }
300                  {          
301                          unless(exists($Defaults{$key}))          $class->readConfig();
302                          {          
303                                  &usage("Unknown configuration file parameter name '$key'");          $class->updateConfig();
304                          }  }
305                          if($key eq 'ConfigFileLocation')  
306                          {  sub readConfig {
307                                  &usage("'ConfigFileLocation' parameter not allowed in configuration file!");          my $class=shift;
308                          }          
309                  }          %ConfigFileData=();
310                            
311                  $val=~s/^--/-/;          my $path=$class->valueForKey('ConfigFileLocation');
312                            return unless(defined($path) && -f $path);
313                  $ConfigFileData{$key}=$val;          
314          }          my $mode='';
315          close(CONFIG);          
316  }          open(CONFIG,"$path") or &usage("Config file '$path' for read: $!\n");
317            while(<CONFIG>)
318  sub usage {          {
319          my $msg=shift || '';                  next if(/^\s*#/);
320                            next if(/^\s*$/);
321          if($msg) {                  
322                  print STDERR <<"EOT";                  s/[\r\n]*$//;
323  $msg;                  
324  For further help type $::PGM -help                  if(/^\s*\[\s*([^\]\s]+)\s*\]\s*$/)
325  or consult docs at http://www.meteorserver.org/                  {
326  EOT                          $Modes{".$1"}=1;
327                            next;
328          } else {                  }
329                    
330                            unless(/^(\S+)\s*(.*)/)
331                  print STDERR <<"EOT";                  {
332                            &usage("Invalid configuration file parameter line '$_'");
333  Meteor server v1.0 (release date: 1 Dec 2006)                  }
334  Licensed under the terms of the GNU General Public Licence (2.0)                  
335                    my $key=$1;
336  Usage:                  my $val=$2;
337                    $val='' unless(defined($val));
338          $::PGM [-parameter [value] [-parameter [value]...]]                  
339                    unless(exists($Defaults{$key}))
340  Accepted command-line parameters:                  {
341                            &usage("Unknown configuration file parameter name '$key$mode'");
342  EOT                  }
343                            if($key eq 'ConfigFileLocation')
344                  for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)                  {
345                  {                          &usage("'ConfigFileLocation' parameter not allowed in configuration file!");
346                          print STDERR "-$DEFAULTS[$i+1]\n$DEFAULTS[$i].\n\n";                  }
347                  }                  
348                                    $val=~s/^--/-/;
349                  print STDERR <<"EOT";                    
350                            $ConfigFileData{"$key$mode"}=$val;
351  Any of the parameters listed above can also be configured in the          }
352  configuration file. The default location for this file is:          close(CONFIG);
353    }
354          $Defaults{'ConfigFileLocation'}  
355    sub usage {
356  For more information and complete documentation, see the Meteor          my $msg=shift || '';
357  website at http://www.meteorserver.org/          
358  EOT          if($msg) {
359                    print STDERR <<"EOT";
360          }  $msg;
361          exit(1);  For further help type $::PGM -help
362  }  or consult docs at http://www.meteorserver.org/
363    EOT
364  1;  
365            } else {
366    
367            
368                    print STDERR <<"EOT";
369    
370    Meteor server v$::VERSION (release date: $::RELEASE_DATE)
371    Licensed under the terms of the GNU General Public Licence (2.0)
372    
373    Usage:
374    
375            $::PGM [-parameter [value] [-parameter [value]...]]
376    
377    Accepted command-line parameters:
378    
379    EOT
380            
381                    for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
382                    {
383                            print STDERR "-$DEFAULTS[$i+1]\n$DEFAULTS[$i].\n\n";
384                    }
385                    
386                    print STDERR <<"EOT";  
387            
388    Any of the parameters listed above can also be configured in the
389    configuration file. The default location for this file is:
390    
391            $Defaults{'ConfigFileLocation'}
392    
393    For more information and complete documentation, see the Meteor
394    website at http://www.meteorserver.org/
395    EOT
396    
397            }
398            exit(1);
399    }
400    
401    1;
402  ############################################################################EOF  ############################################################################EOF
Legend:
Removed from v.9  
changed lines
  Added in v.49
  ViewVC Help
Powered by ViewVC 1.1.26