… | |
… | |
134 | </html> |
134 | </html> |
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></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"; |
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+/; |