From 673a3dacde240a117c90895ae465a151259a7c74 Mon Sep 17 00:00:00 2001 From: short <> Date: Wed, 8 Oct 2003 17:31:31 +0000 Subject: [PATCH] +postget --- configure.ac | 1 + project/Makefile.am | 3 +- project/postget/Index.html.pl | 72 +++++++++++++++++++++++++++++++++++++++++++ project/postget/ListItem.pm | 57 ++++++++++++++++++++++++++++++++++ project/postget/Makefile.am | 23 ++++++++++++++ 5 files changed, 155 insertions(+), 1 deletion(-) create mode 100755 project/postget/Index.html.pl create mode 100755 project/postget/ListItem.pm create mode 100644 project/postget/Makefile.am diff --git a/configure.ac b/configure.ac index 401f894..9ddcc7a 100644 --- a/configure.ac +++ b/configure.ac @@ -88,6 +88,7 @@ Makefile ./project/SClock/Makefile ./project/ResRAM/Makefile ./project/ssht/Makefile +./project/postget/Makefile ]) echo done. diff --git a/project/Makefile.am b/project/Makefile.am index 6b1ebca..4114ca9 100644 --- a/project/Makefile.am +++ b/project/Makefile.am @@ -71,7 +71,8 @@ SUBDIRS= \ QueryDev \ SClock \ ResRAM \ - ssht + ssht \ + postget EXTRA_DIST+= \ Index.html.pl \ diff --git a/project/postget/Index.html.pl b/project/postget/Index.html.pl new file mode 100755 index 0000000..f97a35e --- /dev/null +++ b/project/postget/Index.html.pl @@ -0,0 +1,72 @@ +#! /usr/bin/perl +# +# $Id$ +# Main page of 'My::Project::postget' +# 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::postget::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::postget::ListItem'; + + +My::Project->init_project( + "__PACKAGE__"=>__PACKAGE__, + "ListItem"=>\@project::postget::ListItem::ListItem, + ); + + +print <<"HERE"; + + + +HERE + + +My::Web->footer(); diff --git a/project/postget/ListItem.pm b/project/postget/ListItem.pm new file mode 100755 index 0000000..968c20f --- /dev/null +++ b/project/postget/ListItem.pm @@ -0,0 +1,57 @@ +#! /usr/bin/perl +# +# $Id$ +# Definition of 'My::Project::postget' 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::postget::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"=>"postget", + "platform"=>"web", + "trivia"=>1, + "priority"=>6, + # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"} + "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/WWW/cgi-bin/postget.php?rev=HEAD", + "summary"=>"Bookmark ".a_href('http://www.w3.org/TR/html4/interact/forms.html#h-17.13.1','POST') + .' forms, hide passwords', + "license"=>"PD", + "maintenance"=>"ready", + "language"=>"PHP", + "description"=><<"HERE", +

You cannot bookmark pre-filled forms to your browser bookmarks. Although +browsers support storing of form data you still have to load the form page and +click its submit button. This script will allow you to:

+
    +
  • Store all @{[ a_href 'http://www.w3.org/TR/html4/interact/forms.html#h-17.13.1','POST' ]}ed + form data as @{[ a_href 'http://www.w3.org/TR/html4/interact/forms.html#h-17.13.1','GET' ]} data + (after '?' URL delimiter).
    • +
  • Replace all sensitive passwords by indirect references to your priv directory + to allow you to make your bookmark file public.
    • +
+HERE + ); + +1; diff --git a/project/postget/Makefile.am b/project/postget/Makefile.am new file mode 100644 index 0000000..58d0cb5 --- /dev/null +++ b/project/postget/Makefile.am @@ -0,0 +1,23 @@ +# $Id$ +# automake source for the Makefile of project/postget/ 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