-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathindex.html
86 lines (78 loc) · 4.05 KB
/
index.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
<html>
<head>
<title>irc.perl.org</title>
</head>
<body bgcolor="black" text="white" link="gray" alink="white" vlink="white">
<center>
<!-- http://www.perlmonks.org/?node_id=45213 -->
<table><tr><td><pre><tt>
$_='ev
al("seek\040D
ATA,0, 0;");foreach(1..3)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
/LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
$_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124
\1 50\145\040\165\163\145\040\157\1 46\040\1 41\0
40\143\141 \155\145\1 54\040\1 51\155\ 141
\147\145\0 40\151\156 \040\141 \163\16 3\
157\143\ 151\141\16 4\151\1 57\156
\040\167 \151\164\1 50\040\ 120\1
45\162\ 154\040\15 1\163\ 040\14
1\040\1 64\162\1 41\144 \145\
155\14 1\162\ 153\04 0\157
\146\ 040\11 7\047\ 122\1
45\15 1\154\1 54\171 \040
\046\ 012\101\16 3\16
3\15 7\143\15 1\14
1\16 4\145\163 \054
\040 \111\156\14 3\056
\040\ 125\163\145\14 4\040\
167\1 51\164\1 50\0 40\160\
145\162 \155\151
\163\163 \151\1
57\156\056
</tt></pre></td></tr></table>
<p><a href="https://kiwiirc.com/nextclient/#irc://irc.perl.org/#perl">irc.perl.org</a> - Port 6667</p>
<p><a href="https://kiwiirc.com/nextclient/#ircs://ssl.irc.perl.org:7062/#perl">ssl.irc.perl.org</a> - Port 7062</p>
<p><i>This network has a <a href="rules.html">Standard of Conduct</a></i></p>
<br />
<p>[ <b><a href="faq.html">FAQ</a></b> ] [ <b><a href="rules.html">Rules</a></b> ] [ <b><a href="staff.html">Staff</a></b> ]</p>
<p>[ <b><a href="channels.html">Channels</a></b> ]</p>
</center>
<div style="padding-top: 5em;">
<center>
<p>Sponsored by:</p>
<table cellpadding="50">
<tr>
<td><a href="http://tamarou.com"><img border="0" src="tamarou.png" alt="Tamarou" /></a></td>
<td>
<a href="http://www.shadowcat.co.uk"><img border="0" src="sc.jpg" alt="Shadowcat Systems Limited" /></a>
</td>
</tr><tr>
<td> </td>
<td>
<center><a href="http://perl.org"><img border="0" src="http://st.pimg.net/perlweb/images/camel_head.v25e738a.png" alt="perl.org" /><br />perl.org</a></center>
</td>
<td> </td>
</tr>
</table>
</center>
</div>
</body>
</html>