/[meteor]/googlecode.com/svn/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 /googlecode.com/svn/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 48 by knops.gerd, Mon Feb 4 22:23:52 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 %ExtraKeys=();
128          %::CONF=();          our %Modes=();
129                    
130          my $debug=$class->valueForKey('Debug');          for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
131                    {
132          print STDERR '-'x79 ."\nParamters:\nSource \tName and Value\n".'-'x79 ."\n" if($debug);                  $Defaults{$DEFAULTS[$i+1]}=$DEFAULTS[$i+2];
133                    }
134          my @keys=();  
135            ###############################################################################
136          for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)  # Class methods
137          {  ###############################################################################
138                  next if($DEFAULTS[$i+1] eq 'Help');  sub updateConfig {
139                  push(@keys,$DEFAULTS[$i+1]);          my $class=shift;
140          }          
141          push(@keys,keys %ExtraKeys);          %::CONF=();
142                    
143          foreach my $key (@keys)          my $debug=$class->valueForKey('Debug');
144          {                        
145                  if(exists($CommandLine{$key}))          print STDERR '-'x79 ."\nParamters:\nSource \tName and Value\n".'-'x79 ."\n" if($debug);
146                  {          
147                          print STDERR "CmdLine" if($debug);          my @keys=();
148                          $::CONF{$key}=$CommandLine{$key};          
149                  }          for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
150                  elsif(exists($ConfigFileData{$key}))          {
151                  {                  next if($DEFAULTS[$i+1] eq 'Help');
152                          print STDERR "CnfFile" if($debug);                  push(@keys,$DEFAULTS[$i+1]);
153                          $::CONF{$key}=$ConfigFileData{$key};          }
154                  }          push(@keys,keys %ExtraKeys);
155                  elsif(exists($Defaults{$key}))          
156                  {          
157                          print STDERR "Default" if($debug);          foreach my $mode ('',keys %Modes)
158                          $::CONF{$key}=$Defaults{$key};          {
159                  }                  foreach my $baseKey (@keys)
160                                    {
161                  print STDERR "\t$key\t$::CONF{$key}\n" if($debug);                          my $foundValue=0;
162                                            my $key=$baseKey.$mode;
163                  # Take care of escapes                          
164                  $::CONF{$key}=~s/\\(.)/                          if(exists($CommandLine{$key}))
165                          if($1 eq 'r')                          {
166                          {                                  print STDERR "CmdLine" if($debug);
167                                  "\r";                                  $::CONF{$key}=$CommandLine{$key};
168                          }                                  $foundValue=1;
169                          elsif($1 eq 'n')                          }
170                          {                          elsif(exists($ConfigFileData{$key}))
171                                  "\n";                          {
172                          }                                  print STDERR "CnfFile" if($debug);
173                          elsif($1 eq 's')                                  $::CONF{$key}=$ConfigFileData{$key};
174                          {                                  $foundValue=1;
175                                  ' ';                          }
176                          }                          elsif(exists($Defaults{$key}))
177                          elsif($1 eq 't')                          {
178                          {                                  print STDERR "Default" if($debug);
179                                  "\t";                                  $::CONF{$key}=$Defaults{$key};
180                          }                                  $foundValue=1;
181                          else                          }
182                          {                          
183                                  $1;                          next unless($foundValue);
184                          }                          
185                  /gex;                          print STDERR "\t$key\t$::CONF{$key}\n" if($debug);
186          }                          
187                                    # Take care of escapes
188          print STDERR '-'x79 ."\n" if($debug);                          $::CONF{$key}=~s/\\(.)/
189  }                                  if($1 eq 'r')
190                                    {
191  sub valueForKey {                                          "\r";
192          my $class=shift;                                  }
193          my $key=shift;                                  elsif($1 eq 'n')
194                                            {
195          return $CommandLine{$key} if(exists($CommandLine{$key}));                                          "\n";
196          return $ConfigFileData{$key} if(exists($ConfigFileData{$key}));                                  }
197                                            elsif($1 eq 's')
198          $Defaults{$key};                                  {
199  }                                          ' ';
200                                    }
201  sub setCommandLineParameters {                                  elsif($1 eq 't')
202          my $class=shift;                                  {
203                                                    "\t";
204          while(my $cnt=scalar(@_))                                  }
205          {                                  else
206                  my $k=shift(@_);                                  {
207                  &usage("'$k' invalid") unless($k=~s/^\-(?=.+)//);                                          $1;
208                                                    }
209                  $k='Debug' if($k eq 'd');                          /gex;
210                                    }
211                  my $key=undef;          }
212                  my $kl=length($k);          print STDERR '-'x79 ."\n" if($debug);
213                  my $kOrig=$k;  }
214                  $k=lc($k);  
215                    sub valueForKey {
216                  for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)          my $class=shift;
217                  {          my $key=shift;
218                          my $p=$DEFAULTS[$i+1];          
219                          my $pl=length($p);          return $CommandLine{$key} if(exists($CommandLine{$key}));
220                                    return $ConfigFileData{$key} if(exists($ConfigFileData{$key}));
221                          next if($kl>$pl);          
222                                    $Defaults{$key};
223                          #print "$kl $pl $k $p\n";  }
224                            
225                          if($kl==$pl && $k eq lc($p))  sub setCommandLineParameters {
226                          {          my $class=shift;
227                                  $key=$p;          
228                                  last;          #
229                          }          # Quick check if we should show the version, if so ignore everything else
230                                    # Accept -v, -version, and everything in between
231                          my $ps=lc(substr($p,0,$kl));          #
232                                    foreach my $p (@_)
233                          if($k eq $ps)          {
234                          {                  if(index($p,'-v')==0 && index('-version',$p)==0)
235                                  if(defined($key))                  {
236                                  {                          print "$::PGM $::VERSION\n";
237                                          &usage("Ambigous parameter name '$kOrig'");                          exit(0);
238                                  }                  }
239                                  $key=$p;          }
240                          }          
241                  }          while(my $cnt=scalar(@_))
242                            {
243                  if($k=~/^HeaderTemplate(\d+)$/i)                  my $k=shift(@_);
244                  {                  &usage("'$k' invalid") unless($k=~s/^\-(?=.+)//);
245                          $key="HeaderTemplate$1";                  
246                          $ExtraKeys{$key}=1;                  $k='Debug' if($k eq 'd');
247                  }                  
248                                            my $mode='';
249                  &usage("Unknown parameter name '$kOrig'") unless(defined($key));                  
250                                    if($k=~s/(\..+)$//)
251                  &usage() if($key eq 'Help');                  {
252                                            $mode=$1;
253                  #print "$kOrig: $key\n";                          $Modes{$mode}=1;
254                                    }
255                  $CommandLine{$key}=1;                  
256                                    my $key=undef;
257                  if($cnt>1 && $_[0]!~/^\-(?!\-)/)                  my $kl=length($k);
258                  {                  my $kOrig=$k;
259                          my $param=shift;                  $k=lc($k);
260                          $param=~s/^\-\-/\-/;                  
261                          $CommandLine{$key}=$param;                  for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
262                  }                  {
263          }                          my $p=$DEFAULTS[$i+1];
264                                    my $pl=length($p);
265          $class->readConfig();                          
266                                    next if($kl>$pl);
267          $class->updateConfig();                          
268  }                          #print "$kl $pl $k $p\n";
269                            
270  sub readConfig {                          if($kl==$pl && $k eq lc($p))
271          my $class=shift;                          {
272                                            $key=$p;
273          %ConfigFileData=();                                  last;
274                                    }
275          my $path=$class->valueForKey('ConfigFileLocation');                          
276          return unless(defined($path) && -f $path);                          my $ps=lc(substr($p,0,$kl));
277                                    
278          open(CONFIG,"$path") or &usage("Config file '$path' for read: $!\n");                          if($k eq $ps)
279          while(<CONFIG>)                          {
280          {                                  if(defined($key))
281                  next if(/^\s*#/);                                  {
282                  next if(/^\s*$/);                                          &usage("Ambigous parameter name '$kOrig'");
283                                                    }
284                  s/[\r\n]*$//;                                  $key=$p;
285                                            }
286                  unless(/^(\S+)\s*(.*)/)                  }
287                  {                  
288                          &usage("Invalid configuration file parameter line '$_'");                  if($k=~/^HeaderTemplate(\d+)$/i)
289                  }                  {
290                                            $key="HeaderTemplate$1";
291                  my $key=$1;                          $ExtraKeys{$key}=1;
292                  my $val=$2;                  }
293                  $val='' unless(defined($val));                          
294                                    &usage("Unknown parameter name '$kOrig'") unless(defined($key));
295                  if($key=~/^HeaderTemplate\d+$/)                  
296                  {                  &usage() if($key eq 'Help');
297                          $ExtraKeys{$key}=1;                  
298                  }                  #print "$kOrig: $key\n";
299                  else                  
300                  {                  $CommandLine{"$key$mode"}=1;
301                          unless(exists($Defaults{$key}))                  
302                          {                  if($cnt>1 && $_[0]!~/^\-(?!\-)/)
303                                  &usage("Unknown configuration file parameter name '$key'");                  {
304                          }                          my $param=shift;
305                          if($key eq 'ConfigFileLocation')                          $param=~s/^\-\-/\-/;
306                          {                          $CommandLine{"$key$mode"}=$param;
307                                  &usage("'ConfigFileLocation' parameter not allowed in configuration file!");                  }
308                          }          }
309                  }          
310                            $class->readConfig();
311                  $val=~s/^--/-/;          
312                            $class->updateConfig();
313                  $ConfigFileData{$key}=$val;  }
314          }  
315          close(CONFIG);  sub readConfig {
316  }          my $class=shift;
317            
318  sub usage {          %ConfigFileData=();
319          my $msg=shift || '';          
320                    my $path=$class->valueForKey('ConfigFileLocation');
321          if($msg) {          return unless(defined($path) && -f $path);
322                  print STDERR <<"EOT";          
323  $msg;          my $mode='';
324  For further help type $::PGM -help          
325  or consult docs at http://www.meteorserver.org/          open(CONFIG,"$path") or &usage("Config file '$path' for read: $!\n");
326  EOT          while(<CONFIG>)
327            {
328          } else {                  next if(/^\s*#/);
329                    next if(/^\s*$/);
330                            
331                  print STDERR <<"EOT";                  s/[\r\n]*$//;
332                    
333  Meteor server v1.0 (release date: 1 Dec 2006)                  if(/^\s*\[\s*([^\]\s]+)\s*\]\s*$/)
334  Licensed under the terms of the GNU General Public Licence (2.0)                  {
335                            $Modes{".$1"}=1;
336  Usage:                          next;
337                    }
338          $::PGM [-parameter [value] [-parameter [value]...]]                  
339                    unless(/^(\S+)\s*(.*)/)
340  Accepted command-line parameters:                  {
341                            &usage("Invalid configuration file parameter line '$_'");
342  EOT                  }
343                            
344                  for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)                  my $key=$1;
345                  {                  my $val=$2;
346                          print STDERR "-$DEFAULTS[$i+1]\n$DEFAULTS[$i].\n\n";                  $val='' unless(defined($val));
347                  }                  
348                                    if($key=~/^HeaderTemplate\d+$/)
349                  print STDERR <<"EOT";                    {
350                                    $ExtraKeys{$key}=1;
351  Any of the parameters listed above can also be configured in the                  }
352  configuration file. The default location for this file is:                  else
353                    {
354          $Defaults{'ConfigFileLocation'}                          unless(exists($Defaults{$key}))
355                            {
356  For more information and complete documentation, see the Meteor                                  &usage("Unknown configuration file parameter name '$key$mode'");
357  website at http://www.meteorserver.org/                          }
358  EOT                          if($key eq 'ConfigFileLocation')
359                            {
360          }                                  &usage("'ConfigFileLocation' parameter not allowed in configuration file!");
361          exit(1);                          }
362  }                  }
363                    
364  1;                  $val=~s/^--/-/;
365                    
366                    $ConfigFileData{"$key$mode"}=$val;
367            }
368            close(CONFIG);
369    }
370    
371    sub usage {
372            my $msg=shift || '';
373            
374            if($msg) {
375                    print STDERR <<"EOT";
376    $msg;
377    For further help type $::PGM -help
378    or consult docs at http://www.meteorserver.org/
379    EOT
380    
381            } else {
382    
383            
384                    print STDERR <<"EOT";
385    
386    Meteor server v$::VERSION (release date: $::RELEASE_DATE)
387    Licensed under the terms of the GNU General Public Licence (2.0)
388    
389    Usage:
390    
391            $::PGM [-parameter [value] [-parameter [value]...]]
392    
393    Accepted command-line parameters:
394    
395    EOT
396            
397                    for(my $i=0;$i<scalar(@DEFAULTS);$i+=3)
398                    {
399                            print STDERR "-$DEFAULTS[$i+1]\n$DEFAULTS[$i].\n\n";
400                    }
401                    
402                    print STDERR <<"EOT";  
403            
404    Any of the parameters listed above can also be configured in the
405    configuration file. The default location for this file is:
406    
407            $Defaults{'ConfigFileLocation'}
408    
409    For more information and complete documentation, see the Meteor
410    website at http://www.meteorserver.org/
411    EOT
412    
413            }
414            exit(1);
415    }
416    
417    1;
418  ############################################################################EOF  ############################################################################EOF
Legend:
Removed from v.9  
changed lines
  Added in v.48
  ViewVC Help
Powered by ViewVC 1.1.26