From jmrc at dev.open-bio.org Mon Mar 21 07:59:32 2011 From: jmrc at dev.open-bio.org (José Manuel Rodríguez Carrasco) Date: Mon, 21 Mar 2011 07:59:32 -0400 Subject: [MOBY-guts] biomoby commit Message-ID: <201103211159.p2LBxW8U013447@dev.open-bio.org> jmrc Mon Mar 21 07:59:31 EDT 2011 Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async In directory dev.open-bio.org:/tmp/cvs-serv13412/Perl/MOBY-Server/lib/MOBY/Async Modified Files: SimpleServer.pm Log Message: [bugfix] There is a bug in CGI which only manifests when a server is behind more than one proxy. The bug effect is that virtual_host returns more than one host, separated by commas. This fix avoids the bug just parsing the result of virtual_host method. moby-live/Perl/MOBY-Server/lib/MOBY/Async SimpleServer.pm,1.5,1.6 =================================================================== RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm 2009/09/22 15:55:42 1.5 +++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm 2011/03/21 11:59:31 1.6 @@ -122,6 +122,10 @@ my($query)=CGI->new(); my($proto)=($query->https())?'https':'http'; my($host)=$query->virtual_host(); + # This line is needed to fix a bug in CGI library + # which only appears when the server is living behind + # more than one proxy + $host =~ s/^([^,]+),.*/$1/; my($port)=$query->virtual_port(); if(($proto eq 'http' && $port eq '80') || ($proto eq 'https' && $port eq '443')) { $port=''; From jmrc at dev.open-bio.org Mon Mar 21 12:41:42 2011 From: jmrc at dev.open-bio.org (José Manuel Rodríguez Carrasco) Date: Mon, 21 Mar 2011 12:41:42 -0400 Subject: [MOBY-guts] biomoby commit Message-ID: <201103211641.p2LGfgUn018151@dev.open-bio.org> jmrc Mon Mar 21 12:41:42 EDT 2011 Update of /home/repository/moby/moby-live/Perl/MOBY-Server In directory dev.open-bio.org:/tmp/cvs-serv18112/Perl/MOBY-Server Modified Files: Changes Makefile.PL Log Message: MOBY-Server version now 1.15 (due the changes applied in the previous commit) Those changes have been documented in Perl/MOBY-Server/Changes moby-live/Perl/MOBY-Server Changes,1.33,1.34 Makefile.PL,1.23,1.24 =================================================================== RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/Changes,v retrieving revision 1.33 retrieving revision 1.34 diff -u -r1.33 -r1.34 --- /home/repository/moby/moby-live/Perl/MOBY-Server/Changes 2010/06/24 18:23:47 1.33 +++ /home/repository/moby/moby-live/Perl/MOBY-Server/Changes 2011/03/21 16:41:42 1.34 @@ -1,5 +1,10 @@ Revision history for Perl extension MOBY. +1.15 + - fix: There is a bug in CGI which only manifests when a server is + behind more than one proxy. The bug effect is that virtual_host + returns more than one host, separated by commas. + This fix avoids the bug just parsing the result of virtual_host method. 1.14 - fix: dont make an un-necessary network call when instantiating a MOBY::Client::OntologyServer object. =================================================================== RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/Makefile.PL,v retrieving revision 1.23 retrieving revision 1.24 diff -u -r1.23 -r1.24 --- /home/repository/moby/moby-live/Perl/MOBY-Server/Makefile.PL 2010/06/24 18:24:05 1.23 +++ /home/repository/moby/moby-live/Perl/MOBY-Server/Makefile.PL 2011/03/21 16:41:42 1.24 @@ -3,7 +3,7 @@ # Define metadata name 'MOBY'; - version '1.14'; + version '1.15'; license 'perl'; abstract 'This distribution is for communicating with or creating your own MOBY Central registry'; From jmrc at dev.open-bio.org Mon Mar 21 11:59:32 2011 From: jmrc at dev.open-bio.org (José Manuel Rodríguez Carrasco) Date: Mon, 21 Mar 2011 07:59:32 -0400 Subject: [MOBY-guts] biomoby commit Message-ID: <201103211159.p2LBxW8U013447@dev.open-bio.org> jmrc Mon Mar 21 07:59:31 EDT 2011 Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async In directory dev.open-bio.org:/tmp/cvs-serv13412/Perl/MOBY-Server/lib/MOBY/Async Modified Files: SimpleServer.pm Log Message: [bugfix] There is a bug in CGI which only manifests when a server is behind more than one proxy. The bug effect is that virtual_host returns more than one host, separated by commas. This fix avoids the bug just parsing the result of virtual_host method. moby-live/Perl/MOBY-Server/lib/MOBY/Async SimpleServer.pm,1.5,1.6 =================================================================== RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm 2009/09/22 15:55:42 1.5 +++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm 2011/03/21 11:59:31 1.6 @@ -122,6 +122,10 @@ my($query)=CGI->new(); my($proto)=($query->https())?'https':'http'; my($host)=$query->virtual_host(); + # This line is needed to fix a bug in CGI library + # which only appears when the server is living behind + # more than one proxy + $host =~ s/^([^,]+),.*/$1/; my($port)=$query->virtual_port(); if(($proto eq 'http' && $port eq '80') || ($proto eq 'https' && $port eq '443')) { $port=''; From jmrc at dev.open-bio.org Mon Mar 21 16:41:42 2011 From: jmrc at dev.open-bio.org (José Manuel Rodríguez Carrasco) Date: Mon, 21 Mar 2011 12:41:42 -0400 Subject: [MOBY-guts] biomoby commit Message-ID: <201103211641.p2LGfgUn018151@dev.open-bio.org> jmrc Mon Mar 21 12:41:42 EDT 2011 Update of /home/repository/moby/moby-live/Perl/MOBY-Server In directory dev.open-bio.org:/tmp/cvs-serv18112/Perl/MOBY-Server Modified Files: Changes Makefile.PL Log Message: MOBY-Server version now 1.15 (due the changes applied in the previous commit) Those changes have been documented in Perl/MOBY-Server/Changes moby-live/Perl/MOBY-Server Changes,1.33,1.34 Makefile.PL,1.23,1.24 =================================================================== RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/Changes,v retrieving revision 1.33 retrieving revision 1.34 diff -u -r1.33 -r1.34 --- /home/repository/moby/moby-live/Perl/MOBY-Server/Changes 2010/06/24 18:23:47 1.33 +++ /home/repository/moby/moby-live/Perl/MOBY-Server/Changes 2011/03/21 16:41:42 1.34 @@ -1,5 +1,10 @@ Revision history for Perl extension MOBY. +1.15 + - fix: There is a bug in CGI which only manifests when a server is + behind more than one proxy. The bug effect is that virtual_host + returns more than one host, separated by commas. + This fix avoids the bug just parsing the result of virtual_host method. 1.14 - fix: dont make an un-necessary network call when instantiating a MOBY::Client::OntologyServer object. =================================================================== RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/Makefile.PL,v retrieving revision 1.23 retrieving revision 1.24 diff -u -r1.23 -r1.24 --- /home/repository/moby/moby-live/Perl/MOBY-Server/Makefile.PL 2010/06/24 18:24:05 1.23 +++ /home/repository/moby/moby-live/Perl/MOBY-Server/Makefile.PL 2011/03/21 16:41:42 1.24 @@ -3,7 +3,7 @@ # Define metadata name 'MOBY'; - version '1.14'; + version '1.15'; license 'perl'; abstract 'This distribution is for communicating with or creating your own MOBY Central registry';