[Midnightbsd-cvs] mports: www/tmpls: Add delete button.
ctriv at midnightbsd.org
ctriv at midnightbsd.org
Wed Nov 7 19:10:04 EST 2007
Log Message:
-----------
Add delete button.
Modified Files:
--------------
mports/Tools/magus/www/tmpls:
port.tmpl (r1.2 -> r1.3)
result-list.tmpl (r1.2 -> r1.3)
Added Files:
-----------
mports/Tools/magus/www/data/magus/auth:
.htaccess (r1.1)
delete-result.cgi (r1.1)
-------------- next part --------------
--- /dev/null
+++ Tools/magus/www/data/magus/auth/.htaccess
@@ -0,0 +1,4 @@
+AuthType Basic
+AuthName "Authorization Required"
+AuthUserFile /usr/local/etc/apache22/magus-passwd
+Require valid-user
\ No newline at end of file
--- /dev/null
+++ Tools/magus/www/data/magus/auth/delete-result.cgi
@@ -0,0 +1,34 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Magus;
+use CGI;
+
+
+eval { main() };
+
+if ($@) {
+ print "Content-Type: text/html\n\n";
+ print <<END_OF_ERROR;
+<html>
+<head><title>Error</title></head>
+<body>
+<h1>Error</h1>
+<p>The following error occured:</p>
+<pre>$@</pre>
+END_OF_ERROR
+}
+
+sub main {
+ my $q = CGI->new;
+ my $id = $q->param('id') || die "No id given.\n";
+
+ my $result = Magus::Result->retrieve($id) || die "No such result: $id\n";
+
+ $result->delete;
+
+ print $q->redirect($q->referer);
+}
Index: result-list.tmpl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/www/tmpls/result-list.tmpl,v
retrieving revision 1.2
retrieving revision 1.3
diff -L Tools/magus/www/tmpls/result-list.tmpl -L Tools/magus/www/tmpls/result-list.tmpl -u -r1.2 -r1.3
--- Tools/magus/www/tmpls/result-list.tmpl
+++ Tools/magus/www/tmpls/result-list.tmpl
@@ -11,6 +11,7 @@
<TMPL_IF NAME="has_details">
(<a href="#" id="result_<TMPL_VAR NAME=id>_link" onclick="return details_link(<TMPL_VAR NAME=id>);">Show Details</a>)
</TMPL_IF>
+ (<a href="/magus/auth/delete-result?id=<TMPL_VAR NAME=id>">Delete</a>)
</td>
</tr>
<tr class="details<TMPL_UNLESS NAME=__odd__> even</TMPL_UNLESS>" id="result_<TMPL_VAR NAME=id>_row">
Index: port.tmpl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/www/tmpls/port.tmpl,v
retrieving revision 1.2
retrieving revision 1.3
diff -L Tools/magus/www/tmpls/port.tmpl -L Tools/magus/www/tmpls/port.tmpl -u -r1.2 -r1.3
--- Tools/magus/www/tmpls/port.tmpl
+++ Tools/magus/www/tmpls/port.tmpl
@@ -54,6 +54,7 @@
<TMPL_IF NAME="has_details">
(<a href="#" id="result_<TMPL_VAR NAME=id>_link" onclick="return details_link(<TMPL_VAR NAME=id>);">Show Details</a>)
</TMPL_IF>
+ (<a href="/magus/auth/delete-result.cgi?id=<TMPL_VAR NAME=id>">Delete</a>)
</td>
</tr>
<tr class="details<TMPL_UNLESS NAME=__odd__> even</TMPL_UNLESS>" id="result_<TMPL_VAR NAME=id>_row">
More information about the Midnightbsd-cvs
mailing list