version 1.99, 2009/12/09 23:02:43
|
version 1.100, 2009/12/22 05:08:04
|
Line 337 sub smiley {
|
Line 337 sub smiley {
|
if ($env{'browser.imagesuppress'} eq 'on') { return $expression; } |
if ($env{'browser.imagesuppress'} eq 'on') { return $expression; } |
my %smileys=( |
my %smileys=( |
'\:\-*\)' => 'face-smile.png', |
'\:\-*\)' => 'face-smile.png', |
'8\-*\)' => 'face-cool.png', |
'8\-\)' => 'face-cool.png', |
'8\-*(I|\|)' => 'face-glasses.png', |
'8\-(I|\|)' => 'face-glasses.png', |
':\-*(I|\|)' => 'face-plain.png', |
':\-*(I|\|)' => 'face-plain.png', |
'\:\-(o|O|\(\))' => 'face-surprise.png', |
'\:\-(o|O|\(\))' => 'face-surprise.png', |
':\-*\(' => 'face-sad.png', |
':\-*\(' => 'face-sad.png', |
'\;\-*\)' => 'face-wink.png', |
'\;\-*\)' => 'face-wink.png', |
'\:\-*(P|p)' => 'face-raspberry.png', |
'\:\-*(P|p)' => 'face-raspberry.png', |
'\:\-*(\\\|\\/)' => 'face-uncertain.png', |
'\:\-(\\\|\\/)' => 'face-uncertain.png', |
'\:\-*D' => 'face-smile-big.png', |
'\:\-*D' => 'face-smile-big.png', |
'\:\-*(C|\@)' => 'face-angry.png', |
'\:\-*(C|\@)' => 'face-angry.png', |
'\:(\'|\`)\-*\(' => 'face-crying.png', |
'\:(\'|\`)\-*\(' => 'face-crying.png', |