New smilies/images

dgl · Jan 11, 2004 · 1689dc2 · 1689dc2
1 parent 006d3fb
commit 1689dc2
Show file tree

Hide file tree

Showing 10 changed files with 8 additions and 2 deletions.
diff --git a/images/actsound.gif b/images/actsound.gif
diff --git a/images/happycry.gif b/images/happycry.gif
diff --git a/images/hmmm.gif b/images/hmmm.gif
diff --git a/images/joinsound.gif b/images/joinsound.gif
diff --git a/images/kiss.gif b/images/kiss.gif
diff --git a/images/scrollback.gif b/images/scrollback.gif
diff --git a/images/sleep.gif b/images/sleep.gif
diff --git a/images/sorry.gif b/images/sorry.gif
diff --git a/images/what.gif b/images/what.gif
diff --git a/nph-irc.cgi b/nph-irc.cgi
@@ -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,14 +337,20 @@ sub format_init_smilies {
       ':-?[xX]'       => 'confused',
       ':-?\['         => 'embarassed',
       ':-?\*'         => 'love',
-"\004\&gt;\004:-?\\(" => 'angry', #XXX
       ':-?[pP]'       => 'tongue',
       ':-?\)'         => 'happy',
       '\:-?D'         => 'cheesy',
       ':-?\('         => 'unhappy',
       ':-[oO]'        => 'surprised',
       '8-?\)'         => 'cool',
       ':-?\|'         => 'flat',
+      ':\')'          => 'happycry',
+"\004\&gt;\004:-?/"   => 'hmmm',
+"\004\&gt;\004:-?\\(" => 'angry',
+      ':-?\*\*'       => 'kiss',
+      ':-z'           => 'sleep',
+      ':-\.'          => 'sorry',
+      '8-@'           => 'what',
    );
    $regexpicon = '(' . join('|', keys %regexpicon) . ')';
 }