X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2Fpostget%2FIndex.pm;fp=project%2Fpostget%2FIndex.html.pl;h=16122280bb7ad7fd860eef9052b99277b8baa33d;hp=f97a35efee7b2a777c7521abdc3bc7146941649c;hb=f40e75167a045d189c3027a0b112a20c635d3e48;hpb=ef80d25b0a0307ee222d0a94eaae8abf1e9df31c

diff --git a/project/postget/Index.html.pl b/project/postget/Index.pm
old mode 100755
new mode 100644
similarity index 55%
rename from project/postget/Index.html.pl
rename to project/postget/Index.pm
index f97a35e..1612228
--- a/project/postget/Index.html.pl
+++ b/project/postget/Index.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
 # Main page of 'My::Project::postget'
-# Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+# Copyright (C) 2003-2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
 # 
 # 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
@@ -25,17 +23,42 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
-BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-Wuse 'My::Project';
-Wuse 'project::postget::ListItem';
+Wuse 'project::Lib';
 
 
-My::Project->init_project(
-		"__PACKAGE__"=>__PACKAGE__,
-		"ListItem"=>\@project::postget::ListItem::ListItem,
+our @ListItem=(
+		"name"=>"postget",
+		"platform"=>"web",
+		"trivia"=>1,
+		"priority"=>380,
+		# 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"=>sub {
+				return "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"=>sub { return <<"HERE"; },
+<p>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:</p>
+<ul>
+	<li>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 '<b>?</b>' URL delimiter).</li>
+	<li>Replace all sensitive passwords by indirect references to your <b>priv</b> directory
+			to allow you to make your bookmark file itself public.</li>
+</ul>
+HERE
 		);
 
+sub handler
+{
+project::Lib->init();
+
 
 print <<"HERE";
 
@@ -47,11 +70,11 @@ print <<"HERE";
 	</li>
 	<li>
 		<p>Edit path to your <b>priv</b> directory in the stored
-		<b>@{[ a_href $W->{"project_viewcvs"}."*checkout*/nethome/WWW/cgi-bin/postget.php?rev=HEAD",'postget.php' ]}</b>.
+		<b>@{[ a_href $W->{"project_viewcvs"}."*checkout*/nethome/WWW/cgi-bin/postget.php?rev=HEAD",'postget.php' ]}</b>.</p>
 	</li>
 	<li>
 		<p>Bookmark the following @{[ a_href 'http://freshmeat.net/','Freshmeat' ]} URL:
-				@{[ CGI::escapeHTML(q{http://localhost/~lace/cgi-bin/postget.php?_postget=http%3A%2F%2Ffreshmeat.net%2Flogin%2F&url=%2F&username=YOUR_USERNAME&password=_priv_postget.freshmeat.net.pwd&persistent=1}) ]}
+				@{[ escapeHTML(q{http://localhost/~lace/cgi-bin/postget.php?_postget=http%3A%2F%2Ffreshmeat.net%2Flogin%2F&url=%2F&username=YOUR_USERNAME&password=_priv_postget.freshmeat.net.pwd&persistent=1}) ]}
 		</p>
 		<p>(Replace <b>YOUR_USERNAME</b> with your @{[ a_href 'http://freshmeat.net/','Freshmeat' ]}
 		account name.</p>
@@ -69,4 +92,6 @@ print <<"HERE";
 HERE
 
 
-My::Web->footer();
+exit;
+}
+1;