--- 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> </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;
}
########################################################################################
|
