POD documentation and split Manager.pm in 2 pieces because inheritance of CGI is not compatible with the use of
AutoLoader (_HTML.pm).environments/ppa-mbqj77/deployments/1
Xavier Guimard
19 years ago
parent
0761e8a7b2
commit
9cdefde06f
@ -1,2 +1,2 @@ |
|||||||
* manpage of Lemonldap::NG::Manager::Conf* |
* system to alert if configuration as changed between get and update |
||||||
|
|
||||||
|
|||||||
@ -0,0 +1,357 @@ |
|||||||
|
package Lemonldap::NG::Manager::_HTML; |
||||||
|
|
||||||
|
# This package contains all subroutines that are provided after a |
||||||
|
# 'header_public' call. So those functions are called only if the browser |
||||||
|
# comes for the first time. |
||||||
|
|
||||||
|
use AutoLoader qw(AUTOLOAD); |
||||||
|
our $VERSION = '0.05'; |
||||||
|
|
||||||
|
1; |
||||||
|
__END__ |
||||||
|
=pod |
||||||
|
=cut |
||||||
|
sub css { |
||||||
|
print <<EOT; |
||||||
|
/* xSplitter Styles */ |
||||||
|
.clsSplitter |
||||||
|
{ |
||||||
|
position: absolute; |
||||||
|
overflow: hidden; |
||||||
|
visibility: hidden; |
||||||
|
margin: 0; |
||||||
|
padding: 0; |
||||||
|
background: #FFF; |
||||||
|
border: none; |
||||||
|
} |
||||||
|
|
||||||
|
.clsPane |
||||||
|
{ |
||||||
|
position: absolute; |
||||||
|
overflow: auto; |
||||||
|
visibility: visible; |
||||||
|
margin: 0; |
||||||
|
padding: 0; |
||||||
|
background: #FFF; |
||||||
|
border: none; |
||||||
|
} |
||||||
|
|
||||||
|
.clsDragBar |
||||||
|
{ |
||||||
|
position: absolute; |
||||||
|
overflow: hidden; |
||||||
|
visibility: visible; |
||||||
|
margin: 0; |
||||||
|
padding: 0; |
||||||
|
background: lightgrey; |
||||||
|
border: none; |
||||||
|
} |
||||||
|
|
||||||
|
/* Application Styles */ |
||||||
|
|
||||||
|
#xBody { overflow: visible; background-color: #FFF; } |
||||||
|
.clsTemporaryContainer /* replace this with something like xFenster */ |
||||||
|
{ |
||||||
|
position: relative; |
||||||
|
overflow: visible; |
||||||
|
visibility: visible; |
||||||
|
background: transparent; |
||||||
|
border: none; |
||||||
|
} |
||||||
|
#idSplitter3 { border: 4px solid lightgrey; } |
||||||
|
h3, p { padding: 0 0 0 6px; border: none; } |
||||||
|
#buttons { text-align: center; } |
||||||
|
#help { text-align: left; } |
||||||
|
EOT |
||||||
|
} |
||||||
|
|
||||||
|
sub javascript { |
||||||
|
my $self = shift; |
||||||
|
print <<EOT; |
||||||
|
var s3,s32; |
||||||
|
window.onload=function(){ |
||||||
|
var w=X.clientWidth()-12; |
||||||
|
var h=X.clientHeight()-12; |
||||||
|
//var h=window.outerHeight; |
||||||
|
s32=new xSplitter('idSplitter32',0,0,0,0,false,4,3*h/4,h/8,true,0); |
||||||
|
s3=new xSplitter('idSplitter3',0,0,w,h,true,4,w/4,w/8,true,4,null,s32); |
||||||
|
X.addEventListener(window,'resize',win_onresize,false); |
||||||
|
document.body.style.cursor='wait'; |
||||||
|
tree=new dhtmlXTreeObject(document.getElementById('treeBox'),"100%","100%",0); |
||||||
|
tree.setImagePath("$self->{dhtmlXTreeImageLocation}"); |
||||||
|
tree.setXMLAutoLoading("$ENV{SCRIPT_NAME}?lmQuery=conf"); |
||||||
|
tree.loadXML("$ENV{SCRIPT_NAME}?lmQuery=conf"); |
||||||
|
tree.setOnClickHandler(onNodeSelect); |
||||||
|
window.setTimeout("document.body.style.cursor='auto'",1000); |
||||||
|
}; |
||||||
|
|
||||||
|
function win_onresize(){ |
||||||
|
var cw=X.clientWidth(); |
||||||
|
var w=X.clientWidth()-12; |
||||||
|
var h=X.clientHeight()-12; |
||||||
|
s3.paint(w,h,w/4,w/5); |
||||||
|
} |
||||||
|
|
||||||
|
var indice=-1; |
||||||
|
|
||||||
|
function onNodeSelect(nodeId) { |
||||||
|
var k,v; |
||||||
|
if(tree.getUserData(nodeId,"modif")) { |
||||||
|
switch(tree.getUserData(nodeId,"modif")) { |
||||||
|
case 'text': |
||||||
|
k='valeur'; |
||||||
|
v='<input value="'+nodeId+'" onChange="tree.setItemText('+"'"+nodeId+"'"+',this.value);tree.changeItemId('+"'"+nodeId+"'"+',this.value);">'; |
||||||
|
break; |
||||||
|
case 'both': |
||||||
|
k='<input value="'+tree.getItemText(nodeId)+'" onChange="tree.setItemText('+"'"+nodeId+"'"+',this.value)">'; |
||||||
|
v='<textarea cols=40 rows=2 onChange="tree.setUserData('+"'"+nodeId+"'"+','+"'"+'value'+"'"+',this.value)">'+tree.getUserData(nodeId,'value')+'</textarea>'; |
||||||
|
//v='<input size=80 name="value" value="'+tree.getUserData(nodeId,'value')+'" onChange="tree.setUserData('+"'"+nodeId+"'"+','+"'"+'value'+"'"+',this.value)">'; |
||||||
|
break; |
||||||
|
case 'value': |
||||||
|
k=tree.getItemText(nodeId); |
||||||
|
v='<textarea cols=40 rows=2 onChange="tree.setUserData('+"'"+nodeId+"'"+','+"'"+'value'+"'"+',this.value)">'+tree.getUserData(nodeId,'value')+'</textarea>'; |
||||||
|
//v='<input size=80 name="value" value="'+tree.getUserData(nodeId,'value')+'" onChange="tree.setUserData('+"'"+nodeId+"'"+','+"'"+'value'+"'"+',this.value)">'; |
||||||
|
} |
||||||
|
document.getElementById('formulaire').style.display='block'; |
||||||
|
document.getElementById('name').innerHTML = k; |
||||||
|
document.getElementById('value').innerHTML = v; |
||||||
|
} |
||||||
|
else { |
||||||
|
document.getElementById('formulaire').style.display='none'; |
||||||
|
} |
||||||
|
var but=''; |
||||||
|
if(nodeIs(nodeId,"virtualHosts")){ |
||||||
|
but+=button('Nouvel Hôte Virtuel','newVirtualHost',nodeId); |
||||||
|
if(nodeIs(nodeId,"virtualHost")){ |
||||||
|
but+=button('Nouvelle règle','newRule',nodeId); |
||||||
|
but+=button('Nouvel en-tête','newHeader',nodeId); |
||||||
|
} |
||||||
|
help('virtualHosts'); |
||||||
|
} |
||||||
|
else if(nodeIs(nodeId,"groups")){ |
||||||
|
but+=button('Nouveau groupe','newGroup',nodeId); |
||||||
|
help('groups'); |
||||||
|
} |
||||||
|
else if(nodeIs(nodeId,"generalParameters")){ |
||||||
|
if(nodeIs(nodeId,"ldapParameters")){ |
||||||
|
help('ldap'); |
||||||
|
} |
||||||
|
else if(nodeIs(nodeId,"exportedVars")){ |
||||||
|
but+=button('Nouvelle variable','newVar',nodeId); |
||||||
|
help('vars'); |
||||||
|
} |
||||||
|
else if(nodeIs(nodeId,'sessionStorage')){ |
||||||
|
if(nodeIs(nodeId,"globalStorageOptions")){ |
||||||
|
but+=button('Nouvelle option','newGSOpt',nodeId); |
||||||
|
} |
||||||
|
help('storage'); |
||||||
|
} |
||||||
|
} |
||||||
|
if(tree.getUserData(nodeId,"modif")=='both') but+=button("Supprimer",'deleteNode',nodeId); |
||||||
|
but+=button('Sauvegarder','saveConf'); |
||||||
|
document.getElementById('buttons').innerHTML = but; |
||||||
|
} |
||||||
|
|
||||||
|
function nodeIs(id,type) { |
||||||
|
if(id==type)return 1; |
||||||
|
if(id=="root")return 0; |
||||||
|
var next=tree.getParentId(id); |
||||||
|
if(type=="virtualHost" && next=="virtualHosts")return 1; |
||||||
|
return nodeIs(next,type); |
||||||
|
} |
||||||
|
|
||||||
|
function vhostId(id){ |
||||||
|
var next=tree.getParentId(id); |
||||||
|
if(next=="virtualHosts") return id; |
||||||
|
return vhostId(next); |
||||||
|
} |
||||||
|
|
||||||
|
function button(text,func,nodeId){ |
||||||
|
return '<input type=button value="'+text+'" onclick="'+func+'('+"'"+nodeId+"'"+')"> '; |
||||||
|
} |
||||||
|
|
||||||
|
function insertNewChild(a,b,c) { |
||||||
|
tree.insertNewChild(a,b,c); |
||||||
|
tree.setItemColor(b,"#000000","#0000FF"); |
||||||
|
} |
||||||
|
|
||||||
|
function newVirtualHost() { |
||||||
|
var rep=prompt("Nouvel hôte virtuel"); |
||||||
|
if(rep) { |
||||||
|
insertNewChild('virtualHosts',rep,rep) |
||||||
|
tree.setUserData(rep,'modif','text'); |
||||||
|
insertNewChild(rep,rep+'_exportedHeaders','Headers'); |
||||||
|
insertNewChild(rep+'_exportedHeaders',rep+'_exportedHeaders_1','Auth-User'); |
||||||
|
tree.setUserData(rep+'_exportedHeaders_1','modif','both'); |
||||||
|
tree.setUserData(rep+'_exportedHeaders_1','value','\$uid'); |
||||||
|
insertNewChild(rep,rep+'_locationRules','Règles'); |
||||||
|
insertNewChild(rep+'_locationRules',rep+'_locationRules_default','default'); |
||||||
|
tree.setUserData(rep+'_locationRules_default','modif','value'); |
||||||
|
tree.setUserData(rep+'_locationRules_default','value','deny'); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
function newValue(id,text,type,value){ |
||||||
|
indice--; |
||||||
|
insertNewChild(id,'j_'+indice,text); |
||||||
|
tree.setUserData('j_'+indice,'modif',type); |
||||||
|
tree.setUserData('j_'+indice,'value',value); |
||||||
|
tree.selectItem('j_'+indice,true); |
||||||
|
} |
||||||
|
|
||||||
|
function newRule(id){ |
||||||
|
var lr=tree.getItemIdByIndex(vhostId(id),1); |
||||||
|
newValue(lr,'New rule','both','deny'); |
||||||
|
} |
||||||
|
|
||||||
|
function newHeader(id){ |
||||||
|
var eh=tree.getItemIdByIndex(vhostId(id),0); |
||||||
|
newValue(eh,'New-Header','both','\$uid'); |
||||||
|
} |
||||||
|
|
||||||
|
function newGroup(id){ |
||||||
|
newValue('groups','New-group','both',''); |
||||||
|
} |
||||||
|
|
||||||
|
function newVar(id){ |
||||||
|
newValue('exportedVars','New-var','both','uid'); |
||||||
|
} |
||||||
|
|
||||||
|
function newGSOpt(id){ |
||||||
|
newValue('globalStorageOptions','New-Opt','both',''); |
||||||
|
} |
||||||
|
|
||||||
|
function deleteNode(id){ |
||||||
|
tree.deleteItem(id); |
||||||
|
} |
||||||
|
|
||||||
|
var xhr_object = null; |
||||||
|
|
||||||
|
if(window.XMLHttpRequest) // Firefox |
||||||
|
xhr_object = new XMLHttpRequest(); |
||||||
|
else if(window.ActiveXObject) // Internet Explorer |
||||||
|
xhr_object = new ActiveXObject("Microsoft.XMLHTTP"); |
||||||
|
else { // XMLHttpRequest non supporté par le navigateur |
||||||
|
alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest: sauvegarde impossible."); |
||||||
|
} |
||||||
|
|
||||||
|
function help(s){ |
||||||
|
xhr_object.open("GET", "$ENV{SCRIPT_NAME}?lmQuery=help&help="+s, true); |
||||||
|
xhr_object.onreadystatechange = function() { |
||||||
|
if(xhr_object.readyState == 4) document.getElementById('help').innerHTML=xhr_object.responseText; |
||||||
|
} |
||||||
|
xhr_object.send(null); |
||||||
|
} |
||||||
|
|
||||||
|
function saveConf(){ |
||||||
|
var h=tree2txt('root'); |
||||||
|
//document.getElementById('help').innerHTML="<pre>"+h+"</pre>"; |
||||||
|
xhr_object.open("POST", "$ENV{SCRIPT_NAME}?lmQuery=upload",true); |
||||||
|
xhr_object.setRequestHeader("Content-type", "text/xml"); |
||||||
|
xhr_object.setRequestHeader("Content-length", h.length); |
||||||
|
xhr_object.onreadystatechange = function() { |
||||||
|
if(xhr_object.readyState == 4){ |
||||||
|
var r=xhr_object.responseText; |
||||||
|
if(r>0) { |
||||||
|
tree.setItemText('root','Configuration '+r); |
||||||
|
document.getElementById('help').innerHTML='<h3>Configuration sauvegardée sous le numéro : '+r+'</h3>'; |
||||||
|
} |
||||||
|
else { |
||||||
|
document.getElementById('help').innerHTML='<h3>Échec de la sauvegarde</h3>'; |
||||||
|
} |
||||||
|
} |
||||||
|
else document.getElementById('help').innerHTML='<h3>Échec de la sauvegarde</h3>'; |
||||||
|
} |
||||||
|
xhr_object.send(h); |
||||||
|
} |
||||||
|
|
||||||
|
function tree2txt(id){ |
||||||
|
var s=tree.getSubItems(id); |
||||||
|
var c=s.split(','); |
||||||
|
var r='<'+id+"><text>"+ec(tree.getItemText(id))+"</text>\\n"; |
||||||
|
if((!s) || s=='' || c.length==0){ |
||||||
|
r+= '<value>'+ec(tree.getUserData(id,'value'))+"</value>\\n"; |
||||||
|
} |
||||||
|
else { |
||||||
|
for(var i=0;i<c.length;i++){ |
||||||
|
r+=tree2txt(c[i]); |
||||||
|
} |
||||||
|
} |
||||||
|
r+="</"+id+">\\n"; |
||||||
|
return r; |
||||||
|
} |
||||||
|
|
||||||
|
function ec(s){ |
||||||
|
if((!s) || s=='') return s; |
||||||
|
return s.replace(/>/g,'>').replace(/</g,'<'); |
||||||
|
} |
||||||
|
EOT |
||||||
|
} |
||||||
|
|
||||||
|
sub start_html { |
||||||
|
my $self = shift; |
||||||
|
my %args = @_; |
||||||
|
$args{'-style'} = { -src => [ $args{'-style'} ] } if($args{'-style'} and !ref($args{'-style'})); |
||||||
|
push @{$args{'-style'}->{'-src'}}, "$ENV{SCRIPT_NAME}?lmQuery=css"; |
||||||
|
$args{'-title'} ||= 'Lemonldap::NG Configuration'; |
||||||
|
$self->SUPER::start_html(%args); |
||||||
|
} |
||||||
|
|
||||||
|
sub main { |
||||||
|
# Lemonldap::Manager javascripts; |
||||||
|
print qq#<script type="text/javascript" src="$ENV{SCRIPT_NAME}?lmQuery=libjs"></script>#; |
||||||
|
print qq#<script type="text/javascript" src="$ENV{SCRIPT_NAME}?lmQuery=lmjs"></script>#; |
||||||
|
# HTML code |
||||||
|
print <<EOT; |
||||||
|
<div id='xBody'> |
||||||
|
<div class="clsTemporaryContainer"> |
||||||
|
<div style="visibility: visible;" id="idSplitter3" class="clsSplitter"> |
||||||
|
<div style="z-index: 2;" id="gauche" class="clsPane"> |
||||||
|
<div id="treeBox" style="width:200;height:200"></div> |
||||||
|
</div><!-- end Pane --> |
||||||
|
|
||||||
|
<div style="overflow: hidden; z-index: 2;" id="droit" class="clsPane"> |
||||||
|
<div style="visibility: visible;" id="idSplitter32" class="clsSplitter"> |
||||||
|
<div style="z-index: 2;" id="haut" class="clsPane"> |
||||||
|
<div id="buttons"></div> |
||||||
|
<div id="formulaire" style="display:none;"> |
||||||
|
<form onSubmit="return false"> |
||||||
|
<p></p> |
||||||
|
<table border=1 width="100%" style="empty-cells:show;"> |
||||||
|
<tr> |
||||||
|
<th width=200>Champ</th> |
||||||
|
<th width=400>Valeur</th> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td> |
||||||
|
<div id="name"> </div> |
||||||
|
</td> |
||||||
|
<td> |
||||||
|
<div id="value"> </div> |
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
</table> |
||||||
|
</form> |
||||||
|
</div> |
||||||
|
</div><!-- end Pane --> |
||||||
|
|
||||||
|
<div style="z-index: 2;" id="bas" class="clsPane"> |
||||||
|
<div id="help"></div> |
||||||
|
</div><!-- end Pane --> |
||||||
|
|
||||||
|
<div style="z-index: 1; cursor: n-resize;" id="barre2" class="clsDragBar"> |
||||||
|
|
||||||
|
</div> |
||||||
|
</div><!-- end Splitter --> |
||||||
|
</div><!-- end Pane --> |
||||||
|
|
||||||
|
<div style="z-index: 1; cursor: e-resize;" class="clsDragBar"> |
||||||
|
|
||||||
|
</div> |
||||||
|
</div><!-- end Splitter --> |
||||||
|
</div><!-- end TemporaryContainer --> |
||||||
|
</div> |
||||||
|
EOT |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in new issue