[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