equal
deleted
inserted
replaced
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]+)(-\d+)?</td>'; |
23 $opt_s = '<h2>Avira AntiVir WebGate</h2>.*(?:\n.*){27}<span class="version">Version:\s*(\d+\.\d+\.\d+\.\d+)(-\d+)?\s*</span>'; |
24 $opt_b = "/usr/lib/AntiVir/webgate/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, |