Fixed an exploit in QDB RAND.

NEWS

@@ -18,6 +18,7 @@ None
 Bug fixes:
 
 * UNO: Fixed a formatting issue in duration.
+* QDB: Fixed an exploit in QDB VIEW.
 
 Incompatibilities:
 

doc/CHANGELOG

@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Bug fix: Fixed an exploit in QDB RAND.
     * UNO: Fixed a formatting issue in duration.
 
 3.0 Alpha 8

modules/QDB.pm

@@ -113,7 +113,7 @@ sub cmd_qdb
 
             # Send it back.
             privmsg($src->{svr}, $src->{chan}, "\002ID:\002 $data[0] - \002Submitted by\002 $data[1] \002on\002 ".POSIX::strftime('%F', localtime($data[2]))." \002at\002 ".POSIX::strftime('%I:%M %p', localtime($data[2])));
-            privmsg($src->{svr}, $src->{chan}, $data[3]);
+            privmsg($src->{svr}, $src->{chan}, '> '.$data[3]);
         }
         when ('SEARCH') {
             # QDB SEARCH.
@@ -211,7 +211,7 @@ sub cmd_qdb
 }
 
 
-API::Std::mod_init('QDB', 'Xelhua', '1.03', '3.0.0a7', __PACKAGE__);
+API::Std::mod_init('QDB', 'Xelhua', '1.04', '3.0.0a9', __PACKAGE__);
 # build: perl=5.010000
 
 __END__
@@ -222,7 +222,7 @@ QDB - Quote database module.
 
 =head1 VERSION
 
- 1.03
+ 1.04
 
 =head1 SYNOPSIS