##############################################################################################
# uagen (http://www.fabiankeil.de/sourcecode/uagen/)
#
##############################################################################################
# uagen (http://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)'.
#
# 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)'.
# 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 => "3.6.11",
- BROWSER_REVISION => '1.9.2.11',
- BROWSER_RELEASE_DATE => '20101022',
+ BROWSER_VERSION => "3.6.15",
+ BROWSER_REVISION => '1.9.2.15',
+ BROWSER_RELEASE_DATE => '20110305',
- open( LOGFILE, ">>" . $logfile ) || die "Writing " . $logfile . " failed";
- printf LOGFILE UAGEN_VERSION . " ($logtime) $message\n";
- close(LOGFILE);
-
+ open(my $log_fd, ">>" . $logfile) || die "Writing " . $logfile . " failed";
+ printf $log_fd UAGEN_VERSION . " ($logtime) $message\n";
+ close($log_fd);
s@(hide-accept-language\{).*?(\})@$1$accept_language$2@;
s@(hide-user-agent\{).*?(\})@$1$user_agent$2@;
$action_file_content .= $_;
}
s@(hide-accept-language\{).*?(\})@$1$accept_language$2@;
s@(hide-user-agent\{).*?(\})@$1$user_agent$2@;
$action_file_content .= $_;
}
} else {
$action_file_content = "{";
$action_file_content .= sprintf "+hide-accept-language{%s} \\\n",
} else {
$action_file_content = "{";
$action_file_content .= sprintf "+hide-accept-language{%s} \\\n",
s@user_pref\(\"general.useragent.override\",.*\);\n?@@;
s@user_pref\(\"intl.accept_languages\",.*\);\n?@@;
$prefs_file_content .= $_;
}
s@user_pref\(\"general.useragent.override\",.*\);\n?@@;
s@user_pref\(\"intl.accept_languages\",.*\);\n?@@;
$prefs_file_content .= $_;
}