mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
f8aa06792f
Almost all of <input type="image"... has both an alt and a title attribute, but some are missing title, and when the icon is not very clear, it makes it harder to understand what the icon does. By adding title, the browser displays text when mouse pointer is over the icon. Also add missing quotes for alt and title attributes where needed.
249 lines
8.7 KiB
Perl
249 lines
8.7 KiB
Perl
#!/usr/bin/perl
|
|
###############################################################################
|
|
# #
|
|
# IPFire.org - A linux based firewall #
|
|
# Copyright (C) 2011 IPFire Team <info@ipfire.org> #
|
|
# #
|
|
# This program is free software: you can redistribute it and/or modify #
|
|
# it under the terms of the GNU General Public License as published by #
|
|
# the Free Software Foundation, either version 3 of the License, or #
|
|
# (at your option) any later version. #
|
|
# #
|
|
# This program is distributed in the hope that it will be useful, #
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
|
# GNU General Public License for more details. #
|
|
# #
|
|
# You should have received a copy of the GNU General Public License #
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
|
# #
|
|
###############################################################################
|
|
|
|
use strict;
|
|
# enable only the following on debugging purpose
|
|
#use warnings;
|
|
#use CGI::Carp 'fatalsToBrowser';
|
|
|
|
require '/var/ipfire/general-functions.pl';
|
|
require "${General::swroot}/lang.pl";
|
|
require "${General::swroot}/header.pl";
|
|
|
|
my %extrahdsettings = ();
|
|
my $message = "";
|
|
my $errormessage = "";
|
|
my $size = "";
|
|
my $ok = "true";
|
|
my @tmp = ();
|
|
my @tmpline = ();
|
|
my $tmpentry = "";
|
|
my @devices = ();
|
|
my @deviceline = ();
|
|
my $deviceentry = "";
|
|
my @scans = ();
|
|
my @scanline = ();
|
|
my $scanentry = "";
|
|
my @partitions = ();
|
|
my @partitionline = ();
|
|
my $partitionentry = "";
|
|
my $devicefile = "/var/ipfire/extrahd/devices";
|
|
my $scanfile = "/var/ipfire/extrahd/scan";
|
|
my $partitionsfile = "/var/ipfire/extrahd/partitions";
|
|
system("/usr/local/bin/extrahdctrl scanhd ide");
|
|
system("/usr/local/bin/extrahdctrl scanhd partitions");
|
|
|
|
&Header::showhttpheaders();
|
|
|
|
### Values that have to be initialized
|
|
$extrahdsettings{'PATH'} = '';
|
|
$extrahdsettings{'FS'} = '';
|
|
$extrahdsettings{'DEVICE'} = '';
|
|
$extrahdsettings{'ACTION'} = '';
|
|
$extrahdsettings{'UUID'} = '';
|
|
|
|
&General::readhash("${General::swroot}/extrahd/settings", \%extrahdsettings);
|
|
&Header::getcgihash(\%extrahdsettings);
|
|
|
|
&Header::openpage('ExtraHD', 1, '');
|
|
&Header::openbigbox('100%', 'left', '', $errormessage);
|
|
|
|
############################################################################################################################
|
|
############################################################################################################################
|
|
|
|
if ($extrahdsettings{'ACTION'} eq $Lang::tr{'add'})
|
|
{
|
|
open( FILE, "< $devicefile" ) or die "Unable to read $devicefile";
|
|
@devices = <FILE>;
|
|
close FILE;
|
|
foreach $deviceentry (sort @devices)
|
|
{
|
|
@deviceline = split( /\;/, $deviceentry );
|
|
if ( "$extrahdsettings{'PATH'}" eq "$deviceline[2]" ) {
|
|
$ok = "false";
|
|
$errormessage = "$Lang::tr{'extrahd you cant mount'} $extrahdsettings{'DEVICE'} $Lang::tr{'extrahd to'} $extrahdsettings{'PATH'}$Lang::tr{'extrahd because there is already a device mounted'}.";
|
|
}
|
|
if ( "$extrahdsettings{'PATH'}" eq "/" ) {
|
|
$ok = "false";
|
|
$errormessage = "$Lang::tr{'extrahd you cant mount'} $extrahdsettings{'DEVICE'} $Lang::tr{'extrahd to root'}.";
|
|
}
|
|
}
|
|
|
|
if ( "$ok" eq "true" ) {
|
|
open(FILE, ">> $devicefile" ) or die "Unable to write $devicefile";
|
|
print FILE <<END
|
|
UUID=$extrahdsettings{'UUID'};$extrahdsettings{'FS'};$extrahdsettings{'PATH'};
|
|
END
|
|
;
|
|
system("/usr/local/bin/extrahdctrl mount $extrahdsettings{'PATH'}");
|
|
}
|
|
}
|
|
elsif ($extrahdsettings{'ACTION'} eq $Lang::tr{'delete'})
|
|
{
|
|
if ( `/usr/local/bin/extrahdctrl umount $extrahdsettings{'PATH'}` ) {
|
|
open( FILE, "< $devicefile" ) or die "Unable to read $devicefile";
|
|
@tmp = <FILE>;
|
|
close FILE;
|
|
open( FILE, "> $devicefile" ) or die "Unable to write $devicefile";
|
|
foreach $deviceentry (sort @tmp)
|
|
{
|
|
@tmpline = split( /\;/, $deviceentry );
|
|
if ( $tmpline[2] ne $extrahdsettings{'PATH'} )
|
|
{
|
|
print FILE $deviceentry;
|
|
}
|
|
}
|
|
close FILE;
|
|
} else {
|
|
$errormessage = "$Lang::tr{'extrahd cant umount'} $extrahdsettings{'PATH'}$Lang::tr{'extrahd maybe the device is in use'}?";
|
|
}
|
|
}
|
|
|
|
if ($errormessage) {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
|
print "<class name='base'>$errormessage\n";
|
|
print " </class>\n";
|
|
&Header::closebox();
|
|
}
|
|
|
|
############################################################################################################################
|
|
############################################################################################################################
|
|
|
|
open( FILE, "< $devicefile" ) or die "Unable to read $devicefile";
|
|
@devices = <FILE>;
|
|
close FILE;
|
|
print <<END
|
|
<table border='0' width='600' cellspacing="0">
|
|
END
|
|
;
|
|
foreach $deviceentry (sort @devices)
|
|
{
|
|
@deviceline = split( /\;/, $deviceentry );
|
|
my $color="$Header::colourred";
|
|
if ( ! `/bin/mountpoint $deviceline[2] | grep " not "` ) {
|
|
$color=$Header::colourgreen;
|
|
}
|
|
print <<END
|
|
<tr><td colspan="4"> </td></tr>
|
|
<tr><td align='left'><font color=$color><b>$deviceline[0]</b></font></td>
|
|
<td align='left'>$deviceline[1]</td>
|
|
<td align='left'>$deviceline[2]</td>
|
|
<td align='center'>
|
|
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='hidden' name='DEVICE' value='$deviceline[0]' />
|
|
<input type='hidden' name='FS' value='$deviceline[1]' />
|
|
<input type='hidden' name='PATH' value='$deviceline[2]' />
|
|
<input type='hidden' name='ACTION' value=$Lang::tr{'delete'} />
|
|
<input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/delete.gif' />
|
|
</form></td></tr>
|
|
END
|
|
;
|
|
}
|
|
print <<END
|
|
</table>
|
|
END
|
|
;
|
|
&Header::openbox('100%', 'center', $Lang::tr{'extrahd detected drives'});
|
|
print <<END
|
|
<table border='0' width='600' cellspacing="0">
|
|
END
|
|
;
|
|
open( FILE, "< $scanfile" ) or die "Unable to read $scanfile";
|
|
@scans = <FILE>;
|
|
close FILE;
|
|
open( FILE, "< $partitionsfile" ) or die "Unable to read $partitionsfile";
|
|
@partitions = <FILE>;
|
|
close FILE;
|
|
foreach $scanentry (sort @scans)
|
|
{
|
|
@scanline = split( /\;/, $scanentry );
|
|
# remove wrong entries like usb controller name
|
|
if ($scanline[1] ne "\n")
|
|
{
|
|
print <<END
|
|
<tr><td colspan="5"> </td></tr>
|
|
<tr><td align='left' colspan="2"><b>/dev/$scanline[0]</b></td>
|
|
<td align='center' colspan="2">$scanline[1]</td>
|
|
END
|
|
;
|
|
|
|
}
|
|
foreach $partitionentry (sort @partitions)
|
|
{
|
|
@partitionline = split( /\;/, $partitionentry );
|
|
if ( "$partitionline[0]" eq "$scanline[0]" ) {
|
|
$size = int($partitionline[1] / 1024);
|
|
print <<END
|
|
<td align='center'>$Lang::tr{'size'} $size MB</td>
|
|
<td> </td></tr>
|
|
<tr><td colspan="5"> </td></tr>
|
|
END
|
|
;
|
|
}
|
|
}
|
|
|
|
foreach $partitionentry (sort @partitions)
|
|
{
|
|
@partitionline = split( /\;/, $partitionentry );
|
|
if (( "$partitionline[0]" =~ /^$scanline[0]/ ) && !( "$partitionline[2]" eq "" )) {
|
|
$size = int($partitionline[1] / 1024);
|
|
print <<END
|
|
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
|
<tr><td align="left" colspan=5><strong>UUID=$partitionline[2]</strong></td></tr>
|
|
<tr>
|
|
<td align="list">/dev/$partitionline[0]</td>
|
|
<td align="center">$Lang::tr{'size'} $size MB</td>
|
|
<td align="center"><select name="FS">
|
|
<option value="auto">auto</option>
|
|
<option value="ext3">ext3</option>
|
|
<option value="ext4">ext4</option>
|
|
<option value="reiserfs">reiserfs</option>
|
|
<option value="vfat">fat</option>
|
|
<option value="ntfs-3g">ntfs (experimental)</option>
|
|
</select></td>
|
|
<td align="center"><input type='text' name='PATH' value=/mnt/harddisk /></td>
|
|
<td align="center">
|
|
<input type='hidden' name='DEVICE' value='$partitionline[0]' />
|
|
<input type='hidden' name='UUID' value='$partitionline[2]' />
|
|
<input type='hidden' name='ACTION' value=$Lang::tr{'add'} />
|
|
<input type='image' alt='$Lang::tr{'add'}' title='$Lang::tr{'add'}' src='/images/add.gif' />
|
|
</form></td></tr>
|
|
END
|
|
;
|
|
|
|
END
|
|
;
|
|
}
|
|
}
|
|
}
|
|
|
|
print <<END
|
|
<tr><td align="center" colspan="5"> </td></tr>
|
|
<tr><td align="center" colspan="5"> </td></tr>
|
|
<tr><td align="center" colspan="5">$Lang::tr{'extrahd install or load driver'}</td></tr>
|
|
</table>
|
|
END
|
|
;
|
|
&Header::closebox();
|
|
|
|
&Header::closebigbox();
|
|
&Header::closepage();
|