--- trunk/httpd.pl	2004/05/08 16:06:58	25
+++ trunk/httpd.pl	2004/05/08 20:34:26	27
@@ -17,9 +17,20 @@
 
 my $debug = 1;
 
+my $config_file = shift @ARGV || 'global.conf';
+
+if (! -f $config_file) {
+	print qq{Usage: $0 [/path/to/local.conf]
+
+If local.conf is not specified, global.conf in current directory will
+be used.
+};
+	exit 1;
+}
+
 my $d = HTTP::Daemon->new( Reuse => 1, LocalPort => 6969 ) || die;
 my $cgi = new CGI::Lite;
-my $mws = MWS->new('global.conf');
+my $mws = MWS->new($config_file);
 my $tt = Template->new({
 	INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
 	FILTERS => {
@@ -123,7 +134,13 @@
 			date_limit => $date_limit,
 		};
 
-		#
+		# is this access to root of web server?
+		if ($url eq "/" && !$param->{'search'}) {
+			# if first access, go to current year
+			$date_limit = $mws->fmtdate($yyyy);
+			$param->{sort} = "date desc";
+		}
+
 		# ?show_id=XXXXxxxx___message_id___xxxxXXXX
 		if ($param->{'show_id'}) {
 
@@ -135,7 +152,8 @@
 			# show search results
 			# ?search=foo:bar
 
-			my @search = ( $param->{'search'} );
+			my @search;
+			push @search, $param->{'search'} if ($param->{'search'});
 
 			if ($date_limit) {
 				push @search, "and" if (@search);