Skip to Content.
Sympa Menu

perfsonar-dev - [pS-dev] [GEANT/SA2/SA2T3-OPPD] r851 - in trunk: build/perfSONAR perfSONAR/build perfSONAR/build/debian/scripts perfSONAR/build/lib perfSONAR/build/lib/perfSONAR perfSONAR/build/lib/perfSONAR/DataStruct perfSONAR/build/lib/perfSONAR/SOAP perfSONAR/build/lib/perfSONAR/SOAP/HTTP perfSONAR/lib

Subject: perfsonar development work

List archive

[pS-dev] [GEANT/SA2/SA2T3-OPPD] r851 - in trunk: build/perfSONAR perfSONAR/build perfSONAR/build/debian/scripts perfSONAR/build/lib perfSONAR/build/lib/perfSONAR perfSONAR/build/lib/perfSONAR/DataStruct perfSONAR/build/lib/perfSONAR/SOAP perfSONAR/build/lib/perfSONAR/SOAP/HTTP perfSONAR/lib


Chronological Thread 
  • From:
  • To:
  • Subject: [pS-dev] [GEANT/SA2/SA2T3-OPPD] r851 - in trunk: build/perfSONAR perfSONAR/build perfSONAR/build/debian/scripts perfSONAR/build/lib perfSONAR/build/lib/perfSONAR perfSONAR/build/lib/perfSONAR/DataStruct perfSONAR/build/lib/perfSONAR/SOAP perfSONAR/build/lib/perfSONAR/SOAP/HTTP perfSONAR/lib
  • Date: Mon, 3 Mar 2014 13:32:57 +0000 (GMT)
Author: dfn.calim
Date: 2014-03-03 13:32:57 +0000 (Mon, 03 Mar 2014)
New Revision: 851

Added:
trunk/perfSONAR/build/debian/scripts/changelog
trunk/perfSONAR/build/debian/scripts/compat
trunk/perfSONAR/build/debian/scripts/control
trunk/perfSONAR/build/debian/scripts/copyright
trunk/perfSONAR/build/debian/scripts/files
trunk/perfSONAR/build/debian/scripts/rules
trunk/perfSONAR/build/debian/scripts/watch
trunk/perfSONAR/build/lib/
trunk/perfSONAR/build/lib/perfSONAR.pm
trunk/perfSONAR/build/lib/perfSONAR/
trunk/perfSONAR/build/lib/perfSONAR/AS.pm
trunk/perfSONAR/build/lib/perfSONAR/Auth.pm
trunk/perfSONAR/build/lib/perfSONAR/DataStruct.pm
trunk/perfSONAR/build/lib/perfSONAR/DataStruct/
trunk/perfSONAR/build/lib/perfSONAR/DataStruct/NMWG.pm
trunk/perfSONAR/build/lib/perfSONAR/Echo.pm
trunk/perfSONAR/build/lib/perfSONAR/LS.pm
trunk/perfSONAR/build/lib/perfSONAR/MA.pm
trunk/perfSONAR/build/lib/perfSONAR/MA/
trunk/perfSONAR/build/lib/perfSONAR/MP.pm
trunk/perfSONAR/build/lib/perfSONAR/MP/
trunk/perfSONAR/build/lib/perfSONAR/Request.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/
trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_1.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_2.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/
trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Daemon.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Request.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Response.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/UserAgent.pm
trunk/perfSONAR/build/lib/perfSONAR/SOAP/Message.pm
trunk/perfSONAR/build/lib/perfSONAR/Selftest.pm
trunk/perfSONAR/lib/perfSONAR.pm
Removed:
trunk/build/perfSONAR/Build.deb.PL
trunk/build/perfSONAR/Build.rpm.PL
trunk/build/perfSONAR/Changes
trunk/build/perfSONAR/README
trunk/build/perfSONAR/t/
Log:
add trunk/perfSONAR modules and build files

Deleted: trunk/build/perfSONAR/Build.deb.PL
===================================================================
--- trunk/build/perfSONAR/Build.deb.PL 2014-03-03 11:39:03 UTC (rev 850)
+++ trunk/build/perfSONAR/Build.deb.PL 2014-03-03 13:32:57 UTC (rev 851)
@@ -1,68 +0,0 @@
-use strict;
-use warnings;
-use Module::Build;
-use Data::Dumper;
-
-my $builder = Module::Build->new(
- module_name => 'perfSONAR',
- dist_name => 'perfsonar-oppd',
- license => 'apache',
- dist_author => 'DFN-Labor
<>',
- dist_abstract => 'perl perfSONAR implementation',
- dist_version => '0.53',
- build_requires => {
- 'Test::More' => 0,
- },
- requires => {
- 'Config::General' => 0,
- 'HTTP::Daemon' => 0,
- 'HTTP::Request' => 0,
- 'HTTP::Response' => 0,
- #'IPC::Shareable' => 0,
- 'LWP::UserAgent' => 0,
- 'Log::Dispatch' => '>= 2.11',
- 'Log::Dispatch::File' => 0,
- 'Log::Dispatch::Screen' => 0,
- 'Log::Dispatch::Syslog' => 0,
- 'NMWG' => '>= 0.03',
- #'NMWG::Message' => 0,
- 'URI' => '>= 1.30',
- 'XML::LibXML' => 0,
- 'XML::LibXML::NodeList' => 0,
- },
- etc_files => {
- #'etc/oppd-egee.conf' => 'etc/oppd.conf',
- 'etc/oppd-mdm.conf' => 'etc/oppd.conf',
- 'etc/Auth_request.xml' => 'etc/oppd.d/Auth_request.xml',
- 'etc/Auth_response.xml' => 'etc/oppd.d/Auth_response.xml',
- 'etc/LS_deregister.xml' => 'etc/oppd.d/LS_deregister.xml',
- 'etc/LS_register.xml' => 'etc/oppd.d/LS_register.xml',
- 'etc/LS_keepalive.xml' => 'etc/oppd.d/LS_keepalive.xml',
- 'etc/LS_KeyRequest.xml' => 'etc/oppd.d/LS_KeyRequest.xml',
- },
- init_files => {
- 'etc/oppd.init.debian' => 'init/init.d/oppd',
- },
- sysconfig_files => {
- 'etc/oppd.default.debian' => 'init/default/oppd',
- },
- add_to_cleanup => [ 'perfSONAR-*' ],
- #install_path => { etc => '/etc' },
- create_makefile_pl => 'small',
-);
-
-my $install_base = $builder->install_base();
-if ($install_base){
- $builder->install_path('etc' => "$install_base/etc");
-}
-#$builder->install_path('etc' => '/etc');
-$builder->install_path('init' => "/etc");
- #TODO ugly!!! (but it seems to be the only way, which makes at least
- # a little bit of sense :(
-#TODO copy install_path to PROG path in perfsonar init script!!
-$builder->add_build_element('etc');
-$builder->add_build_element('init');
-$builder->add_build_element('sysconfig');
-$builder->install_base_relpaths('lib' => 'lib');
-$builder->create_build_script();
-#$builder->dispatch('fakeinstall');

Deleted: trunk/build/perfSONAR/Build.rpm.PL
===================================================================
--- trunk/build/perfSONAR/Build.rpm.PL 2014-03-03 11:39:03 UTC (rev 850)
+++ trunk/build/perfSONAR/Build.rpm.PL 2014-03-03 13:32:57 UTC (rev 851)
@@ -1,69 +0,0 @@
-use strict;
-use warnings;
-use Module::Build;
-use Data::Dumper;
-
-my $builder = Module::Build->new(
- module_name => 'perfSONAR',
- dist_name => 'perfsonar-oppd',
- license => 'apache',
- dist_author => 'DFN-Labor
<>',
- dist_abstract => 'perl perfSONAR implementation',
- dist_version => '0.53',
- build_requires => {
- 'Test::More' => 0,
- },
- requires => {
- 'Config::General' => 0,
- 'HTTP::Daemon' => 0,
- 'HTTP::Request' => 0,
- 'HTTP::Response' => 0,
- #'IPC::Shareable' => 0,
- 'LWP::UserAgent' => 0,
- 'Log::Dispatch' => '>= 2.11',
- 'Log::Dispatch::File' => 0,
- 'Log::Dispatch::Screen' => 0,
- 'Log::Dispatch::Syslog' => 0,
- 'NMWG' => '>= 0.03',
- #'NMWG::Message' => 0,
- 'URI' => '>= 1.30',
- 'XML::LibXML' => 0,
- 'XML::LibXML::NodeList' => 0,
- },
- etc_files => {
- #'etc/oppd-egee.conf' => 'etc/oppd.conf',
- 'etc/oppd-mdm.conf' => 'etc/oppd.conf',
- 'etc/Auth_request.xml' => 'etc/oppd.d/Auth_request.xml',
- 'etc/Auth_response.xml' => 'etc/oppd.d/Auth_response.xml',
- 'etc/LS_deregister.xml' => 'etc/oppd.d/LS_deregister.xml',
- 'etc/LS_register.xml' => 'etc/oppd.d/LS_register.xml',
- 'etc/LS_keepalive.xml' => 'etc/oppd.d/LS_keepalive.xml',
- 'etc/LS_KeyRequest.xml' => 'etc/oppd.d/LS_KeyRequest.xml',
- },
- init_files => {
- 'etc/oppd.init.redhat' => 'init/init.d/oppd',
- #'etc/oppd.init.debian' => 'init/init.d/oppd',
- },
- sysconfig_files => {
- 'etc/oppd.sysconfig.redhat' => 'init/sysconfig/oppd',
- },
- add_to_cleanup => [ 'perfSONAR-*' ],
- #install_path => { etc => '/etc' },
- create_makefile_pl => 'small',
-);
-
-my $install_base = $builder->install_base();
-if ($install_base){
- $builder->install_path('etc' => "$install_base/etc");
-}
-$builder->install_path('etc' => 'etc');
-$builder->install_path('init' => "/etc");
- #TODO ugly!!! (but it seems to be the only way, which makes at least
- # a little bit of sense :(
-#TODO copy install_path to PROG path in perfsonar init script!!
-$builder->add_build_element('etc');
-$builder->add_build_element('init');
-$builder->add_build_element('sysconfig');
-$builder->install_base_relpaths('lib' => 'lib');
-$builder->create_build_script();
-#$builder->dispatch('fakeinstall');

Deleted: trunk/build/perfSONAR/Changes
===================================================================
--- trunk/build/perfSONAR/Changes 2014-03-03 11:39:03 UTC (rev 850)
+++ trunk/build/perfSONAR/Changes 2014-03-03 13:32:57 UTC (rev 851)
@@ -1,14 +0,0 @@
-Changelog for release 0.50
-
- - changed name to oppd (= open perl perfSONAR daemon)
- - enhanced LS communication: Keepalive and Key Request
- added, moved LS handling code from daemon to own
- module
-
-
-Changelog for release 0.41
-
-New features:
- - some bug fixes and better LS registration handling
- - selftest funcitonality for status monitoring of service
- - enhancement for logging to external syslog server

Deleted: trunk/build/perfSONAR/README
===================================================================
--- trunk/build/perfSONAR/README 2014-03-03 11:39:03 UTC (rev 850)
+++ trunk/build/perfSONAR/README 2014-03-03 13:32:57 UTC (rev 851)
@@ -1,109 +0,0 @@
-oppd - open perl perfSONAR daemon
----------------------------------
-
-Version: 0.51
-
-The oppd package contains a perl daemon script to serve as container for
-perfSONAR services. The services itself are implemented as perl module
-plugins and can be added individually. The oppd daemon needs several
-perl modules (available via e.g. CPAN) and the perl-NMWG library to run.
-
-For more information about perfSONAR, see www.perfsonar.net
-For more information about CPAN, see www.cpan.org
-
-1. Preparation:
----------------
-
-Please make sure you have all dependencies installed properly before
-proceeding with the installation of oppd.
-
-Perl modules dependency list:
------------------------------
-perl version 5.8.0 or higher
-perl(Config::General)
-perl(HTTP::Daemon)
-perl(HTTP::Request)
-perl(HTTP::Response)
-perl(IPC::Shareable)
-perl(Log::Dispatch)
-perl(Log::Dispatch::File)
-perl(Log::Dispatch::Screen)
-perl(Log::Dispatch::Syslog)
-perl(LWP::UserAgent)
-perl(NMWG) >= 0.02
-perl(NMWG::Message)
-perl(URI)
-perl(XML::LibXML)
-perl(XML::LibXML::NodeList)
-
-As it is not recommended to run the daemon as root, you should create
-a user "perfsonar". The init script included in this package starts
-the daemon automatically as perfsonar user.
-
-For Linux use the following commands:
-/usr/sbin/groupadd perfsonar
-/usr/sbin/useradd -g perfsonar -s /sbin/nologin -c "perfsonar user" -d /
perfsonar
-
-
-2. Installation:
-----------------
-
-Change to oppd-0.51 directory and type the following commands:
-perl Build.PL --install_base=/usr/lib/perfsonar/services/oppd
-./Build install
-chown perfsonar:perfsonar /usr/lib/perfsonar/services/oppd
-
-The package provides a (Linux) init script which you can use to automate
-service start/stop. This script is tested under redhat and may need
-adjustments to work with other Linux flavours.
-If you are using the provided init script, you can add your service to your
-system startup (Linux):
-/sbin/chkconfig --add oppd
-
-You should also add some useful links:
-ln -s /usr/lib/perfsonar/services/oppd/etc/oppd.conf /etc/oppd.conf
-ln -s /usr/lib/perfsonar/services/oppd/doc /usr/share/doc/oppd-0.51/
-
-
-3. Run perfSONAR services:
---------------------------
-
-To run perfSONAR services, you first have to install service modules, e.g.
-the BWCTL MP service module. When you have done that, you have to add a
-service entry, or a include line to a service configuration to the
-/etc/oppd.conf file.
-
-Then start the service via the startup script:
-oppd start
-
-or by hand:
-/usr/lib/perfsonar/services/oppd/bin/oppd.pl
-
-For start options and configuration file format please refer to the manual
-pages.
-
-
-4. Deinstallation:
-------------------
-
-First make sure that oppd.pl isn't running anymore.
-If you have added oppd.pl via chkconfig to your system, delete it:
-/sbin/chkconfig --del oppd
-
-Remove the links:
-rm -f /etc/oppd.conf
-rm -f /usr/share/doc/oppd-0.51/
-
-Delete the software completely:
-rm -rf usr/lib/perfsonar/services/oppd/
-
-Note that this will also delete any service plugins you might have installed
-additionally.
-
-
-
-COPYRIGHT AND LICENCE
-
-Copyright (C) 2008, 2009 DFN-Labor
-
-This program is released under the following license: bsd

Added: trunk/perfSONAR/build/debian/scripts/changelog
===================================================================
--- trunk/perfSONAR/build/debian/scripts/changelog
(rev 0)
+++ trunk/perfSONAR/build/debian/scripts/changelog 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1,9 @@
+libperfsonar-perl (1.0-1) unstable; urgency=low
+
+ * Initial Release.
+ * Beginning to split oppd with perl modules.
+ * All main perl modules will be copied into main perl directories.
+ * No longer using own directory.
+ * Many bug fixes see Changes file.
+
+ -- DFN Labor
<>
Mon, 3 Mar 2014 11:31:33 +0100

Added: trunk/perfSONAR/build/debian/scripts/compat
===================================================================
--- trunk/perfSONAR/build/debian/scripts/compat (rev
0)
+++ trunk/perfSONAR/build/debian/scripts/compat 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+8

Added: trunk/perfSONAR/build/debian/scripts/control
===================================================================
--- trunk/perfSONAR/build/debian/scripts/control
(rev 0)
+++ trunk/perfSONAR/build/debian/scripts/control 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1,30 @@
+Source: libperfsonar-perl
+Section: perl
+Priority: optional
+Maintainer: DFN Labor
<>

+Build-Depends: debhelper (>= 8),
+ perl
+Build-Depends-Indep: libconfig-general-perl,
+ libhttp-daemon-perl,
+ libhttp-message-perl,
+ liblog-dispatch-perl (>= 2.11),
+ liburi-perl (>= 1.30),
+ libwww-perl,
+ libxml-libxml-perl,
+ perl-modules
+Standards-Version: 3.9.2
+Homepage: http://www.win-labor.dfn.de
+
+Package: libperfsonar-perl
+Architecture: all
+Depends: ${misc:Depends}, ${perl:Depends},
+ libconfig-general-perl,
+ libhttp-daemon-perl,
+ libhttp-message-perl,
+ liblog-dispatch-perl (>= 2.11),
+ liburi-perl (>= 1.30),
+ libwww-perl,
+ libxml-libxml-perl,
+ libnmwg-perl (>= 1.0),
+Description: perl perfSONAR implementation
+ Use this to have a starting point to use all availible services like
BWCTL MP or OWAMP MP modules and many other perfSONAR services.

Added: trunk/perfSONAR/build/debian/scripts/copyright
===================================================================
--- trunk/perfSONAR/build/debian/scripts/copyright
(rev 0)
+++ trunk/perfSONAR/build/debian/scripts/copyright 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1,16 @@
+
+ Copyright 2010 Verein zur Foerderung eines Deutschen Forschungsnetzes e. V.
+
+ Licensed under the Apache License, Version 2.0 (the "License");
+ you may not use this file except in compliance with the License.
+ You may obtain a copy of the License at
+
+ http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
+
+

Added: trunk/perfSONAR/build/debian/scripts/files
===================================================================
--- trunk/perfSONAR/build/debian/scripts/files (rev
0)
+++ trunk/perfSONAR/build/debian/scripts/files 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+libperfsonar-perl_1.0-1_all.deb perl optional

Added: trunk/perfSONAR/build/debian/scripts/rules
===================================================================
--- trunk/perfSONAR/build/debian/scripts/rules (rev
0)
+++ trunk/perfSONAR/build/debian/scripts/rules 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1,4 @@
+#!/usr/bin/make -f
+
+%:
+ dh $@


Property changes on: trunk/perfSONAR/build/debian/scripts/rules
___________________________________________________________________
Added: svn:executable
+ *

Added: trunk/perfSONAR/build/debian/scripts/watch
===================================================================
--- trunk/perfSONAR/build/debian/scripts/watch (rev
0)
+++ trunk/perfSONAR/build/debian/scripts/watch 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1,2 @@
+version=3
+http://search.cpan.org/dist/perfSONAR/
.*/perfSONAR-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$

Added: trunk/perfSONAR/build/lib/perfSONAR/AS.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/AS.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/AS.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/AS.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/AS.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/Auth.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/Auth.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/Auth.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/Auth.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/Auth.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/DataStruct/NMWG.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/DataStruct/NMWG.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/DataStruct/NMWG.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../lib/perfSONAR/DataStruct/NMWG.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/DataStruct/NMWG.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/DataStruct.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/DataStruct.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/DataStruct.pm 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/DataStruct.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/DataStruct.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/Echo.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/Echo.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/Echo.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/Echo.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/Echo.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/LS.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/LS.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/LS.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/LS.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/LS.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/MA.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/MA.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/MA.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/MA.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/MA.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/MP.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/MP.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/MP.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/MP.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/MP.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/Request.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/Request.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/Request.pm 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/Request.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/Request.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault.pm 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR/SOAP/Fault.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_1.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_1.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_1.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR/SOAP/Fault_v1_1.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_1.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_2.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_2.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_2.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR/SOAP/Fault_v1_2.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Fault_v1_2.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Daemon.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Daemon.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Daemon.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR//SOAP/HTTP/Daemon.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Daemon.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Request.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Request.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Request.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR//SOAP/HTTP/Request.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Request.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Response.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Response.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Response.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR//SOAP/HTTP/Response.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/Response.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/UserAgent.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/UserAgent.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/UserAgent.pm 2014-03-03
13:32:57 UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../../lib/perfSONAR//SOAP/HTTP/UserAgent.pm
\ No newline at end of file


Property changes on:
trunk/perfSONAR/build/lib/perfSONAR/SOAP/HTTP/UserAgent.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Message.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP/Message.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP/Message.pm 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../../lib/perfSONAR/SOAP/Message.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP/Message.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/SOAP.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/SOAP.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR/SOAP.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/SOAP.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/SOAP.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR/Selftest.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR/Selftest.pm
(rev 0)
+++ trunk/perfSONAR/build/lib/perfSONAR/Selftest.pm 2014-03-03 13:32:57
UTC (rev 851)
@@ -0,0 +1 @@
+link ../../../lib/perfSONAR/Selftest.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR/Selftest.pm
___________________________________________________________________
Added: svn:special
+ *

Added: trunk/perfSONAR/build/lib/perfSONAR.pm
===================================================================
--- trunk/perfSONAR/build/lib/perfSONAR.pm (rev
0)
+++ trunk/perfSONAR/build/lib/perfSONAR.pm 2014-03-03 13:32:57 UTC (rev
851)
@@ -0,0 +1 @@
+link ../../lib/perfSONAR.pm
\ No newline at end of file


Property changes on: trunk/perfSONAR/build/lib/perfSONAR.pm
___________________________________________________________________
Added: svn:special
+ *

Copied: trunk/perfSONAR/lib/perfSONAR.pm (from rev 833,
trunk/lib/perfSONAR.pm)
===================================================================
--- trunk/perfSONAR/lib/perfSONAR.pm (rev 0)
+++ trunk/perfSONAR/lib/perfSONAR.pm 2014-03-03 13:32:57 UTC (rev 851)
@@ -0,0 +1,162 @@
+package perfSONAR;
+#
+# Copyright 2010 Verein zur Foerderung eines Deutschen Forschungsnetzes e.
V.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+#
+
+#DEBUG
+use Data::Dumper;
+#/DEBUG
+
+use strict;
+use warnings;
+
+BEGIN {
+ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+ use Exporter;
+
#@ISA
= qw(Exporter SOAP::Server::Parameters);
+ @ISA = qw(Exporter);
+
+ # set the version for version checking
+ $VERSION = 0.53;
+ # if using RCS/CVS, this may be preferred
+ #$VERSION = sprintf "%d.%03d", q$Revision: 1.1 $ =~ /(\d+)/g;
+ @EXPORT = qw(); # Symbols to autoexport (:DEFAULT tag)
+ @EXPORT_OK = qw(print_log %services); # Symbols to export on request
+ %EXPORT_TAGS = qw(); # Define names for sets of symbols
+ # eg: TAG => [ qw(name1 name2) ],
+}
+
+use Carp;
+
+use Log::Log4perl qw(get_logger);
+
+
+
+=head1 NAME
+
+perfSONAR
+
+=head1 DESCRIPTION
+
+Use this to have a starting point to use all availible services.
+
+=head1 Methods
+
+=cut
+
+#This are the globals
+our %services = ();
+my $echo_et = "http://schemas.perfsonar.net/tools/admin/echo/2.0";;
+
+#TODO
+#Replace complete NMWG from this handler
+#to make it more flexible
+#replace by DataStruct
+
+
+=head2 handle_request(uri,requestMessage)
+
+ starts all requested EventTypes included in the request.
+ Need two parameters which are uri and requestMessage.
+ The parameters should have the following types:
+
+ uri STRING => complette link for the service
+
+ requestMessage
+
+ returns t
+=back
+
+=cut
+sub handle_request {
+
+ my ($self, $ds) = @_;
+ my $logger = get_logger(__PACKAGE__);
+ my @datalines;
+
+ #look if service is availible
+ if (! $ds->{SERVICES}->{$ds->{SERVICE}->{NAME}}){
+ my $errormsg = "Requested service: $ds->{SERVICE}->{NAME} is not
availible";
+ $logger->error($errormsg);
+ $ds->{ERROROCCUR} = 1;
+ $datalines[0]="Service request Error:";
+ push @datalines, $errormsg;
+ push @datalines, "error.common.service_not_availible";
+ $ds->{SERVICE}->{DATA}->{1}->{MRESULT} =
\@datalines;
+ $ds->{$ds->{DSTYPE}}->parseResult(\$ds);
+ return;
+ }
+
+ if ($ds->{DOECHO}){
+
$ds->{SERVICES}->{$ds->{SERVICE}->{NAME}}->{handler}->handle_echo_request(\$ds);
+ }elsif ($ds->{DOSELFTEST}){
+ $ds->{SERVICES}->{$ds->{SERVICE}->{NAME}}->{handler}->selftest(\$ds);
+ }else{
+ $ds->{SERVICES}->{$ds->{SERVICE}->{NAME}}->{handler}->run(\$ds);
+ }
+ $ds->{$ds->{DSTYPE}}->parseResult(\$ds);
+
+}
+
+#TODO this method should be implemented in a other modul
+#it should be independent from NMWG
+#Replace NMWG by DataStruct
+sub sendReceive {
+ my %p = (
+ message => undef,
+ host => "localhost",
+ port => "8090",
+ endpoint => "/",
+ uri => "",
+ soapheader => "", #TODO TODO noch nicht fertig und kein String!
+ @_
+ );
+
+ my $uri = $p{uri} || "http://$p{host}:$p{port}$p{endpoint}";;
+ my $body = $p{message}->as_dom;
+
+ # Message is NMWG::Message
+ my $message = perfSONAR::SOAP::Message->new(
+ body => $body,
+ uri => $uri
+ );
+ # Modify SOAP header using $message or set via "new" call directly
+
+ my $userAgent = perfSONAR::SOAP::HTTP::UserAgent->new;
+ my $request = perfSONAR::SOAP::HTTP::Request->new(message => $message);
+
+ my $response = $userAgent->request($request);
+ unless ($response->is_success) {
+ # HTTP error
+ #my $code = $response->code();
+ #my $message = $response->message();
+ carp $response->status_line if $^W; # "<code> <message>"
+ return;
+ }
+
+ my $soap_message = $response->soap_message;
+ if ($soap_message->is_fault) {
+ carp "TODO" if $^W;
+ return;
+ }
+
+ my $nmwg_message = NMWG::Message->new( ($soap_message->body)[0] );
+ #TODO This should perhaps be
NMWG::Message->from_soap_message($soap_message);
+
+ return $nmwg_message;
+}
+
+1;


  • [pS-dev] [GEANT/SA2/SA2T3-OPPD] r851 - in trunk: build/perfSONAR perfSONAR/build perfSONAR/build/debian/scripts perfSONAR/build/lib perfSONAR/build/lib/perfSONAR perfSONAR/build/lib/perfSONAR/DataStruct perfSONAR/build/lib/perfSONAR/SOAP perfSONAR/build/lib/perfSONAR/SOAP/HTTP perfSONAR/lib, svn-noreply, 03/03/2014

Archive powered by MHonArc 2.6.16.

Top of Page