print "Content-type: text/html\n\n";
# TODO
-# do not accept "..." as input file
# what happens when files are not writable?
-# cannot inherit from files with the wrong specification!
+# delete button
+# field size information
+# check for maximum value
# DONE
# do not include wrong type, different specfile
# whine, wenn specfile/setfiles not found
# supress circular dependencies
# nested include graphic
+# cannot inherit from files with the wrong specification!
+# do not accept "..." as input file
my $me = "cgitest.pl";
if ( $cgiHash{'print'} eq 'spectree' ) {
print "<div class='header'>Available Settings</div>\n";
- unless(-e $confDir."/".$cgiHash{'configFile'}){
+ unless ( -e $confDir . "/" . $cgiHash{'configFile'} ) {
print "<p>config file does not exist</p>";
exit;
}
parseSetAndSpec( $cgiHash{'configFile'} );
- print "<div class='ancestorInfo' align='center'>specifications loaded from $specfileName</div>";
+ print
+"<div class='ancestorInfo' align='center'>specifications loaded from $specfileName</div>";
print_registers($specfile);
}
if ( $cgiHash{'print'} eq 'settree' ) {
print "<div class='header'>Selected Settings</div>\n";
- unless(-e $confDir."/".$cgiHash{'configFile'}){
+ unless ( -e $confDir . "/" . $cgiHash{'configFile'} ) {
print "<p>config file does not exist</p>";
exit;
}
parseSetAndSpec( $cgiHash{'configFile'} );
- buildAncestry($setfileName,""); #arg1: target file, # arg2: recursion parent target file
+ buildAncestry( $setfileName, "" )
+ ; #arg1: target file, # arg2: recursion parent target file
# assignFieldColors();#obsolete
if ( $cgiHash{'action'} eq 'createFile' ) {
createFile( $cgiHash{'configFile'}, $cgiHash{'specFile'} );
}
+
+ if ( $cgiHash{'action'} eq 'deleteFile' ) {
+ deleteFile( $cgiHash{'configFile'} );
+ }
+
if ( $cgiHash{'action'} eq 'changeAncestor' ) {
parseSet( $cgiHash{'configFile'} );
changeAncestor( $cgiHash{'newAncestor'} );
#################### SUBLAND ######################
+sub deleteFile {
+ my $configFileName = $_[0];
+ my $configFile = $confDir . "/" . $configFileName;
+ unless ( -e $configFile ) {
+ print "<p>selected file not found</p>";
+ exit;
+ }
+ unlink($configFile);
+ print "<p>config file was deleted</p>";
+}
+
sub createFile {
my $configFileName = $_[0];
#print "my ancestry:<br>";
print "<table class='fileLevel'><tr><td>";
+
#print "<table class='fileLevel1' padding=0 spacing=0><tr><td>";
if (@ancestryList)
{ # if ancestry is not empty, print current ancestry as a nested table
for my $ancestor (@ancestryList) {
print "$ancestor</td>";
- if ($fileLevelHash{$ancestor} eq "1"){
- print <<EOF;
+ if ( $fileLevelHash{$ancestor} eq "1" ) {
+ print <<EOF;
<td class='button_move' title='unlink includes' onclick='changeAncestor("")'> X </td>
EOF
"changeAncestor(this.options[this.selectedIndex].text)" );
}
+
#print "</td></tr></table>";
print "</td></tr><tr><td>";
print "$setfileName";
parseSet( $_[0] );
$specfileName = $settree->findvalue("/MAPS/\@specDbFile");
$specfile = $specDir . "/" . $specfileName;
- unless(-e $specfile){
- print "<p>specification file \"$specfileName\" could not be found in the specification directory \"$specDir\"</p>";
+ unless ( -e $specfile ) {
+ print
+"<p>specification file \"$specfileName\" could not be found in the specification directory \"$specDir\"</p>";
exit;
}
- $spectree = $parser->parse_file($specfile);
+ $spectree = $parser->parse_file($specfile);
}
sub parseSet {
}
sub buildAncestry { # recursive
- my $xmlfileName = $_[0];
+ my $xmlfileName = $_[0];
my $parentXmlFileName = $_[1];
if ( $xmlfileName eq "" ) {
return;
}
-
- if ($parentXmlFileName eq $xmlfileName) {
+
+ # check if you are not including yourself
+ if ( $parentXmlFileName eq $xmlfileName ) {
print "<p>It's a bad idea to try to include yourself!</p>";
-
print "<p>The faulty include directive was removed.</p>";
-
print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- exit;
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ exit;
}
-
- for (@ancestryList){ # suppres circular dependencies!
- if ($xmlfileName eq $_) {
+ # check against circular dependencies
+ for (@ancestryList) { # suppres circular dependencies!
+ if ( $xmlfileName eq $_ ) {
print "<p>No circular includes, please!</p>";
print "<p>";
- print $parentXmlFileName."->".join("->",@ancestryList)."->".$setfileName;
+ print $parentXmlFileName. "->"
+ . join( "->", @ancestryList ) . "->"
+ . $setfileName;
print "</p>";
print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
+ print
+ "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
exit;
+
#die "no circular includes please! $!";
return;
}
}
+ my $xmlfile = $confDir . "/" . $xmlfileName;
+
+ # check if all files in the ancestry really exist!
+ unless (-e $xmlfile) {
+
+ print "<p>You are trying to include a file that does not exist</p>";
+ print "<p>";
+ print "<strike>".$xmlfileName."</strike>"."->"
+ . join( "->", @ancestryList ) . "->"
+ . $setfileName;
+ print "</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ exit;
+ return;
+ }
-
- my $xmlfile = $confDir . "/" . $xmlfileName;
my $xmltree;
if ( $xmlfile eq $setfile ) {
$xmltree = $settree;
}
else {
+
# we got an ancestor here, write him to the ancestor list
unshift( @ancestryList, $xmlfileName );
$xmltree = $parser->parse_file($xmlfile);
my $ancestorFileName = $xmltree->findvalue("/MAPS/\@inheritSettingsFrom")
|| "";
- my $currentMapsType = $xmltree->findvalue("/MAPS/\@type");
+ my $currentMapsType = $xmltree->findvalue("/MAPS/\@type");
my $currentSpecFileName = $xmltree->findvalue("/MAPS/\@specDbFile");
-
+
# compliance checking MAPS type
- unless ($currentMapsType eq $setMapsType){
- print "<p>the included config file does not comply with the MAPS type of the current config file</p>";
- print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- exit;
+ unless ( $currentMapsType eq $setMapsType ) {
+ print
+"<p>the included config file does not comply with the MAPS type of the current config file</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ exit;
}
+
# compliance checking specDbFile
- unless ($currentSpecFileName eq $specfileName){
- print "<p>the included config file is not based on the same specification file as current config file</p>";
- print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- exit;
+ unless ( $currentSpecFileName eq $specfileName ) {
+ print
+"<p>the included config file is not based on the same specification file as current config file</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ exit;
}
unless ( $ancestorFileName eq "" ) {
# this block is executed when an ancestor is found
- buildAncestry($ancestorFileName,$xmlfileName); # recursion, second argument is the target file from THIS parent recursion call
+ buildAncestry( $ancestorFileName, $xmlfileName )
+ ; # recursion, second argument is the target file from THIS parent recursion call
#integrate the current tree into the ancestryTree, overwrite older settings
mergeTrees( $ancestryTree, $xmltree );
my $configFile = $_[0];
- print "<table>";
- print "<tr><td>";
- print "<table>";
- print "<tr>";
- print "<td>selected config file:<td>";
- print "</tr>";
-
- print "<tr>";
-
- print "<td>";
+ print "<p>selected config file</p>";
+ print "<p>";
+
print_fileSelector( $configFile, "fileSelector", "loadFile()" );
- print "</td>";
-
- print "<td>";
print
"<input type='button' onclick='loadFile()' value='reload file' class='stdbutton'>";
- print "</td>";
-
- print "</tr>";
-
- print "</table>";
-
- print "</td>";
-
- print "<td style='border-right:1px solid #000000'><br></td>";
-
- print "<td>";
- print "<table>";
- print "<tr><td colspan=2>";
- print "create new config file:";
- print "</td></tr>";
+ print
+"<input type='button' onclick='deleteFile()' value='delete file' class='stdbutton'>";
- print "<tr><td>";
+ print "</p>";
+
+
+ print "<p>create new config file</p>";
+ print "<p>";
print "<input type='text' value='' id='newFileName'>";
- print "</td><td>";
print_specSelector();
- print "</td><td>";
- print
-"<input type='button' onclick='createFile()' value='create file' class='stdbutton'>";
- print "</td></tr>";
+ print "<input type='button' onclick='createFile()' value='create file' class='stdbutton'>";
+
+ print "</p>";
- print "</table>";
- print "</td>";
- print "</tr></table>";
+
+
+# print "<table>";
+# print "<tr><td>";
+# print "<table>";
+# print "<tr>";
+# print "<td>selected config file:<td>";
+# print "</tr>";
+#
+# print "<tr>";
+#
+# print "<td>";
+# print_fileSelector( $configFile, "fileSelector", "loadFile()" );
+# print "</td>";
+#
+# print "<td>";
+# print
+#"<input type='button' onclick='loadFile()' value='reload file' class='stdbutton'>";
+# print
+#"<input type='button' onclick='deleteFile()' value='delete file' class='stdbutton'>";
+# print "</td>";
+#
+# print "</tr>";
+#
+# print "</table>";
+#
+# print "</td>";
+#
+# print "<td style='border-right:1px solid #000000'><br></td>";
+#
+# print "<td>";
+# print "<table>";
+# print "<tr><td colspan=2>";
+# print "create new config file:";
+# print "</td></tr>";
+#
+# print "<tr><td>";
+# print "<input type='text' value='' id='newFileName'>";
+# print "</td><td>";
+# print_specSelector();
+# print "</td><td>";
+# print
+#"<input type='button' onclick='createFile()' value='create file' class='stdbutton'>";
+# print "</td></tr>";
+#
+# print "</table>";
+# print "</td>";
+# print "</tr></table>";
}
sub changeAncestor {
reloadSetTree();
}
+function deleteFile(){
+ var file_ = encodeURIComponent(selectedConfigFile());
+ getdata('$me?action=deleteFile&configFile='+file_,false);
+ loadFile();
+}
+
function selectedConfigFile(){
if(document.getElementById("fileSelector")){
jspc29 / mvdsensorcontrol.git / commitdiff