--- googlecode.com/svn/trunk/Meteor/Config.pm 2007/05/14 13:42:45 21 +++ googlecode.com/svn/trunk/Meteor/Config.pm 2008/02/03 23:10:24 42 @@ -60,9 +60,6 @@ 'Name of index file to serve when a directory is requested from the static file web server', DirectoryIndex => 'index.html', -'Header to be served with static documents. ~server~ and ~status~ will be replaced by the appropriate values', - DocumentHeaderTemplate => 'HTTP/1.1 ~status~\r\nServer: ~server~\r\nContent-Type: text/html; charset=utf-8\r\n\r\n', - '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= to their GET request. If *HeaderTemplate* is not found, the system will use the default HeaderTemplate (no number)', 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\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n', @@ -201,6 +198,19 @@ sub setCommandLineParameters { my $class=shift; + # + # Quick check if we should show the version, if so ignore everything else + # Accept -v, -version, and everything in between + # + foreach my $p (@_) + { + if(index($p,'-v')==0 && index('-version',$p)==0) + { + print "$::PGM $::VERSION\n"; + exit(0); + } + } + while(my $cnt=scalar(@_)) { my $k=shift(@_);