images/actsound.gif images/happycry.gif images/hmmm.gif images/joinsound.gif images/kiss.gif images/scrollback.gif images/sleep.gif images/sorry.gif images/what.gif @@ -31,7 +31,7 @@ use vars qw( ); ($VERSION = -'$Name: $ 0_5_CVS $Id: nph-irc.cgi,v 1.88 2003/10/29 12:28:33 dgl Exp $' +'$Name: $ 0_5_CVS $Id: nph-irc.cgi,v 1.89 2004/01/11 04:57:52 dgl Exp $' ) =~ s/^.*?(\d\S+) .*?(\d{4}\/\S+) .*$/$1/; $VERSION .= " ($2)"; $VERSION =~ s/_/./g; @@ -337,7 +337,6 @@ sub format_init_smilies { ':-?[xX]' => 'confused', ':-?\[' => 'embarassed', ':-?\*' => 'love', -"\004\>\004:-?\\(" => 'angry', #XXX ':-?[pP]' => 'tongue', ':-?\)' => 'happy', '\:-?D' => 'cheesy', @@ -345,6 +344,13 @@ sub format_init_smilies { ':-[oO]' => 'surprised', '8-?\)' => 'cool', ':-?\|' => 'flat', + ':\')' => 'happycry', +"\004\>\004:-?/" => 'hmmm', +"\004\>\004:-?\\(" => 'angry', + ':-?\*\*' => 'kiss', + ':-z' => 'sleep', + ':-\.' => 'sorry', + '8-@' => 'what', ); $regexpicon = '(' . join('|', keys %regexpicon) . ')'; } nph-irc.cgi 006d3fbe91a0e37adcc79e233909171e78d66f56 dgl dgl http://github.com/dgl/cgiirc/commit/1689dc23474a83502f8016ae236fbf91820293e0 1689dc23474a83502f8016ae236fbf91820293e0 2004-01-10T20:57:52-08:00 2004-01-10T20:57:52-08:00 New smilies/images 1cbf1f1ef7a6185cd79059348edcc80c90615733 dgl dgl