Update RO Server to work with CGI >= 3.49 (patch from Nikolay A. Fetisov)

Update RO Client to work over SSL with untrusted certificates with LWP >= 6.00 (initial patch from Nikolay A. Fetisov)
Add LWP UA options into RO Client config

Author: faf

Client/config

@@ -10,6 +10,11 @@
 			'proto' => 'http' # workflow protocol
     },
 
+# LWP UA settings (can be useful with SSL connections)
+# USE AT YOUR OWN RISK, SKIP IT UNLESS YOUR REALLY KNOW WHAT YOU DO
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # cache location
     'cache'	=> '/var/cache/ro',
 

Client/config-pseudo-repository

@@ -10,6 +10,11 @@
 			'proto' => 'http' # workflow protocol
     },
 
+# LWP UA settings (can be useful with SSL connections)
+# USE AT YOUR OWN RISK, SKIP IT UNLESS YOUR REALLY KNOW WHAT YOU DO
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # logfile section
     'log'	=> {	'use_log'	=> 1,# logging flag
 			'log_file'	=> '/var/log/ro_log' # log location

Client/config-repository

@@ -10,6 +10,11 @@
 			'proto' => 'http' # workflow protocol
     },
 
+# LWP UA settings (can be useful with SSL connections)
+# USE AT YOUR OWN RISK, SKIP IT UNLESS YOUR REALLY KNOW WHAT YOU DO
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # cache location
     'cache'	=> '/var/cache/ro',
 

Client/config-system

@@ -10,6 +10,11 @@
 			'proto' => 'http' # workflow protocol
     },
 
+# LWP UA settings (can be useful with SSL connections)
+# USE AT YOUR OWN RISK, SKIP IT UNLESS YOUR REALLY KNOW WHAT YOU DO
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # cache location
     'cache'	=> '/var/cache/ro',
 

Client/ro_client.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 # RO (Repository Observer) - Client script
-# Copyright (C) 2007, 2008 Fedor A. Fetisov <faf@ossg.ru>. All Rights Reserved
+# Copyright (C) 2007-2011 Fedor A. Fetisov <faf@ossg.ru>. All Rights Reserved
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -24,7 +24,7 @@
 use constant PACKAGES_LIMIT => 500; # максимальное количество пакетов, пересылаемое в одном XML-документе
 				    # внимание - при запросе обновления отсылается два XML-документа
 
-my $VERSION = '0.9.16svn'; # версия клиента
+my $VERSION = '0.9.17svn'; # версия клиента
 
 my $date = localtime(time); # для записи в кеш - на всякий случай
 
@@ -388,7 +388,19 @@
 
 # отсылка данных
 print STDERR "[DEBUG] Initializing user agent to send data.\n" if $debug_mode;
-my $ua = LWP::UserAgent->new();
+
+# инициализация клиента для отсылки данных
+my %ua_options;
+# при работе через https по умолчанию не проверять сертификат сервера
+$ua_options{'ssl_opts'} = {'verify_hostname' => 0 } if (($config->{'server'}->{'proto'} eq 'https') && !($LWP::UserAgent::VERSION =~ /^[0-5]\./));
+# задание/переопределение опций клиента, указанных в конфигурации
+if ((defined $config->{'lwp_ua_options'}) && (ref($config->{'lwp_ua_options'}) eq 'HASH')) {
+    foreach (keys(%{$config->{'lwp_ua_options'}})) {
+	$ua_options{$_} = $config->{'lwp_ua_options'}->{$_};
+    }
+}
+
+my $ua = scalar(keys(%ua_options)) ? LWP::UserAgent->new(%ua_options) : LWP::UserAgent->new();
 
 # если данных для отсылки нет, должны быть отосланы пустые данные,
 # чтобы обновить дату синхронизации системы на сервере
@@ -405,7 +417,7 @@
 	    $params->[0]->{'packages'} = make_xml({});
 	    $params->[0]->{'action'} = 'init';
 	}
-	$params->[0]->{'node'} = $config->{'signature'};    
+	$params->[0]->{'node'} = $config->{'signature'};
 }
 
 my $error;

Client/russian-configs/config

@@ -10,6 +10,11 @@
 			'proto' => 'http' # использующийся протокол
     },
 
+# опции LWP UA (могут быть полезны при использовании SSL)
+# ИСПОЛЬЗУЙТЕ ТОЛЬКО ЕСЛИ ТОЧНО ЗНАЕТЕ, ЧТО ДЕЛАЕТЕ
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # местоположение кеша
     'cache'	=> '/var/cache/ro',
 

Client/russian-configs/config-pseudo-repository

@@ -10,6 +10,11 @@
 			'proto' => 'http' # использующийся протокол
     },
 
+# опции LWP UA (могут быть полезны при использовании SSL)
+# ИСПОЛЬЗУЙТЕ ТОЛЬКО ЕСЛИ ТОЧНО ЗНАЕТЕ, ЧТО ДЕЛАЕТЕ
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # секция лог-файла
     'log'	=> {	'use_log'	=> 1,# флаг записи в лог
 			'log_file'	=> '/var/log/ro_log' # местоположение

Client/russian-configs/config-repository

@@ -10,6 +10,11 @@
 			'proto' => 'http' # использующийся протокол
     },
 
+# опции LWP UA (могут быть полезны при использовании SSL)
+# ИСПОЛЬЗУЙТЕ ТОЛЬКО ЕСЛИ ТОЧНО ЗНАЕТЕ, ЧТО ДЕЛАЕТЕ
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # местоположение кеша
     'cache'	=> '/var/cache/ro',
 

Client/russian-configs/config-system

@@ -10,6 +10,11 @@
 			'proto' => 'http' # использующийся протокол
     },
 
+# опции LWP UA (могут быть полезны при использовании SSL)
+# ИСПОЛЬЗУЙТЕ ТОЛЬКО ЕСЛИ ТОЧНО ЗНАЕТЕ, ЧТО ДЕЛАЕТЕ
+#    'lwp_ua_options' => { 'agent' => 'RO Client'
+#    },
+
 # местоположение кеша
     'cache'	=> '/var/cache/ro',
 

Server/ro_analyzer.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 # RO (Repository Observer) - Analyzer script
-# Copyright (C) 2007, 2008 Fedor A. Fetisov <faf@ossg.ru>. All Rights Reserved
+# Copyright (C) 2007-2011 Fedor A. Fetisov <faf@ossg.ru>. All Rights Reserved
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -19,7 +19,7 @@
 use DBI;
 use Getopt::Long qw(:config no_ignore_case bundling no_auto_abbrev);
 
-my $VERSION = '0.9.16svn'; # версия анализатора
+my $VERSION = '0.9.17svn'; # версия анализатора
 
 # коды состояний (были заданы при создании БД)
 my $states = {