diff --git a/modules/lemonldap-ng-manager/Changes b/modules/lemonldap-ng-manager/Changes
index e2aeddb38..bba77e1ac 100644
--- a/modules/lemonldap-ng-manager/Changes
+++ b/modules/lemonldap-ng-manager/Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension Lemonldap::NG::Manager.
+0.87 Tue nov 4 17:28:45 2008
+ - New module Sessions.pm and example
+
0.86 Mon aug 25 22:02:23 2008
- UTF8 in _i18n.pm
- change in default values
diff --git a/modules/lemonldap-ng-manager/example/images/Thumbs.db b/modules/lemonldap-ng-manager/example/images/Thumbs.db
new file mode 100644
index 000000000..27137dce4
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/Thumbs.db differ
diff --git a/modules/lemonldap-ng-manager/example/images/arrow_refresh.png b/modules/lemonldap-ng-manager/example/images/arrow_refresh.png
new file mode 100644
index 000000000..0de26566d
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/arrow_refresh.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/collapsable-last.gif b/modules/lemonldap-ng-manager/example/images/collapsable-last.gif
new file mode 100644
index 000000000..5d1ea601e
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/collapsable-last.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/collapsable.gif b/modules/lemonldap-ng-manager/example/images/collapsable.gif
new file mode 100644
index 000000000..20dbdad28
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/collapsable.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/cross.png b/modules/lemonldap-ng-manager/example/images/cross.png
new file mode 100644
index 000000000..1514d51a3
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/cross.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/disk.png b/modules/lemonldap-ng-manager/example/images/disk.png
new file mode 100644
index 000000000..99d532e8b
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/disk.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/expandable-last.gif b/modules/lemonldap-ng-manager/example/images/expandable-last.gif
new file mode 100644
index 000000000..fb468bc3f
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/expandable-last.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/expandable.gif b/modules/lemonldap-ng-manager/example/images/expandable.gif
new file mode 100644
index 000000000..451f6a306
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/expandable.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/folder_add.png b/modules/lemonldap-ng-manager/example/images/folder_add.png
new file mode 100644
index 000000000..529fe8fe0
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/folder_add.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/folder_delete.png b/modules/lemonldap-ng-manager/example/images/folder_delete.png
new file mode 100644
index 000000000..112b01638
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/folder_delete.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/folder_edit.png b/modules/lemonldap-ng-manager/example/images/folder_edit.png
new file mode 100644
index 000000000..ad669cc78
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/folder_edit.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/leaf-last.gif b/modules/lemonldap-ng-manager/example/images/leaf-last.gif
new file mode 100644
index 000000000..e5d301dbc
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/leaf-last.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/leaf.gif b/modules/lemonldap-ng-manager/example/images/leaf.gif
new file mode 100644
index 000000000..2f5c2ef10
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/leaf.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/line_bg.gif b/modules/lemonldap-ng-manager/example/images/line_bg.gif
new file mode 100644
index 000000000..3189f90b4
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/line_bg.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/line_bg_over.gif b/modules/lemonldap-ng-manager/example/images/line_bg_over.gif
new file mode 100644
index 000000000..421883d7d
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/line_bg_over.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/line_bg_over_last.gif b/modules/lemonldap-ng-manager/example/images/line_bg_over_last.gif
new file mode 100644
index 000000000..b43d2b600
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/line_bg_over_last.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/minus.gif b/modules/lemonldap-ng-manager/example/images/minus.gif
new file mode 100644
index 000000000..e4f90c275
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/minus.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/page_add.png b/modules/lemonldap-ng-manager/example/images/page_add.png
new file mode 100644
index 000000000..d5bfa0719
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/page_add.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/page_delete.png b/modules/lemonldap-ng-manager/example/images/page_delete.png
new file mode 100644
index 000000000..3141467c6
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/page_delete.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/page_edit.png b/modules/lemonldap-ng-manager/example/images/page_edit.png
new file mode 100644
index 000000000..046811ed7
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/page_edit.png differ
diff --git a/modules/lemonldap-ng-manager/example/images/plus.gif b/modules/lemonldap-ng-manager/example/images/plus.gif
new file mode 100644
index 000000000..c253770d2
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/plus.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/root.gif b/modules/lemonldap-ng-manager/example/images/root.gif
new file mode 100644
index 000000000..27012fbd6
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/root.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/spacer.gif b/modules/lemonldap-ng-manager/example/images/spacer.gif
new file mode 100644
index 000000000..1d11fa9ad
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/spacer.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/spinner.gif b/modules/lemonldap-ng-manager/example/images/spinner.gif
new file mode 100644
index 000000000..085ccaeca
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/spinner.gif differ
diff --git a/modules/lemonldap-ng-manager/example/images/tree_line.gif b/modules/lemonldap-ng-manager/example/images/tree_line.gif
new file mode 100644
index 000000000..2d6fa89c6
Binary files /dev/null and b/modules/lemonldap-ng-manager/example/images/tree_line.gif differ
diff --git a/modules/lemonldap-ng-manager/example/jquery.js b/modules/lemonldap-ng-manager/example/jquery.js
new file mode 100644
index 000000000..95dd0138f
--- /dev/null
+++ b/modules/lemonldap-ng-manager/example/jquery.js
@@ -0,0 +1,11 @@
+/*
+ * jQuery 1.2.6 - New Wave Javascript
+ *
+ * Copyright (c) 2008 John Resig (jquery.com)
+ * Dual licensed under the MIT (MIT-LICENSE.txt)
+ * and GPL (GPL-LICENSE.txt) licenses.
+ *
+ * $Date: 2008-05-24 14:22:17 -0400 (Sat, 24 May 2008) $
+ * $Rev: 5685 $
+ */
+eval(function(p,a,c,k,e,r){e=function(c){return(c35?String.fromCharCode(c+29):c.toString(36))};if(!''.replace(/^/,String)){while(c--)r[e(c)]=k[c]||e(c);k=[function(e){return r[e]}];e=function(){return'\\w+'};c=1};while(c--)if(k[c])p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('(H(){J w=1b.4M,3m$=1b.$;J D=1b.4M=1b.$=H(a,b){I 2B D.17.5j(a,b)};J u=/^[^<]*(<(.|\\s)+>)[^>]*$|^#(\\w+)$/,62=/^.[^:#\\[\\.]*$/,12;D.17=D.44={5j:H(d,b){d=d||S;G(d.16){7[0]=d;7.K=1;I 7}G(1j d=="23"){J c=u.2D(d);G(c&&(c[1]||!b)){G(c[1])d=D.4h([c[1]],b);N{J a=S.61(c[3]);G(a){G(a.2v!=c[3])I D().2q(d);I D(a)}d=[]}}N I D(b).2q(d)}N G(D.1D(d))I D(S)[D.17.27?"27":"43"](d);I 7.6Y(D.2d(d))},5w:"1.2.6",8G:H(){I 7.K},K:0,3p:H(a){I a==12?D.2d(7):7[a]},2I:H(b){J a=D(b);a.5n=7;I a},6Y:H(a){7.K=0;2p.44.1p.1w(7,a);I 7},P:H(a,b){I D.P(7,a,b)},5i:H(b){J a=-1;I D.2L(b&&b.5w?b[0]:b,7)},1K:H(c,a,b){J d=c;G(c.1q==56)G(a===12)I 7[0]&&D[b||"1K"](7[0],c);N{d={};d[c]=a}I 7.P(H(i){R(c 1n d)D.1K(b?7.V:7,c,D.1i(7,d[c],b,i,c))})},1g:H(b,a){G((b==\'2h\'||b==\'1Z\')&&3d(a)<0)a=12;I 7.1K(b,a,"2a")},1r:H(b){G(1j b!="49"&&b!=U)I 7.4E().3v((7[0]&&7[0].2z||S).5F(b));J a="";D.P(b||7,H(){D.P(7.3t,H(){G(7.16!=8)a+=7.16!=1?7.76:D.17.1r([7])})});I a},5z:H(b){G(7[0])D(b,7[0].2z).5y().39(7[0]).2l(H(){J a=7;1B(a.1x)a=a.1x;I a}).3v(7);I 7},8Y:H(a){I 7.P(H(){D(7).6Q().5z(a)})},8R:H(a){I 7.P(H(){D(7).5z(a)})},3v:H(){I 7.3W(19,M,Q,H(a){G(7.16==1)7.3U(a)})},6F:H(){I 7.3W(19,M,M,H(a){G(7.16==1)7.39(a,7.1x)})},6E:H(){I 7.3W(19,Q,Q,H(a){7.1d.39(a,7)})},5q:H(){I 7.3W(19,Q,M,H(a){7.1d.39(a,7.2H)})},3l:H(){I 7.5n||D([])},2q:H(b){J c=D.2l(7,H(a){I D.2q(b,a)});I 7.2I(/[^+>] [^+>]/.11(b)||b.1h("..")>-1?D.4r(c):c)},5y:H(e){J f=7.2l(H(){G(D.14.1f&&!D.4n(7)){J a=7.6o(M),5h=S.3h("1v");5h.3U(a);I D.4h([5h.4H])[0]}N I 7.6o(M)});J d=f.2q("*").5c().P(H(){G(7[E]!=12)7[E]=U});G(e===M)7.2q("*").5c().P(H(i){G(7.16==3)I;J c=D.L(7,"3w");R(J a 1n c)R(J b 1n c[a])D.W.1e(d[i],a,c[a][b],c[a][b].L)});I f},1E:H(b){I 7.2I(D.1D(b)&&D.3C(7,H(a,i){I b.1k(a,i)})||D.3g(b,7))},4Y:H(b){G(b.1q==56)G(62.11(b))I 7.2I(D.3g(b,7,M));N b=D.3g(b,7);J a=b.K&&b[b.K-1]!==12&&!b.16;I 7.1E(H(){I a?D.2L(7,b)<0:7!=b})},1e:H(a){I 7.2I(D.4r(D.2R(7.3p(),1j a==\'23\'?D(a):D.2d(a))))},3F:H(a){I!!a&&D.3g(a,7).K>0},7T:H(a){I 7.3F("."+a)},6e:H(b){G(b==12){G(7.K){J c=7[0];G(D.Y(c,"2A")){J e=c.64,63=[],15=c.15,2V=c.O=="2A-2V";G(e<0)I U;R(J i=2V?e:0,2f=2V?e+1:15.K;i<2f;i++){J d=15[i];G(d.2W){b=D.14.1f&&!d.at.2x.an?d.1r:d.2x;G(2V)I b;63.1p(b)}}I 63}N I(7[0].2x||"").1o(/\\r/g,"")}I 12}G(b.1q==4L)b+=\'\';I 7.P(H(){G(7.16!=1)I;G(b.1q==2p&&/5O|5L/.11(7.O))7.4J=(D.2L(7.2x,b)>=0||D.2L(7.34,b)>=0);N G(D.Y(7,"2A")){J a=D.2d(b);D("9R",7).P(H(){7.2W=(D.2L(7.2x,a)>=0||D.2L(7.1r,a)>=0)});G(!a.K)7.64=-1}N 7.2x=b})},2K:H(a){I a==12?(7[0]?7[0].4H:U):7.4E().3v(a)},7b:H(a){I 7.5q(a).21()},79:H(i){I 7.3s(i,i+1)},3s:H(){I 7.2I(2p.44.3s.1w(7,19))},2l:H(b){I 7.2I(D.2l(7,H(a,i){I b.1k(a,i,a)}))},5c:H(){I 7.1e(7.5n)},L:H(d,b){J a=d.1R(".");a[1]=a[1]?"."+a[1]:"";G(b===12){J c=7.5C("9z"+a[1]+"!",[a[0]]);G(c===12&&7.K)c=D.L(7[0],d);I c===12&&a[1]?7.L(a[0]):c}N I 7.1P("9u"+a[1]+"!",[a[0],b]).P(H(){D.L(7,d,b)})},3b:H(a){I 7.P(H(){D.3b(7,a)})},3W:H(g,f,h,d){J e=7.K>1,3x;I 7.P(H(){G(!3x){3x=D.4h(g,7.2z);G(h)3x.9o()}J b=7;G(f&&D.Y(7,"1T")&&D.Y(3x[0],"4F"))b=7.3H("22")[0]||7.3U(7.2z.3h("22"));J c=D([]);D.P(3x,H(){J a=e?D(7).5y(M)[0]:7;G(D.Y(a,"1m"))c=c.1e(a);N{G(a.16==1)c=c.1e(D("1m",a).21());d.1k(b,a)}});c.P(6T)})}};D.17.5j.44=D.17;H 6T(i,a){G(a.4d)D.3Y({1a:a.4d,31:Q,1O:"1m"});N D.5u(a.1r||a.6O||a.4H||"");G(a.1d)a.1d.37(a)}H 1z(){I+2B 8J}D.1l=D.17.1l=H(){J b=19[0]||{},i=1,K=19.K,4x=Q,15;G(b.1q==8I){4x=b;b=19[1]||{};i=2}G(1j b!="49"&&1j b!="H")b={};G(K==i){b=7;--i}R(;i-1}},6q:H(b,c,a){J e={};R(J d 1n c){e[d]=b.V[d];b.V[d]=c[d]}a.1k(b);R(J d 1n c)b.V[d]=e[d]},1g:H(d,e,c){G(e=="2h"||e=="1Z"){J b,3X={30:"5x",5g:"1G",18:"3I"},35=e=="2h"?["5e","6k"]:["5G","6i"];H 5b(){b=e=="2h"?d.8f:d.8c;J a=0,2C=0;D.P(35,H(){a+=3d(D.2a(d,"57"+7,M))||0;2C+=3d(D.2a(d,"2C"+7+"4b",M))||0});b-=29.83(a+2C)}G(D(d).3F(":4j"))5b();N D.6q(d,3X,5b);I 29.2f(0,b)}I D.2a(d,e,c)},2a:H(f,l,k){J e,V=f.V;H 3E(b){G(!D.14.2k)I Q;J a=3P.54(b,U);I!a||a.52("3E")==""}G(l=="1y"&&D.14.1f){e=D.1K(V,"1y");I e==""?"1":e}G(D.14.2G&&l=="18"){J d=V.50;V.50="0 7Y 7W";V.50=d}G(l.1I(/4i/i))l=y;G(!k&&V&&V[l])e=V[l];N G(3P.54){G(l.1I(/4i/i))l="4i";l=l.1o(/([A-Z])/g,"-$1").3y();J c=3P.54(f,U);G(c&&!3E(f))e=c.52(l);N{J g=[],2E=[],a=f,i=0;R(;a&&3E(a);a=a.1d)2E.6h(a);R(;i<2E.K;i++)G(3E(2E[i])){g[i]=2E[i].V.18;2E[i].V.18="3I"}e=l=="18"&&g[2E.K-1]!=U?"2F":(c&&c.52(l))||"";R(i=0;i]*?)\\/>/g,H(b,a,c){I c.1I(/^(aK|4f|7E|aG|4T|7A|aB|3n|az|ay|av)$/i)?b:a+">"+c+">"});J f=D.3k(d).3y(),1v=h.3h("1v");J e=!f.1h("","2A>"]||!f.1h("","7v>"]||f.1I(/^<(aq|22|am|ak|ai)/)&&[1,"<1T>","1T>"]||!f.1h("<4F")&&[2,"<1T><22>","22>1T>"]||(!f.1h("<22><4F>","4F>22>1T>"]||!f.1h("<7E")&&[2,"<1T><22>22><7q>","7q>1T>"]||D.14.1f&&[1,"1v<1v>","1v>"]||[0,"",""];1v.4H=e[1]+d+e[2];1B(e[0]--)1v=1v.5T;G(D.14.1f){J g=!f.1h("<1T")&&f.1h("<22")<0?1v.1x&&1v.1x.3t:e[1]=="<1T>"&&f.1h("<22")<0?1v.3t:[];R(J j=g.K-1;j>=0;--j)G(D.Y(g[j],"22")&&!g[j].3t.K)g[j].1d.37(g[j]);G(/^\\s/.11(d))1v.39(h.5F(d.1I(/^\\s*/)[0]),1v.1x)}d=D.2d(1v.3t)}G(d.K===0&&(!D.Y(d,"3V")&&!D.Y(d,"2A")))I;G(d[0]==12||D.Y(d,"3V")||d.15)k.1p(d);N k=D.2R(k,d)});I k},1K:H(d,f,c){G(!d||d.16==3||d.16==8)I 12;J e=!D.4n(d),40=c!==12,1f=D.14.1f;f=e&&D.3X[f]||f;G(d.2j){J g=/5Q|4d|V/.11(f);G(f=="2W"&&D.14.2k)d.1d.64;G(f 1n d&&e&&!g){G(40){G(f=="O"&&D.Y(d,"4T")&&d.1d)7p"O a3 a1\'t 9V 9U";d[f]=c}G(D.Y(d,"3V")&&d.7i(f))I d.7i(f).76;I d[f]}G(1f&&e&&f=="V")I D.1K(d.V,"9T",c);G(40)d.9Q(f,""+c);J h=1f&&e&&g?d.4G(f,2):d.4G(f);I h===U?12:h}G(1f&&f=="1y"){G(40){d.6B=1;d.1E=(d.1E||"").1o(/7f\\([^)]*\\)/,"")+(3r(c)+\'\'=="9L"?"":"7f(1y="+c*7a+")")}I d.1E&&d.1E.1h("1y=")>=0?(3d(d.1E.1I(/1y=([^)]*)/)[1])/7a)+\'\':""}f=f.1o(/-([a-z])/9H,H(a,b){I b.2r()});G(40)d[f]=c;I d[f]},3k:H(a){I(a||"").1o(/^\\s+|\\s+$/g,"")},2d:H(b){J a=[];G(b!=U){J i=b.K;G(i==U||b.1R||b.4I||b.1k)a[0]=b;N 1B(i)a[--i]=b[i]}I a},2L:H(b,a){R(J i=0,K=a.K;i*",7).21();1B(7.1x)7.37(7.1x)}},H(a,b){D.17[a]=H(){I 7.P(b,19)}});D.P(["6N","4b"],H(i,c){J b=c.3y();D.17[b]=H(a){I 7[0]==1b?D.14.2G&&S.1c["5t"+c]||D.14.2k&&1b["5s"+c]||S.70=="6Z"&&S.1C["5t"+c]||S.1c["5t"+c]:7[0]==S?29.2f(29.2f(S.1c["4y"+c],S.1C["4y"+c]),29.2f(S.1c["2i"+c],S.1C["2i"+c])):a==12?(7.K?D.1g(7[0],b):U):7.1g(b,a.1q==56?a:a+"2X")}});H 25(a,b){I a[0]&&3r(D.2a(a[0],b,M),10)||0}J C=D.14.2k&&3r(D.14.5B)<8H?"(?:[\\\\w*3m-]|\\\\\\\\.)":"(?:[\\\\w\\8F-\\8E*3m-]|\\\\\\\\.)",6L=2B 4v("^>\\\\s*("+C+"+)"),6J=2B 4v("^("+C+"+)(#)("+C+"+)"),6I=2B 4v("^([#.]?)("+C+"*)");D.1l({6H:{"":H(a,i,m){I m[2]=="*"||D.Y(a,m[2])},"#":H(a,i,m){I a.4G("2v")==m[2]},":":{8D:H(a,i,m){I im[3]-0},3a:H(a,i,m){I m[3]-0==i},79:H(a,i,m){I m[3]-0==i},3o:H(a,i){I i==0},3S:H(a,i,m,r){I i==r.K-1},6D:H(a,i){I i%2==0},6C:H(a,i){I i%2},"3o-4u":H(a){I a.1d.3H("*")[0]==a},"3S-4u":H(a){I D.3a(a.1d.5T,1,"4l")==a},"8z-4u":H(a){I!D.3a(a.1d.5T,2,"4l")},6W:H(a){I a.1x},4E:H(a){I!a.1x},8y:H(a,i,m){I(a.6O||a.8x||D(a).1r()||"").1h(m[3])>=0},4j:H(a){I"1G"!=a.O&&D.1g(a,"18")!="2F"&&D.1g(a,"5g")!="1G"},1G:H(a){I"1G"==a.O||D.1g(a,"18")=="2F"||D.1g(a,"5g")=="1G"},8w:H(a){I!a.3R},3R:H(a){I a.3R},4J:H(a){I a.4J},2W:H(a){I a.2W||D.1K(a,"2W")},1r:H(a){I"1r"==a.O},5O:H(a){I"5O"==a.O},5L:H(a){I"5L"==a.O},5p:H(a){I"5p"==a.O},3Q:H(a){I"3Q"==a.O},5o:H(a){I"5o"==a.O},6A:H(a){I"6A"==a.O},6z:H(a){I"6z"==a.O},2s:H(a){I"2s"==a.O||D.Y(a,"2s")},4T:H(a){I/4T|2A|6y|2s/i.11(a.Y)},3T:H(a,i,m){I D.2q(m[3],a).K},8t:H(a){I/h\\d/i.11(a.Y)},8s:H(a){I D.3C(D.3O,H(b){I a==b.T}).K}}},6x:[/^(\\[) *@?([\\w-]+) *([!*$^~=]*) *(\'?"?)(.*?)\\4 *\\]/,/^(:)([\\w-]+)\\("?\'?(.*?(\\(.*?\\))?[^(]*?)"?\'?\\)/,2B 4v("^([:.#]*)("+C+"+)")],3g:H(a,c,b){J d,1t=[];1B(a&&a!=d){d=a;J f=D.1E(a,c,b);a=f.t.1o(/^\\s*,\\s*/,"");1t=b?c=f.r:D.2R(1t,f.r)}I 1t},2q:H(t,o){G(1j t!="23")I[t];G(o&&o.16!=1&&o.16!=9)I[];o=o||S;J d=[o],2o=[],3S,Y;1B(t&&3S!=t){J r=[];3S=t;t=D.3k(t);J l=Q,3j=6L,m=3j.2D(t);G(m){Y=m[1].2r();R(J i=0;d[i];i++)R(J c=d[i].1x;c;c=c.2H)G(c.16==1&&(Y=="*"||c.Y.2r()==Y))r.1p(c);d=r;t=t.1o(3j,"");G(t.1h(" ")==0)6M;l=M}N{3j=/^([>+~])\\s*(\\w*)/i;G((m=3j.2D(t))!=U){r=[];J k={};Y=m[2].2r();m=m[1];R(J j=0,3i=d.K;j<3i;j++){J n=m=="~"||m=="+"?d[j].2H:d[j].1x;R(;n;n=n.2H)G(n.16==1){J g=D.L(n);G(m=="~"&&k[g])1X;G(!Y||n.Y.2r()==Y){G(m=="~")k[g]=M;r.1p(n)}G(m=="+")1X}}d=r;t=D.3k(t.1o(3j,""));l=M}}G(t&&!l){G(!t.1h(",")){G(o==d[0])d.4s();2o=D.2R(2o,d);r=d=[o];t=" "+t.6v(1,t.K)}N{J h=6J;J m=h.2D(t);G(m){m=[0,m[2],m[3],m[1]]}N{h=6I;m=h.2D(t)}m[2]=m[2].1o(/\\\\/g,"");J f=d[d.K-1];G(m[1]=="#"&&f&&f.61&&!D.4n(f)){J p=f.61(m[2]);G((D.14.1f||D.14.2G)&&p&&1j p.2v=="23"&&p.2v!=m[2])p=D(\'[@2v="\'+m[2]+\'"]\',f)[0];d=r=p&&(!m[3]||D.Y(p,m[3]))?[p]:[]}N{R(J i=0;d[i];i++){J a=m[1]=="#"&&m[3]?m[3]:m[1]!=""||m[0]==""?"*":m[2];G(a=="*"&&d[i].Y.3y()=="49")a="3n";r=D.2R(r,d[i].3H(a))}G(m[1]==".")r=D.5m(r,m[2]);G(m[1]=="#"){J e=[];R(J i=0;r[i];i++)G(r[i].4G("2v")==m[2]){e=[r[i]];1X}r=e}d=r}t=t.1o(h,"")}}G(t){J b=D.1E(t,r);d=r=b.r;t=D.3k(b.t)}}G(t)d=[];G(d&&o==d[0])d.4s();2o=D.2R(2o,d);I 2o},5m:H(r,m,a){m=" "+m+" ";J c=[];R(J i=0;r[i];i++){J b=(" "+r[i].1F+" ").1h(m)>=0;G(!a&&b||a&&!b)c.1p(r[i])}I c},1E:H(t,r,h){J d;1B(t&&t!=d){d=t;J p=D.6x,m;R(J i=0;p[i];i++){m=p[i].2D(t);G(m){t=t.8r(m[0].K);m[2]=m[2].1o(/\\\\/g,"");1X}}G(!m)1X;G(m[1]==":"&&m[2]=="4Y")r=62.11(m[3])?D.1E(m[3],r,M).r:D(r).4Y(m[3]);N G(m[1]==".")r=D.5m(r,m[2],h);N G(m[1]=="["){J g=[],O=m[3];R(J i=0,3i=r.K;i<3i;i++){J a=r[i],z=a[D.3X[m[2]]||m[2]];G(z==U||/5Q|4d|2W/.11(m[2]))z=D.1K(a,m[2])||\'\';G((O==""&&!!z||O=="="&&z==m[5]||O=="!="&&z!=m[5]||O=="^="&&z&&!z.1h(m[5])||O=="$="&&z.6v(z.K-m[5].K)==m[5]||(O=="*="||O=="~=")&&z.1h(m[5])>=0)^h)g.1p(a)}r=g}N G(m[1]==":"&&m[2]=="3a-4u"){J e={},g=[],11=/(-?)(\\d*)n((?:\\+|-)?\\d*)/.2D(m[3]=="6D"&&"2n"||m[3]=="6C"&&"2n+1"||!/\\D/.11(m[3])&&"8q+"+m[3]||m[3]),3o=(11[1]+(11[2]||1))-0,d=11[3]-0;R(J i=0,3i=r.K;i<3i;i++){J j=r[i],1d=j.1d,2v=D.L(1d);G(!e[2v]){J c=1;R(J n=1d.1x;n;n=n.2H)G(n.16==1)n.4q=c++;e[2v]=M}J b=Q;G(3o==0){G(j.4q==d)b=M}N G((j.4q-d)%3o==0&&(j.4q-d)/3o>=0)b=M;G(b^h)g.1p(j)}r=g}N{J f=D.6H[m[1]];G(1j f=="49")f=f[m[2]];G(1j f=="23")f=6u("Q||H(a,i){I "+f+";}");r=D.3C(r,H(a,i){I f(a,i,m,r)},h)}}I{r:r,t:t}},4S:H(b,c){J a=[],1t=b[c];1B(1t&&1t!=S){G(1t.16==1)a.1p(1t);1t=1t[c]}I a},3a:H(a,e,c,b){e=e||1;J d=0;R(;a;a=a[c])G(a.16==1&&++d==e)1X;I a},5v:H(n,a){J r=[];R(;n;n=n.2H){G(n.16==1&&n!=a)r.1p(n)}I r}});D.W={1e:H(f,i,g,e){G(f.16==3||f.16==8)I;G(D.14.1f&&f.4I)f=1b;G(!g.24)g.24=7.24++;G(e!=12){J h=g;g=7.3M(h,H(){I h.1w(7,19)});g.L=e}J j=D.L(f,"3w")||D.L(f,"3w",{}),1H=D.L(f,"1H")||D.L(f,"1H",H(){G(1j D!="12"&&!D.W.5k)I D.W.1H.1w(19.3L.T,19)});1H.T=f;D.P(i.1R(/\\s+/),H(c,b){J a=b.1R(".");b=a[0];g.O=a[1];J d=j[b];G(!d){d=j[b]={};G(!D.W.2t[b]||D.W.2t[b].4p.1k(f)===Q){G(f.3K)f.3K(b,1H,Q);N G(f.6t)f.6t("4o"+b,1H)}}d[g.24]=g;D.W.26[b]=M});f=U},24:1,26:{},21:H(e,h,f){G(e.16==3||e.16==8)I;J i=D.L(e,"3w"),1L,5i;G(i){G(h==12||(1j h=="23"&&h.8p(0)=="."))R(J g 1n i)7.21(e,g+(h||""));N{G(h.O){f=h.2y;h=h.O}D.P(h.1R(/\\s+/),H(b,a){J c=a.1R(".");a=c[0];G(i[a]){G(f)2U i[a][f.24];N R(f 1n i[a])G(!c[1]||i[a][f].O==c[1])2U i[a][f];R(1L 1n i[a])1X;G(!1L){G(!D.W.2t[a]||D.W.2t[a].4A.1k(e)===Q){G(e.6p)e.6p(a,D.L(e,"1H"),Q);N G(e.6n)e.6n("4o"+a,D.L(e,"1H"))}1L=U;2U i[a]}}})}R(1L 1n i)1X;G(!1L){J d=D.L(e,"1H");G(d)d.T=U;D.3b(e,"3w");D.3b(e,"1H")}}},1P:H(h,c,f,g,i){c=D.2d(c);G(h.1h("!")>=0){h=h.3s(0,-1);J a=M}G(!f){G(7.26[h])D("*").1e([1b,S]).1P(h,c)}N{G(f.16==3||f.16==8)I 12;J b,1L,17=D.1D(f[h]||U),W=!c[0]||!c[0].32;G(W){c.6h({O:h,2J:f,32:H(){},3J:H(){},4C:1z()});c[0][E]=M}c[0].O=h;G(a)c[0].6m=M;J d=D.L(f,"1H");G(d)b=d.1w(f,c);G((!17||(D.Y(f,\'a\')&&h=="4V"))&&f["4o"+h]&&f["4o"+h].1w(f,c)===Q)b=Q;G(W)c.4s();G(i&&D.1D(i)){1L=i.1w(f,b==U?c:c.7d(b));G(1L!==12)b=1L}G(17&&g!==Q&&b!==Q&&!(D.Y(f,\'a\')&&h=="4V")){7.5k=M;1U{f[h]()}1V(e){}}7.5k=Q}I b},1H:H(b){J a,1L,38,5f,4m;b=19[0]=D.W.6l(b||1b.W);38=b.O.1R(".");b.O=38[0];38=38[1];5f=!38&&!b.6m;4m=(D.L(7,"3w")||{})[b.O];R(J j 1n 4m){J c=4m[j];G(5f||c.O==38){b.2y=c;b.L=c.L;1L=c.1w(7,19);G(a!==Q)a=1L;G(1L===Q){b.32();b.3J()}}}I a},6l:H(b){G(b[E]==M)I b;J d=b;b={8o:d};J c="8n 8m 8l 8k 2s 8j 47 5d 6j 5E 8i L 8h 8g 4K 2y 5a 59 8e 8b 58 6f 8a 88 4k 87 86 84 6d 2J 4C 6c O 82 81 35".1R(" ");R(J i=c.K;i;i--)b[c[i]]=d[c[i]];b[E]=M;b.32=H(){G(d.32)d.32();d.80=Q};b.3J=H(){G(d.3J)d.3J();d.7Z=M};b.4C=b.4C||1z();G(!b.2J)b.2J=b.6d||S;G(b.2J.16==3)b.2J=b.2J.1d;G(!b.4k&&b.4K)b.4k=b.4K==b.2J?b.6c:b.4K;G(b.58==U&&b.5d!=U){J a=S.1C,1c=S.1c;b.58=b.5d+(a&&a.2e||1c&&1c.2e||0)-(a.6b||0);b.6f=b.6j+(a&&a.2c||1c&&1c.2c||0)-(a.6a||0)}G(!b.35&&((b.47||b.47===0)?b.47:b.5a))b.35=b.47||b.5a;G(!b.59&&b.5E)b.59=b.5E;G(!b.35&&b.2s)b.35=(b.2s&1?1:(b.2s&2?3:(b.2s&4?2:0)));I b},3M:H(a,b){b.24=a.24=a.24||b.24||7.24++;I b},2t:{27:{4p:H(){55();I},4A:H(){I}},3D:{4p:H(){G(D.14.1f)I Q;D(7).2O("53",D.W.2t.3D.2y);I M},4A:H(){G(D.14.1f)I Q;D(7).4e("53",D.W.2t.3D.2y);I M},2y:H(a){G(F(a,7))I M;a.O="3D";I D.W.1H.1w(7,19)}},3N:{4p:H(){G(D.14.1f)I Q;D(7).2O("51",D.W.2t.3N.2y);I M},4A:H(){G(D.14.1f)I Q;D(7).4e("51",D.W.2t.3N.2y);I M},2y:H(a){G(F(a,7))I M;a.O="3N";I D.W.1H.1w(7,19)}}}};D.17.1l({2O:H(c,a,b){I c=="4X"?7.2V(c,a,b):7.P(H(){D.W.1e(7,c,b||a,b&&a)})},2V:H(d,b,c){J e=D.W.3M(c||b,H(a){D(7).4e(a,e);I(c||b).1w(7,19)});I 7.P(H(){D.W.1e(7,d,e,c&&b)})},4e:H(a,b){I 7.P(H(){D.W.21(7,a,b)})},1P:H(c,a,b){I 7.P(H(){D.W.1P(c,a,7,M,b)})},5C:H(c,a,b){I 7[0]&&D.W.1P(c,a,7[0],Q,b)},2m:H(b){J c=19,i=1;1B(i=0){J i=g.3s(e,g.K);g=g.3s(0,e)}c=c||H(){};J f="2P";G(d)G(D.1D(d)){c=d;d=U}N{d=D.3n(d);f="6g"}J h=7;D.3Y({1a:g,O:f,1O:"2K",L:d,1J:H(a,b){G(b=="1W"||b=="7J")h.2K(i?D("<1v/>").3v(a.4U.1o(/<1m(.|\\s)*?\\/1m>/g,"")).2q(i):a.4U);h.P(c,[a.4U,b,a])}});I 7},aL:H(){I D.3n(7.7I())},7I:H(){I 7.2l(H(){I D.Y(7,"3V")?D.2d(7.aH):7}).1E(H(){I 7.34&&!7.3R&&(7.4J||/2A|6y/i.11(7.Y)||/1r|1G|3Q/i.11(7.O))}).2l(H(i,c){J b=D(7).6e();I b==U?U:b.1q==2p?D.2l(b,H(a,i){I{34:c.34,2x:a}}):{34:c.34,2x:b}}).3p()}});D.P("7H,7G,7F,7D,7C,7B".1R(","),H(i,o){D.17[o]=H(f){I 7.2O(o,f)}});J B=1z();D.1l({3p:H(d,b,a,c){G(D.1D(b)){a=b;b=U}I D.3Y({O:"2P",1a:d,L:b,1W:a,1O:c})},aE:H(b,a){I D.3p(b,U,a,"1m")},aD:H(c,b,a){I D.3p(c,b,a,"3z")},aC:H(d,b,a,c){G(D.1D(b)){a=b;b={}}I D.3Y({O:"6g",1a:d,L:b,1W:a,1O:c})},aA:H(a){D.1l(D.60,a)},60:{1a:5Z.5Q,26:M,O:"2P",2T:0,7z:"4R/x-ax-3V-aw",7x:M,31:M,L:U,5Y:U,3Q:U,4Q:{2N:"4R/2N, 1r/2N",2K:"1r/2K",1m:"1r/4t, 4R/4t",3z:"4R/3z, 1r/4t",1r:"1r/as",4w:"*/*"}},4z:{},3Y:H(s){s=D.1l(M,s,D.1l(M,{},D.60,s));J g,2Z=/=\\?(&|$)/g,1u,L,O=s.O.2r();G(s.L&&s.7x&&1j s.L!="23")s.L=D.3n(s.L);G(s.1O=="4P"){G(O=="2P"){G(!s.1a.1I(2Z))s.1a+=(s.1a.1I(/\\?/)?"&":"?")+(s.4P||"7u")+"=?"}N G(!s.L||!s.L.1I(2Z))s.L=(s.L?s.L+"&":"")+(s.4P||"7u")+"=?";s.1O="3z"}G(s.1O=="3z"&&(s.L&&s.L.1I(2Z)||s.1a.1I(2Z))){g="4P"+B++;G(s.L)s.L=(s.L+"").1o(2Z,"="+g+"$1");s.1a=s.1a.1o(2Z,"="+g+"$1");s.1O="1m";1b[g]=H(a){L=a;1W();1J();1b[g]=12;1U{2U 1b[g]}1V(e){}G(i)i.37(h)}}G(s.1O=="1m"&&s.1Y==U)s.1Y=Q;G(s.1Y===Q&&O=="2P"){J j=1z();J k=s.1a.1o(/(\\?|&)3m=.*?(&|$)/,"$ap="+j+"$2");s.1a=k+((k==s.1a)?(s.1a.1I(/\\?/)?"&":"?")+"3m="+j:"")}G(s.L&&O=="2P"){s.1a+=(s.1a.1I(/\\?/)?"&":"?")+s.L;s.L=U}G(s.26&&!D.4O++)D.W.1P("7H");J n=/^(?:\\w+:)?\\/\\/([^\\/?#]+)/;G(s.1O=="1m"&&O=="2P"&&n.11(s.1a)&&n.2D(s.1a)[1]!=5Z.al){J i=S.3H("6w")[0];J h=S.3h("1m");h.4d=s.1a;G(s.7t)h.aj=s.7t;G(!g){J l=Q;h.ah=h.ag=H(){G(!l&&(!7.3f||7.3f=="68"||7.3f=="1J")){l=M;1W();1J();i.37(h)}}}i.3U(h);I 12}J m=Q;J c=1b.7s?2B 7s("ae.ac"):2B 7r();G(s.5Y)c.6R(O,s.1a,s.31,s.5Y,s.3Q);N c.6R(O,s.1a,s.31);1U{G(s.L)c.4B("ab-aa",s.7z);G(s.5S)c.4B("a9-5R-a8",D.4z[s.1a]||"a7, a6 a5 a4 5N:5N:5N a2");c.4B("X-9Z-9Y","7r");c.4B("9W",s.1O&&s.4Q[s.1O]?s.4Q[s.1O]+", */*":s.4Q.4w)}1V(e){}G(s.7m&&s.7m(c,s)===Q){s.26&&D.4O--;c.7l();I Q}G(s.26)D.W.1P("7B",[c,s]);J d=H(a){G(!m&&c&&(c.3f==4||a=="2T")){m=M;G(f){7k(f);f=U}1u=a=="2T"&&"2T"||!D.7j(c)&&"3e"||s.5S&&D.7h(c,s.1a)&&"7J"||"1W";G(1u=="1W"){1U{L=D.6X(c,s.1O,s.9S)}1V(e){1u="5J"}}G(1u=="1W"){J b;1U{b=c.5I("7g-5R")}1V(e){}G(s.5S&&b)D.4z[s.1a]=b;G(!g)1W()}N D.5H(s,c,1u);1J();G(s.31)c=U}};G(s.31){J f=4I(d,13);G(s.2T>0)3B(H(){G(c){c.7l();G(!m)d("2T")}},s.2T)}1U{c.9P(s.L)}1V(e){D.5H(s,c,U,e)}G(!s.31)d();H 1W(){G(s.1W)s.1W(L,1u);G(s.26)D.W.1P("7C",[c,s])}H 1J(){G(s.1J)s.1J(c,1u);G(s.26)D.W.1P("7F",[c,s]);G(s.26&&!--D.4O)D.W.1P("7G")}I c},5H:H(s,a,b,e){G(s.3e)s.3e(a,b,e);G(s.26)D.W.1P("7D",[a,s,e])},4O:0,7j:H(a){1U{I!a.1u&&5Z.9O=="5p:"||(a.1u>=7e&&a.1u<9N)||a.1u==7c||a.1u==9K||D.14.2k&&a.1u==12}1V(e){}I Q},7h:H(a,c){1U{J b=a.5I("7g-5R");I a.1u==7c||b==D.4z[c]||D.14.2k&&a.1u==12}1V(e){}I Q},6X:H(a,c,b){J d=a.5I("9J-O"),2N=c=="2N"||!c&&d&&d.1h("2N")>=0,L=2N?a.9I:a.4U;G(2N&&L.1C.2j=="5J")7p"5J";G(b)L=b(L,c);G(c=="1m")D.5u(L);G(c=="3z")L=6u("("+L+")");I L},3n:H(a){J s=[];G(a.1q==2p||a.5w)D.P(a,H(){s.1p(3u(7.34)+"="+3u(7.2x))});N R(J j 1n a)G(a[j]&&a[j].1q==2p)D.P(a[j],H(){s.1p(3u(j)+"="+3u(7))});N s.1p(3u(j)+"="+3u(D.1D(a[j])?a[j]():a[j]));I s.6s("&").1o(/%20/g,"+")}});D.17.1l({1N:H(c,b){I c?7.2g({1Z:"1N",2h:"1N",1y:"1N"},c,b):7.1E(":1G").P(H(){7.V.18=7.5D||"";G(D.1g(7,"18")=="2F"){J a=D("<"+7.2j+" />").6P("1c");7.V.18=a.1g("18");G(7.V.18=="2F")7.V.18="3I";a.21()}}).3l()},1M:H(b,a){I b?7.2g({1Z:"1M",2h:"1M",1y:"1M"},b,a):7.1E(":4j").P(H(){7.5D=7.5D||D.1g(7,"18");7.V.18="2F"}).3l()},78:D.17.2m,2m:H(a,b){I D.1D(a)&&D.1D(b)?7.78.1w(7,19):a?7.2g({1Z:"2m",2h:"2m",1y:"2m"},a,b):7.P(H(){D(7)[D(7).3F(":1G")?"1N":"1M"]()})},9G:H(b,a){I 7.2g({1Z:"1N"},b,a)},9F:H(b,a){I 7.2g({1Z:"1M"},b,a)},9E:H(b,a){I 7.2g({1Z:"2m"},b,a)},9D:H(b,a){I 7.2g({1y:"1N"},b,a)},9M:H(b,a){I 7.2g({1y:"1M"},b,a)},9C:H(c,a,b){I 7.2g({1y:a},c,b)},2g:H(k,j,i,g){J h=D.77(j,i,g);I 7[h.36===Q?"P":"36"](H(){G(7.16!=1)I Q;J f=D.1l({},h),p,1G=D(7).3F(":1G"),46=7;R(p 1n k){G(k[p]=="1M"&&1G||k[p]=="1N"&&!1G)I f.1J.1k(7);G(p=="1Z"||p=="2h"){f.18=D.1g(7,"18");f.33=7.V.33}}G(f.33!=U)7.V.33="1G";f.45=D.1l({},k);D.P(k,H(c,a){J e=2B D.28(46,f,c);G(/2m|1N|1M/.11(a))e[a=="2m"?1G?"1N":"1M":a](k);N{J b=a.6r().1I(/^([+-]=)?([\\d+-.]+)(.*)$/),2b=e.1t(M)||0;G(b){J d=3d(b[2]),2M=b[3]||"2X";G(2M!="2X"){46.V[c]=(d||1)+2M;2b=((d||1)/e.1t(M))*2b;46.V[c]=2b+2M}G(b[1])d=((b[1]=="-="?-1:1)*d)+2b;e.3G(2b,d,2M)}N e.3G(2b,a,"")}});I M})},36:H(a,b){G(D.1D(a)||(a&&a.1q==2p)){b=a;a="28"}G(!a||(1j a=="23"&&!b))I A(7[0],a);I 7.P(H(){G(b.1q==2p)A(7,a,b);N{A(7,a).1p(b);G(A(7,a).K==1)b.1k(7)}})},9X:H(b,c){J a=D.3O;G(b)7.36([]);7.P(H(){R(J i=a.K-1;i>=0;i--)G(a[i].T==7){G(c)a[i](M);a.7n(i,1)}});G(!c)7.5A();I 7}});J A=H(b,c,a){G(b){c=c||"28";J q=D.L(b,c+"36");G(!q||a)q=D.L(b,c+"36",D.2d(a))}I q};D.17.5A=H(a){a=a||"28";I 7.P(H(){J q=A(7,a);q.4s();G(q.K)q[0].1k(7)})};D.1l({77:H(b,a,c){J d=b&&b.1q==a0?b:{1J:c||!c&&a||D.1D(b)&&b,2u:b,41:c&&a||a&&a.1q!=9t&&a};d.2u=(d.2u&&d.2u.1q==4L?d.2u:D.28.5K[d.2u])||D.28.5K.74;d.5M=d.1J;d.1J=H(){G(d.36!==Q)D(7).5A();G(D.1D(d.5M))d.5M.1k(7)};I d},41:{73:H(p,n,b,a){I b+a*p},5P:H(p,n,b,a){I((-29.9r(p*29.9q)/2)+0.5)*a+b}},3O:[],48:U,28:H(b,c,a){7.15=c;7.T=b;7.1i=a;G(!c.3Z)c.3Z={}}});D.28.44={4D:H(){G(7.15.2Y)7.15.2Y.1k(7.T,7.1z,7);(D.28.2Y[7.1i]||D.28.2Y.4w)(7);G(7.1i=="1Z"||7.1i=="2h")7.T.V.18="3I"},1t:H(a){G(7.T[7.1i]!=U&&7.T.V[7.1i]==U)I 7.T[7.1i];J r=3d(D.1g(7.T,7.1i,a));I r&&r>-9p?r:3d(D.2a(7.T,7.1i))||0},3G:H(c,b,d){7.5V=1z();7.2b=c;7.3l=b;7.2M=d||7.2M||"2X";7.1z=7.2b;7.2S=7.4N=0;7.4D();J e=7;H t(a){I e.2Y(a)}t.T=7.T;D.3O.1p(t);G(D.48==U){D.48=4I(H(){J a=D.3O;R(J i=0;i7.15.2u+7.5V){7.1z=7.3l;7.2S=7.4N=1;7.4D();7.15.45[7.1i]=M;J b=M;R(J i 1n 7.15.45)G(7.15.45[i]!==M)b=Q;G(b){G(7.15.18!=U){7.T.V.33=7.15.33;7.T.V.18=7.15.18;G(D.1g(7.T,"18")=="2F")7.T.V.18="3I"}G(7.15.1M)7.T.V.18="2F";G(7.15.1M||7.15.1N)R(J p 1n 7.15.45)D.1K(7.T.V,p,7.15.3Z[p])}G(b)7.15.1J.1k(7.T);I Q}N{J n=t-7.5V;7.4N=n/7.15.2u;7.2S=D.41[7.15.41||(D.41.5P?"5P":"73")](7.4N,n,0,1,7.15.2u);7.1z=7.2b+((7.3l-7.2b)*7.2S);7.4D()}I M}};D.1l(D.28,{5K:{9l:9j,9i:7e,74:9g},2Y:{2e:H(a){a.T.2e=a.1z},2c:H(a){a.T.2c=a.1z},1y:H(a){D.1K(a.T.V,"1y",a.1z)},4w:H(a){a.T.V[a.1i]=a.1z+a.2M}}});D.17.2i=H(){J b=0,1S=0,T=7[0],3q;G(T)ao(D.14){J d=T.1d,4a=T,1s=T.1s,1Q=T.2z,5U=2k&&3r(5B)<9c&&!/9a/i.11(v),1g=D.2a,3c=1g(T,"30")=="3c";G(T.7y){J c=T.7y();1e(c.1A+29.2f(1Q.1C.2e,1Q.1c.2e),c.1S+29.2f(1Q.1C.2c,1Q.1c.2c));1e(-1Q.1C.6b,-1Q.1C.6a)}N{1e(T.5X,T.5W);1B(1s){1e(1s.5X,1s.5W);G(42&&!/^t(98|d|h)$/i.11(1s.2j)||2k&&!5U)2C(1s);G(!3c&&1g(1s,"30")=="3c")3c=M;4a=/^1c$/i.11(1s.2j)?4a:1s;1s=1s.1s}1B(d&&d.2j&&!/^1c|2K$/i.11(d.2j)){G(!/^96|1T.*$/i.11(1g(d,"18")))1e(-d.2e,-d.2c);G(42&&1g(d,"33")!="4j")2C(d);d=d.1d}G((5U&&(3c||1g(4a,"30")=="5x"))||(42&&1g(4a,"30")!="5x"))1e(-1Q.1c.5X,-1Q.1c.5W);G(3c)1e(29.2f(1Q.1C.2e,1Q.1c.2e),29.2f(1Q.1C.2c,1Q.1c.2c))}3q={1S:1S,1A:b}}H 2C(a){1e(D.2a(a,"6V",M),D.2a(a,"6U",M))}H 1e(l,t){b+=3r(l,10)||0;1S+=3r(t,10)||0}I 3q};D.17.1l({30:H(){J a=0,1S=0,3q;G(7[0]){J b=7.1s(),2i=7.2i(),4c=/^1c|2K$/i.11(b[0].2j)?{1S:0,1A:0}:b.2i();2i.1S-=25(7,\'94\');2i.1A-=25(7,\'aF\');4c.1S+=25(b,\'6U\');4c.1A+=25(b,\'6V\');3q={1S:2i.1S-4c.1S,1A:2i.1A-4c.1A}}I 3q},1s:H(){J a=7[0].1s;1B(a&&(!/^1c|2K$/i.11(a.2j)&&D.1g(a,\'30\')==\'93\'))a=a.1s;I D(a)}});D.P([\'5e\',\'5G\'],H(i,b){J c=\'4y\'+b;D.17[c]=H(a){G(!7[0])I;I a!=12?7.P(H(){7==1b||7==S?1b.92(!i?a:D(1b).2e(),i?a:D(1b).2c()):7[c]=a}):7[0]==1b||7[0]==S?46[i?\'aI\':\'aJ\']||D.71&&S.1C[c]||S.1c[c]:7[0][c]}});D.P(["6N","4b"],H(i,b){J c=i?"5e":"5G",4f=i?"6k":"6i";D.17["5s"+b]=H(){I 7[b.3y()]()+25(7,"57"+c)+25(7,"57"+4f)};D.17["90"+b]=H(a){I 7["5s"+b]()+25(7,"2C"+c+"4b")+25(7,"2C"+4f+"4b")+(a?25(7,"6S"+c)+25(7,"6S"+4f):0)}})})();',62,669,'|||||||this|||||||||||||||||||||||||||||||||||if|function|return|var|length|data|true|else|type|each|false|for|document|elem|null|style|event||nodeName|||test|undefined||browser|options|nodeType|fn|display|arguments|url|window|body|parentNode|add|msie|css|indexOf|prop|typeof|call|extend|script|in|replace|push|constructor|text|offsetParent|cur|status|div|apply|firstChild|opacity|now|left|while|documentElement|isFunction|filter|className|hidden|handle|match|complete|attr|ret|hide|show|dataType|trigger|doc|split|top|table|try|catch|success|break|cache|height||remove|tbody|string|guid|num|global|ready|fx|Math|curCSS|start|scrollTop|makeArray|scrollLeft|max|animate|width|offset|tagName|safari|map|toggle||done|Array|find|toUpperCase|button|special|duration|id|copy|value|handler|ownerDocument|select|new|border|exec|stack|none|opera|nextSibling|pushStack|target|html|inArray|unit|xml|bind|GET|isReady|merge|pos|timeout|delete|one|selected|px|step|jsre|position|async|preventDefault|overflow|name|which|queue|removeChild|namespace|insertBefore|nth|removeData|fixed|parseFloat|error|readyState|multiFilter|createElement|rl|re|trim|end|_|param|first|get|results|parseInt|slice|childNodes|encodeURIComponent|append|events|elems|toLowerCase|json|readyList|setTimeout|grep|mouseenter|color|is|custom|getElementsByTagName|block|stopPropagation|addEventListener|callee|proxy|mouseleave|timers|defaultView|password|disabled|last|has|appendChild|form|domManip|props|ajax|orig|set|easing|mozilla|load|prototype|curAnim|self|charCode|timerId|object|offsetChild|Width|parentOffset|src|unbind|br|currentStyle|clean|float|visible|relatedTarget|previousSibling|handlers|isXMLDoc|on|setup|nodeIndex|unique|shift|javascript|child|RegExp|_default|deep|scroll|lastModified|teardown|setRequestHeader|timeStamp|update|empty|tr|getAttribute|innerHTML|setInterval|checked|fromElement|Number|jQuery|state|active|jsonp|accepts|application|dir|input|responseText|click|styleSheets|unload|not|lastToggle|outline|mouseout|getPropertyValue|mouseover|getComputedStyle|bindReady|String|padding|pageX|metaKey|keyCode|getWH|andSelf|clientX|Left|all|visibility|container|index|init|triggered|removeAttribute|classFilter|prevObject|submit|file|after|windowData|inner|client|globalEval|sibling|jquery|absolute|clone|wrapAll|dequeue|version|triggerHandler|oldblock|ctrlKey|createTextNode|Top|handleError|getResponseHeader|parsererror|speeds|checkbox|old|00|radio|swing|href|Modified|ifModified|lastChild|safari2|startTime|offsetTop|offsetLeft|username|location|ajaxSettings|getElementById|isSimple|values|selectedIndex|runtimeStyle|rsLeft|_load|loaded|DOMContentLoaded|clientTop|clientLeft|toElement|srcElement|val|pageY|POST|unshift|Bottom|clientY|Right|fix|exclusive|detachEvent|cloneNode|removeEventListener|swap|toString|join|attachEvent|eval|substr|head|parse|textarea|reset|image|zoom|odd|even|before|prepend|exclude|expr|quickClass|quickID|uuid|quickChild|continue|Height|textContent|appendTo|contents|open|margin|evalScript|borderTopWidth|borderLeftWidth|parent|httpData|setArray|CSS1Compat|compatMode|boxModel|cssFloat|linear|def|webkit|nodeValue|speed|_toggle|eq|100|replaceWith|304|concat|200|alpha|Last|httpNotModified|getAttributeNode|httpSuccess|clearInterval|abort|beforeSend|splice|styleFloat|throw|colgroup|XMLHttpRequest|ActiveXObject|scriptCharset|callback|fieldset|multiple|processData|getBoundingClientRect|contentType|link|ajaxSend|ajaxSuccess|ajaxError|col|ajaxComplete|ajaxStop|ajaxStart|serializeArray|notmodified|keypress|keydown|change|mouseup|mousedown|dblclick|focus|blur|stylesheet|hasClass|rel|doScroll|black|hover|solid|cancelBubble|returnValue|wheelDelta|view|round|shiftKey|resize|screenY|screenX|relatedNode|mousemove|prevValue|originalTarget|offsetHeight|keyup|newValue|offsetWidth|eventPhase|detail|currentTarget|cancelable|bubbles|attrName|attrChange|altKey|originalEvent|charAt|0n|substring|animated|header|noConflict|line|enabled|innerText|contains|only|weight|font|gt|lt|uFFFF|u0128|size|417|Boolean|Date|toggleClass|removeClass|addClass|removeAttr|replaceAll|insertAfter|prependTo|wrap|contentWindow|contentDocument|iframe|children|siblings|prevAll|wrapInner|nextAll|outer|prev|scrollTo|static|marginTop|next|inline|parents|able|cellSpacing|adobeair|cellspacing|522|maxLength|maxlength|readOnly|400|readonly|fast|600|class|slow|1px|htmlFor|reverse|10000|PI|cos|compatible|Function|setData|ie|ra|it|rv|getData|userAgent|navigator|fadeTo|fadeIn|slideToggle|slideUp|slideDown|ig|responseXML|content|1223|NaN|fadeOut|300|protocol|send|setAttribute|option|dataFilter|cssText|changed|be|Accept|stop|With|Requested|Object|can|GMT|property|1970|Jan|01|Thu|Since|If|Type|Content|XMLHTTP|th|Microsoft|td|onreadystatechange|onload|cap|charset|colg|host|tfoot|specified|with|1_|thead|leg|plain|attributes|opt|embed|urlencoded|www|area|hr|ajaxSetup|meta|post|getJSON|getScript|marginLeft|img|elements|pageYOffset|pageXOffset|abbr|serialize|pixelLeft'.split('|'),0,{}))
\ No newline at end of file
diff --git a/modules/lemonldap-ng-manager/example/sessions.pl b/modules/lemonldap-ng-manager/example/sessions.pl
new file mode 100644
index 000000000..a7125b8f3
--- /dev/null
+++ b/modules/lemonldap-ng-manager/example/sessions.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+
+use Lemonldap::NG::Manager::Sessions;
+
+our $cgi = Lemonldap::NG::Manager::Sessions->new({
+ localStorage => "Cache::FileCache",
+ localStorageOptions => {
+ 'namespace' => 'MyNamespace',
+ 'default_expires_in' => 600,
+ 'directory_umask' => '007',
+ 'cache_root' => '/tmp',
+ 'cache_depth' => 5,
+ },
+ configStorage => $Lemonldap::NG::Conf::configStorage,
+ https => 1,
+ jqueryUri => 'jquery.js',
+ imagePath => 'images/',
+});
+
+$cgi->process();
diff --git a/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager.pm b/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager.pm
index e5e21f554..698e68095 100644
--- a/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager.pm
+++ b/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager.pm
@@ -17,7 +17,7 @@ use MIME::Base64;
our @ISA = qw(Lemonldap::NG::Manager::Base);
-our $VERSION = '0.86';
+our $VERSION = '0.87';
sub new {
my ( $class, $args ) = @_;
diff --git a/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Sessions.pm b/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Sessions.pm
new file mode 100755
index 000000000..92d2fb3ee
--- /dev/null
+++ b/modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Sessions.pm
@@ -0,0 +1,1224 @@
+package Lemonldap::NG::Manager::Sessions;
+
+use strict;
+use Lemonldap::NG::Handler::CGI qw(:globalStorage :locationRules);
+use Storable qw(nfreeze thaw);
+
+our $VERSION = '0.1';
+
+our @ISA = qw(Lemonldap::NG::Handler::CGI);
+
+# Cleaner for Lemonldap::NG : removes old sessions from Apache::Session
+#
+# This module is written to be used by cron to clean old sessions from
+# Apache::Session.
+
+BEGIN {
+
+ sub Apache::Session::get_key_from_all_sessions {
+ return 0;
+ }
+
+ sub Apache::Session::MySQL::get_key_from_all_sessions {
+ my $class = shift;
+ my $args = shift;
+ my $data = shift;
+ my $dbh =
+ DBI->connect( $args->{DataSource}, $args->{UserName},
+ $args->{Password} )
+ or die("$!$@");
+ my $sth = $dbh->prepare('SELECT id,a_session from sessions');
+ $sth->execute;
+ my %res;
+ while ( my @row = $sth->fetchrow_array ) {
+ if ( ref($data) eq 'CODE' ) {
+ $res{ $row[0] }->{$_} = &$data( thaw( $row[1] ), $row[0] );
+ }
+ elsif ($data) {
+ $data = [$data] unless ( ref($data) );
+ my $tmp = thaw( $row[1] );
+ $res{ $row[0] }->{$_} = $tmp->{$_} foreach (@$data);
+ }
+ else {
+ $res{ $row[0] } = thaw( $row[1] );
+ }
+ }
+ return \%res;
+ }
+
+ *Apache::Session::Postgres::get_key_from_all_sessions =
+ \&Apache::Session::MySQL::get_key_from_all_sessions;
+ *Apache::Session::Oracle::get_key_from_all_sessions =
+ \&Apache::Session::MySQL::get_key_from_all_sessions;
+ *Apache::Session::Sybase::get_key_from_all_sessions =
+ \&Apache::Session::MySQL::get_key_from_all_sessions;
+ *Apache::Session::Informix::get_key_from_all_sessions =
+ \&Apache::Session::MySQL::get_key_from_all_sessions;
+
+ sub Apache::Session::File::get_key_from_all_sessions {
+ my $class = shift;
+ my $args = shift;
+ my $data = shift;
+ $args->{Directory} ||= '/tmp';
+ unless ( opendir DIR, $args->{Directory} ) {
+ die "Cannot open directory $args->{Directory}\n";
+ }
+ my @t =
+ grep { -f "$args->{Directory}/$_" and /^[A-Za-z0-9@\-]+$/ }
+ readdir(DIR);
+ closedir DIR;
+ my %res;
+ for my $f (@t) {
+ open F, "$args->{Directory}/$f";
+ my $row = join '', ;
+ if ( ref($data) eq 'CODE' ) {
+ $res{$f}->{$_} = &$data( thaw($row), $f );
+ }
+ elsif ($data) {
+ $data = [$data] unless ( ref($data) );
+ my $tmp = thaw($row);
+ $res{$f}->{$_} = $tmp->{$_} foreach (@$data);
+ }
+ else {
+ $res{$f} = thaw($row);
+ }
+ }
+ return \%res;
+ }
+
+ sub Apache::Session::DB_File::get_key_from_all_sessions {
+ my $class = shift;
+ my $args = shift;
+
+ if ( !tied %{ $class->{dbm} } ) {
+ my $rv = tie %{ $class->{dbm} }, 'DB_File', $args->{FileName};
+
+ if ( !$rv ) {
+ die "Could not open dbm file " . $args->{FileName} . ": $!";
+ }
+ }
+ return keys( %{ $class->{dbm} } );
+ }
+}
+
+sub new {
+ my ( $class, $args ) = @_;
+ my $self = $class->SUPER::new($args)
+ or _abort( 'Unable to start ' . __PACKAGE__, 'See Apache logs for more' );
+ foreach (qw(jqueryUri jquerySimpleTreeUri personnalCss imagePath)) {
+ $self->{$_} = $args->{$_}; # or print STDERR "Warning, $_ is not set, falling to default value\n";
+ }
+ eval "use $globalStorage";
+ _abort( "Unable to load $globalStorage", $@ ) if ($@);
+ return $self;
+}
+
+sub _abort {
+ my $cgi = CGI->new;
+ my ( $t1, $t2 ) = @_;
+ print $cgi->header('text/html; charset=utf8');
+ print $cgi->start_html(
+ -title => $t1,
+ -encoding => 'utf8',
+ );
+ print "$t1
";
+ print "$t2
";
+ exit;
+}
+
+sub process {
+ my $self = shift;
+
+ if ( $ENV{PATH_INFO} eq "/css" ) {
+ print $self->header(
+ '-Cache-Control' => 'public',
+ -type => 'text/css',
+ );
+ $self->css;
+ exit;
+ }
+ elsif ( $ENV{PATH_INFO} eq "/js" ) {
+ print $self->header(
+ '-Cache-Control' => 'public',
+ -type => 'text/javascript',
+ );
+ $self->js;
+ exit;
+ }
+
+ # Protection
+ $self->authenticate();
+ if ( $self->{protection} ) {
+ if ( $self->{protection} =~ /^manager$/i ) {
+ $self->authorize();
+ }
+ elsif ( $self->{protection} =~ /rule\s*:\s*(.*)\s*$/i ) {
+ my $rule = $1;
+ $rule =~ s/\$date/&POSIX::strftime("%Y%m%d%H%M%S",localtime())/e;
+ $rule =~ s/\$(\w+)/\$datas->{$1}/g;
+ my $r;
+ unless ( $safe->reval($rule) ) {
+ _abort( 'Forbidden',
+ "You don't have rights to access this page" );
+ }
+ }
+ else {
+ _abort( 'Bad configuration',
+ "The rule $self->{protection}
is not known" );
+ }
+ }
+
+ # Beginning of the job
+
+ # User connected from more than 1 IP
+ if ( $self->param('doubleIp') ) {
+ my ( $byUid, $byIp );
+ $globalStorage->get_key_from_all_sessions(
+ $globalStorageOptions,
+ sub {
+ my $entry = shift;
+ my $id = shift;
+ push @{ $byUid->{ $entry->{uid} }->{ $entry->{ipAddr} } },
+ { id => $id, _utime => $entry->{_utime} };
+ undef;
+ }
+ );
+ $self->start('Sessions multi-IP');
+ $self->window("Sessions multi-IP");
+ foreach my $uid (
+ sort { ( keys %{ $byUid->{$b} } ) <=> ( keys %{ $byUid->{$a} } ) }
+ keys %$byUid
+ )
+ {
+ last if ( ( keys %{ $byUid->{$uid} } ) == 1 );
+ print "$uid";
+ foreach my $ip ( sort keys %{ $byUid->{$uid} } ) {
+ print "- $ip
";
+ foreach my $session ( @{ $byUid->{$uid}->{$ip} } ) {
+ print "- {id}');\">"
+ . localtime( $session->{_utime} )
+ . "
";
+ }
+ print "
";
+ }
+ print "
";
+ }
+ $self->end();
+ }
+
+ # Request for IP addresses
+ elsif ( my $req = $self->param('fullip') ) {
+ my $byUid;
+ my $reip = quotemeta($req);
+ $reip =~ s/\\\*/\.\*/g;
+ $globalStorage->get_key_from_all_sessions(
+ $globalStorageOptions,
+ sub {
+ my $entry = shift;
+ my $id = shift;
+ if ( $entry->{ipAddr} =~ /^$reip$/ ) {
+ push @{ $byUid->{ $entry->{ipAddr} }->{ $entry->{uid} } },
+ { id => $id, _utime => $entry->{_utime} };
+ }
+ undef;
+ }
+ );
+ $self->start("IP : $req");
+ $self->window("$req");
+ foreach my $ip ( sort keys %$byUid ) {
+ print "$ip";
+ foreach my $uid ( sort keys %{ $byUid->{$ip} } ) {
+ $self->ajaxNode(
+ $uid,
+ $uid
+ . (
+ @{ $byUid->{$ip}->{$uid} } > 1
+ ? " ("
+ . @{ $byUid->{$ip}->{$uid} }
+ . " sessions)"
+ : ''
+ ),
+ "uid=$uid"
+ );
+ }
+ print "
";
+ }
+ $self->end();
+ }
+
+ # Request for users
+ elsif ( my $req = $self->param('fulluid') ) {
+ my $byUid;
+ my $reuser = quotemeta($req);
+ $reuser =~ s/\\\*/\.\*/g;
+ $globalStorage->get_key_from_all_sessions(
+ $globalStorageOptions,
+ sub {
+ my $entry = shift;
+ my $id = shift;
+ if ( $entry->{uid} =~ /^$reuser$/ ) {
+ push @{ $byUid->{ $entry->{uid} } },
+ { id => $id, _utime => $entry->{_utime} };
+ }
+ undef;
+ }
+ );
+ $self->start("Users : $req");
+ $self->window("$req");
+ foreach my $uid ( sort keys %$byUid ) {
+ $self->ajaxNode(
+ $uid,
+ $uid
+ . (
+ @{ $byUid->{$uid} } > 1
+ ? " ("
+ . @{ $byUid->{$uid} }
+ . " sessions)"
+ : ''
+ ),
+ "uid=$uid"
+ );
+ }
+ $self->end();
+ }
+
+ # Ajax request to delete a session
+ elsif ( my $id = $self->param('delete') ) {
+ my %h;
+ print $self->header( -type => 'text/html; charset=utf8' );
+ eval { tie %h, $globalStorage, $id, $globalStorageOptions; };
+ if ($@) {
+ print "Error : $@\n";
+ }
+ else {
+ my $uid = $h{uid};
+ eval { tied(%h)->delete(); };
+ if ($@) {
+ print "Error : $@\n";
+ }
+ else {
+ print "Session effacée ($uid)";
+ }
+
+ }
+ }
+
+ # Ajax request to dump a session
+ elsif ( my $id = ( $self->param('session') || $self->param('id') ) ) {
+ my %h;
+ print $self->header( -type => 'text/html; charset=utf8' );
+ eval { tie %h, $globalStorage, $id, $globalStorageOptions; };
+ if ($@) {
+ print "Error : $@\n";
+ }
+ else {
+ print
+"Session démarrée le "
+ . localtime( $h{_utime} )
+ . '
Membre des groupes SSO :
';
+ print "- $_
" foreach ( split /\s+/, $h{groups} );
+ print '
';
+ print
+'Attributs et macros :
';
+ foreach my $attr ( sort keys %h ) {
+ next if ( $attr =~ /^(?:_utime|groups)$/ );
+ print ''
+ . htmlquote($attr)
+ . ' | : | '
+ . htmlquote( $h{$attr} )
+ . ' |
'
+ if ( $h{$attr} );
+ }
+ print '
';
+ untie %h;
+ }
+ }
+
+ # Ajax request to see connexions from a user
+ elsif ( my $uid = $self->param('uid') ) {
+ my $byIp;
+ print $self->header( -type => 'text/html; charset=utf8' );
+ $globalStorage->get_key_from_all_sessions(
+ $globalStorageOptions,
+ sub {
+ my $entry = shift;
+ my $id = shift;
+ if ( $entry->{uid} eq $uid ) {
+ push @{ $byIp->{ $entry->{ipAddr} } },
+ { id => $id, _utime => $entry->{_utime} };
+ }
+ undef;
+ }
+ );
+ foreach my $ip ( sort keys %$byIp ) {
+ print "$ip";
+ foreach my $session ( @{ $byIp->{$ip} } ) {
+ print "- {id}');\">"
+ . localtime( $session->{_utime} )
+ . "
";
+ }
+ print "
";
+ }
+ }
+
+ # Ajax request to list users starting by a letter
+ elsif ( my $letter = $self->param('letter') ) {
+ my ($byUid);
+ print $self->header( -type => 'text/html; charset=utf8' );
+ $globalStorage->get_key_from_all_sessions(
+ $globalStorageOptions,
+ sub {
+ my $entry = shift;
+ $entry->{uid} =~ /^$letter/ or return undef;
+ $byUid->{ $entry->{uid} }++;
+ },
+ );
+ foreach my $uid ( sort keys %$byUid ) {
+ $self->ajaxNode(
+ $uid,
+ $uid
+ . (
+ $byUid->{$uid} > 1
+ ? " ($byUid->{$uid} sessions)"
+ : ''
+ ),
+ "uid=$uid"
+ );
+ }
+ }
+
+ # Default display
+ else {
+ my ( $byUid, $count );
+ $globalStorage->get_key_from_all_sessions(
+ $globalStorageOptions,
+ sub {
+ my $entry = shift;
+ $entry->{uid} =~ /^(\w)/ or return undef;
+ $byUid->{$1}++;
+ $count++;
+ undef;
+ }
+ );
+ $self->start("Active sessions ($count)");
+ $self->window("Sessions ($count)");
+ foreach my $letter ( sort keys %$byUid ) {
+ $self->ajaxNode( "li_$letter",
+ "$letter ($byUid->{$letter} sessions)",
+ "letter=$letter" );
+ }
+ $self->end();
+ }
+}
+
+sub htmlquote {
+ my $s = shift;
+ $s =~ s/</g;
+ $s =~ s/>/>/g;
+ $s =~ s/&/&/g;
+ return $s;
+}
+
+# HTML headers
+sub start {
+ my $self = shift;
+ print $self->header( -type => 'text/html; charset=utf8', );
+ print $self->start_html(
+ -title => shift || 'Sessions Lemonldap::NG',
+ -encoding => 'utf8',
+ -script => [
+ {
+ -language => 'JavaScript1.2',
+ -src => $self->{jqueryUri} || 'jquery.js',
+ },
+ {
+ -language => 'JavaScript1.2',
+ -src => "$ENV{SCRIPT_NAME}/js",
+ },
+ {
+ -language => 'JavaScript1.2',
+ -code => '$(document).ready(function(){
+ var simpleTreeCollection
+ simpleTreeCollection = $(".simpleTree").simpleTree({
+ autoclose: true,
+ drag: false,
+ afterClick:function(node){
+ //alert("text-"+$("span:first",node).text());
+ },
+ afterDblClick:function(node){
+ //alert("text-"+$("span:first",node).text());
+ },
+ afterMove:function(destination, source, pos){
+ //alert("destination-"+$("span:first",destination).text()+" source-"+$("span:first",source).text()+" pos-"+pos);
+ },
+ afterAjax:function() {
+ //alert("Loaded");
+ },
+ animate:true
+ //,docToFolderConvert:true
+ });
+ });
+ function del(session) {
+ $("#content").load("' . $ENV{SCRIPT_NAME} . '?delete="+session);
+ }
+ function display(session) {
+ $("#content").load("'
+ . $ENV{SCRIPT_NAME} . '?session="+session);
+ }
+ ',
+ },
+ ],
+ -style => {
+ -src => [
+ "$ENV{SCRIPT_NAME}/css",
+ ( $self->{personnalCss} ? $self->{personnalCss} : () )
+ ],
+ },
+ );
+}
+
+# Ajax node use by JQuery.simple.tree
+sub ajaxNode {
+ my ( $self, $id, $text, $param ) = @_;
+ print
+"$text\n- {url:$ENV{SCRIPT_NAME}?$param}
\n";
+}
+
+# Design of the main window
+sub window {
+ my $self = shift;
+ my $root = shift;
+ print '
+
+ - ' . $root
+ . '
';
+}
+
+# End of HTML
+sub end {
+ my $self = shift;
+ print
+'
| |
';
+ print $self->end_html();
+}
+
+1;
+
+sub css {
+ my $self = shift;
+ print <<"EOF";
+body
+{
+ font: normal 12px arial, tahoma, helvetica, sans-serif;
+ margin:0;
+ padding:20px;
+}
+.simpleTree
+{
+ overflow:auto;
+ margin:0;
+ padding:0;
+ /*
+ * width: 250px;
+ * height:350px;
+ * overflow:auto;
+ * border: 1px solid #444444;
+ * */
+}
+.simpleTree li
+{
+ list-style: none;
+ margin:0;
+ padding:0 0 0 34px;
+ line-height: 14px;
+}
+.simpleTree li span
+{
+ display:inline;
+ clear: left;
+ white-space: nowrap;
+}
+.simpleTree ul
+{
+ margin:0;
+ padding:0;
+}
+.simpleTree .root
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}root.gif) no-repeat 16px 0 #ffffff;
+}
+.simpleTree .line
+{
+ margin:0 0 0 -16px;
+ padding:0;
+ line-height: 3px;
+ height:3px;
+ font-size:3px;
+ background: url($self->{imagePath}line_bg.gif) 0 0 no-repeat transparent;
+}
+.simpleTree .line-last
+{
+ margin:0 0 0 -16px;
+ padding:0;
+ line-height: 3px;
+ height:3px;
+ font-size:3px;
+ background: url($self->{imagePath}spacer.gif) 0 0 no-repeat transparent;
+}
+.simpleTree .line-over
+{
+ margin:0 0 0 -16px;
+ padding:0;
+ line-height: 3px;
+ height:3px;
+ font-size:3px;
+ background: url($self->{imagePath}line_bg_over.gif) 0 0 no-repeat transparent;
+}
+.simpleTree .line-over-last
+{
+ margin:0 0 0 -16px;
+ padding:0;
+ line-height: 3px;
+ height:3px;
+ font-size:3px;
+ background: url($self->{imagePath}line_bg_over_last.gif) 0 0 no-repeat transparent;
+}
+.simpleTree .folder-open
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}collapsable.gif) 0 -2px no-repeat #fff;
+}
+.simpleTree .folder-open-last
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}collapsable-last.gif) 0 -2px no-repeat #fff;
+}
+.simpleTree .folder-close
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}expandable.gif) 0 -2px no-repeat #fff;
+}
+.simpleTree .folder-close-last
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}expandable-last.gif) 0 -2px no-repeat #fff;
+}
+.simpleTree .doc
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}leaf.gif) 0 -1px no-repeat #fff;
+}
+.simpleTree .doc-last
+{
+ margin-left:-16px;
+ background: url($self->{imagePath}leaf-last.gif) 0 -1px no-repeat #fff;
+}
+.simpleTree .ajax
+{
+ background: url($self->{imagePath}spinner.gif) no-repeat 0 0 #ffffff;
+ height: 16px;
+ display:none;
+}
+.simpleTree .ajax li
+{
+ display:none;
+ margin:0;
+ padding:0;
+}
+.simpleTree .trigger
+{
+ display:inline;
+ margin-left:-32px;
+ width: 28px;
+ height: 11px;
+ cursor:pointer;
+}
+.simpleTree .text
+{
+ cursor: default;
+}
+.simpleTree .active
+{
+ cursor: default;
+ background-color:#F7BE77;
+ padding:0px 2px;
+ border: 1px dashed #444;
+}
+#drag_container
+{
+ background:#ffffff;
+ color:#000;
+ font: normal 11px arial, tahoma, helvetica, sans-serif;
+ border: 1px dashed #767676;
+}
+#drag_container ul
+{
+ list-style: none;
+ padding:0;
+ margin:0;
+}
+
+#drag_container li
+{
+ list-style: none;
+ background-color:#ffffff;
+ line-height:18px;
+ white-space: nowrap;
+ padding:1px 1px 0px 16px;
+ margin:0;
+}
+#drag_container li span
+{
+ padding:0;
+}
+
+#drag_container li.doc, #drag_container li.doc-last
+{
+ background: url($self->{imagePath}leaf.gif) no-repeat -17px 0 #ffffff;
+}
+#drag_container .folder-close, #drag_container .folder-close-last
+{
+ background: url($self->{imagePath}expandable.gif) no-repeat -17px 0 #ffffff;
+}
+
+#drag_container .folder-open, #drag_container .folder-open-last
+{
+ background: url($self->{imagePath}collapsable.gif) no-repeat -17px 0 #ffffff;
+}
+EOF
+}
+
+sub js {
+ my $self = shift;
+ print <<"EOF";
+/*
+* jQuery SimpleTree Drag&Drop plugin
+* Update on 22th May 2008
+* Version 0.3
+*
+* Licensed under BSD
+* Copyright (c) 2008, Peter Panov , IKEEN Group http://www.ikeen.com
+* All rights reserved.
+*
+* Redistribution and use in source and binary forms, with or without
+* modification, are permitted provided that the following conditions are met:
+* * Redistributions of source code must retain the above copyright
+* notice, this list of conditions and the following disclaimer.
+* * Redistributions in binary form must reproduce the above copyright
+* notice, this list of conditions and the following disclaimer in the
+* documentation and/or other materials provided with the distribution.
+* * Neither the name of the Peter Panov, IKEEN Group nor the
+* names of its contributors may be used to endorse or promote products
+* derived from this software without specific prior written permission.
+*
+* THIS SOFTWARE IS PROVIDED BY Peter Panov, IKEEN Group ``AS IS'' AND ANY
+* EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+* DISCLAIMED. IN NO EVENT SHALL Peter Panov, IKEEN Group BE LIABLE FOR ANY
+* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
+
+\$.fn.simpleTree = function(opt){
+ return this.each(function(){
+ var TREE = this;
+ var ROOT = \$('.root',this);
+ var mousePressed = false;
+ var mouseMoved = false;
+ var dragMoveType = false;
+ var dragNode_destination = false;
+ var dragNode_source = false;
+ var dragDropTimer = false;
+ var ajaxCache = Array();
+
+ TREE.option = {
+ drag: true,
+ animate: false,
+ autoclose: false,
+ speed: 'fast',
+ afterAjax: false,
+ afterMove: false,
+ afterClick: false,
+ afterDblClick: false,
+ // added by Erik Dohmen (2BinBusiness.nl) to make context menu cliks available
+ afterContextMenu: false,
+ docToFolderConvert:false
+ };
+ TREE.option = \$.extend(TREE.option,opt);
+ \$.extend(this, {getSelected: function(){
+ return \$('span.active', this).parent();
+ }});
+ TREE.closeNearby = function(obj)
+ {
+ \$(obj).siblings().filter('.folder-open, .folder-open-last').each(function(){
+ var childUl = \$('>ul',this);
+ var className = this.className;
+ this.className = className.replace('open','close');
+ if(TREE.option.animate)
+ {
+ childUl.animate({height:"toggle"},TREE.option.speed);
+ }else{
+ childUl.hide();
+ }
+ });
+ };
+ TREE.nodeToggle = function(obj)
+ {
+ var childUl = \$('>ul',obj);
+ if(childUl.is(':visible')){
+ obj.className = obj.className.replace('open','close');
+
+ if(TREE.option.animate)
+ {
+ childUl.animate({height:"toggle"},TREE.option.speed);
+ }else{
+ childUl.hide();
+ }
+ }else{
+ obj.className = obj.className.replace('close','open');
+ if(TREE.option.animate)
+ {
+ childUl.animate({height:"toggle"},TREE.option.speed, function(){
+ if(TREE.option.autoclose)TREE.closeNearby(obj);
+ if(childUl.is('.ajax'))TREE.setAjaxNodes(childUl, obj.id);
+ });
+ }else{
+ childUl.show();
+ if(TREE.option.autoclose)TREE.closeNearby(obj);
+ if(childUl.is('.ajax'))TREE.setAjaxNodes(childUl, obj.id);
+ }
+ }
+ };
+ TREE.setAjaxNodes = function(node, parentId, callback)
+ {
+ if(\$.inArray(parentId,ajaxCache) == -1){
+ ajaxCache[ajaxCache.length]=parentId;
+ var url = \$.trim(\$('>li', node).text());
+ if(url && url.indexOf('url:'))
+ {
+ url=\$.trim(url.replace(/.*\\{url:(.*)\\}/i ,'\$1'));
+ \$.ajax({
+ type: "GET",
+ url: url,
+ contentType:'html',
+ cache:false,
+ success: function(responce){
+ node.removeAttr('class');
+ node.html(responce);
+ \$.extend(node,{url:url});
+ TREE.setTreeNodes(node, true);
+ if(typeof TREE.option.afterAjax == 'function')
+ {
+ TREE.option.afterAjax(node);
+ }
+ if(typeof callback == 'function')
+ {
+ callback(node);
+ }
+ }
+ });
+ }
+
+ }
+ };
+ TREE.setTreeNodes = function(obj, useParent){
+ obj = useParent? obj.parent():obj;
+ \$('li>span', obj).addClass('text')
+ .bind('selectstart', function() {
+ return false;
+ }).click(function(){
+ \$('.active',TREE).attr('class','text');
+ if(this.className=='text')
+ {
+ this.className='active';
+ }
+ if(typeof TREE.option.afterClick == 'function')
+ {
+ TREE.option.afterClick(\$(this).parent());
+ }
+ return false;
+ }).dblclick(function(){
+ mousePressed = false;
+ TREE.nodeToggle(\$(this).parent().get(0));
+ if(typeof TREE.option.afterDblClick == 'function')
+ {
+ TREE.option.afterDblClick(\$(this).parent());
+ }
+ return false;
+ // added by Erik Dohmen (2BinBusiness.nl) to make context menu actions
+ // available
+ }).bind("contextmenu",function(){
+ \$('.active',TREE).attr('class','text');
+ if(this.className=='text')
+ {
+ this.className='active';
+ }
+ if(typeof TREE.option.afterContextMenu == 'function')
+ {
+ TREE.option.afterContextMenu(\$(this).parent());
+ }
+ return false;
+ }).mousedown(function(event){
+ mousePressed = true;
+ cloneNode = \$(this).parent().clone();
+ var LI = \$(this).parent();
+ if(TREE.option.drag)
+ {
+ \$('>ul', cloneNode).hide();
+ \$('body').append('');
+ \$('#drag_container').hide().css({opacity:'0.8'});
+ \$('#drag_container >ul').append(cloneNode);
+ \$("
").attr({id : "tree_plus",src : "$self->{imagePath}plus.gif"}).css({width: "7px",display: "block",position: "absolute",left : "5px",top: "5px", display:'none'}).appendTo("body");
+ \$(document).bind("mousemove", {LI:LI}, TREE.dragStart).bind("mouseup",TREE.dragEnd);
+ }
+ return false;
+ }).mouseup(function(){
+ if(mousePressed && mouseMoved && dragNode_source)
+ {
+ TREE.moveNodeToFolder(\$(this).parent());
+ }
+ TREE.eventDestroy();
+ });
+ \$('li', obj).each(function(i){
+ var className = this.className;
+ var open = false;
+ var cloneNode=false;
+ var LI = this;
+ var childNode = \$('>ul',this);
+ if(childNode.size()>0){
+ var setClassName = 'folder-';
+ if(className && className.indexOf('open')>=0){
+ setClassName=setClassName+'open';
+ open=true;
+ }else{
+ setClassName=setClassName+'close';
+ }
+ this.className = setClassName + (\$(this).is(':last-child')? '-last':'');
+
+ if(!open || className.indexOf('ajax')>=0)childNode.hide();
+
+ TREE.setTrigger(this);
+ }else{
+ var setClassName = 'doc';
+ this.className = setClassName + (\$(this).is(':last-child')? '-last':'');
+ }
+ }).before(' ')
+ .filter(':last-child').after('');
+ TREE.setEventLine(\$('.line, .line-last', obj));
+ };
+ TREE.setTrigger = function(node){
+ \$('>span',node).before('
');
+ var trigger = \$('>.trigger', node);
+ trigger.click(function(event){
+ TREE.nodeToggle(node);
+ });
+ if(!\$.browser.msie)
+ {
+ trigger.css('float','left');
+ }
+ };
+ TREE.dragStart = function(event){
+ var LI = \$(event.data.LI);
+ if(mousePressed)
+ {
+ mouseMoved = true;
+ if(dragDropTimer) clearTimeout(dragDropTimer);
+ if(\$('#drag_container:not(:visible)')){
+ \$('#drag_container').show();
+ LI.prev('.line').hide();
+ dragNode_source = LI;
+ }
+ \$('#drag_container').css({position:'absolute', "left" : (event.pageX + 5), "top": (event.pageY + 15) });
+ if(LI.is(':visible'))LI.hide();
+ var temp_move = false;
+ if(event.target.tagName.toLowerCase()=='span' && \$.inArray(event.target.className, Array('text','active','trigger'))!= -1)
+ {
+ var parent = event.target.parentNode;
+ var offs = \$(parent).offset({scroll:false});
+ var screenScroll = {x : (offs.left - 3),y : event.pageY - offs.top};
+ var isrc = \$("#tree_plus").attr('src');
+ var ajaxChildSize = \$('>ul.ajax',parent).size();
+ var ajaxChild = \$('>ul.ajax',parent);
+ screenScroll.x += 19;
+ screenScroll.y = event.pageY - screenScroll.y + 5;
+
+ if(parent.className.indexOf('folder-close')>=0 && ajaxChildSize==0)
+ {
+ if(isrc.indexOf('minus')!=-1)\$("#tree_plus").attr('src','$self->{imagePath}plus.gif');
+ \$("#tree_plus").css({"left": screenScroll.x, "top": screenScroll.y}).show();
+ dragDropTimer = setTimeout(function(){
+ parent.className = parent.className.replace('close','open');
+ \$('>ul',parent).show();
+ }, 700);
+ }else if(parent.className.indexOf('folder')>=0 && ajaxChildSize==0){
+ if(isrc.indexOf('minus')!=-1)\$("#tree_plus").attr('src','$self->{imagePath}plus.gif');
+ \$("#tree_plus").css({"left": screenScroll.x, "top": screenScroll.y}).show();
+ }else if(parent.className.indexOf('folder-close')>=0 && ajaxChildSize>0)
+ {
+ mouseMoved = false;
+ \$("#tree_plus").attr('src','$self->{imagePath}minus.gif');
+ \$("#tree_plus").css({"left": screenScroll.x, "top": screenScroll.y}).show();
+
+ \$('>ul',parent).show();
+ /*
+ Thanks for the idea of Erik Dohmen
+ */
+ TREE.setAjaxNodes(ajaxChild,parent.id, function(){
+ parent.className = parent.className.replace('close','open');
+ mouseMoved = true;
+ \$("#tree_plus").attr('src','$self->{imagePath}plus.gif');
+ \$("#tree_plus").css({"left": screenScroll.x, "top": screenScroll.y}).show();
+ });
+
+ }else{
+ if(TREE.option.docToFolderConvert)
+ {
+ \$("#tree_plus").css({"left": screenScroll.x, "top": screenScroll.y}).show();
+ }else{
+ \$("#tree_plus").hide();
+ }
+ }
+ }else{
+ \$("#tree_plus").hide();
+ }
+ return false;
+ }
+ return true;
+ };
+ TREE.dragEnd = function(){
+ if(dragDropTimer) clearTimeout(dragDropTimer);
+ TREE.eventDestroy();
+ };
+ TREE.setEventLine = function(obj){
+ obj.mouseover(function(){
+ if(this.className.indexOf('over')<0 && mousePressed && mouseMoved)
+ {
+ this.className = this.className.replace('line','line-over');
+ }
+ }).mouseout(function(){
+ if(this.className.indexOf('over')>=0)
+ {
+ this.className = this.className.replace('-over','');
+ }
+ }).mouseup(function(){
+ if(mousePressed && dragNode_source && mouseMoved)
+ {
+ dragNode_destination = \$(this).parents('li:first');
+ TREE.moveNodeToLine(this);
+ TREE.eventDestroy();
+ }
+ });
+ };
+ TREE.checkNodeIsLast = function(node)
+ {
+ if(node.className.indexOf('last')>=0)
+ {
+ var prev_source = dragNode_source.prev().prev();
+ if(prev_source.size()>0)
+ {
+ prev_source[0].className+='-last';
+ }
+ node.className = node.className.replace('-last','');
+ }
+ };
+ TREE.checkLineIsLast = function(line)
+ {
+ if(line.className.indexOf('last')>=0)
+ {
+ var prev = \$(line).prev();
+ if(prev.size()>0)
+ {
+ prev[0].className = prev[0].className.replace('-last','');
+ }
+ dragNode_source[0].className+='-last';
+ }
+ };
+ TREE.eventDestroy = function()
+ {
+ // added by Erik Dohmen (2BinBusiness.nl), the unbind mousemove TREE.dragStart action
+ // like this other mousemove actions binded through other actions ain't removed (use it myself
+ // to determine location for context menu)
+ \$(document).unbind('mousemove',TREE.dragStart).unbind('mouseup').unbind('mousedown');
+ \$('#drag_container, #tree_plus').remove();
+ if(dragNode_source)
+ {
+ \$(dragNode_source).show().prev('.line').show();
+ }
+ dragNode_destination = dragNode_source = mousePressed = mouseMoved = false;
+ //ajaxCache = Array();
+ };
+ TREE.convertToFolder = function(node){
+ node[0].className = node[0].className.replace('doc','folder-open');
+ node.append('');
+ TREE.setTrigger(node[0]);
+ TREE.setEventLine(\$('.line, .line-last', node));
+ };
+ TREE.convertToDoc = function(node){
+ \$('>ul', node).remove();
+ \$('img', node).remove();
+ node[0].className = node[0].className.replace(/folder-(open|close)/gi , 'doc');
+ };
+ TREE.moveNodeToFolder = function(node)
+ {
+ if(!TREE.option.docToFolderConvert && node[0].className.indexOf('doc')!=-1)
+ {
+ return true;
+ }else if(TREE.option.docToFolderConvert && node[0].className.indexOf('doc')!=-1){
+ TREE.convertToFolder(node);
+ }
+ TREE.checkNodeIsLast(dragNode_source[0]);
+ var lastLine = \$('>ul >.line-last', node);
+ if(lastLine.size()>0)
+ {
+ TREE.moveNodeToLine(lastLine[0]);
+ }
+ };
+ TREE.moveNodeToLine = function(node){
+ TREE.checkNodeIsLast(dragNode_source[0]);
+ TREE.checkLineIsLast(node);
+ var parent = \$(dragNode_source).parents('li:first');
+ var line = \$(dragNode_source).prev('.line');
+ \$(node).before(dragNode_source);
+ \$(dragNode_source).before(line);
+ node.className = node.className.replace('-over','');
+ var nodeSize = \$('>ul >li', parent).not('.line, .line-last').filter(':visible').size();
+ if(TREE.option.docToFolderConvert && nodeSize==0)
+ {
+ TREE.convertToDoc(parent);
+ }else if(nodeSize==0)
+ {
+ parent[0].className=parent[0].className.replace('open','close');
+ \$('>ul',parent).hide();
+ }
+
+ // added by Erik Dohmen (2BinBusiness.nl) select node
+ if(\$('span:first',dragNode_source).attr('class')=='text')
+ {
+ \$('.active',TREE).attr('class','text');
+ \$('span:first',dragNode_source).attr('class','active');
+ }
+
+ if(typeof(TREE.option.afterMove) == 'function')
+ {
+ var pos = \$(dragNode_source).prevAll(':not(.line)').size();
+ TREE.option.afterMove(\$(node).parents('li:first'), \$(dragNode_source), pos);
+ }
+ };
+
+ TREE.addNode = function(id, text, callback)
+ {
+ var temp_node = \$('');
+ TREE.setTreeNodes(temp_node);
+ dragNode_destination = TREE.getSelected();
+ dragNode_source = \$('.doc-last',temp_node);
+ TREE.moveNodeToFolder(dragNode_destination);
+ temp_node.remove();
+ if(typeof(callback) == 'function')
+ {
+ callback(dragNode_destination, dragNode_source);
+ }
+ };
+ TREE.delNode = function(callback)
+ {
+ dragNode_source = TREE.getSelected();
+ TREE.checkNodeIsLast(dragNode_source[0]);
+ dragNode_source.prev().remove();
+ dragNode_source.remove();
+ if(typeof(callback) == 'function')
+ {
+ callback(dragNode_destination);
+ }
+ };
+
+ TREE.init = function(obj)
+ {
+ TREE.setTreeNodes(obj, false);
+ };
+ TREE.init(ROOT);
+ });
+}
+EOF
+}
+__END__
+# Below is stub documentation for your module. You'd better edit it!
+
+=head1 NAME
+
+Lemonldap::NG::Manager::Sessions - Perl extension to manage Lemonldap::NG
+sessions
+
+=head1 SYNOPSIS
+
+#!/usr/bin/perl
+
+ use strict;
+ use Lemonldap::NG::Manager::Sessions;
+ our $cgi ||= Lemonldap::NG::Manager::Sessions->new({
+ localStorage => "Cache::FileCache",
+ localStorageOptions => {
+ 'namespace' => 'MyNamespace',
+ 'default_expires_in' => 600,
+ 'directory_umask' => '007',
+ 'cache_root' => '/tmp',
+ 'cache_depth' => 5,
+ },
+ configStorage => $Lemonldap::NG::Conf::configStorage,
+ configStorage=>{
+ type=>'File',
+ dirName=>"/tmp/",
+ },
+ https => 1,
+ jqueryUri => '/js/jquery/jquery.js',
+ imagePath => '/js/jquery.simple.tree/',
+ # Optionnal
+ protection => 'rule: $uid eq "admin"',
+ # Or to use rules from manager
+ protect => 'manager',
+ });
+ $cgi->process();
+
+=head1 DESCRIPTION
+
+Lemonldap::NG::Manager::Sessions provides a web interface to manage
+Lemonldap::NG sessions.
+
+It inherits from L, so see this manpage to
+understand how arguments passed to the constructor.
+
+=head1 SEE ALSO
+
+L
+
+=head1 AUTHOR
+
+Xavier Guimard, Ex.guimard@free.frE
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2008 by Xavier Guimard
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.8 or,
+at your option, any later version of Perl 5 you may have available.
+
+C embedded javascript library is licensed under BSD
+L and copyrighted (c) 2008 by Peter
+Panov Epanov@elcat.kgE, IKEEN Group L
+
+=cut
diff --git a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
index 4669c0e77..ec15ea7d2 100644
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
@@ -340,6 +340,8 @@ sub controlExistingSession {
my $self = shift;
my %cookies = fetch CGI::Cookie;
+ # Store IP address
+ $self->{sessionInfo}->{ipAddr} = $ENV{REMOTE_ADDR};
# Test if Lemonldap::NG cookie is available
if ( $cookies{ $self->{cookieName} }
and my $id = $cookies{ $self->{cookieName} }->value )