From bb6744aba6bc0f318a6fd6dc7b6fc2cd54b62bcf Mon Sep 17 00:00:00 2001 From: short <> Date: Mon, 13 Oct 2003 15:27:31 +0000 Subject: [PATCH 1/1] +pgsqlsubstr --- configure.ac | 1 + project/Makefile.am | 3 ++- project/pgsqlsubstr/Index.html.pl | 46 ++++++++++++++++++++++++++++++++++++++ project/pgsqlsubstr/ListItem.pm | 47 +++++++++++++++++++++++++++++++++++++++ project/pgsqlsubstr/Makefile.am | 23 +++++++++++++++++++ 5 files changed, 119 insertions(+), 1 deletion(-) create mode 100755 project/pgsqlsubstr/Index.html.pl create mode 100755 project/pgsqlsubstr/ListItem.pm create mode 100644 project/pgsqlsubstr/Makefile.am diff --git a/configure.ac b/configure.ac index 07d6fd0..618700d 100644 --- a/configure.ac +++ b/configure.ac @@ -94,6 +94,7 @@ Makefile ./project/phphash/Makefile ./project/energie/Makefile ./project/MyWeb/Makefile +./project/pgsqlsubstr/Makefile ]) echo done. diff --git a/project/Makefile.am b/project/Makefile.am index 9c90d93..a62a0c3 100644 --- a/project/Makefile.am +++ b/project/Makefile.am @@ -76,7 +76,8 @@ SUBDIRS= \ middleman \ phphash \ energie \ - MyWeb + MyWeb \ + pgsqlsubstr EXTRA_DIST+= \ Index.html.pl \ diff --git a/project/pgsqlsubstr/Index.html.pl b/project/pgsqlsubstr/Index.html.pl new file mode 100755 index 0000000..81f807f --- /dev/null +++ b/project/pgsqlsubstr/Index.html.pl @@ -0,0 +1,46 @@ +#! /usr/bin/perl +# +# $Id$ +# Main page of 'My::Project::pgsqlsubstr' +# Copyright (C) 2003 Jan Kratochvil +# +# 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 +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +package project::pgsqlsubstr::Index; +require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway +our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; +our $CVS_ID=q$Id$; +use strict; +use warnings; + +BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[0]]}; eval "use lib '$top_dir'"; close F; } +use My::Web; +Wuse 'My::Project'; +Wuse 'project::pgsqlsubstr::ListItem'; + + +My::Project->init_project( + "__PACKAGE__"=>__PACKAGE__, + "ListItem"=>\@project::pgsqlsubstr::ListItem::ListItem, + ); + + +print <<"HERE"; +

Although the patch is noted by Thomas G. Lockhart he is referring in me in +that text, believe me. :-)

+HERE + + +My::Web->footer(); diff --git a/project/pgsqlsubstr/ListItem.pm b/project/pgsqlsubstr/ListItem.pm new file mode 100755 index 0000000..db880d6 --- /dev/null +++ b/project/pgsqlsubstr/ListItem.pm @@ -0,0 +1,47 @@ +#! /usr/bin/perl +# +# $Id$ +# Definition of 'My::Project::pgsqlsubstr' for list.cgi.pl +# Copyright (C) 2003 Jan Kratochvil +# +# 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 +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +package project::pgsqlsubstr::ListItem; +require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway +our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; +our $CVS_ID=q$Id$; +use strict; +use warnings; + +use My::Web; + + +our @ListItem=( + "name"=>'PostgreSQL-6.3 fix', + "platform"=>"patch", + "priority"=>3, + "summary"=>'Fixed substr() and substring() SQL functions', + "download-patch"=>'http://developer.postgresql.org/cvsweb.cgi/pgsql-server/src/backend/utils/adt/varlena.c.diff?r1=1.31&r2=1.32&f=u', + "link-ChangeLog entry"=>'http://developer.postgresql.org/cvsweb.cgi/pgsql-server/src/backend/utils/adt/varlena.c#rev1.32', + "license"=>"PD", + "maintenance"=>"accepted", + "language"=>"C patch", + "description"=><<"HERE", +

Fix off-by-one in the embedded substr() and substring() functions of +PostgreSQL engine.

+HERE + ); + +1; diff --git a/project/pgsqlsubstr/Makefile.am b/project/pgsqlsubstr/Makefile.am new file mode 100644 index 0000000..76e087c --- /dev/null +++ b/project/pgsqlsubstr/Makefile.am @@ -0,0 +1,23 @@ +# $Id$ +# automake source for the Makefile of project/pgsqlsubstr/ subdir +# Copyright (C) 2003 Jan Kratochvil +# +# 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 +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +include $(top_srcdir)/Makefile-head.am + +EXTRA_DIST+= \ + ListItem.pm \ + Index.html.pl -- 1.8.3.1