equal
deleted
inserted
replaced
12 |
12 |
13 sub print_help(); |
13 sub print_help(); |
14 sub print_usage(); |
14 sub print_usage(); |
15 |
15 |
16 my $ME = basename $0; |
16 my $ME = basename $0; |
17 my $VERSION = '1.1'; |
17 my $VERSION = '1.2'; |
18 |
18 |
19 my ( $opt_u, $opt_s, $opt_V, $opt_h, $opt_b ); |
19 my ( $opt_u, $opt_s, $opt_V, $opt_h, $opt_b ); |
20 my ( $result, $found, $message, $version, $current_version ); |
20 my ( $result, $found, $message, $version, $current_version ); |
21 |
21 |
22 $opt_u = 'http://www.avira.com/de/support-download-avira-antivir-webgate'; |
22 $opt_u = 'http://www.avira.com/de/support-download-avira-antivir-webgate'; |
23 $opt_s = '<a.*>Avira AntiVir WebGate / Avira WebGate Suite</a>.*(?:\n.*){4}<td>(\d+\.\d+\.\d+\.[\d-]+)</td>'; |
23 $opt_s = '<a.*>Avira AntiVir WebGate / Avira WebGate Suite</a>.*(?:\n.*){4}<td>(\d+\.\d+\.\d+\.[\d]+)(-\d+)?</td>'; |
24 $opt_b = "/usr/lib/AntiVir/avwebgate.bin"; |
24 $opt_b = "/usr/lib/AntiVir/webgate/avwebgate.bin"; |
25 |
25 |
26 Getopt::Long::Configure('bundling'); |
26 Getopt::Long::Configure('bundling'); |
27 GetOptions( |
27 GetOptions( |
28 "V" => \$opt_V, |
28 "V" => \$opt_V, |
29 "version" => \$opt_V, |
29 "version" => \$opt_V, |