forums - The forums.mageia.org Website

diff options

author	Tristan Darricau <tristan.darricau@sensiolabs.com>	2015-10-19 14:36:51 +0200
committer	Tristan Darricau <tristan.darricau@sensiolabs.com>	2015-10-19 14:36:51 +0200
commit	dfd5ec6835f7cd4dd9a248c8a55da35c2032d98c (patch)
tree	0341783b70df7936c525a3840de08767615778c4 /phpBB/includes/mcp
parent	9ccb596a06f72a6e172d6d421754b636cbbb41d5 (diff)
parent	e04f9a2425a59e3ef20bc2e962ee09b2b22c7f8d (diff)
download	forums-dfd5ec6835f7cd4dd9a248c8a55da35c2032d98c.tar forums-dfd5ec6835f7cd4dd9a248c8a55da35c2032d98c.tar.gz forums-dfd5ec6835f7cd4dd9a248c8a55da35c2032d98c.tar.bz2 forums-dfd5ec6835f7cd4dd9a248c8a55da35c2032d98c.tar.xz forums-dfd5ec6835f7cd4dd9a248c8a55da35c2032d98c.zip

Merge pull request #3666 from marc1706/ticket/9252

[ticket/9252] Do not try to disapprove a post that was just approved * marc1706/ticket/9252: [ticket/9252] Do not try to disapprove a post that was just approved

Diffstat (limited to 'phpBB/includes/mcp')

-rw-r--r--

phpBB/includes/mcp/mcp_queue.php

1 files changed, 11 insertions, 0 deletions

package network::ethernet; # $Id$ use c; use network::network; use modules; use modules::interactive; use detect_devices; use common; use run_program; use network::tools; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(get_eth_categories); sub write_ether_conf { my ($in, $modules_conf, $netcnx, $netc, $intf) = @_; configureNetwork2($in, $modules_conf, $::prefix, $netc, $intf); $netc->{NETWORKING} = "yes"; if ($netc->{GATEWAY} || any { $_->{BOOTPROTO} =~ /dhcp/ } values %$intf) { $netcnx->{type} = 'lan'; $netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = ''; $netcnx->{NET_INTERFACE} = 'lan'; #$netc->{NET_INTERFACE}; } $::isStandalone and $modules_conf->write; 1; } sub mapIntfToDevice { my ($interface) = @_; my $hw_addr = c::getHwIDs($interface); return {} if $hw_addr =~ /^usb/; my ($bus, $slot, $func) = map { hex($_) } ($hw_addr =~ /([0-9a-f]+):([0-9a-f]+)\.([0-9a-f]+)/); $hw_addr && (every { defined $_ } $bus, $slot, $func) ? grep { $_->{pci_bus} == $bus && $_->{pci_device} == $slot && $_->{pci_function} == $func } detect_devices::probeall() : {}; } sub get_eth_categories() { 'network/main|gigabit|pcmcia|usb|wireless|firewire'; } # return list of [ intf_name, module, device_description ] tuples such as: # [ "eth0", "3c59x", "3Com Corporation|3c905C-TX [Fast Etherlink]" ] # # this function try several method in order to get interface's driver and description in order to support both: # - hotplug managed devices (USB, firewire) # - special interfaces (IP aliasing, VLAN) sub get_eth_cards { my ($modules_conf) = @_; my @all_cards = detect_devices::getNet(); my @devs = detect_devices::pcmcia_probe(); my $saved_driver; # compute device description and return (interface, driver, description) tuples: return map { my $interface = $_; my $description; # 0) get interface's driver through ETHTOOL ioctl or module aliases: my $a = c::getNetDriver($interface) || $modules_conf->get_alias($interface); # workaround buggy drivers that returns a bogus driver name for the GDRVINFO command of the ETHTOOL ioctl: my %fixes = ( "p80211_prism2_cs" => 'prism2_cs', "p80211_prism2_pci" => 'prism2_pci', "p80211_prism2_usb" => 'prism2_usb', "ip1394" => "eth1394", ); $a = $fixes{$a} if $fixes{$a}; # 1) try to match a PCMCIA device for device description: if (my $b = find { $_->{device} eq $interface } @devs) { # PCMCIA case $a = $b->{driver}; $description = $b->{description}; } else { # 2) try to lookup a device by hardware address for device description: # maybe should have we try sysfs first for robustness? ($description) = (mapIntfToDevice($interface))[0]->{description}; } # 3) try to match a device through sysfs for driver & device description: # (eg: ipw2100 driver for intel centrino do not support ETHTOOL) if (!$description) { my $drv = readlink("/sys/class/net/$interface/driver"); if ($drv && $drv =~ s!.*/!!) { $a = $drv; my %l; my %sysfs_fields = (id => "device", subid => "subsystem_device", vendor => "vendor", subvendor => "subsystem_vendor"); $l{$_} = hex(chomp_(cat_("/sys/class/net/$interface/device/" . $sysfs_fields{$_}))) foreach keys %sysfs_fields; my @cards = grep { my $dev = $_; every { $dev->{$_} eq $l{$_} } keys %l } detect_devices::probeall(); $description = $cards[0]{description} if @cards == 1; } } # 4) try to match a device by driver for device description: # (eg: madwifi, ndiswrapper, ...) if (!$description) { my @cards = grep { $_->{driver} eq ($a || $saved_driver) } detect_devices::probeall(); $description = $cards[0]{description} if @cards == 1; } $a and $saved_driver = $a; # handle multiple cards managed by the same driver [ $interface, $saved_driver, if_($description, $description) ] } @all_cards; } sub get_eth_cards_names { my (@all_cards) = @_; { map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards }; } #- returns (link_type, mac_address) sub get_eth_card_mac_address { my ($intf) = @_; `LC_ALL= LANG= $::prefix/sbin/ip -o link show $intf 2>/dev/null` =~ m|.*link/(\S+)\s([0-9a-z:]+)\s|; } #- write interfaces MAC address in iftab sub update_iftab() { foreach my $intf (detect_devices::getNet()) { my ($link_type, $mac_address) = get_eth_card_mac_address($intf) or next; my $descriptor = ${{ ether => 'mac', ieee1394 => 'mac_ieee1394' }}{$link_type} or next; substInFile { s/^$intf\s+.*\n//; $_ .= qq($intf\t$descriptor $mac_address\n) if eof } "$::prefix/etc/iftab"; } } # automatic net aliases configuration sub configure_eth_aliases { my ($modules_conf) = @_; my @pcmcia = detect_devices::pcmcia_probe(); foreach my $card (get_eth_cards($modules_conf)) { if (any { $_->{device} eq $card->[0] } @pcmcia) { #- don't write aliases for pcmcia cards, or cardmgr won't be loaded $modules_conf->remove_alias($card->[0]); } else { $modules_conf->set_alias($card->[0], $card->[1]); } } } 1;


context:
space:
mode: