projects
/
privoxy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Block requests to .ioam.de/
[privoxy.git]
/
tools
/
uagen.pl
diff --git
a/tools/uagen.pl
b/tools/uagen.pl
index
5fb6065
..
94002fa
100755
(executable)
--- a/
tools/uagen.pl
+++ b/
tools/uagen.pl
@@
-3,8
+3,6
@@
##############################################################################################
# uagen (http://www.fabiankeil.de/sourcecode/uagen/)
#
##############################################################################################
# uagen (http://www.fabiankeil.de/sourcecode/uagen/)
#
-# $Id: uagen.pl,v 1.17 2011/06/29 20:30:18 fabiankeil Exp $
-#
# 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)'.
#
# 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)'.
#
@@
-40,7
+38,7
@@
use Getopt::Long;
use constant {
use constant {
- UAGEN_VERSION => 'uagen 1.1',
+ UAGEN_VERSION => 'uagen 1.
2.
1',
UAGEN_LOGFILE => '/var/log/uagen.log',
ACTION_FILE => '/etc/privoxy/user-agent.action',
UAGEN_LOGFILE => '/var/log/uagen.log',
ACTION_FILE => '/etc/privoxy/user-agent.action',
@@
-60,8
+58,8
@@
use constant {
# are too lazy to check, but want to change them anyway, take the values you
# see in the "Help/About Mozilla Firefox" menu.
# 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 => "
8
.0",
- BROWSER_REVISION => '
8
.0',
+ BROWSER_VERSION => "
17
.0",
+ BROWSER_REVISION => '
17
.0',
BROWSER_RELEASE_DATE => '20100101',
};
BROWSER_RELEASE_DATE => '20100101',
};
@@
-133,7
+131,7
@@
sub generate_platform_and_os() {
FreeBSD => {
karma => 1,
platform => 'X11',
FreeBSD => {
karma => 1,
platform => 'X11',
- architectures => [ 'i386', 'amd64', 'sparc64'
, 'alpha'
],
+ architectures => [ 'i386', 'amd64', 'sparc64' ],
order_is_inversed => 0,
},
OpenBSD => {
order_is_inversed => 0,
},
OpenBSD => {
@@
-234,7
+232,7
@@
sub log_to_file($) {
return if $no_logging;
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);
}
printf $log_fd UAGEN_VERSION . " ($logtime) $message\n";
close($log_fd);
}
@@
-276,7
+274,7
@@
sub write_action_file() {
$action_file_content .= sprintf " +hide-user-agent{%s} \\\n}\n/\n",
$user_agent;
}
$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);
or log_error "Writing action file $action_file failed!";
print $actionfile_fd $action_file_content;
close($actionfile_fd);
@@
-294,7
+292,7
@@
sub write_prefs_file() {
my $prefs_file_content = '';
my $prefsfile_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?@@;
while (<$prefsfile_fd>) {
s@user_pref\(\"general.useragent.override\",.*\);\n?@@;
@@
-311,7
+309,7
@@
sub write_prefs_file() {
sprintf("user_pref(\"intl.accept_languages\", \"%s\");\n", $accept_language)
unless $clean_prefs;
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);
or log_error "Writing prefs file $mozilla_prefs_file failed!";
print $prefsfile_fd $prefs_file_content;
close($prefsfile_fd);