[DW-Changelog] dw-free: http://bugs.dwscoalition.org/show_bug.cgi?id=2069

[Dreamwidth Changelog]

        Add ability to query a single value for sysban status.

        Patch by afuna. 

diffs (39 lines):

diff -r a287fe71fadf -r a4e4f69edca5 htdocs/admin/sysban.bml
--- a/htdocs/admin/sysban.bml   Tue Jan 05 22:38:23 2010 +0000
+++ b/htdocs/admin/sysban.bml   Tue Jan 05 22:44:53 2010 +0000
@@ -56,6 +56,7 @@ body<=
 
     my $action;
     if    ( $POST{'query'} )  { $action = 'query'; }
+    elsif ( $POST{queryone} ) { $action = 'queryone'; }
     elsif ( $POST{'addnew'} ) { $action = 'addnew'; }
     elsif ( $POST{'add'} )    { $action = 'add'; }
     elsif ( $POST{'modify'} ) { $action = 'modify'; }
@@ -73,7 +74,8 @@ body<=
 </select>
 <input type='submit' name='addnew' value='Add New'>
 <input type='submit' name='query' value='Query'>
-
+<br /><br />
+<input type='text' name='queryvalue' /> <input type='submit' name='queryone' 
value='Query This Value' />
 </form>
 FORM
 
@@ -130,6 +132,17 @@ QUERYFORM
         }
         $ret .= "</table>";
 
+    }
+
+    elsif ( $action eq "queryone" ) {
+        return $err->("Requires post") unless LJ::did_post();
+        return $err->("Invalid form") unless LJ::check_form_auth();
+
+        my $bantype = $POST{bantype};
+        my $banquery = $POST{queryvalue};
+
+        $ret .= "<br />" . LJ::ehtml( $bantype ) . ": " .  LJ::ehtml( 
$banquery );
+        $ret .= LJ::sysban_check( $bantype, $banquery ) ?  " is sysbanned."  : 
" is not sysbanned.";
     }
 
     # this action comes from the query section
_______________________________________________
dw-changelog mailing list
dw-changelog@lists.dwscoalition.org
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog