OSSP CVS Repository

ossp - Difference in ossp-pkg/tabea/tabea.cgi versions 1.37 and 1.38
Not logged in
[Honeypot]  [Browse]  [Home]  [Login]  [Reports
[Search]  [Ticket]  [Timeline
  [History

ossp-pkg/tabea/tabea.cgi 1.37 -> 1.38

--- tabea.cgi    2002/07/16 14:49:09     1.37
+++ tabea.cgi    2002/07/26 14:54:19     1.38
@@ -263,9 +263,13 @@
     my $text = '';
 
     $text .=
-    "<table cellspacing=0 cellpadding=0>" .
-    "  <tr>" .
-    "    <td>Username:</td>" .
+    "<center>" .
+    "<table border=0 cellspacing=0 cellpadding=0 align=center width=300>" .
+    "<trcolspan=2>".
+    "<th colspan=1 heigth=60 >Login<br>&nbsp;</th>".
+    "</tr>" .
+    "  <trcolspan =2>" .
+    "    <td colspan=2 width=150 height=40>Username:</td>" .
     "    <td>" .
     $cgi->textfield(
         -name => 'username',
@@ -276,7 +280,7 @@
     "    </td>" .
     "  </tr>" .
     "  <tr>" .
-    "    <td>Password:</td>" .
+    "    <td colspan=2 width=150>Password:</td>" .
     "    <td>" .
     $cgi->password_field(
         -name => 'password',
@@ -287,12 +291,15 @@
     "    </td>" .
     "  </tr>" .
     "  <tr>" .
-    "    <td colspan=2 align=right>" .
+    "    <td colspan=2 align=right height=60>" .
     $cgi->reset() .
+    "    </td>" .
+    "    <td>" .
     $cgi->submit(-name => 'dialog_mainw', -value => 'login') .
     "    </td>" .
     "  </tr>" .
-    "</table>" ;
+    "</table>" .
+    "</center>" .
     
     &logging("Starting Tabea");
 
@@ -332,21 +339,46 @@
 
     $text .=
     # Begin with templates part
+    "<center>" .
     "<br><br>" .
-    "<table>" .
-    "<tr>" .
+    
+    "<table height=60>" .
+
     "<td>" .
+    "<tr>" .
+
+    "<td width=150>" .
+
+    "<td width=100 valign=top align=left>" .
     "<font size=+1>" .
-    "Active User: $username<br><br>\n" .
+    "Active User:".
     "</font>" .
     "</td>" .
-    "<td>" .
+
+    "<td width=60 valign=top align=left>".
+    "<font size=+1 color=#FF0000>$username</font><br><br>\n" .
+    "</td>" .
+
+    "</td>" .
+
+    "<td valign=top align=left>" .
+    "<table>" .
+    "<tr>" .
+    "<td>".
     $cgi->submit(-name => 'dialog_logout', -value => 'Logout') .
+    "</td>".
+    "</tr>".
+    "</table>".
     "</td>" .
+
     "</tr>" .
+    "</td>" .
     "</table>".
-    "<table> <caption>Templates</caption>" .
-    "  <td>" .
+    
+    "<br><br>" .
+    "<table frame=above> <caption align=center size=+1>Templates</caption>" .
+    "<td height=100> </td>".
+    "  <td width=300>" .
     $cgi->scrolling_list(
         -name => 'templatelist',
         -value => [@templatesarray],
@@ -374,9 +406,9 @@
     "</table>" .
     # Now the configuration part
     "<br><br>" .
-    "<table> <caption>Configuration</caption>" .
-    "<td>" .
-    "    <td>" .
+    "<table frame=above> <caption align=center size=+1>Configuration</caption>" .
+    "<td height=200> </td>".
+    "    <td width=300>" .
     $cgi->scrolling_list(
         -name => 'configslist',
         -value => [@configsarray],
@@ -384,7 +416,7 @@
     ) .
     "   </td>" .
     "   <td>" .
-    "     <table>" .
+    "     <table cellspading=0 cellspacing=0 align=center>" .
     "      <tr><td>" .
     $cgi->submit(-name => 'dialog_new', -value => 'New') .
     "      </td></tr>" .
@@ -408,8 +440,8 @@
     "      </td></tr>" .
     "    </table>" .
     "  </td>" .
-    "<td>" .
-    "</table>" ;
+    "</table>" .
+    "</center>";
 
     return $text;
 }
@@ -489,8 +521,10 @@
                  $cgi->hidden(-name => 'editfile', -default => $filename );
         &logging("Edit file $filename");
     } else {
-        $text .= "<font color=red>Missing filename<br><br>\n" .
-                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
+        $text .= "<br><br><br><br>" .
+                 "<center><font color=red>Missing filename<br><br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>";
         &logging("Missing filename");
     }
 
@@ -515,14 +549,14 @@
     if (defined $fileout) {
         print $fileout $edittext;
         $fileout->close;
-        $form = 'mainw';
 
-        if($cgi->param("editfile") =~  $cfghash{'BaseDir'} . "tabea.cfg" ) {
+        if($cgi->param("editfile") =~  ($cfghash{'BaseDir'} . "tabea.cfg") ) {
             $password = "";
         }
 
         &logging("Saving $file");
 
+        $form = 'mainw';
         goto NEXTFORM;
     } else {
         $text .= "<font color=red>Cannot save file<br><br>\n";
@@ -547,8 +581,11 @@
         my $filename = $cfghash{'BaseDir'} . $cfghash{'ConfigDir'} . "/" . $cgi->param('templatelist');
         $text .= &editconfig($filename, 'r', $username);
     } else {
-        $text .= "<font color=red>Missing filename<br><br>\n" .
-        $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
+        $text .= "<br><br><br><br>" .
+                 "<center>" . 
+                 "<font color=red>Missing filename<br><br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back').
+                 "</center>"   ;
     }
     return $text;
 }
@@ -561,9 +598,13 @@
     my ($dirname, $user) = @_;
     my $text = '';
 
-    $text= "<font size=+2>" .
-    "New File:<br><br>\n" .
+    $text= "<center>" .
+    "<font size=+2>" .
+    "New File<br><br>\n" .
     "</font>" .
+    "</center>" .
+    "<br><br>" .
+    "<center>" .
     "<table spacing=0 cellpadding=0>" .
     "  <tr>" .
     "    <td>New Filename: $dirname " . "/" . "$user" . "/" . "</td>" .
@@ -589,13 +630,15 @@
     " </tr>" .
     "<tr><td><br></td></tr>" .
     "  <tr>" .
-    "<td></td>" .
-    "    <td colspan=2 align=left>" .
+    "    <td align=right>" .
     $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+          "</td>" .
+          "<td align=left>" .
     $cgi->submit(-name => 'dialog_newf', -value => 'Create') .
-    "    </td>" .
+          "</td>" .
     "  </tr>" .
-    "</table>";
+    "</table>" .
+    "<center>" ;
 
     return $text;
 }
@@ -642,11 +685,16 @@
         $text .= "<br><br><br>";
         $form = 'mainw';
         goto NEXTFORM;
+        $text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
     } else {
-        $text .= "<font color=red>Cannot write file. File exists<br><br>\n";
+        $text .= "<br><br><br><br>" .
+                 "<center>" .
+                 "<font color=red>Cannot write file. File exists<br><br><br>\n".
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>" ;
+
         &logging("Cannot write $newpath. File exists");
     }
-    $text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
 
     return $text;
 }
@@ -672,12 +720,17 @@
             $defaultright = "private";
         }
 
-        $text .= "<font size=+2>" .
-                 "Changing rights of file:<br><br>";
+        $text .= "<center>" .
+                 "<font size=+2>" .
+                 "Changing Rights of File<br><br><br>\n" .
+                 "</font>" .
+                 "</center>" ;
 
         $namefile =~ m{^([a-zA-Z0-9!"£\$%^&*()-_=+#~]+)/(.+)}sg;
         if ($1 eq $username) {
-            $text .= "<table>" .
+            $text .= "<br><br><br><br>" .
+            "<center>" .
+            "<table height=100 width=200>" .
             "<tr>" .
             " <td>" .
             "$namefile<br>" .
@@ -691,10 +744,21 @@
             ) .
             " </td>" .
             "</tr>" .
-            "</table>" .
-            "<br><br>" .
+
+            "<tr>" .
+            "<td align=right>" .
             $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
-            $cgi->submit(-name => 'dialog_changer', -value => 'Set_rights');
+            "</td>" .
+            "<td>" .
+            $cgi->submit(-name => 'dialog_changer', -value => 'Set_rights').
+            "</td>" .
+            "</tr>" .
+
+            "</td>" .
+            "</table>" .
+            "</center>" ;
+
+
             $confname = $cfghash{'BaseDir'} . $cfghash{'ConfigDir'} . "/" . $namefile;
             $text .= $cgi->hidden(-name => 'filename', -default => $namefile ) ;
         }
@@ -705,8 +769,11 @@
         }
     }
     else {
-        $text .= "<font color=red>Missing filename<br><br>\n" .
-                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
+        $text .= "<br><br><br><br>" .
+                 "<center>" .
+                 "<font color=red>Missing filename<br><br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>" ;
                  &logging("Cannot change rights of empty filename");
     }
 
@@ -722,10 +789,13 @@
     my $text = '';
     my $filerights = '';
 
-    $text = "<font size=+2>" .
+    $text = "<center>" .
+            "<font size=+2>" .
             "Changing rights of file:<br>" .
             "</font>" .
-            "<br><font size=+1> $filename </font> to <font size=+1> $newrights </font><br>";
+            "<br><font size=+1> $filename </font> to <font size=+1> $newrights </font><br>" .
+            "</center>" ;
+
     if ($newrights eq "private") {
         $filerights = '';
     }
@@ -758,20 +828,20 @@
     if ($filename) {
         my $srcfile = $cfghash{'BaseDir'} . $cfghash{'ConfigDir'} . "/" . $filename;
         $text .= $cgi->hidden(-name => 'srcfile', -default => $srcfile ) .
+        "<center>" .
         "<font size=+1>" .
-        "Copying File:<br>" .
+        "Copying File<br>" .
         "</font>" .
-        "<br><br>" .
-        "Active user: $username<br>" .
-        "<br>" .
-        "<table border=1 width=50%>" .
-        " <tr>" .
+        "</center>".
+        "<br><br><br>" .
+        "<center>" .
+        "<table width=300>" .
         "  <td>Sourcefile :</td>" .
-        "  <td>Destinationfile</td>" .
+        "  <td>$srcfile</td>" .
         " </tr>" .
         " <tr>" .
-        "  <td>$srcfile</td>" .
-        "  <td>" .
+        "  <td>Destinationfile:</td>" .
+        "  <td align=left>" .
         "   <table>" .
         "   <tr>" .
         "    <td>" . $cfghash{'BaseDir'} . $cfghash{'ConfigDir'} . "/" . $username . "/</td>" .
@@ -786,23 +856,24 @@
         "   </tr>" .
         "   </table>" .
         "  </td>" .
-        " </tr>" .
-        "</table>" .
-        "<br><br>" .
-        "<table>" .
-        " <td>" .
-        " <td>" .
+        "<tr>" .
+        " <td align=right height=60>" .
         $cgi->submit(-name => 'dialog_mainw', -value => 'Back').
         " </td>" .
         " <td>" .
         $cgi->submit(-name => 'dialog_copy', -value => 'Copy').
         " </td>" .
-        " </td>" .
-        "</table>" ;
+        "</tr>" .
+        " </tr>" .
+        "</table>" .
+        "</center>" ;
     }
     else {
-        $text .= "<font color=red>Missing filename<br><br>\n" .
-                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') ;
+        $text .= "<br><br><br><br>" .
+                 "<center>" .
+                 "<font color=red>Missing filename<br><br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>" ;
     }
 
     return $text;
@@ -828,18 +899,22 @@
             &logging("Deleting $fpath");
             $form = 'mainw';
             goto NEXTFORM;
+            $text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
         }
         else {
             $text .= "<font color=red>You can only delete file in your own directory<br><br>\n";
-            &loggong("Just delete your own files not $fpath");
+            &logging("Just delete your own files not $fpath");
         }
     }
     else {
-        $text .= "<font color=red>Missing filename<br><br>\n";
-        &loggin("Missing filename");
-    }
+        $text .= "<br><br><br><br>" .
+                 "<center>" .
+                 "<font color=red>Missing filename<br><br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>";
 
-    $text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
+        &logging("Missing filename");
+    }
 
     return $text;
 }
@@ -858,9 +933,12 @@
     my $outputtext = '';
 
     if ($runfile eq '') {
-        $text .= "<font color=red>No configuration selected <br><br>\n" ;
+        $text .= "<br><br><br><br>" .
+                 "<center>" .
+                 "<font color=red>No configuration selected <br><br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>" ;
         &logging("Cannot run configuration without configuration");
-        $text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
         return $text;
     }
     $rcommand =~ s|%{profile}%|$rpath|s;
@@ -869,10 +947,11 @@
         system("/bin/rm $output");
     }
 
-    $text .= "<font size=+2>" .
-             "Running Configuration: $rpath<br><br>\n" .
+    $text .= "<center>" .
+             "<font size=+2>" .
+             "Running Configuration<br><br>\n" .
              "</font>" .
-             "<br><br>" ;
+             "</center>" ;
 
     system("$rcommand > $output 2>&1");
     &logging("Running command $rcommand");
@@ -891,13 +970,36 @@
             -columns => 80
         };
         $outputhash->{readonly} = "";
-        $text .= $cgi->textarea($outputhash) . "<br>";
+
+        $text .= "<center>" ."<br>".
+                 "<table width=575>" .
+                 "<td>" .
+                 "Configuration filename:" .
+                 "</td>" .
+                 "<td align=right>" .
+                 $rpath .
+                 "</td>" .
+                 "</table>" .
+                 "<br><br>" .
+                 $cgi->textarea($outputhash) . 
+                 "<br><br>" .
+                 "<table>" .
+                 "<tr>" .
+                 "<td align=center width=575 height=60>" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</td>" .
+                 "</tr>" .
+                 "</table>" .
+                 "</center>" ;
     }
     else {
-        $text .= "<font color=red>Run command not working<br><br>\n";
+        $text .= "<center>" .
+                 "<font color=red>Run command not working<br><br>\n" .
+                 $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                 "</center>" ;
+
         &logging("Run command $rcommand not working");
     }
-    $text .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
 
     return $text;
 }
@@ -913,9 +1015,17 @@
     my @userlistarray = split(/\s/, $userlist);
    
     $akt_user = $username; 
-    &logging("Using admin section");
-    $text .= "<table>" .
-    "<td>".
+
+    $text .= "<center>" .
+             "<font size=+2>" .
+             "Administration<br><br>\n" .
+             "</font>" .
+             "</center>" ;
+
+    $text .= "<br><br><br>" .
+    "<center>" .
+    "<table width=300 frame=hsides>" .
+    "<td align=left>".
 
 
 #    $cgi->popup_menu(
@@ -936,17 +1046,16 @@
     $text .= "</select>" .
 
     "</td>" .
-    "<td>" .
+    "<td align=right>" .
 
     "<table>" .
-
     "<tr>" .
-    "<td>" .
+    "<td align=right>" .
     $cgi->submit(-name => 'dialog_nuser', -value => 'New User').
     "</td>" .
     "</tr>" .
     "<tr>" .
-    "<td>" .
+    "<td align=right>" .
     $cgi->submit(-name => 'dialog_duser', -value => 'Del User').
     "</td>" .
     "</tr>" .
@@ -956,12 +1065,13 @@
     "</td>" .
     "</table>" .
 
-    "<br><br>" .
-    "<table>" .
-    "<td>" .
+    "<br><br><br>" .
+    "<table height=60 frame=hsides>" .
+    
+    "<td align=left>" .
     $cgi->submit(-name => 'dialog_cfgedit', -value => 'Edit Configuration') .
     "</td>" .
-    "<td>" .
+    "<td align=right>" .
     $cgi->submit(-name => 'dialog_chpwd', -value => 'Change Password') .
     "</td>" .
 
@@ -969,7 +1079,8 @@
 
 
     "<br><br>" .
-    $cgi->submit(-name => 'dialog_mainw', -value => 'Back') ;
+    $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+    "</center>" ;
 
 
 
@@ -983,12 +1094,30 @@
 ########################################################################################
     my ($user) = @_;
     my $ctext;
+    my $texttitle;
+
+    if ($user =~ $cfghash{'TabeaUser'}) {
+        $texttitle = "Administration: Change Password";
+    } else {
+        $texttitle = "Change Password";
+    }
 
-    $ctext .= "<br>Changing the password of $user<br><br>";
-    $ctext .= "<table cellspacing=0 cellpadding=0>" ;
+
+    $ctext .= "<center>" .
+              "<font size=+2>" .
+              $texttitle . "<br><br>\n" .
+              "</font>" .
+              "</center>" ;
+
+    $ctext .= "<center>" .
+              "<table cellspacing=0 cellpadding=0 width=500>" ;
     if ( (($username eq $cfghash{'TabeaUser'}) && ($user eq $cfghash{'TabeaUser'}) )
            || ($username ne $cfghash{'TabeaUser'}) ) { 
-    $ctext .= "  <tr>" .
+    $ctext .= "<tr height=80>" .
+              "<td>Changing the password of </td><td align=left>$user</td>" .
+        "</tr>" .
+
+        "<tr>" .
         "    <td>Old Password:</td>" .
         "    <td>" .
         $cgi->password_field(
@@ -999,8 +1128,7 @@
         ) .
         "    </td>" .
         "  </tr>" ; 
-    }
-
+    } 
 
     $ctext .= "  <tr>" .
     "    <td>New Password:</td>" .
@@ -1025,19 +1153,22 @@
     ) .
     "    </td>" .
     "  </tr>" . 
-    "  <tr>" .
-    "    <td colspan=2 align=right>" .
-    $cgi->reset() ;
+    "  <tr height=60>" .
+    "    <td align=left>" ;
     if ( $cgi->param('username') eq $cfghash{'TabeaUser'}) {
         $ctext .= $cgi->submit(-name => 'dialog_admin', -value => 'Back');
     } else {
         $ctext .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
     }
-
-    $ctext .= $cgi->submit(-name => 'dialog_changepwd', -value => 'Change') .
-    "    </td>" .
-    "  </tr>" . 
-    "</table>" ;
+    $ctext .= "</td>" .
+              "<td align=left>" .
+              $cgi->reset() .
+              $cgi->submit(-name => 'dialog_changepwd', -value => 'Change') .
+              "</td>" .
+              "</tr>" .
+              "</td>" . 
+              "</table>" .
+              "</center>" ;
     
     return $ctext;
     
@@ -1066,13 +1197,15 @@
         $valid = 1; 
     }
     if ( !$valid ) {
-        $cptext .= "<font color=red>The password is incorrect.<br><br>\n";
+        $cptext .= "<center>" .
+                   "<font color=red>The password is incorrect.<br><br>\n";
         &logging("Password is incorrect");
         if ( $cgi->param('username') eq $cfghash{'TabeaUser'}) {
             $cptext .= $cgi->submit(-name => 'dialog_admin', -value => 'Back');
         } else {
             $cptext .= $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
         }
+        $cptext .= "</center>";
     } else {
         if ($new1_password eq $new2_password) {
             $pwdfp = IO::File->new("<$pwdfile");
@@ -1093,9 +1226,11 @@
             $form = 'mainw';
             goto NEXTFORM;
         } else {
-          $cptext .= "<font color=red>The password you typed do not match. Type the same password. ".
-            "in both boxes<br><br>\n".
-            $cgi->submit(-name => 'dialog_mainw', -value => 'Back');
+          $cptext .= "<center>" .
+                     "<font color=red>The password you typed do not match. Type the same password. ".
+                     "in both boxes<br><br>\n".
+                     $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
+                     "</center>" ;
             &logging("The password in the two boxes are not the same");
         } 
     }
@@ -1111,12 +1246,18 @@
 ########################################################################################
     my $text;
 
-    $text .= 
-    "Akt User: $akt_user" .
-    "<table cellspacing=0 cellpadding=0>" .
-    "  <tr>" .
-    "    <td>New User:</td>" .
-    "    <td>" .
+    $text .= "<center>" .
+    "<font size=+2>" .
+    "Administration: New User<br><br>\n" .
+    "</font>" .
+    "</center>" .
+
+    "<br><br><br>" .
+    "<center>" .
+    "<table>" .
+    "<tr height=60>" .
+    "<td>New User:</td>" .
+    "<td>" .
     $cgi->textfield(
         -name => 'akt_user',
         -default => "",
@@ -1126,20 +1267,17 @@
     ) .
     "    </td>" .
     "  </tr>" .
-    "</table>" .
-  
-    "<br><br>" .
- 
-    "<table>" . 
 
-    "<td>" .
+    "<tr height=60>" .
+    "<td align=right>" .
     $cgi->submit(-name => 'dialog_admin', -value => 'Back').
     "</td>" .
     "<td>" .
-    $cgi->submit(-name => 'dialog_newuser', -value => 'Write User').
+    $cgi->submit(-name => 'dialog_newuser', -value => 'Create User').
     "</td>" .
-
-    "</table>" ;
+    "</tr>" .
+    "</table>" .
+    "</center>" ;
     
     
     return $text;
@@ -1165,11 +1303,19 @@
         $nuser = "";
     }
 
+    $ntext .= "<center>" .
+      "<font size=+2>" .
+      "Administration: New User<br><br>\n" .
+      "</font>" .
+      "</center>"  ;
+
     if ( $nuser eq  "" ) {
-        $ntext .= "<font color=red>" .
+        $ntext .= "<center>".
+        "<font color=red>" .
         "<br>Username wrong<br><br>" .
         "</font>" .
-        $cgi->submit(-name => 'dialog_admin', -value => 'Back');
+        $cgi->submit(-name => 'dialog_admin', -value => 'Back') .
+        "</center>" ;
         &logging("Username is wrong");
     } else {
         $pwdin = IO::File->new("<$pwdfile");
@@ -1207,17 +1353,21 @@
             }
 
            
-            $ntext .= "<font color=red>" .
+            $ntext .= "<enter>".
+                "<font color=red>" .
                 "User $nuser created</font><br><br>" .
-                $cgi->submit(-name => 'dialog_admin', -value => 'Back');    
+                $cgi->submit(-name => 'dialog_admin', -value => 'Back').
+                "</center>" ;
                 &logging("New use $nuser created");
                 
 
         } else {
-            $ntext .= "<font color=red>" .
+            $ntext .= "<center>" .
+            "<font color=red>" .
             "<br>User exists <br><br>" .
             "</font>" .
-            $cgi->submit(-name => 'dialog_admin', -value => 'Back');
+            $cgi->submit(-name => 'dialog_admin', -value => 'Back') .
+            "</center>";
             &logging("Cannot create user $nuser. The user exists.")
         }
     }
@@ -1239,24 +1389,24 @@
     }
 
     if (! $derror ) {
-        $text .= 
-    
-        "<table>" .
+        $text .= "<center>" .
+        "<font size=+2>" .
+        "Administration: Delete User<br><br>\n" .
+        "</font>" .
+        "</center>" .
+        "<br><br><br>" .
+        "<center>" . 
+        "<table width=200>" .
         "<td>" .
-        "<font color=red>" . 
         "User to delete :" .
-        "</font>" .
         "</td>".
-
         "<td>" .
+        "<font color=red>" . 
         "$duser" .
+        "</font>" .
         "</td>" .
-
-    
         "</table>" .
-
         "<br><br>" .
-
 #    $cgi->checkbox(-name=>'del_u_files',
 #                   -value=>'del_files',
 #                   -checked=>'',
@@ -1264,20 +1414,16 @@
 #                   -checked=> 
 #                  ) .
         "<input type=\"checkbox\" name=\"del_u_files\" value=\"del_files\" />Delete files of user" .
-
-        "<br><br><br>" .
-
-        "<table>" .
-
-        "<td>" .
+        "<br><br>" .
+        "<table width=200 height=60>" .
+        "<td align=right>" .
         $cgi->submit(-name => 'dialog_admin', -value => 'Back').
         "</td>" .
         "<td>" .
         $cgi->submit(-name => 'dialog_d2user', -value => 'Del User').
         "</td>" .
-
-        "</table>" ;
-
+        "</table>" .
+        "</center>" ;
     } else {
         $text .=
         "<font color=red>" .
@@ -1301,17 +1447,23 @@
     my ($duser) = @_;
     my $dtext;
 
-    $dtext .= 
-    
+    $dtext .= "<center>" .
+    "<font size=+2>" .
+    "Administration: Delete User<br><br>\n" .
+    "</font>" .
+    "</center>" .
+    "<br><br><br>" .
+   
+    "<center>" . 
     "<table>" .
     "<td>" .
-    "<font color=red>" . 
     "User to delete :" .
-    "</font>" .
     "</td>".
 
     "<td>" .
+    "<font color=red>" . 
     "$duser" .
+    "</font>" .
     "</td>" .
     
     "</table>" ;
@@ -1333,7 +1485,8 @@
     $cgi->submit(-name => 'dialog_d3user', -value => 'Really delete user').
     "</td>" .
 
-    "</table>" ;
+    "</table>" .
+    "</center>" ;
 
 
     return $dtext;
@@ -1355,17 +1508,24 @@
     my $uname;
 
 
-    $d3text .= 
-    
+    $d3text .= "<center>" .
+    "<font size=+2>" .
+    "Administration: Delete User<br><br>\n" .
+    "</font>" .
+    "</center>" .
+    "<br><br><br>" .
+   
+    "<center>" . 
     "<table>" .
     "<td>" .
-    "<font color=red>" . 
-    "User to delete :" .
-    "</font>" .
+    "Deleting user:" .
     "</td>".
 
     "<td>" .
+
+    "<font color=red>" . 
     "$duser" .
+    "</font>" .
     "</td>" .
     
     "</table>" .
@@ -1401,7 +1561,8 @@
 
     $d3text .= "<br>" .
 
-    $cgi->submit(-name => 'dialog_admin', -value => 'Back');
+    $cgi->submit(-name => 'dialog_admin', -value => 'Back') .
+    "</center>" ;
 
 
     return $d3text;
@@ -1430,10 +1591,15 @@
     my ($srcf, $dstf) = @_;
     my $text = '';
 
-    $text .= "<font size=+1>" .
+    $text .= "<center>" .
+             "<font size=+1>" .
              "Copying File:<br>" .
-             "</font><br><br>" .
-             "Copying from <font size=+1>$srcf</font> to <font size=+1>$dstf</font><br><br>";
+             "</font>" .
+             "</center>" .
+             "<br><br>" .
+             "<center>" .
+             "Copying from <font size=+1>$srcf</font> to <font size=+1>$dstf</font><br><br>".
+             "</center>" ;
 
     system("cp $srcf $dstf") && die "Cannot copy file";
     system("chmod o= $dstf") && die "Cannot change file rights";
@@ -1601,27 +1767,43 @@
     if ($mode eq 'r') {
         $textahash->{readonly}="";
     }
-    $texte .= "<font size=+2>" .
-              $titletext . ":   <br><br>\n" .
-              "</font>" .
-              "<font size=+1>" .
-              "File: $file<br><br>\n" .
+    $texte .= "<center>" .
+              "<font size=+2>" .
+              $titletext . "<br><br>\n" .
               "</font>" .
+              "</center>" .
+              "<br>" .  
+              "<center>" .
+              "<table width=500>" .
+              "<td>".
+              "<tr>" .              
+              "<td align=center>".
+              "<font size=+1>File:</font>" .
+              "</td>".
+              "<td align=center>".
+              "<font size=+1>$file</font>".
+              "</td>\n" .
+              "</tr>" .
+              "</table>" .
+              "<br>" .
               $cgi->textarea($textahash).
               "<br><br>\n" .
-              "<table>" .
+              "<table width=500>" .
               "  <td>" .
-              "    <td>" .
+              "    <td align=center>" .
               $cgi->submit(-name => 'dialog_mainw', -value => 'Back') .
               "   </td>";
     if ($mode eq 'w') {
-        $texte .= "   <td>" .
+        $texte .= "   <td align=center>" .
                   $cgi->submit(-name => 'dialog_save', -value => 'Save') .
                   "   </td>";
     }
     $texte .= "  <td>" .
               " </td>" .
-              "</table>";
+              "</table>" .
+              "</td>" .
+              "</table>" .
+              "</center>" ;
     return $texte;
 }
 ########################################################################################

CVSTrac 2.0.1