mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
66c3619872
Bumping across one of our scripts with very long trailing whitespaces, I thought it might be a good idea to clean these up. Doing so, some missing or inconsistent licence headers were fixed. There is no need in shipping all these files en bloc, as their functionality won't change. Signed-off-by: Peter Müller <peter.mueller@ipfire.org>
258 lines
9.0 KiB
Perl
258 lines
9.0 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";
|
|
|
|
#workaround to suppress a warning when a variable is used only once
|
|
my @dummy = ( ${Header::colourgreen}, ${Header::colourred} );
|
|
undef (@dummy);
|
|
|
|
&General::system("/usr/local/bin/extrahdctrl", "scanhd", "ide");
|
|
&General::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
|
|
;
|
|
&General::system("/usr/local/bin/extrahdctrl", "mount", "$extrahdsettings{'PATH'}");
|
|
}
|
|
}
|
|
elsif ($extrahdsettings{'ACTION'} eq $Lang::tr{'delete'})
|
|
{
|
|
if ( &General::system("/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";
|
|
|
|
# Use safe system_output to get mountpoint details.
|
|
my @mountpoint = &General::system_output("/bin/mountpoint", "$deviceline[2]");
|
|
|
|
if ( ! grep(/not/, @mountpoint)) {
|
|
$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();
|