[mb-commits] r10132 - in mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server: . Controller

[root at musicbrainz.org]

Author: acid2
Date: 2008-07-20 15:17:41 +0000 (Sun, 20 Jul 2008)
New Revision: 10132

Modified:
   mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Adapter.pm
   mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Controller/Artist.pm
Log:
Search google for artist

Modified: mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Adapter.pm
===================================================================
--- mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Adapter.pm	2008-07-20 15:09:35 UTC (rev 10131)
+++ mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Adapter.pm	2008-07-20 15:17:41 UTC (rev 10132)
@@ -4,7 +4,7 @@
 use warnings;
 
 use base 'Exporter';
-our @EXPORT_OK = qw( LoadEntity EntityUrl );
+our @EXPORT_OK = qw( LoadEntity EntityUrl Google );
 
 use Carp;
 use MusicBrainz::Server::Artist;
@@ -92,4 +92,25 @@
     return $c->uri_for($catalyst_action, [ $entity->{mbid} ], $query_params);
 }
 
+=head2 Google $query.
+
+Form a Google search URL, with the MusicBrainz colours.
+
+=cut
+
+sub Google
+{
+    my $query = shift;
+
+    my $google_domain = "google.com";
+
+    return sprintf "http://%s/custom?q=%s&sa=%s&cof=%s&domains=%s&ie=%s&oe=%s",
+        $google_domain, $query, "Google+Search", 
+        "GIMP%3A%23b78242%3BT%3A%23000000%3BLW%3A604%3BALC%3A%2300FFFF%3BL%3A"
+        . "http%3A%2F%2Fwww.musicbrainz.org%2Fimages%2Fgoogle%2Epng%3BGFNT%3A"
+        . "%23CCCCC%3BLC%3A%23736DAB%3BLH%3A89%3BBGC%3A%23FFFFFF%3BAH%3Acenter"
+        . "%3BVLC%3A%23734D8B%3BGALT%3A%23b78242%3BAWFID%3Af7ac0473f1a88aef%3B",
+        "musicbrainz.org", "utf-8", "utf-8";
+}
+
 1;

Modified: mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Controller/Artist.pm
===================================================================
--- mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Controller/Artist.pm	2008-07-20 15:09:35 UTC (rev 10131)
+++ mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Controller/Artist.pm	2008-07-20 15:17:41 UTC (rev 10132)
@@ -9,7 +9,7 @@
 use Encode qw( decode );
 use ModDefs;
 use Moderation;
-use MusicBrainz::Server::Adapter qw( LoadEntity );
+use MusicBrainz::Server::Adapter qw( LoadEntity Google );
 use MusicBrainz::Server::Adapter::Relations qw(LoadRelations);
 use MusicBrainz::Server::Adapter::Tag qw(PrepareForTagCloud);
 use MusicBrainz::Server::Alias;
@@ -106,6 +106,11 @@
 
 sub google : Chained('artist')
 {
+    my ($self, $c) = @_;
+
+    my $artist = $c->stash->{_artist};
+
+    $c->response->redirect(Google($artist->GetName));
 }
 
 =head2 tags