… | |
… | |
135 | EOF |
135 | EOF |
136 | } |
136 | } |
137 | |
137 | |
138 | sub res_irc { |
138 | sub res_irc { |
139 | # print "<tr><td><tt class='icon'>IRC</tt></td><td class='rr'>Server <tt><b><a href='http://widget.mibbit.com/?settings=ba7bec4f0f493fde9b226a13c375edbd&server=irc.schmorp.de&channel=%23schmorp&noServerNotices=true&autoConnect=true'>irc.schmorp.de</a></b></tt>, channel <tt>#schmorp</tt>, users <tt>schmorp</tt> and <tt>elmex</tt> <b>(say hi and <i>wait a few minutes</i>)</b></td></tr>\n"; |
139 | # print "<tr><td><tt class='icon'>IRC</tt></td><td class='rr'>Server <tt><b><a href='http://widget.mibbit.com/?settings=ba7bec4f0f493fde9b226a13c375edbd&server=irc.schmorp.de&channel=%23schmorp&noServerNotices=true&autoConnect=true'>irc.schmorp.de</a></b></tt>, channel <tt>#schmorp</tt>, users <tt>schmorp</tt> and <tt>elmex</tt> <b>(say hi and <i>wait a few minutes</i>)</b></td></tr>\n"; |
140 | print "<tr><td><tt class='icon'>IRC</tt></td><td class='rr'>Server <tt><b>irc.freenode.net</b></tt>, channel <tt>#schmorp</tt>, users <tt>schmorp</tt> and <tt>elmex</tt> <b>(say hi and <i>wait a few minutes</i>)</b></td></tr>\n"; |
140 | print "<tr><td><tt class='icon'>IRC</tt></td><td class='rr'>Server <a href='http://webchat.freenode.net/?randomnick=1&channels=schmorp&prompt=1'><tt><b>irc.freenode.net</b></tt>, channel <tt>#schmorp</tt></a>, users <tt>schmorp</tt> and <tt>elmex</tt> <b>(say hi and <i>wait a few minutes</i>)</b></td></tr>\n"; |
141 | } |
141 | } |
142 | |
142 | |
143 | $_ = <DATA>; |
143 | $_ = <DATA>; |
144 | for (;defined $_;) { |
144 | for (;defined $_;) { |
145 | my ($name, @args) = split /\s+/; |
145 | my ($name, @args) = split /\s+/; |
… | |
… | |
419 | |
419 | |
420 | Much effort was invested into these guards behaving "sensibly" in the |
420 | Much effort was invested into these guards behaving "sensibly" in the |
421 | presence of thrown exceptions, errors and other adverse conditions, as |
421 | presence of thrown exceptions, errors and other adverse conditions, as |
422 | well as into good performance. |
422 | well as into good performance. |
423 | |
423 | |
|
|
424 | common-sense cpan cvs-pod(common-sense.pm,) cvs-co(Changes) |
|
|
425 | This module implements some sane defaults for Perl programs, as defined |
|
|
426 | by two typical (or not so typical - use your common sense) specimens of |
|
|
427 | Perl coders. |
|
|
428 | |
424 | Net-IRC-Server cvs-pod(Net/IRC/Server.pm,) |
429 | Net-IRC-Server cvs-pod(Net/IRC/Server.pm,) |
425 | This module provides a simple API for handling the IRC Protocol |
430 | This module provides a simple API for handling the IRC Protocol |
426 | aiming at implementing lightweight IRC-Servers. |
431 | aiming at implementing lightweight IRC-Servers. |
427 | |
432 | |
428 | PApp-SQL cpan cvs-pod(SQL.pm,) |
433 | PApp-SQL cpan cvs-pod(SQL.pm,) |