Fake Useragent (pretend to be Firefox)

2 files changed, 2 insertions, 0 deletions

diff --git a/bin/comirror b/bin/comirror
index 453a46b..98353a6 100755
--- a/bin/comirror
+++ b/bin/comirror
@@ -8,6 +8,7 @@ use WWW::Mechanize;
 my $mech = WWW::Mechanize->new(
 	stack_depth => 2,
 );
+$mech->agent_alias('Linux Mozilla');
 
 our $VERSION = '0.1';
 
diff --git a/bin/comirror-setup b/bin/comirror-setup
index 6bdbbe9..b9e1198 100755
--- a/bin/comirror-setup
+++ b/bin/comirror-setup
@@ -90,6 +90,7 @@ print 'Fetching pages';
 
 for my $url (@ARGV) {
 	push(@mechs, WWW::Mechanize->new( stackdepth => 0 ));
+	$mechs[-1]->agent_alias('Linux Mozilla');
 	$mechs[-1]->get($url);
 	print q{.};
 }