##############################################################################################
# uagen (http://www.fabiankeil.de/sourcecode/uagen/)
#
-# $Id: uagen.pl,v 1.62 2009/12/23 17:20:19 fk Exp fk $
+# $Id: uagen.pl,v 1.4 2010/02/11 13:59:09 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)'.
# 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.5.6",
- BROWSER_REVISION => '1.9.1.6',
- BROWSER_RELEASE_DATE => '20091217',
+ BROWSER_VERSION => "3.6.2",
+ BROWSER_REVISION => '1.9.2.2',
+ BROWSER_RELEASE_DATE => '20100323',
};
use constant LANGUAGES => qw(
die "release day in the future"
if ( ( $year == $rel_year )
and ( $mon == $rel_mon )
- and ( $mday < $rel_day ) );
+ and ( $mday < $rel_day ) );
my @c_time = (0, 0, 0, $rel_day, $rel_mon - 1, $rel_year - 1900, 0, 0, 0);
my $c_seconds = &timelocal( @c_time );
- $c_seconds = $now - (int rand ($now - $c_seconds));
+ $c_seconds = $now - (int rand ($now - $c_seconds));
@c_time = localtime $c_seconds;
($sec, $min, $hour, $c_day, $c_mon, $c_year, $wday, $yday, $isdst) = @c_time;
$c_mon += 1;
B<--silent> Don't print the generated User-Agent to the console.
-B<--version> Print version and exit.
+B<--version> Print version and exit.
The second dash is optional, options can be shortened, as long as there are
no ambiguities.