#!/usr/bin/perl
##############################################################################################
-# uagen (http://www.fabiankeil.de/sourcecode/uagen/)
-#
-# $Id: uagen.pl,v 1.15 2011/06/29 20:29:29 fabiankeil Exp $
+# uagen (https://www.fabiankeil.de/sourcecode/uagen/)
#
# Generates a pseudo-random Firefox user agent and writes it into a Privoxy action file
# and optionally into a Mozilla prefs file. For documentation see 'perldoc uagen(.pl)'.
#
-# Examples (created with v1.0):
+# Examples (created with v1.2.2):
#
-# Mozilla/5.0 (X11; U; NetBSD i386; en-US; rv:1.8.0.2) Gecko/20060421 Firefox/1.5.0.2
-# Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-CA; rv:1.8.0.2) Gecko/20060425 Firefox/1.5.0.2
-# Mozilla/5.0 (X11; U; SunOS i86pc; no-NO; rv:1.8.0.2) Gecko/20060420 Firefox/1.5.0.2
-# Mozilla/5.0 (X11; U; Linux x86_64; de-AT; rv:1.8.0.2) Gecko/20060422 Firefox/1.5.0.2
-# Mozilla/5.0 (X11; U; NetBSD i386; en-US; rv:1.8.0.2) Gecko/20060415 Firefox/1.5.0.2
-# Mozilla/5.0 (X11; U; OpenBSD sparc64; pl-PL; rv:1.8.0.2) Gecko/20060429 Firefox/1.5.0.2
-# Mozilla/5.0 (X11; U; Linux i686; en-CA; rv:1.8.0.2) Gecko/20060413 Firefox/1.5.0.2
+# Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (Macintosh; PPC Mac OS X; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (X11; NetBSD i386; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (X11; OpenBSD alpha; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (X11; FreeBSD amd64; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (X11; ElectroBSD amd64; rv:78.0) Gecko/20100101 Firefox/78.0
+# Mozilla/5.0 (X11; FreeBSD i386; rv:78.0) Gecko/20100101 Firefox/78.0
#
-# Copyright (c) 2006-2011 Fabian Keil <fk@fabiankeil.de>
+# Copyright (c) 2006-2020 Fabian Keil <fk@fabiankeil.de>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
use constant {
- UAGEN_VERSION => 'uagen 1.1',
+ UAGEN_VERSION => 'uagen 1.2.2',
UAGEN_LOGFILE => '/var/log/uagen.log',
ACTION_FILE => '/etc/privoxy/user-agent.action',
SLEEPING_TIME => 5,
# As of Firefox 4, the "Gecko token" has been frozen
- # http://hacks.mozilla.org/2010/09/final-user-agent-string-for-firefox-4/
+ # https://hacks.mozilla.org/2010/09/final-user-agent-string-for-firefox-4/
RANDOMIZE_RELEASE_DATE => 0,
# These variables belong together. If you only change one of them, the generated
# are too lazy to check, but want to change them anyway, take the values you
# see in the "Help/About Mozilla Firefox" menu.
- BROWSER_VERSION => "5.0",
- BROWSER_REVISION => '5.0',
+ BROWSER_VERSION => "78.0",
+ BROWSER_REVISION => '78.0',
BROWSER_RELEASE_DATE => '20100101',
};
sub generate_platform_and_os() {
my %os_data = (
+ ElectroBSD => {
+ karma => 1,
+ platform => 'X11',
+ architectures => [ 'i386', 'amd64' ],
+ order_is_inversed => 0,
+ },
FreeBSD => {
karma => 1,
platform => 'X11',
- architectures => [ 'i386', 'amd64', 'sparc64', 'alpha' ],
+ architectures => [ 'i386', 'amd64', 'sparc64' ],
order_is_inversed => 0,
},
OpenBSD => {
our $randomize_release_date;
my $mozillaversion = '5.0';
- my $security = "U";
my $creation_time = $randomize_release_date ?
generate_creation_time($browser_release_date) : $browser_release_date;
my ( $platform, $os_or_cpu ) = generate_platform_and_os;
my $firefox_user_agent =
- sprintf "Mozilla/%s (%s; %s; %s; %s; rv:%s) Gecko/%s Firefox/%s",
- $mozillaversion, $platform, $security, $os_or_cpu, $locale, $browser_revision,
+ sprintf "Mozilla/%s (%s; %s; rv:%s) Gecko/%s Firefox/%s",
+ $mozillaversion, $platform, $os_or_cpu, $browser_revision,
$creation_time, $browser_version;
return $accept_language, $firefox_user_agent;
return if $no_logging;
- open(my $log_fd, ">>" . $logfile) || die "Writing " . $logfile . " failed";
+ open(my $log_fd, ">>", $logfile) || die "Writing " . $logfile . " failed";
printf $log_fd UAGEN_VERSION . " ($logtime) $message\n";
close($log_fd);
}
$action_file_content .= sprintf " +hide-user-agent{%s} \\\n}\n/\n",
$user_agent;
}
- open(my $actionfile_fd, ">" . $action_file)
+ open(my $actionfile_fd, ">", $action_file)
or log_error "Writing action file $action_file failed!";
print $actionfile_fd $action_file_content;
close($actionfile_fd);
my $prefs_file_content = '';
my $prefsfile_fd;
- if (open($prefsfile_fd, $mozilla_prefs_file)) {
+ if (open($prefsfile_fd, "<", $mozilla_prefs_file)) {
while (<$prefsfile_fd>) {
s@user_pref\(\"general.useragent.override\",.*\);\n?@@;
sprintf("user_pref(\"intl.accept_languages\", \"%s\");\n", $accept_language)
unless $clean_prefs;
- open($prefsfile_fd, ">" . $mozilla_prefs_file)
+ open($prefsfile_fd, ">", $mozilla_prefs_file)
or log_error "Writing prefs file $mozilla_prefs_file failed!";
print $prefsfile_fd $prefs_file_content;
close($prefsfile_fd);
}
sub VersionMessage() {
- printf UAGEN_VERSION . "\n" . 'Copyright (C) 2006-2011 Fabian Keil <fk@fabiankeil.de> ' .
- "\nhttp://www.fabiankeil.de/sourcecode/uagen/\n";
+ printf UAGEN_VERSION . "\n" . 'Copyright (C) 2006-2020 Fabian Keil <fk@fabiankeil.de> ' .
+ "\nhttps://www.fabiankeil.de/sourcecode/uagen/\n";
}
sub help() {
}
main();
-exit(0);
=head1 NAME
=head1 CAVEATS
-If the browser opens an encrypted connection, Privoxy can't inspect
-the content and the browser's headers reach the server unmodified.
-It is the user's job to use Privoxy's limit-connect action to make sure
-there are no encrypted connections to untrusted sites.
+Use the https-inspection action to make sure Privoxy can modify
+the browser's headers for encrypted traffic as well.
Mozilla users can alter the browser's User-Agent with the
B<--prefs-file> option. But note that the preference file is only read
Fabian Keil <fk@fabiankeil.de>
-http://www.fabiankeil.de/sourcecode/uagen/
+https://www.fabiankeil.de/sourcecode/uagen/
-http://www.fabiankeil.de/blog-surrogat/2006/01/26/firefox-user-agent-generator.html (German)
+https://www.fabiankeil.de/blog-surrogat/2006/01/26/firefox-user-agent-generator.html (German)
=cut
projects / privoxy.git / blobdiff