Help for this page

Select Code to Download


  1. or download this
    my @domain_counts = GUI::DB::query ( $dbh,
    "SELECT date(now()), substr(addr,locate('@',addr)+1) as maildomain
+, count (*) as mailcount
...
     GROUP BY maildomain 
     ORDER BY mailcount DESC"
  );
  2. or download this
      INSERT INTO dailydomaincounts (maldate,maildomain,mailcount) VALUES 
+(?,?,?);

...
         GROUP BY maildomain
         ORDER BY monthlymailpct DESC
         LIMIT 50;