X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FExchange.pl;h=ae8470f3e85f2f8cf74796793ab3e01385d1f97a;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=d20cea07aff641b0693c275ec6aaeb759ffeec7a;hpb=93eb520d8e5ebbdea3a20029d9d95e0d4e848901;p=infobot.git

diff --git a/src/Modules/Exchange.pl b/src/Modules/Exchange.pl
index d20cea0..ae8470f 100644
--- a/src/Modules/Exchange.pl
+++ b/src/Modules/Exchange.pl
@@ -277,7 +277,7 @@ sub exchange {
     my ($message) = @_;
     &::DEBUG("exchange(@_)");
 
-    return "Exchange.pl needs LWP::UserAgent and HTTP::Request::Common" 
+    return "Exchange.pl needs LWP::UserAgent and HTTP::Request::Common"
 	if ($no_exchange);
 
     my ($From, $To, $Amount, $Country);
@@ -293,8 +293,9 @@ sub exchange {
     }
 
     my $ua = new LWP::UserAgent;
-    #$ua->agent("Mozilla/5.0 " . $ua->agent);        # Let's pretend
-    $ua->agent("Mozilla/5.0");        # Let's pretend
+    # Let's pretend
+    #$ua->agent("Mozilla/5.0 " . $ua->agent);
+    $ua->agent("Mozilla/5.0");
     $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
     $ua->timeout(10);
 
@@ -316,7 +317,7 @@ sub exchange {
 
     if ($Country) {
 	# Country lookup
-	# crysflame++ for the space fix. 
+	# crysflame++ for the space fix.
 	$retval = '';
 	foreach my $Found (grep /$Country/i, keys %CurrLookup){
 	    $Found =~ s/,/ uses/g;
@@ -355,9 +356,11 @@ sub exchange {
 	    # Falsify where we came from
 	    $req->referer($Referer);
 
-	    my $res = $ua->request($req);                   # Submit request
+	    # Submit request
+	    my $res = $ua->request($req);
 
-	    if ($res->is_success) {                         # Went through ok
+	    if ($res->is_success) {
+		# Went through ok
 		my $html = $res->as_string;
 		# parse each one to avoid undefined warnings
 		my ($When) = ($html =~ m/ as of (\d{4}\.\d\d.\d\d\s\d\d:\d\d:\d\d\s\S+)/gi);
@@ -372,7 +375,8 @@ sub exchange {
 		} else {
 		    return "i got some error trying that";
 		}
-	    } else {                                        # Oh dear.
+	    } else {
+		# Oh dear.
 		return "EXCHANGE: ". $res->status_line;
 	    }
 	} else {