package fs; # $Id$
use diagnostics;
use strict;
use MDK::Common::System;
use MDK::Common::Various;
use common;
use log;
use devices;
use partition_table qw(:types);
use run_program;
use swap;
use detect_devices;
use modules;
use fsedit;
use loopback;
sub read_fstab {
my ($prefix, $file, $all_options) = @_;
my %comments;
my $comment;
my @l = grep {
if (/^\s*#/) {
$comment .= chomp_($_) . "\n";
0;
} else {
$comments{$_} = $comment if $comment;
$comment = '';
1;
}
} cat_("$prefix$file");
#- attach comments at the end of fstab to the previous line
$comments{$l[-1]} = $comment if $comment;
map {
my ($dev, $mntpoint, $type, $options, $freq, $passno) = split;
my $comment = $comments{$_};
$options = 'defaults' if $options eq 'rw'; # clean-up for mtab read
$type = fs2type($type);
if ($type eq 'supermount') {
# normalize this bloody supermount
$options = join(",", 'supermount', grep {
if (/fs=(.*)/) {
$type = $1;
0;
} elsif (/dev=(.*)/) {
$dev = $1;
0;
} elsif ($_ eq '--') {
0;
} else {
1;
}
} split(',', $options));
} elsif ($type eq 'smb') {
# prefering type "smbfs" over "smb"
$type = 'smbfs';
}
$mntpoint =~ s/\\040/ /g;
$dev =~ s/\\040/ /g;
my $h = {
device => $dev, mntpoint => $mntpoint, type => $type,
options => $options, comment => $comment,
if_($all_options, freq => $freq, passno => $passno),
};
($h->{major}, $h->{minor}) = unmakedev((stat "$prefix$dev")[6]);
if ($dev =~ m,/(tmp|dev)/,) {
my $symlink = readlink("$prefix$dev");
$dev =~ s,/(tmp|dev)/,,;
if ($symlink =~ m|^[^/]+$|) {
$h->{device_alias} = $dev;
$h->{device} = $symlink;
} else {
$h->{device} = $dev;
}
}
if ($h->{options} =~ /credentials=/) {
require network::smb;
#- remove credentials=file with username=foo,password=bar,domain=zoo
#- the other way is done in fstab_to_string
my ($options, $unknown) = mount_options_unpack($h);
my $file = delete $options->{'credentials='};
my $credentials = network::smb::read_credentials_raw($file);
if ($credentials->{username}) {
$options->{"$_="} = $credentials->{$_} foreach qw(username password domain);
mount_options_pack($h, $options, $unknown);
}
}
$h;
} @l;
}
sub merge_fstabs {
my ($loose, $fstab, @l) = @_;
foreach my $p (@$fstab) {
my ($p2) = grep { fsedit::is_same_hd($_, $p) } @l or next;
@l = grep { !fsedit::is_same_hd($_, $p) } @l;
$p->{mntpoint} = $p2->{mntpoint} if delete $p->{unsafeMntpoint};
$p->{type} = $p2->{type} if $p2->{type} && !$loose;
$p->{options} = $p2->{options} if $p2->{options} && !$loose;
#- important to get isMounted property else DrakX may try to mount already mounted partitions :-(
add2hash($p, $p2);
$p->{device_alias} ||= $p2->{device_alias} || $p2->{device} if $p->{device} ne $p2->{device} && $p2->{device} !~ m|/|;
$p->{type} && $p2->{type} && $p->{type} ne $p2->{type} && type2fs($p) ne type2fs($p2) &&
$p->{type} ne 'auto' && $p2->{type} ne 'auto' and
log::l("err, fstab and partition table do not agree for $p->{device} type: " .
(type2fs($p) || type2name($p->{type})) . " vs ", (type2fs($p2) || type2name($p2->{type})));
}
@l;
}
sub add2all_hds {
my ($all_hds, @l) = @_;
@l = merge_fstabs('', [ fsedit::get_really_all_fstab($all_hds) ], @l);
foreach (@l) {
my $s =
isThisFs('nfs', $_) ? 'nfss' :
isThisFs('smbfs', $_) ? 'smbs' :
'special';
push @{$all_hds->{$s}}, $_;
}
}
sub get_major_minor {
eval {
my (undef, $major, $minor) = devices::entry($_->{device});
($_->{major}, $_->{minor}) = ($major, $minor);
} foreach @_;
}
sub merge_info_from_mtab {
my ($fstab) = @_;
my @l1 = map { my $l = $_;
my %l = (type => fs2type('swap'));
$l{$_} = $l->{$_} foreach qw(device major minor);
\%l;
} read_fstab('', '/proc/swaps');
my @l2 = map { read_fstab('', $_) } '/etc/mtab', '/proc/mounts';
foreach (@l1, @l2) {
log::l("found mounted partition on $_->{device} with $_->{mntpoint}");
if ($::isInstall && $_->{mntpoint} eq '/tmp/hdimage') {
log::l("found hdimage on $_->{<?php
/**
*
* This file is part of the phpBB Forum Software package.
*
* @copyright (c) phpBB Limited <https://www.phpbb.com>
* @license GNU General Public License, version 2 (GPL-2.0)
*
* For full copyright and license information, please see
* the docs/CREDITS.txt file.
*
*/
namespace phpbb;
use Symfony\Component\HttpFoundation\Request;
/**
* WARNING: The Symfony request does not escape the input and should be used very carefully
* prefer the phpbb request as possible
*/
class symfony_request extends Request
{
/**
* Constructor
*
* @param \phpbb\request\request_interface $phpbb_request
*/
public function __construct(\phpbb\request\request_interface $phpbb_request)
{
$get_parameters = $phpbb_request->get_super_global(\phpbb\request\request_interface::GET);
$post_parameters = $phpbb_request->get_super_global(\phpbb\request\request_interface::POST);
$server_parameters = $phpbb_request->get_super_global(\phpbb\request\request_interface::SERVER);
$files_parameters = $phpbb_request->get_super_global(\phpbb\request\request_interface::FILES);
$cookie_parameters = $phpbb_request->get_super_global(\phpbb\request\request_interface::COOKIE);
parent::__construct($get_parameters, $post_parameters, array(), $cookie_parameters, $files_parameters, $server_parameters);
}
}