--- trunk/httpd.pl	2004/05/10 14:07:44	39
+++ trunk/httpd.pl	2004/05/10 20:26:17	41
@@ -5,12 +5,13 @@
 
 use strict;
 use warnings;
+use MWS::SWISH;
+#use MWS::Plucene;
 use HTTP::Daemon;
 use HTTP::Status;
 use IO::String;
 use CGI::Lite;
 use Template;
-use MWS;
 use URI::Escape;
 
 use Data::Dumper;
@@ -28,13 +29,17 @@
 	exit 1;
 }
 
-my $mws = MWS->new($config_file);
+my $mws = MWS::SWISH->new(config_file => $config_file);
+#my $mws = MWS::Plucene->new(config_file => $config_file, debug => $debug);
 
 my ($local_addr,$local_port) = ('127.0.0.1',6969);
 
 my $listen = $mws->{config}->val('global', 'listen');
-if ($listen =~ m/:/) {
-	($local_addr,$local_port) = split(/:/,$listen);
+
+print STDERR "using listen $listen\n" if ($listen);
+
+if ($listen && $listen =~ m/:/) {
+	($local_addr,$local_port) = split(/:/,$listen,2);
 } elsif ($listen) {
 	$local_addr = $listen;
 }
@@ -43,7 +48,7 @@
 	Reuse => 1,
 	LocalAddr => $local_addr,
 	LocalPort => $local_port,
-) || die "can't create HTTP::Daemon";
+) || die "can't create HTTP::Daemon on $local_addr:$local_port: $!";
 
 my $cgi = new CGI::Lite;
 my $tt = Template->new({