update from server at Tue Nov 20 20:28:54 MST 2012

williamjxj · Nov 21, 2012 · c1ca117 · c1ca117
1 parent bd4f6d4
commit c1ca117
Show file tree

Hide file tree

Showing 9 changed files with 22 additions and 20 deletions.
diff --git a/daemons/baiduD.pl b/daemons/baiduD.pl
@@ -55,6 +55,8 @@ BEGIN
 	'createdby' => $dbh->quote('baiduD'),
 };
 
+# can't quite when error, just next. by default autocheck is ON.
+# don't bother checking the return value of get() post(), just continue.
 my $mech = WWW::Mechanize->new( autocheck => 0 ) or die;
 $mech->timeout(20);
 

diff --git a/daemons/sosoD.pl b/daemons/sosoD.pl
@@ -60,7 +60,7 @@ BEGIN
 	'createdby' => $dbh->quote( $ss->get_os_stripname(__FILE__) ),
 };
 
-my $mech = WWW::Mechanize->new() or die;
+my $mech = WWW::Mechanize->new( autocheck=>0 ) or die $!;
 $mech->timeout(30);
 
 #####################################################

diff --git a/daemons/yahooD.pl b/daemons/yahooD.pl
@@ -58,7 +58,7 @@ BEGIN
 	'createdby' => $yh->{'dbh'}->quote( $yh->get_os_stripname(__FILE__) ),
 };
 
-my $mech = WWW::Mechanize->new() or die;
+my $mech = WWW::Mechanize->new( autocheck=>0 ) or die $!;
 $mech->timeout(20);
 
 #####################################################

diff --git a/google/gen.pl b/google/gen.pl
@@ -28,9 +28,9 @@
 		$keyword = $q->param('q');
 		Encode::_utf8_on($keyword);	
 	}
-}
-else {
-	die "usage: $0 keyword";	
+	else {
+		die "usage: $0 keyword";	
+	}
 }
 
 our $dbh = new db( USER, PASS, DSN.":hostname=".HOST );

diff --git a/google/ghk.pl b/google/ghk.pl
@@ -28,9 +28,9 @@
 		$keyword = $q->param('q');
 		Encode::_utf8_on($keyword);	
 	}
-}
-else {
-	die "usage: $0 keyword";	
+	else {
+		die "usage: $0 keyword";	
+	}
 }
 
 our $dbh = new db( USER, PASS, DSN.":hostname=".HOST );

diff --git a/google/gtw.pl b/google/gtw.pl
@@ -28,9 +28,9 @@
 		$keyword = $q->param('q');
 		Encode::_utf8_on($keyword);	
 	}
-}
-else {
-	die "usage: $0 keyword";	
+	else {
+		die "usage: $0 keyword";	
+	}
 }
 
 our $dbh = new db( USER, PASS, DSN.":hostname=".HOST );

diff --git a/yahoo/yen.pl b/yahoo/yen.pl
@@ -25,9 +25,9 @@
 		$keyword = $q->param('q');
 		Encode::_utf8_on($keyword);	
 	}
-}
-else {
-	die "usage: $0 keyword";	
+	else {
+		die "usage: $0 keyword";	
+	}
 }
 
 my $yh = new yahoo();

diff --git a/yahoo/yhk.pl b/yahoo/yhk.pl
@@ -25,9 +25,9 @@
 		$keyword = $q->param('q');
 		Encode::_utf8_on($keyword);	
 	}
-}
-else {
-	die "usage: $0 keyword";	
+	else {
+		die "usage: $0 keyword";	
+	}
 }
 
 my $hk = new yahoo() or die $!;

diff --git a/yahoo/ytw.pl b/yahoo/ytw.pl
@@ -25,9 +25,9 @@
 		$keyword = $q->param('q');
 		Encode::_utf8_on($keyword);	
 	}
-}
-else {
-	die "usage: $0 keyword";	
+	else {
+		die "usage: $0 keyword";	
+	}
 }
 
 my $tw = new yahoo();