commons/0040755000176300017630000000000010113405351011472 5ustar gibeogibeocommons/available.gif0100644000176300017630000000051310113164121014072 0ustar gibeogibeoGIF89a???QQQ```!ǘ(ѡ/ب6EMWftx!,Ƞ$I$I$I$I$I$H$$I$ $$I$I0M J$I0M0a$I0M0 x$I$0 $I$$ 8 I$I$I$I$I$I$IA$I$IJ I$I$I= I$I(IH$I$I@ I$I$I$I I$IR;commons/away.gif0100644000176300017630000000040010113164121013106 0ustar gibeogibeoGIF89a???yYQQQ```e w!"%صI!,9s9眃9st9s %c p9s ))9s )T:sJs:`NJs9L1%9()%t9s# p9sp9s9sAXc8s:s9眃9stι;commons/blank.gif0100644000176300017630000000022410113164121013240 0ustar gibeogibeoGIF89a!NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995!,ڋ޼I;commons/burst.gif0100644000176300017630000000035310113164121013313 0ustar gibeogibeoGIF89a3ffff333!NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995!,^(0ʩ lll7\'4kuB5'PcRHS6LA| م٪3;commons/left.gif0100644000176300017630000000025410113164121013106 0ustar gibeogibeoGIF89a!NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995!,+IXAo}N(JdDjh:)!yt]~md;commons/offline.gif0100644000176300017630000000040010113164121013567 0ustar gibeogibeoGIF89a ;;;HHHZZZhhhyyy! ,0RJ)R)RJL)RJ1 H)RJ RJxL!BRJ R)CRJ &0H)CRJ0C@)L)RJ@ H)RJ)H)RJ) RJ) 2RJ RJ0RȀR)RJ L);commons/pix.gif0100644000176300017630000000004310113164121012750 0ustar gibeogibeoGIF87a,L;commons/right.gif0100644000176300017630000000025410113164121013271 0ustar gibeogibeoGIF89a!NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995!,+⚀QMZy}R؅eHjf^lt=ݸ^;commons/xa.gif0100644000176300017630000000051310113164121012562 0ustar gibeogibeoGIF89aP)a1l9xLJRnfs!, EQEQEQEQEQEEQPEQPEEQEQR@EQEQEQ4I<Ͳ( c4s h4(@tA0q T;commons/commons.js0100644000176300017630000002244210113405063013504 0ustar gibeogibeo// on2me commons free beta version 4825 // This file is copyright 2004 Jeremie Miller // It is free to use and redistribute under the following simple rules: // - It can't be modified except for the below configureable options // - Don't blame me if something bad happens resulting from using this // - For personal/non-profit use only, no commercial or ad-supported sites // If you those rules to your dismay, just upgrade (it's only $5 right now) // and you get lots more freedom and features, and I'll sincerely appreciate it too! // these are the three configurable options: // set this to the path part of the url to the images or commons folder on your web site // on2_path="/commons/"; on2_path=""; // set this to the path to commons cgi script // on2_cgi="/cgi-bin/commons.cgi"; on2_cgi="commons.cgi"; // set this to the placement of the roster on the page (determins which side the chat window opens on) // on2_position="right"; on2_position="left"; // This is the block of magic javascript that I worked very long and hard to create // (good web browser compatibility is a real PITA), so besides breaking the rules, // please respect the time and effort I put into this and not bother trying to decode it, // just visit on2me.com and upgrade to the commons basic (it's cheap!) and get the nicely commented version. if(on2_position=="left"){ var O9xv20i="right"; var OmmmydX="-1px"; var O5iepYk="102px";}else{ var O9xv20i="left"; var O5iepYk="-304px"; var OmmmydX="-304px";}document.write('
');document.write('');document.write('
on2me commons
');document.write('
');document.write('');document.write('
');function OO0x5yE(id){ if(document.all) { return document.all(id); } else if (document.getElementById) { return document.getElementById(id); }}function OqVS4H5(val){ var A = val.split("+"); return unescape(A.join(" "));}function OZLME6Z(name){ var C = document.cookie.split("; "); for (i=0; i < C.length; i++) { kv = C[i].split("="); if(kv[0] == name){ return kv[1]; } }}function OocYA5P(id){ var e=OO0x5yE(id); if(e.style.visibility == 'visible') { e.style.visibility='hidden'; }else{ e.style.visibility='visible'; } return false;}var OZYs8YP="";var OZEDrHG=0;var Oo6lnoV="";var Ou4kVL7=5000;var OTYSfMJ=60000;var OvyPDXI=0;var OQ1uBWj=0;var OOvJCZ8=new Array();var OcS92WG=new Array();var OTSh3Zm=2;var OHqgXLA=1;var OBGVi7B=0;var OHmYU5k=0;var OG0ERfg=0;var OEuH9jy=0;function Op0lbbu(C){ if(!C) {return;} var A = C.split("@"); if(A[0] == "seq") { OZEDrHG=A[1]; }else if(A[0] == "rate"){ OTYSfMJ = Ou4kVL7 = A[1]; }else if(A[0] == "pres"){ if(!OOvJCZ8[A[1]]) { OOvJCZ8[A[1]] = new Array(); } OOvJCZ8[A[1]].ip = A[3]; OBaAA8a(A[1],OqVS4H5(A[2])); }else if(A[0] == "nick"){ OZTOhn2(A[1],A[2]); }else if(A[0] == "chat"){ OQEC50a(A[1],OqVS4H5(A[2])); }else if(A[0] == "private"){ alert("New private message from "+OOvJCZ8[A[1]].nick+": "+OqVS4H5(A[2])); OQEC50a(A[1],OqVS4H5(A[2]),"lightblue"); }else{ alert(A[0]+"\r\n"+A[1]+"\r\n"+A[2]+"\r\n"+A[3]); }}function OYemRbt(){ if(Ou4kVL7 < 0) { return; } document.images.on2Inerve.src=on2_cgi+"?seq="+OZEDrHG+"&idle="+OvyPDXI+"&rand="+Math.random()+Oo6lnoV; Oo6lnoV="";}function OMRTx2g(name,val){ Oo6lnoV += "&"+name+"="+escape(val); OTYSfMJ=0;}function OBMsMUR(){ OQ1uBWj=1; if(!OZYs8YP || OZYs8YP.length == 0) { OZYs8YP = OZLME6Z("on2sid"); OOvJCZ8[OZYs8YP] = new Array(); OOvJCZ8[OZYs8YP].rid=1; } var CC = OZLME6Z("on2CC"); if(CC) { var A = CC.split("*"); for(i=0;i<=A.length;i++){ Op0lbbu(A[i]); } document.cookie="on2CC=;path=/"; }}function OxMSH51(){ if(OQ1uBWj) { OQ1uBWj=0; Ou4kVL7=1000; }else{ Ou4kVL7 *= 2; document.images['on2IRP1'].src=on2_path+"offline.gif"; }}function O0bumKm(){ if(OBGVi7B) { OMVhp79(); } OTYSfMJ -= 200; if(OTYSfMJ <= 0) { OTYSfMJ = Ou4kVL7; OYemRbt(); } OvyPDXI += 200; window.setTimeout("O0bumKm()",200); if(OEuH9jy) { if(OEuH9jy > 4) { document.images['on2IchatsI'].src=on2_path+O9xv20i+".gif"; OEuH9jy=0; }else{ OEuH9jy++; } }}O0bumKm();function OMVhp79(){ if(!OG0ERfg) { document.images['on2IchatsI'].src=on2_path+"burst.gif"; OEuH9jy=1; return; } if(OHmYU5k){ document.forms['on2Iform']['on2Ientry'].value=''; } var e = OO0x5yE('on2IC1'); e.scrollTop=10000; OBGVi7B=1;}function Oe2beLg(e){ OBGVi7B=OHmYU5k=0; var old=OvyPDXI; OvyPDXI=0; if(old > Ou4kVL7) { OTYSfMJ = 0; }}document.onmousemove=Oe2beLg;document.onkeydown=Oe2beLg;function OSBWcKe(){ OocYA5P('on2Ichats'); if(OG0ERfg) { OG0ERfg=0; document.images['on2IchatsI'].src=on2_path+O9xv20i+".gif"; }else{ OG0ERfg=1; OMVhp79(); document.images['on2IchatsI'].src=on2_path+on2_position+".gif"; document.forms['on2Iform']['on2Ientry'].focus(); } return false;}function OuPBU7d(stat,msg){ if(Ou4kVL7 < 0) { Oo6lnoV=""; Ou4kVL7 = 1000; } OMRTx2g("status",stat); if(msg) { OMRTx2g("msg",msg); } OocYA5P('on2Ipres'); return false;}function O7B3zBw(e,stat){ if(e.innerHTML == "custom") { var msg = prompt("Enter a custom "+stat+" status message:",""); }else{ var msg = prompt("Enter a custom "+stat+" status message:",e.innerHTML); } if(!msg || msg=="") { return; } e.innerHTML = msg; return OuPBU7d(stat,msg);}function OQEC50a(from,txt,bg){ if(!txt || txt == "") { return; } if(from != "") { if(!OOvJCZ8[from] || !OOvJCZ8[from].nick) { return; } if(from == OZYs8YP){ var name = '<'+OOvJCZ8[from].nick+'>'; }else{ var name = '<'+OOvJCZ8[from].nick+'>'; } }else{ var name = 'system: '; } var e = OO0x5yE('on2IC'+OHqgXLA); if(!e) { return; } if(bg) { e.innerHTML = ' '+name+' '+txt+'
'; }else{ e.innerHTML = ' '+name+' '+txt+'
'; } OHqgXLA++; OMVhp79();}function O1GpxCq(to){ var msg = prompt("Enter a private message to "+OOvJCZ8[to].nick+":",""); if(!msg || msg == "") { return false; } OMRTx2g("chat",msg); OMRTx2g("to",to); OQEC50a(OZYs8YP,""+OOvJCZ8[to].nick+": "+msg);}function OBaAA8a(from,stat){ if(!stat || stat == "" || !OOvJCZ8[from]) { return; } var col = stat.indexOf(':'); if(col > 0) { var msg = stat.substring(col+1,stat.length); var stat = stat.substring(0,col); }else{ var msg = ""; } if(!OOvJCZ8[from].rid) { var e = OO0x5yE('on2IR'+OTSh3Zm); if(!e) { return; } OOvJCZ8[from].rid = OTSh3Zm; e.innerHTML= '  '+OOvJCZ8[from].nick+'
'; OTSh3Zm++; }else{ document.images['on2IRP'+OOvJCZ8[from].rid].src=on2_path+stat+".gif"; var e = OO0x5yE('on2IR'+OOvJCZ8[from].rid); if(!e) { return; } } if(msg){ OQEC50a("",OOvJCZ8[from].nick+" is now "+stat+": '"+msg+"'"); } e.title = msg+" from "+OOvJCZ8[from].ip;}function OZTOhn2(from,nick){ if(!from || from == "" || !nick || nick == "") { return; } if(!OOvJCZ8[from]) { OOvJCZ8[from] = new Array(); } if(OOvJCZ8[from].nick && OOvJCZ8[from].nick != nick) { OQEC50a("",""+OOvJCZ8[from].nick+" is now known as "+nick+"","lightyellow"); } OOvJCZ8[from].nick = nick; OcS92WG[nick]=from; if(OOvJCZ8[from].rid) { var e = OO0x5yE('on2IRN'+OOvJCZ8[from].rid); if(e) { e.innerHTML = nick; } }}function O5Me6jh(nick){ if(!nick || nick=="") { nick = prompt("Please enter a new nickname, only up to 12 letters and numbers are allowed:",OOvJCZ8[OZYs8YP].nick); } if(!nick || nick=="" || nick==OOvJCZ8[OZYs8YP].nick) { return; } OMRTx2g("nick",nick); document.forms['on2Iform']['on2Ientry'].focus();}function O0ob7UV(form){ var chat = form['on2Ientry'].value; if(!chat || chat == "") { return false; } if(chat.substring(0,1) == "/") { var A = chat.split(" "); var cmd = A[0]; var arg = A[1]; A[0] = A[1] = ""; chat = A.join(" "); if(cmd == "/nick") { O5Me6jh(arg); }else if(cmd == "/msg"){ if(OcS92WG[arg]) { OMRTx2g("chat",chat); OMRTx2g("to",OcS92WG[arg]); OQEC50a(OZYs8YP,""+arg+": "+chat); }else{ OQEC50a("","nick '"+arg+"' not found","red"); } }else if(cmd == "/help"){ OQEC50a("","Commands: '/msg nickname private message', '/nick newnickname', and '/help'"); }else{ OQEC50a("","'"+cmd+"' doesn't work yet, try '/help'","red"); } }else{ OMRTx2g("chat",chat); } OHmYU5k=1; OMVhp79(); return false;}document.write(""); commons/index.html0100644000176300017630000000460010113405342013464 0ustar gibeogibeoon2me commons free beta

on2me commons free beta

[version 4825]

This is the beta version of the on2me "commons" free web site chat system. It is a simple IM-style public group chat that can be embedded into any web site very simply. It uses no frames, no java, and no flash, and works instantly in all modern browsers.

Demo:


Installation:

Very simple, just put this peice of html in any page you want to use it on: <script src="commons.js"></script>. You can edit the commons.js file to change it to a right or left side style, and add the path to the cgi and images. The commons.cgi file must be in an area that is allowed to run CGI, sometimes it has to be in "cgi-bin" to work. Wherever the location, be sure to update the commons.js file with the right path.

Upgrade!

During the beta period you can upgrade to the commons basic edition for only $4.95! Visit on2me.com and upgrade before it's released and the price goes up! Here's what you get in the basic version:

Source Code:
All the source code nicely formatted and commented
Logging:
Simple activity logs on the server
Presence:
Ability to let users change their own presence and set custom status messages
Configurability:
Lots of options to change/tweak all kinds of settings
Multiple:
Host multiple commons out of one cgi
Karma:
I really appreciate appreciation for this cool system!

Support

Please check the support forums at on2me.com first, but you can also email me directly at jeremie@jeremie.com (obviously I give preferrential treatment to those who've upgraded, ;-)

© 2004 Jeremie
commons/commons.cgi0100755000176300017630000001434010113302561013632 0ustar gibeogibeo#!/usr/bin/perl # on2me commons free beta version 4825 # This file is copyright 2004 Jeremie Miller # It is free to use and redistribute under the following simple rules: # - It can't be modified except for the below configureable options # - Don't blame me if something bad happens resulting from using this # - For personal/non-profit use only, no commercial or ad-supported sites # If you those rules to your dismay, just upgrade (it's only $5 right now) # and you get lots more freedom and features, and I'll sincerely appreciate it too! # This is the one configurable option, the path to the shared data file. # Only change this if there are multiple versions of this running on the same server, # then each one should have their own file: $data = "/tmp/on2me_commons"; # I've put some considerable time into getting this simple but solid works-anywhere perl back-end working too, # so besides breaking the rules, please respect the time and effort I put into this and not bother trying to decode it, # just visit on2me.com and upgrade to the commons basic (it's cheap!) and get the nicely commented version. $hj61 = 300; $ajgo = 60; %heeb = ("available"=>3000,"away"=>10000,"xa"=>20000,"offline"=>-1); $e42a = 20000; $fm55 = 60000; %h0ik = &aab(); if($ENV{'HTTP_COOKIE'} =~ /on2sid\=(\w+)/) { $bj6e = $1; }else{ $bj6e = aaf(); $fn6h=gmtime(time()+365*24*3600)." GMT"; print "Set-Cookie: on2sid=$bj6e; path=/; expires=$fn6h;\r\n"; } my %k2ca; my %cp59; my %j02m; my %iagn; my %bdlc; my $j59j; my $e3fp; open(DAT,"<$data"); while() { chop(); next unless($_ =~ /\t/); my ($hnon,$fj3i,$h3bg,$ih9j) = split(/\t/); next unless($hnon > 0); $j59j = $hnon if($hnon > $j59j); $k2ca{$fj3i} = $hnon if($h3bg eq "pres" && $hnon > $k2ca{$fj3i}); $cp59{$fj3i} = $hnon if($h3bg eq "nick" && $hnon > $cp59{$fj3i}); $j02m{$ih9j} = $fj3i if($h3bg eq "nick"); $iagn{$fj3i} = $hnon if($h3bg eq "session"); $bdlc{$hnon} = {sid=>$fj3i,txt=>$ih9j,type=>$h3bg}; } close(DAT); if($h0ik{seq} <= 0 || !$iagn{$bj6e}) { $jhoo = 0; &aaj("session","$ENV{'REMOTE_ADDR'}") if(!$iagn{$bj6e}); $iagn{$bj6e} = $j59j; if($ENV{'HTTP_COOKIE'} =~ /on2nick\=([^;]+)/) { $c0og=$1; }else{ $c0og="anon"; } &aak($c0og); delete $k2ca{$bj6e}; }else{ $jhoo = $h0ik{seq}; $cahk = $iagn{$bj6e}; $iagn{$bj6e} = &aac(); $bdlc{$iagn{$bj6e}} = $bdlc{$cahk}; delete $bdlc{$cahk}; } &aae(); if($h0ik{chat}) { $h0ik{chat} = &aag($h0ik{chat},200); if($h0ik{to}) { &aaj("private","$h0ik{to}:$h0ik{chat}"); }else{ &aaj("chat",$h0ik{chat}); } } &aak($h0ik{nick}) if($h0ik{nick}); &aad(); sub aag { my($ih9j,$d9i3) = @_; $ih9j =~ s/]*[\W]+([\w|\.|\-]+\.[\w]{2,}[^\s|>|\'|\"]*)[^>]*>/ $1 /g; $ih9j =~ s/<[^>]*>//g; $ih9j = substr($ih9j,0,$d9i3) if(length($ih9j) > $d9i3); $ih9j =~ s/(([\w|\.|\-]+\.[\w]{2,})[^\s|<]*)/$2<\/a>/g; return $ih9j; } sub aak { my($c0og) = @_; $c0og =~ s/\W//g; $c0og = substr($c0og,0,12) if(length($c0og) > 12); return if($j02m{$c0og} eq $bj6e); while($j02m{$c0og}) { $c0og =~ s/(\d+)\z//; $fjkn = ($1 > 0) ? $1 : 1; $c0og .= ++$fjkn; } $fn6h=gmtime(time()+365*24*3600)." GMT"; print "Set-Cookie: on2nick=$c0og; path=/; expires=$fn6h;\r\n"; &aaj("nick",$c0og); } sub aae { my($f32j,@ae1p) = split(/\:/,$bdlc{$k2ca{$bj6e}}->{txt}); my($g742) = join("@",@ae1p); $g742 = &aag($g742,64); if($h0ik{status}) { return if(!$heeb{$h0ik{status}}); if($h0ik{status} eq "available" && !$h0ik{msg}) { &aaj("pres",$h0ik{status}); }else{ &aaj("pres","$h0ik{status}\:$h0ik{msg}"); } $e3fp .= "rate\@$heeb{$h0ik{status}}*"; return; } my($h5jb) = &aai($f32j); return if(length($g742) > 0 || $bdlc{$k2ca{$bj6e}}->{txt} eq $h5jb); $e3fp .= "rate\@$heeb{$h5jb}*"; &aaj("pres",$h5jb); } sub aai { my $ico6 = "available"; $ico6 = "away" if($h0ik{idle} > $e42a); $ico6 = "xa" if($h0ik{idle} > $fm55); return $ico6; } sub aad { my @i260; foreach $e7pm (keys(%iagn)) { if($iagn{$e7pm} < ($j59j - $hj61)) { delete $iagn{$e7pm}; next; } if($iagn{$e7pm} < (time() - $ajgo) && $bdlc{$k2ca{$e7pm}}->{txt} ne "offline") { $ale7 = &aac(); $k2ca{$e7pm} = $ale7; $bdlc{$ale7} = {sid=>$e7pm,txt=>"offline",type=>"pres"}; } } open(DAT,">$data"); flock(DAT,2); seek(DAT,0,0); foreach $hnon (keys(%bdlc)) { $ebi0 = $bdlc{$hnon}; next if(!$iagn{$ebi0->{sid}}); if($ebi0->{type} eq "nick"){ next if($hnon != $cp59{$ebi0->{sid}}); }elsif($ebi0->{type} eq "pres"){ next if($hnon != $k2ca{$ebi0->{sid}}); }else{ next if($hnon < ($j59j - $hj61)); } push(@i260,$hnon) if($hnon > $jhoo && $ebi0->{type} ne "session"); next if($hnon < $jhoo && $ebi0->{type} eq "private" && $ebi0->{txt} =~ /(\w+)\:.+/ && $1 eq $bj6e); print DAT "$hnon\t$ebi0->{sid}\t$ebi0->{type}\t$ebi0->{txt}\n"; } close(DAT); foreach $hnon (sort {$ckml < $fckc} @i260) { $ebi0 = $bdlc{$hnon}; if($ebi0->{type} eq "private") { $e3fp .= "private\@$ebi0->{sid}\@".aah($2)."*" if($ebi0->{txt} =~ /(\w+)\:(.+)/ && $1 eq $bj6e); }elsif($ebi0->{type} eq "pres"){ $e3fp .= "$ebi0->{type}\@$ebi0->{sid}\@".aah($ebi0->{txt})."\@".aah($bdlc{$iagn{$ebi0->{sid}}}->{txt})."*"; }else{ $e3fp .= "$ebi0->{type}\@$ebi0->{sid}\@".aah($ebi0->{txt})."*"; } if(length($e3fp) > 3500) { $j59j = $hnon; break; } } print "Set-Cookie: on2CC=seq\@$j59j*$e3fp; path=/;\r\n"; print "Content-type: image/gif\r\n\r\n"; open(PIX,"pix.gif"); while(){ print $_;} close(PIX); exit(); } sub aac { $c6pd = time(); $j59j = ($c6pd > $j59j) ? $c6pd : ($j59j + 0.01); return $j59j; } sub aaj { my ($h3bg,$ih9j) = @_; $ih9j =~ s/\s/ /g; my ($ale7) = &aac(); $cp59{$bj6e} = $ale7 if($h3bg eq "nick"); $k2ca{$bj6e} = $ale7 if($h3bg eq "pres"); $bdlc{$ale7} = {sid=>$bj6e,txt=>$ih9j,type=>$h3bg}; } sub aaf { my @f6m4=('a'..'z','0'..'9'); my $bj6e; foreach(1..32) { $bj6e .= $f6m4[rand @f6m4]; } return $bj6e; } sub aab { local($e7pm, $fno9, $b7n0, %hjmo); if($ENV{'REQUEST_METHOD'} eq "GET") { $hjmo = $ENV{'QUERY_STRING'}; } elsif($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$hjmo,$ENV{'CONTENT_LENGTH'}); } @hjmo = split(/&/,$hjmo); foreach $e7pm (0 .. $#hjmo) { $hjmo[$e7pm] =~ s/\+/ /g; ($fno9, $b7n0) = split(/=/,$hjmo[$e7pm],2); $fno9 =~ s/%(..)/pack("c",hex($1))/ge; $b7n0 =~ s/%(..)/pack("c",hex($1))/ge; $hjmo{$fno9} .= "\0" if (defined($hjmo{$fno9})); $hjmo{$fno9} .= $b7n0; } return %hjmo; } sub aah { my($hp5j) = $_[0]; $hp5j =~ s/[^A-Za-z0-9\ \_\.\-]/uc sprintf("%%%02x",ord($&))/egx; $hp5j =~ tr/ /+/; return $hp5j; }