OSDN Git Service

::log_die() when error occurs at eval, closes #11984
authormorimoto <morimoto@180c8125-5b33-4295-ad04-72a68a15b4cc>
Fri, 29 Feb 2008 00:13:55 +0000 (00:13 +0000)
committermorimoto <morimoto@180c8125-5b33-4295-ad04-72a68a15b4cc>
Fri, 29 Feb 2008 00:13:55 +0000 (00:13 +0000)
ChangeLog
lib/Keitairc/Plugins.pm

index 716c1c2..5e02389 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,71 @@
+2008-02-29  Jun Morimoto  <morimoto@mrmt.net>
+
+       * lib/Keitairc/Plugins.pm: \e$B%W%i%0%$%s%U%!%$%k$r\e(Beval\e$B$7$F%(%i!<$,$G$?\e(B
+       \e$B$i\e(B ::log_die \e$B$9$k$h$&$K$7$?\e(B
+
+2008-02-26  Jun Morimoto  <morimoto@mrmt.net>
+
+       * keitairc 2.0b5:
+       - 10\e$B%A%c%M%k0J>e$N%A%c%M%k$r07$($F$^$;$s$G$7$?\e(B (\e$B:G6a%(%s%P%0$7$F$?!#\e(B
+       \e$B$_$C$H$b$J$$!D\e(B)
+       - \e$B%A%c%M%kL>0lMw$N%A%c%M%k$,J8;z2=$1$7$F$?\e(B (\e$B:G6a%(%s%P%0$7$F$?!#$_$C\e(B
+       \e$B$H$b$J$$!D\e(B)
+       - \e$B=;=j$C$]$$J8;zNs$N%j%s%/$N%^%C%A$rB?>/2~A1$7$^$7$?!#\e(B
+       - \e$B$5$i$K!"=;=j$C$]$$J8;zNs$r%/%j%C%/$7$?$"$H!"\e(B \e$B0lCJ3,$+$^$7$F$+$i\e(B
+       Google Map\e$B$KHt$V$h$&$K$7$^$7$?!#\e(B \e$B$3$N;~E@$G!"=;=j$C$]$$J8;zNs$NJT=8\e(B
+       \e$B$b2DG=$J$N$G!"\e(B \e$BM>7W$JJ8;zNs$r<j$G:o$C$F\e(BGoogle Map\e$B$K:FEYHt$V$3$H$b2D\e(B
+       \e$BG=$G$9!#\e(B \e$B2qOCBN$bB?$$\e(Birc\e$BH/8@J8;zNs$+$i=;=j$r$P$C$A$jCj=P$9$k$N$O\e(B \e$B$+\e(B
+       \e$B$J$j$`$:$+$7$$$N$G!":G8e$N%D%a$O<jJT=8$K$^$+$;$?$[$&$,$h$+$m$&$H\e(B \e$B3d\e(B
+       \e$B$j@Z$j$^$7$?!#\e(B
+       - \e$B$D$$$G$K!"=;=j$C$]$$J8;zNs$r<+J,$K%a!<%k$9$k5!G=$b$D$1$^$7$?!#\e(B
+       (\e$B%a!<%k%"%I%l%9\e(B, URL, \e$BEEOCHV9f$J$I$O!"$9$G$K<+J,$X$N%a!<%k5!G=$,$D\e(B
+       \e$B$$$F$^$9\e(B)
+       - \e$B$?$^$K%A%c%M%kL>$NKvHx$K6uGr$,F~$C$F$7$^$C$F$k>l9g$N07$$$r2~A1$7\e(B
+       \e$B$^$7$?!#\e(B
+       - Softbank\e$BBP1~\e(B(\e$B6qBNE*$K$O\e(Bweb_root\e$B%*%W%7%g%s\e(B)\e$BI|3h\e(B
+       - Softbank\e$BC<Kv$NC<Kv%7%j%"%kG'>ZBP1~\e(B
+       - priv\e$BBP1~\e(B (thanks to Makoto Matsushita)
+       - GPS\e$BB,0L$d\e(Bi\e$B%(%j%"$J$I8=:_0LCV$r<hF@$7$FH/8@!#\e(B movatwitter\e$B$N%Q%/$j\e(B
+       \e$B$G$9\e(B ^^;
+       - \e$B3F%A%c%M%k$N\e(Bnick\e$B0lMw\e(B
+       - \e$BH/8@Cf$N\e(BURL\e$B$KHt$V:]!"%j%U%!%i5UC5CN$r$5$l$J$$$h$&\e(B \e$B%;%C%7%g%s$r:n\e(B
+       \e$B$jD>$7$F$+$i%j%s%/$r=P$95!G=$rDI2C\e(B
+       - 2.0\e$B7OMQ$N\e(B dot.keitairc \e$B$bF1:-\e(B
+       - xchat\e$B%+%i!<;XDj%7!<%1%s%9BP1~\e(B
+       - \e$B3F%A%c%M%k$N:G=*H/8@$+$i$N7P2a;~4V$rI=<(\e(B
+       - \e$BH/8@Cf$NEEOCHV9f$d%a!<%k%"%I%l%9!"\e(BURL\e$B$J$I$r<+J,$K%a!<%k2DG=$K\e(B
+       - \e$B%W%i%0%$%s!"%F%s%W%l!<%H$N%5!<%A%Q%9$rJ#?t;XDj2DG=$K\e(B
+       - \e$B%A%c%M%k\e(Bpart\e$B$,$*$+$7$+$C$?$N$r=$@5\e(B
+       - \e$BH/8@Cf$KCOL>$i$7$-$b$N$,$"$k$H\e(BGoogle Map\e$B$K%j%s%/\e(B (\e$BMW2~NI\e(B)
+       - /robots.txt\e$B$r%j%/%(%9%H$5$l$?$iJV$9\e(B
+       - \e$B%i%$%V%i%j!"%F%s%W%l!<%H!"%W%i%0%$%s$J$I%U%!%$%k$rJ,N%$7$^$7$?!#\e(B
+       - \e$BG'>ZJ}K!$H$7$F\e(Bhttp basic auth\e$B$d$a$^$7$?!#\e(B \e$B%Q%9%o!<%IG'>Z8e$O%*%s\e(B
+       \e$B%a%b%j$N%;%C%7%g%s$rJ];}$7$FF0$-$^$9!#\e(B web_username\e$B%*%W%7%g%s$O$b$&\e(B
+       \e$BITMW$G$9!#\e(B
+       - web_password\e$B%*%W%7%g%s$OI,?\$K$J$j$^$7$?!#\e(B
+       - NTT DoCoMo FOMA\e$BC<Kv$G!"\e(BFOMA\e$B%+!<%IHV9f$bG'>Z$K;H$($k$h$&$K$7$^$7$?!#\e(B
+       docomo_foma_icc\e$B%*%W%7%g%s$K\e(B iccXXXXXXXXXXXXXXXXXXXXXXXX \e$B$H$$$C$?\e(B
+       icc\e$BJ8;zNs$r;XDj$7$^$9!#\e(B \e$B=i2s%"%/%;%9$N:]$K\e(BFOMA\e$B%+!<%IHV9f$NAw?.5v2D\e(B
+       \e$B$r5a$a$F$-$^$9!#\e(B
+       - use_cookie\e$B%*%W%7%g%s$OGQ;_!#\e(BDoCoMo\e$BC<Kv0J30$G$O<+F0E*$K\e(BCookie\e$B;H$$$^$9!#\e(B
+       - use Unicode::Japanese\e$B$d$a$F\e(Buse Encode\e$B$K$7$^$7$?!#\e(B
+       - \e$BH/8@Cf$N\e(BURL\e$B$O!"%/%j%C%/$9$k$H$=$l$r$I$&=hM}$9$k$+A*Br2DG=$K$7$^$7\e(B
+       \e$B$?!#\e(B \e$B8=:_!"D>@\%"%/%;%9!"%]%1%C%H$O$F$J7PM3!"\e(B(livedoor)\e$B%b%P%&%6!<&B\e(B
+       \e$B7PM3!"\e(B PC\e$B%5%$%H%S%e!<%"7PM3!"\e(BURL\e$B%3%T!<$rA*$Y$^$9!#\e(B
+       - \e$BH/8@Cf$NEEOCHV9f$O!"%/%j%C%/$9$k$H$=$l$r$I$&=hM}$9$k$+A*Br2DG=$K\e(B
+       \e$B$7$^$7$?!#\e(B \e$B8=:_!"DL>o$NEEOC!"\e(BTV\e$BEEOC\e(B(NTT DoCoMo FOMA\e$BC<Kv$N$_\e(B), \e$BEEOC\e(B
+       \e$BHV9f%3%T!<$rA*$Y$^$9!#\e(B
+       - \e$BH/8@Cf$N%a!<%k%"%I%l%9$O!"%/%j%C%/$9$k$H$=$l$r$I$&=hM}$9$k$+A*Br\e(B
+       \e$B2DG=$K$7$^$7$?!#\e(B \e$B8=:_!"%a!<%k5!G=5/F0!"%a!<%k%"%I%l%9%3%T!<$rA*$Y$^\e(B
+       \e$B$9!#\e(B
+       - \e$BA4H/8@0lMw!"L$FIH/8@0lMw!"\e(BURL\e$B=hM}!"EEOCHV9f=hM}!"%a!<%k=hM}$H$$$C\e(B
+       \e$B$?\e(B \e$B=hM}>lLL\e(B(action)\e$B$d!"H/8@Cf$N\e(BURL/\e$BEEOCHV9f\e(B/\e$B%a!<%k%"%I%l%9$H$$$C$?\e(B
+       \e$BJ8;zNs$r\e(B \e$B$I$&=&$C$F$I$&=hM}$9$k$+\e(B(regexp replacer)\e$B$r%W%i%0%$%s$H$7\e(B
+       \e$B$F<BAu$7$^$7$?!#\e(B \e$B%W%i%0%$%s%U%!%$%k$NDI2C$dJQ99$G!"$3$l$i$N?6$kIq$$\e(B
+       \e$B$rDI2C!&JQ99$G$-$^$9!#\e(B
+       - CVS rcsid\e$B$9$J$o$A\e(Bkeitairc\e$B$N%P!<%8%g%sHV9f!"$H$+%b%N%0%5$O$d$a$F!"\e(B
+       \e$B$A$c$s$H%j%j!<%9%^%M!<%8%a%s%H\e(B(\e$B$b$I$-\e(B)\e$B$9$k$h$&$K$7$^$9!#\e(B
+       
 2007-10-17  Jun Morimoto  <morimoto@mrmt.net>
 
        * keitairc 1.33: iPhone/iPod touch\e$BBP1~\e(B
index 914c4e5..27efb03 100644 (file)
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::Plugins
-# $Id: Plugins.pm,v 1.2 2008-01-13 09:30:39 morimoto Exp $
+# $Id: Plugins.pm,v 1.3 2008-02-29 00:13:55 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/Plugins.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -61,18 +61,17 @@ sub load_plugins{
                                        my $e = eval join('', <P>);
                                        close(P);
                                        if($@ || !defined($e)){
-                                               ::log("Error in plugin $dir/$file");
-                                               ::log($@);
+                                               ::log_die("Error in plugin $dir/$file\n" . $@);
                                                next;
                                        }
 
                                        unless($plugin->{name} =~ /^[a-z][a-z0-9_]+/){
-                                               ::log("Illegal plugin name $plugin->{name}");
+                                               ::log_die("Illegal plugin name $plugin->{name}");
                                                next;
                                        }
 
                                        if(defined $plugins->{$plugin->{name}}){
-                                               ::log("Plugin $plugin->{name} has already loaded");
+                                               ::log_die("Plugin $plugin->{name} has already loaded");
                                                next;
                                        }