source: trunk/temp/renumbering.php@ 567

Last change on this file since 567 was 548, checked in by chronos, 12 years ago
  • Odstraněno: Ukončovací PHP značka.
File size: 2.7 KB
Line 
1<?php
2
3die();
4
5//$SessionDisable = true;
6include('../global.php');
7
8class Renumbering extends Page
9{
10 var $FullTitle = 'Rozeslání mailů s heslem';
11 var $ShortTitle = 'Rozeslání mailů';
12
13 var $SubnetTable = array(
14 1 => array('AddressRange' => '10.145.64.0', 'Mask' => 25),
15 2 => array('AddressRange' => '10.145.65.0', 'Mask' => 24),
16 3 => array('AddressRange' => '10.145.64.128', 'Mask' => 25),
17 4 => array('AddressRange' => '10.145.66.128', 'Mask' => 27),
18 5 => array('AddressRange' => '10.145.66.192', 'Mask' => 27),
19 6 => array('AddressRange' => '10.145.66.224', 'Mask' => 29),
20 7 => array('AddressRange' => '10.145.64.232', 'Mask' => 29),
21 8 => array('AddressRange' => '10.145.67.8', 'Mask' => 29),
22 9 => array('AddressRange' => '10.145.67.0', 'Mask' => 29),
23 10 => array('AddressRange' => '10.145.67.16', 'Mask' => 29),
24 11 => array('AddressRange' => '10.145.67.24', 'Mask' => 29),
25 12 => array('AddressRange' => '10.145.66.240', 'Mask' => 30),
26 13 => array('AddressRange' => '10.145.66.244', 'Mask' => 30),
27 14 => array('AddressRange' => '10.145.66.248', 'Mask' => 30),
28 15 => array('AddressRange' => '10.145.66.0', 'Mask' => 30),
29 16 => array('AddressRange' => '10.145.66.160', 'Mask' => 27),
30 );
31
32 function Show()
33 {
34 global $Config;
35
36 $Output = '';
37
38 $DbResult = $this->Database->query('SELECT * FROM NetworkSubnet WHERE CompareNetworkPrefix(INET_ATON("192.168.0.0"), INET_ATON(AddressRange), 16)');
39 $Output .= 'UPDATE NetworkInterface SET CZFreeIP = LocalIP<br>';
40 while($Subnet = $DbResult->fetch_assoc())
41 {
42 $Output .= '-- Podsíť '.$Subnet['Name'].': '.$Subnet['AddressRange'].'/'.$Subnet['Mask'].' => '.$this->SubnetTable[$Subnet['Id']]['AddressRange'].'/'.$this->SubnetTable[$Subnet['Id']]['Mask'].'<br>';
43 $DbResult2 = $this->Database->query('SELECT NetworkInterface.Id, NetworkInterface.LocalIP, NetworkDevice.Name FROM NetworkInterface JOIN NetworkDevice ON NetworkDevice.Id = NetworkInterface.Device WHERE CompareNetworkPrefix(INET_ATON(NetworkInterface.LocalIP), INET_ATON("'.$Subnet['AddressRange'].'"), '.$Subnet['Mask'].') ORDER BY NetworkInterface.LocalIP');
44 $NextIP = IPv4ToInt32($this->SubnetTable[$Subnet['Id']]['AddressRange']) + 1;
45 while($Interface = $DbResult2->fetch_assoc())
46 {
47 $Output .= '-- '.$Interface['Name'].': '.$Interface['LocalIP'].' => '.Int32ToIPv4($NextIP).'<br>';
48 $Output .= 'UPDATE NetworkInterface SET LocalIP = "'.Int32ToIPv4($NextIP).'" WHERE Id='.$Interface['Id'].';<br>';
49 $NextIP++;
50 }
51 $Output .= '<hr>';
52 }
53 return($Output);
54 }
55}
56
57$System->AddModule(new Renumbering($System));
58$System->Modules['Renumbering']->GetOutput();
Note: See TracBrowser for help on using the repository browser.