[people/pmueller/ipfire-2.x.git] / html / cgi-bin / extrahd.cgi

#!/usr/bin/perl
#
# IPFire CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) The IPFire Team
#

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/scanhd ide");
system("/usr/local/bin/scanhd partitions");

&Header::showhttpheaders();

### Values that have to be initialized
$extrahdsettings{'PATH'} = '';
$extrahdsettings{'FS'} = '';
$extrahdsettings{'DEVICE'} = '';
$extrahdsettings{'ACTION'} = '';

&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 = "You can't mount $extrahdsettings{'DEVICE'} to $extrahdsettings{'PATH'}, because there is already a device mounted.";
		}
		if ( "$extrahdsettings{'PATH'}" eq "/" ) {
			$ok = "false";
			$errormessage = "You can't mount $extrahdsettings{'DEVICE'} to root /.";
		}
	}

	if ( "$ok" eq "true" ) {
		open(FILE, ">> $devicefile" ) or die "Unable to write $devicefile";
		print FILE <<END
$extrahdsettings{'DEVICE'};$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 = "Can't umount $extrahdsettings{'PATH'}. Maybe the device is in use?";
	}
}

if ($errormessage) {
        &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
        print "<class name='base'>$errormessage\n";
        print "&nbsp;</class>\n";
        &Header::closebox();
}

############################################################################################################################
############################################################################################################################

&Header::openbox('100%', 'center', 'ExtraHD');
	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/mount | /bin/fgrep $deviceline[2] | /bin/fgrep /dev/$deviceline[0]` ) {
			$color=$Header::colourgreen;
		}
		print <<END
			<tr><td colspan="5">&nbsp;
			<tr><td align='center'><font color=$color><b>/dev/$deviceline[0]</b></font>
				<td align='center'>$deviceline[1]
				<td align='center'>$deviceline[2]
				<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'} src='/images/delete.gif' />
					</form>
END
;
	}
	print <<END
		</table>
END
;

&Header::closebox();

&Header::openbox('100%', 'center', 'Gefundene Laufwerke');
	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 );
		print <<END
			<tr><td colspan="5">&nbsp;
			<tr><td align='center'><b>/dev/$scanline[0]</b>
				<td align='center' colspan="2">$scanline[1]
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>&nbsp;
				<tr><td colspan="5">&nbsp;
END
;
			}
		}

		foreach $partitionentry (sort @partitions)
		{
			@partitionline = split( /\;/, $partitionentry );
			if (( "$partitionline[0]" =~ /^$scanline[0]/ ) && ! ( "$partitionline[0]" eq "$scanline[0]" )) {
				$size = int($partitionline[1] / 1024);
				print <<END
				<form method='post' action='$ENV{'SCRIPT_NAME'}'>
				<tr><td align="center" bgcolor='#EAEAEA'>/dev/$partitionline[0]
				<td align="center" bgcolor='#EAEAEA'>$Lang::tr{'size'} $size MB
				<td align='center' bgcolor='#EAEAEA'><select name="FS">
										<option value="auto">auto</option>
										<option value="ext3">ext3</option>
										<option value="reiserfs">reiserfs</option>
										<option value="vfat">fat</option>
										<option value="ntfs-3g">ntfs (experimental)</option>
									   </select>
				<td align="center" bgcolor='#EAEAEA'><input type='text' name='PATH' value=/mnt/harddisk />
				<td align="center">
					<input type='hidden' name='DEVICE' value='$partitionline[0]' />
					<input type='hidden' name='ACTION' value=$Lang::tr{'add'} />
					<input type='image' alt=$Lang::tr{'add'} src='/images/add.gif' />
				</form>

END
;
			}
		}
	}

	print <<END
	<tr><td align="center" colspan="5">If your device isn't listed here, you need to install or load the driver.<br />If you can see your device but no partitions you have to create them first.
	</table>
END
;
&Header::closebox();

&Header::closebigbox();
&Header::closepage();
Commit	Line	Data
aa2870e6 MT	1	#!/usr/bin/perl
	2	#
	3	# IPFire CGIs
	4	#
	5	# This code is distributed under the terms of the GPL
	6	#
	7	# (c) The IPFire Team
	8	#
	9
	10	use strict;
	11	# enable only the following on debugging purpose
	12	use warnings;
	13	use CGI::Carp 'fatalsToBrowser';
	14
	15	require '/var/ipfire/general-functions.pl';
	16	require "${General::swroot}/lang.pl";
	17	require "${General::swroot}/header.pl";
	18
	19	my %extrahdsettings = ();
	20	my $message = "";
	21	my $errormessage = "";
	22	my $size = "";
	23	my $ok = "true";
	24	my @tmp = ();
	25	my @tmpline = ();
	26	my $tmpentry = "";
	27	my @devices = ();
	28	my @deviceline = ();
	29	my $deviceentry = "";
	30	my @scans = ();
	31	my @scanline = ();
	32	my $scanentry = "";
	33	my @partitions = ();
	34	my @partitionline = ();
	35	my $partitionentry = "";
	36	my $devicefile = "/var/ipfire/extrahd/devices";
	37	my $scanfile = "/var/ipfire/extrahd/scan";
	38	my $partitionsfile = "/var/ipfire/extrahd/partitions";
	39	system("/usr/local/bin/scanhd ide");
	40	system("/usr/local/bin/scanhd partitions");
	41
	42	&Header::showhttpheaders();
	43
	44	### Values that have to be initialized
	45	$extrahdsettings{'PATH'} = '';
	46	$extrahdsettings{'FS'} = '';
	47	$extrahdsettings{'DEVICE'} = '';
	48	$extrahdsettings{'ACTION'} = '';
	49
	50	&General::readhash("${General::swroot}/extrahd/settings", \%extrahdsettings);
	51	&Header::getcgihash(\%extrahdsettings);
	52
	53	&Header::openpage('ExtraHD', 1, '');
	54	&Header::openbigbox('100%', 'left', '', $errormessage);
	55
	56	############################################################################################################################
	57	############################################################################################################################
	58
	59	if ($extrahdsettings{'ACTION'} eq $Lang::tr{'add'})
	60	{
	61	open( FILE, "< $devicefile" ) or die "Unable to read $devicefile";
	62	@devices = <FILE>;
	63	close FILE;
	64	foreach $deviceentry (sort @devices)
65	{
66	@deviceline = split( /\;/, $deviceentry );
67	if ( "$extrahdsettings{'PATH'}" eq "$deviceline[2]" ) {
68	$ok = "false";
69	$errormessage = "You can't mount $extrahdsettings{'DEVICE'} to $extrahdsettings{'PATH'}, because there is already a device mounted.";
70	}
71	if ( "$extrahdsettings{'PATH'}" eq "/" ) {
72	$ok = "false";
73	$errormessage = "You can't mount $extrahdsettings{'DEVICE'} to root /.";
74	}
75	}
76
77	if ( "$ok" eq "true" ) {
78	open(FILE, ">> $devicefile" ) or die "Unable to write $devicefile";
79	print FILE <<END
80	$extrahdsettings{'DEVICE'};$extrahdsettings{'FS'};$extrahdsettings{'PATH'};
81	END
82	;
83	system("/usr/local/bin/extrahdctrl mount $extrahdsettings{'PATH'}");
84	}
85	}
86	elsif ($extrahdsettings{'ACTION'} eq $Lang::tr{'delete'})
87	{
88	if ( `/usr/local/bin/extrahdctrl umount $extrahdsettings{'PATH'}` ) {
89	open( FILE, "< $devicefile" ) or die "Unable to read $devicefile";
90	@tmp = <FILE>;
91	close FILE;
92	open( FILE, "> $devicefile" ) or die "Unable to write $devicefile";
93	foreach $deviceentry (sort @tmp)
94	{
95	@tmpline = split( /\;/, $deviceentry );
96	if ( $tmpline[2] ne $extrahdsettings{'PATH'} )
97	{
98	print FILE $deviceentry;
99	}
100	}
101	close FILE;
102	} else {
103	$errormessage = "Can't umount $extrahdsettings{'PATH'}. Maybe the device is in use?";
104	}
105	}
106
107	if ($errormessage) {
108	&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
109	print "<class name='base'>$errormessage\n";
110	print " </class>\n";
111	&Header::closebox();
112	}
113
114	############################################################################################################################
115	############################################################################################################################
116
117	&Header::openbox('100%', 'center', 'ExtraHD');
118	open( FILE, "< $devicefile" ) or die "Unable to read $devicefile";
119	@devices = <FILE>;
120	close FILE;
121	print <<END
122	<table border='0' width='600' cellspacing="0">
123	END
124	;
125	foreach $deviceentry (sort @devices)
126	{
127	@deviceline = split( /\;/, $deviceentry );
128	my $color="$Header::colourred";
129	if ( `/bin/mount \| /bin/fgrep $deviceline[2] \| /bin/fgrep /dev/$deviceline[0]` ) {
130	$color=$Header::colourgreen;
131	}
132	print <<END
133	<tr><td colspan="5">
134	<tr><td align='center'><font color=$color><b>/dev/$deviceline[0]</b></font>
135	<td align='center'>$deviceline[1]
136	<td align='center'>$deviceline[2]
137	<td align='center'>
138	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
139	<input type='hidden' name='DEVICE' value='$deviceline[0]' />
140	<input type='hidden' name='FS' value='$deviceline[1]' />
141	<input type='hidden' name='PATH' value='$deviceline[2]' />
142	<input type='hidden' name='ACTION' value=$Lang::tr{'delete'} />
143	<input type='image' alt=$Lang::tr{'delete'} src='/images/delete.gif' />
144	</form>
145	END
146	;
147	}
148	print <<END
149	</table>
150	END
151	;
152
153	&Header::closebox();
154
155	&Header::openbox('100%', 'center', 'Gefundene Laufwerke');
156	print <<END
157	<table border='0' width='600' cellspacing="0">
158	END
159	;
160	open( FILE, "< $scanfile" ) or die "Unable to read $scanfile";
161	@scans = <FILE>;
162	close FILE;
163	open( FILE, "< $partitionsfile" ) or die "Unable to read $partitionsfile";
164	@partitions = <FILE>;
165	close FILE;
166	foreach $scanentry (sort @scans)
167	{
168	@scanline = split( /\;/, $scanentry );
169	print <<END
170	<tr><td colspan="5">
171	<tr><td align='center'><b>/dev/$scanline[0]</b>
172	<td align='center' colspan="2">$scanline[1]
173	END
174	;
175	foreach $partitionentry (sort @partitions)
176	{
177	@partitionline = split( /\;/, $partitionentry );
178	if ( "$partitionline[0]" eq "$scanline[0]" ) {
179	$size = int($partitionline[1] / 1024);
180	print <<END
181	<td align='center'>$Lang::tr{'size'} $size MB
182	<td>
183	<tr><td colspan="5">
184	END
185	;
186	}
187	}
188
189	foreach $partitionentry (sort @partitions)
190	{
191	@partitionline = split( /\;/, $partitionentry );
192	if (( "$partitionline[0]" =~ /^$scanline[0]/ ) && ! ( "$partitionline[0]" eq "$scanline[0]" )) {
193	$size = int($partitionline[1] / 1024);
194	print <<END
195	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
196	<tr><td align="center" bgcolor='#EAEAEA'>/dev/$partitionline[0]
197	<td align="center" bgcolor='#EAEAEA'>$Lang::tr{'size'} $size MB
198	<td align='center' bgcolor='#EAEAEA'><select name="FS">
199	<option value="auto">auto</option>
200	<option value="ext3">ext3</option>
201	<option value="reiserfs">reiserfs</option>
202	<option value="vfat">fat</option>
203	<option value="ntfs-3g">ntfs (experimental)</option>
204	</select>
205	<td align="center" bgcolor='#EAEAEA'><input type='text' name='PATH' value=/mnt/harddisk />
206	<td align="center">
207	<input type='hidden' name='DEVICE' value='$partitionline[0]' />
208	<input type='hidden' name='ACTION' value=$Lang::tr{'add'} />
209	<input type='image' alt=$Lang::tr{'add'} src='/images/add.gif' />
210	</form>
211
212	END
213	;
214	}
215	}
216	}
217
218	print <<END
219	<tr><td align="center" colspan="5">If your device isn't listed here, you need to install or load the driver.<br />If you can see your device but no partitions you have to create them first.
220	</table>
221	END
222	;
223	&Header::closebox();
224
225	&Header::closebigbox();
226	&Header::closepage();