show("danger", _("ldap extension not enabled in php")."!", false); }
?>
fetch_multiple_objects ("users", "authMethod", @$method_settings->id);
if($users!==false) {
$Result->show("warning", sizeof($users)._(" users have this method for logging in. They will be reset to local auth!"), false);
}
}
?>
show("danger", _("ldap extension not enabled in php")."!", false); }
?>
fetch_multiple_objects ("users", "authMethod", @$method_settings->id);
if($users!==false) {
$Result->show("warning", sizeof($users)._(" users have this method for logging in. They will be reset to local auth!"), false);
}
}
?>
show("danger", _("ldap extension not enabled in php")."!", false); }
?>
fetch_multiple_objects ("users", "authMethod", @$method_settings->id);
if($users!==false) {
$Result->show("warning", sizeof($users)._(" users have this method for logging in. They will be reset to local auth!"), false);
}
}
?>
fetch_multiple_objects ("users", "authMethod", @$method_settings->id);
if($users!==false) {
$Result->show("warning", sizeof($users)._(" users have this method for logging in. They will be reset to local auth!"), false);
}
}
?>
fetch_multiple_objects ("users", "authMethod", @$method_settings->id);
if($users!==false) {
$Result->show("warning", sizeof($users)._(" users have this method for logging in. They will be reset to local auth!"), false);
}
}
?>
phpipam-1.3/app/admin/authentication-methods/edit-result.php 0000664 0000000 0000000 00000003146 13117723025 0024322 0 ustar 00root root 0000000 0000000 check_user_session();
# check maintaneance mode
$User->check_maintaneance_mode ();
# strip input tags
$_POST = $Admin->strip_input_tags($_POST);
# validate csrf cookie
$User->csrf_cookie ("validate", "authmethods", $_POST['csrf_cookie']) === false ? $Result->show("danger", _("Invalid CSRF cookie"), true) : "";
# get action
$action = $_POST['action'];
//for adding remove id
if($action=="add") {
unset($_POST['id']);
}
else {
//check id
if(!is_numeric($_POST['id'])) { $Result->show("danger", _("Invalid ID"), true); }
}
# set update query
$values = array("id"=>@$_POST['id'],
"type"=>$_POST['type'],
"description"=>@$_POST['description'],
);
# add params
unset($_POST['id'], $_POST['type'], $_POST['description'], $_POST['action']);
$values["params"]=json_encode($_POST);
# add - set protected
if($action=="add") {
$values['protected'] = "No";
}
# update
if(!$Admin->object_modify("usersAuthMethod", $action, "id", $values)) { $Result->show("danger", _("Failed to edit authentication method"), false); }
else { $Result->show("success", _("Authentication method updated"), false); }
# if delete also reset all users that have thos auth method
if($action=="delete") {
$Database->runQuery("update `users` set `authMethod`=1 where `authMethod`= ?;", array($values['id']));
}
?> phpipam-1.3/app/admin/authentication-methods/edit.php 0000664 0000000 0000000 00000001636 13117723025 0023010 0 ustar 00root root 0000000 0000000 settings);
# verify that user is logged in
$User->check_user_session();
# create csrf token
$csrf = $User->csrf_cookie ("create", "authmethods");
# if edit check if protected?
if($_POST['action']!="add") {
$auth_method = $Admin->fetch_object("usersAuthMethod", "id", $_POST['id']);
if($auth_method->protected=="Yes") { $Result->show("danger", _("Method cannot be change as it is protected"), true, true); }
}
# route to proper auth method editing
if(!file_exists(dirname(__FILE__)."/edit-$_POST[type].php")) { $Result->show("danger", _("Invalid method type"), true, true); }
else { include("edit-$_POST[type].php"); }
?> phpipam-1.3/app/admin/authentication-methods/index.php 0000664 0000000 0000000 00000007606 13117723025 0023175 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch all auth methods
$all_methods = $Admin->fetch_all_objects("usersAuthMethod");
# fetch all parameters for each method
$all_method_types = $User->fetch_available_auth_method_types();
?>
"; ?>
same username as on AD and set authention type to one of available methods.')." "._('Also set proper permissions - group membership for new user'); ?>
phpipam-1.3/app/admin/custom-fields/ 0000775 0000000 0000000 00000000000 13117723025 0017442 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/admin/custom-fields/edit-result.php 0000775 0000000 0000000 00000005272 13117723025 0022425 0 ustar 00root root 0000000 0000000 check_user_session();
# check maintaneance mode
$User->check_maintaneance_mode ();
# strip input tags
$_POST = $Admin->strip_input_tags($_POST);
# validate csrf cookie
$User->csrf_cookie ("validate", "custom_field", $_POST['csrf_cookie']) === false ? $Result->show("danger", _("Invalid CSRF cookie"), true) : "";
/* checks */
if($_POST['action'] == "delete") {
# no cecks
}
else {
# remove spaces
$_POST['name'] = trim($_POST['name']);
# length > 4 and < 12
if( (mb_strlen($_POST['name']) < 2) || (mb_strlen($_POST['name']) > 24) ) { $errors[] = _('Name must be between 4 and 24 characters'); }
/* validate HTML */
# must not start with number
if(is_numeric(substr($_POST['name'], 0, 1))) { $errors[] = _('Name must not start with number'); }
# only alphanumeric and _ are allowed
if(!preg_match('/^(\p{L}|\p{N})[(\p{L}|\p{N}) _.-]+$/u', $_POST['name'])) { $errors[] = _('Only alphanumeric, spaces and underscore characters are allowed'); }
# required must have default value
if($_POST['NULL']=="NO" && mb_strlen($_POST['fieldDefault'])==0) { $errors[] = _('Required fields must have default values'); }
# db type validations
//boolean
if($_POST['fieldType']=="bool") {
if($_POST['fieldSize']!=0 && $_POST['fieldSize']!=1) { $errors[] = _('Boolean values can only be 0 or 1'); }
if($_POST['fieldDefault']!=0 && $_POST['fieldDefault']!=1) { $errors[] = _('Default boolean values can only be 0 or 1'); }
}
//varchar
elseif($_POST['fieldType']=="varchar") {
if(!is_numeric($_POST['fieldSize'])) { $errors[] = _('Fieldsize must be numeric'); }
if($_POST['fieldSize']>256) { $errors[] = _('Varchar size limit is 256 characters'); }
}
//number
elseif($_POST['fieldType']=="int") {
if(!is_numeric($_POST['fieldSize'])) { $errors[] = _('Integer values must be numeric'); }
}
}
/* die if errors otherwise execute */
if(sizeof($errors) != 0) {
print '
'._('Please correct the following errors').':'. "\n";
print '
";
# display only the zone mapping data if there is no network data available
$title = $mapping->indicator == 0 ? 'Own Zone' : 'Customer Zone';
print '
';
print '
'.$mapping->zone.'
';
print '
'.$mapping->alias.'
';
print '
'.$mapping->description.'
';
print '
'.$mapping->interface.'
';
print '
';
# action menu
print '
';
print '
';
print '';
print '';
print '
';
print '
';
print '
';
}
}
}
print '
';
}
else {
# print an info if there are no zones in the database
$Result->show("info", _("No firewall zones configured"), false);
}
?> phpipam-1.3/app/admin/firewall-zones/settings-save.php 0000664 0000000 0000000 00000014367 13117723025 0023145 0 ustar 00root root 0000000 0000000 check_user_session();
# validations
# check for the maximum length of the zone name, it has to be between 3 and 31. also be sure that this value is decimal.
if (($_POST['zoneLength'] < 1) || ($_POST['zoneLength'] > 31)) {
$Result->show("danger", _("Invalid zone name length parameter. A valid valid value is between 1 and 31."), true);
}
# validate the IPv4 type alias.
if (!preg_match('/^[a-zA-Z0-9\-\_.]+$/i', $_POST['ipType'][0])) {
$Result->show("danger", _("Invalid IPv4 address type alias. Only alphanumeric characters, "-", "_" and "." are allowed."), true);
}
# validate the IPv6 type alias.
if (!preg_match('/^[a-zA-Z0-9\-\_.]+$/i', $_POST['ipType'][1])) {
$Result->show("danger", _("Invalid IPv4 address type alias. Only alphanumeric characters, "-", "_" and "." are allowed."), true);
}
# validate the separator character.
if (!preg_match('/^[\-\_.]+$/i', $_POST['separator'])) {
$Result->show("danger", _("Invalid separator. Only "-", "_" and "." are allowed."), true);
}
# validate the indicator for own firewall zones.
if (!preg_match('/^[a-zA-Z0-9\-\_.]+$/i', $_POST['indicator'][0])) {
$Result->show("danger", _("Invalid zone indicator. Only alphanumeric characters, "-", "_" and "." are allowed."), true);
}
# validate the IPv6 type alias.
if (!preg_match('/^[a-zA-Z0-9\-\_.]+$/i', $_POST['indicator'][1])) {
$Result->show("danger", _("Invalid zone indicator. Only alphanumeric characters, "-", "_" and "." are allowed."), true);
}
# validate the zoneGenerator value.
if (!preg_match('/^[0-3]$/i', $_POST['zoneGenerator'])) {
$Result->show("danger", _("Invalid zone generator method. Do not manipulate the POST values!"), true);
}
# validate the hidden values (zoneGeneratorType).
if ($_POST['zoneGeneratorType'][0] != 'decimal') {
$Result->show("danger", _("Invalid zone generator types [decimal]. Do not manipulate the POST values!"), true);
}
if ($_POST['zoneGeneratorType'][1] != 'hex') {
$Result->show("danger", _("Invalid zone generator types [hex]. Do not manipulate the POST values!"), true);
}
if ($_POST['zoneGeneratorType'][2] != 'text') {
$Result->show("danger", _("Invalid zone generator types [text]. Do not manipulate the POST values!"), true);
}
# validate the padding checkbox value
if ($_POST['padding']) {
if ($_POST['padding'] != 'on' && $_POST['padding'] != 'off') {
$Result->show("danger", _("Invalid padding value. Use the checkbox to set the padding value to on or off."), true);
}
}
# validate the strictMode checkbox value
if ($_POST['strictMode']) {
if ($_POST['strictMode'] != 'on' && $_POST['strictMode'] != 'off') {
$Result->show("danger", _("Invalid padding value. Use the checkbox to set the padding value to on or off."), true);
}
}
# validate the autogen checkbox value
if ($_POST['autogen']) {
if ($_POST['autogen'] != 'on' && $_POST['autogen'] != 'off') {
$Result->show("danger", _("Invalid autogen value. Use the checkbox to set the autogen value to on or off."), true);
}
}
# validate the pattern array
if ($_POST['pattern']) {
foreach ($_POST['pattern'] as $pattern) {
if ( $pattern != 'patternIndicator'
&& $pattern != 'patternZoneName'
&& $pattern != 'patternIPType'
&& $pattern != 'patternHost'
&& $pattern != 'patternFQDN'
&& $pattern != 'patternSeparator'
&& $pattern != '') {
$Result->show("danger", _("Invalid pattern value."), true);
}
}
} else {
$Result->show("danger", _("Please select at least one item to generate a valid name pattern."), true);
}
# validate device type ID.
if (!preg_match('/^[0-9]+$/i', $_POST['deviceType'])) {
$Result->show("danger", _("Invalid device type."), true);
}
# validate the hidden values (subnetPatternValues).
if ($_POST['subnetPatternValues'][0] != 'network') {
$Result->show("danger", _("Invalid subnet name type [network]. Do not manipulate the POST values!"), true);
}
if ($_POST['subnetPatternValues'][1] != 'description') {
$Result->show("danger", _("Invalid subnet name type [description]. Do not manipulate the POST values!"), true);
}
# validate the subnetPattern value.
if (!preg_match('/^[0-1]$/i', $_POST['subnetPattern'])) {
$Result->show("danger", _("Invalid subnet name. Do not manipulate the POST values!"), true);
}
# formulate json
$values = new StdClass ();
# set the array values
$values->zoneLength = $_POST['zoneLength'];
$values->ipType = $_POST['ipType'];
$values->separator = $_POST['separator'];
$values->indicator = $_POST['indicator'];
$values->zoneGenerator = $_POST['zoneGenerator'];
$values->zoneGeneratorType = $_POST['zoneGeneratorType'];
$values->strictMode = $_POST['strictMode'];
$values->deviceType = $_POST['deviceType'];
$values->pattern = $_POST['pattern'];
$values->autogen = $_POST['autogen'];
$values->subnetPattern = $_POST['subnetPattern'];
$values->subnetPatternValues = $_POST['subnetPatternValues'];
# be sure that padding, strictMode and autogen will be set even if they are not delivered by $_POST.
if($_POST['padding'] != 'on') { $values->padding = 'off'; }
else { $values->padding = $_POST['padding']; }
if($_POST['strictMode'] != 'on'){ $values->strictMode = 'off'; }
else { $values->strictMode = $_POST['strictMode']; }
if($_POST['autogen'] != 'on') { $values->autogen = 'off'; }
else { $values->autogen = $_POST['autogen']; }
# prepare the database update and encode the array with JSON_FORCE_OBJECT to keep the ids.
$values = array('id' => 1,
'firewallZoneSettings' => json_encode($values,JSON_FORCE_OBJECT)
);
# update the settings, alert or reply the success message.
if(!$Admin->object_modify("settings", "edit", "id", $values)) { $Result->show("danger", _("Cannot update settings"), true); }
else { $Result->show("success", _("Settings updated successfully"), true); }
?> phpipam-1.3/app/admin/firewall-zones/settings.php 0000664 0000000 0000000 00000031137 13117723025 0022203 0 ustar 00root root 0000000 0000000 check_user_session();
# default settings for firewall zones and firewall address objects: (JSON)
# {
# /* zoneLength defines the maximum padding length of the unique generated or free text zone name */
# "zoneLength":"3",
# /* ipType is used to indicate IPv4 and IPv6 address objects (the address object name will be generated as an additional information for ip addresses) */
# "ipType":{
# "0":"4",
# "1":"6"
# },
# /* standard separator used to keep address objects tid
# "separator":"_",
# /* indicator: Zone type is own zone or customer zone. */
# "indicator":{
# "0":"0",
# "1":"1"
# },
# /* to automaticaly generate firewall zone names you may choose between "decimal" and "hex" (see "zoneGeneratorType" below). to define free text zone names choose "text" */
# "zoneGenerator":"0",
# "zoneGeneratorType":{
# "0":"decimal",
# "1":"hex",
# "2":"text"
# },
# /* strictMode is only used to be sure not to have duplicate zone names of the type "text" */
# "strictMode":"on",
# /* device type ID for firewall devices, default: 3 */
# "deviceType":"3",
# /* default value for firewall address object name pattern */
# "pattern":{"0":"patternFQDN"}
# /* Adds some padding to the zone name (decimal or hex) to generate zone names of equal length */
# "padding":"on"
# /* use the network and subnetmask or the network description to genereate firewall address objects for subnets */
# "subnetPatternValues":{"0":"network","1":"description"}
# "subnetPattern":"0"
# }
# initialize classes
$Database = new Database_PDO;
$Tools = new Tools($Database);
# fetch module settings
$firewallZoneSettings = json_decode($User->settings->firewallZoneSettings,true);
# check if subnetPatternValues are already available, if not set them
if (!$firewallZoneSettings['subnetPatternValues']) {
$firewallZoneSettings['subnetPatternValues'][0] = 'network';
$firewallZoneSettings['subnetPatternValues'][1] = 'description';
}
# fetch device types and rekey
$types = $Tools->fetch_all_objects("deviceTypes", "tid");
foreach($types as $t) {
$deviceTypes[$t->tid] = $t;
}
# build the array for name pattern
$namePattern = array ( 'patternIndicator' => 'Indicator',
'patternZoneName' => 'Zone name',
'patternIPType' => 'IP Type',
'patternHost' => 'Host',
'patternFQDN' => 'FQDN',
'patternSeparator' => ''.$firewallZoneSettings['separator'].'');
?>
phpipam-1.3/app/admin/firewall-zones/subnet-to-zone-save.php 0000664 0000000 0000000 00000004305 13117723025 0024165 0 ustar 00root root 0000000 0000000 check_user_session();
# validate $_POST['subnetId'] values
if (!preg_match('/^[0-9]+$/i', $_POST['subnetId'])) { $Result->show("danger", _("Invalid subnet ID. Do not manipulate the POST values!"), true); }
# validate $_POST['zoneId'] values
if (!preg_match('/^[0-9]+$/i', $_POST['zoneId']) || $_POST['zoneId'] == 0) { $Result->show("danger", _("Invalid or no zone ID. "), true); }
# validate $_POST['deviceId'] values
if ($_POST['deviceId'] && !preg_match('/^[0-9]+$/i', $_POST['deviceId'])) { $Result->show("danger", _("Invalid device ID. Do not manipulate the POST values!"), true); }
# check the zone alias. valid values are alphanumeric characters and special characters like ".-_ "
if($_POST['alias'] && !preg_match('/^[0-9a-zA-Z.\/\-_ ]+$/i',$_POST['alias'])) {
$Result->show("danger", _("Invalid zone alias value."), true);
}
# check the interface name. valid values are alphanumeric characters and special characters like ".-_/ "
if($_POST['interface'] && !preg_match('/^[0-9a-zA-Z.\/\-_ ]+$/i',$_POST['interface'])) {
$Result->show("danger", _("Invalid interface."), true);
}
# check if there is any device mapping necessary
if ($_POST['deviceId']) {
# build the query parameter arrary
$values = array('id' => '',
'zoneId' => $_POST['zoneId'],
'alias' => $_POST['alias'],
'deviceId' => $_POST['deviceId'],
'interface' => $_POST['interface']
);
# modify
if(!$Zones->modify_mapping('add',$values)) { $Result->show("danger", _("Cannot add mapping"), true); }
}
# check and then add the network to the zone if possible
if($Zones->check_zone_network($_POST['subnetId'])) {
if (!$Zones->add_zone_network($_POST['zoneId'],$_POST['subnetId'])) { $Result->show("danger", _("Cannot add this network to a zone."), true); }
else { $Result->show("success", _("Zone modified successfully"), true); }
}
?> phpipam-1.3/app/admin/firewall-zones/subnet-to-zone.php 0000664 0000000 0000000 00000004404 13117723025 0023231 0 ustar 00root root 0000000 0000000 check_user_session();
# validate $_POST['operation'] values
if ($_POST['operation'] != 'subnet2zone') { $Result->show("danger", _("Invalid operation. Do not manipulate the POST values!"), true); }
# validate $_POST['subnetId'] values
if (!preg_match('/^[0-9]+$/i', $_POST['subnetId'])) { $Result->show("danger", _("Invalid subnet ID. Do not manipulate the POST values!"), true); }
$firewallZones = $Zones->get_zones();
# no zones
if($firewallZones===false) { $Result->show("danger", _("No zones available"), true, true); }
?>
phpipam-1.3/app/admin/firewall-zones/zones-edit-network-result.php 0000664 0000000 0000000 00000004343 13117723025 0025426 0 ustar 00root root 0000000 0000000 check_user_session();
# validate the action type
if($_POST['action'] != 'add' && $_POST['action'] != 'delete'){
$Result->show("danger", _("Invalid action."), true);
}
# check the mastersubnet ID. valid value: integer
if($_POST['masterSubnetId'] && !preg_match('/^[0-9]+$/i',$_POST['masterSubnetId'])) {
$Result->show("danger", _("Invalid subnet ID."), true);
} elseif (!$_POST['masterSubnetId']) {
$Result->show("danger", _("Please choose a appropriate network to bind to the firewall zone."), true);
}
# validate network ID informations
if($_POST['network']) {
foreach ($_POST['network'] as $network) {
if(!preg_match('/^[0-9]+$/i',$network)) {
$Result->show("danger", _("Invalid network ID."), true);
}
}
}
# check if the network information should be delivered as form data
if($_POST['noZone'] == 1) {
# update
if(!$Zones->check_zone_network($_POST['masterSubnetId'])) { $Result->show("danger", _("Cannot add the network to the zone."), true); }
else { $Result->show("success", _("Network successfully added."), true); }
}
# check the zone ID. valid value: integer
if($_POST['netZoneId'] && !preg_match('/^[0-9]+$/i',$_POST['netZoneId'])) {
$Result->show("danger", _("Invalid zone ID."), true);
} else {
# update
if ($_POST['action'] == 'add') {
if(!$Zones->add_zone_network($_POST['netZoneId'],$_POST['masterSubnetId'])) { $Result->show("danger", _("Cannot add the network to the zone."), true); }
else { $Result->show("success", _("Network successfully added."), true); }
} elseif ($_POST['action'] == 'delete') {
if(!$Zones->delete_zone_network($_POST['netZoneId'],$_POST['masterSubnetId'])) { $Result->show("danger", _("Cannot delete the network mapping."), true); }
else { $Result->show("success", _("Successfully deleted the networt mapping."), true); }
}
}
?> phpipam-1.3/app/admin/firewall-zones/zones-edit-network.php 0000664 0000000 0000000 00000012444 13117723025 0024113 0 ustar 00root root 0000000 0000000 check_user_session();
# validate $_POST['action'] values
if ($_POST['action'] != 'add' && $_POST['action'] != 'delete') { $Result->show("danger", _("Invalid action. Do not manipulate the POST values!").'', true); }
# validate $_POST['id'] values
if ($_POST['id'] && !preg_match('/^[0-9]+$/i', $_POST['id'])) { $Result->show("danger", _("Invalid ID. Do not manipulate the POST values!").'', true); }
# validate $_POST['sectionId'] values
if ($_POST['id'] && $_POST['subnetId'] != '') {
if (!preg_match('/^[0-9]+$/i', $_POST['subnetId'])) { $Result->show("danger", _("Invalid subnet ID. Do not manipulate the POST values!").'', true); }
}
# fetch all sections
$sections = $Sections->fetch_all_sections();
?>
phpipam-1.3/app/admin/firewall-zones/zones-edit-result.php 0000664 0000000 0000000 00000006403 13117723025 0023736 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch module settings
$firewallZoneSettings = json_decode($User->settings->firewallZoneSettings,true);
# validations
# validate the action type
if($_POST['action'] != 'add' && $_POST['action'] != 'delete' && $_POST['action'] != 'edit'){
$Result->show("danger", _("Invalid action."), true);
}
# check the zone name. valid values are alphanumeric characters and special characters like ".-_ "
if($_POST['zone'] && !preg_match('/^[0-9a-zA-Z.\-_ ]+$/i',$_POST['zone'])) {
$Result->show("danger", _("Invalid zone name value."), true);
}
if($firewallZoneSettings['zoneGenerator']=="2")
if(strlen(@$_POST['zone']) < 1 || strlen(@$_POST['zone'])>$firewallZoneSettings['zoneLength']) {
$Result->show("danger", _("Invalid zone name length."), true);
}
# check the zone indicator ID. valid values are 0 or 1.
if($_POST['indicator'] && !preg_match('/^[0-1]$/i',$_POST['indicator'])) {
$Result->show("danger", _("Invalid indicator ID."), true);
}
# check the generator value. valid value: integer
if($_POST['generator'] && !preg_match('/^[0-9]+$/i',$_POST['generator'])) {
$Result->show("danger", _("Invalid generator ID."), true);
}
# check the padding value. valid value: on or off
if($_POST['padding'] && !preg_match('/^(on|off)$/i',$_POST['padding'])) {
$Result->show("danger", _("Invalid padding setting."), true);
}
# transform the padding checkbox values into 1 or 0
if($_POST['generator'] != 2) {
if($_POST['padding']) {
$padding = 1;
} else {
$padding = 0;
}
}
# transform description to valid value
$description = trim(htmlspecialchars($_POST['description']));
# generate a unique zone name if the generator is set to decimal or hex
if (!$_POST['zone'] && $_POST['action'] == 'add') {
if(!$zone=$Zones->generate_zone_name()){
$Result->show("danger", _("Cannot generate zone name"), true);
}
} else {
$zone = $_POST['zone'];
}
# validate the zone name if text mode is enabled
if ($_POST['generator'] == 2 ) {
$textSettings = array ( $_POST['zone'],$_POST['id']);
if(!$zone=$Zones->generate_zone_name($textSettings)){
$Result->show("danger", _("Cannot validate zone name"), true);
}
}
# build the query parameter arrary
if($_POST['generator'] != 2 && $_POST['action'] == 'edit') {
$values = array('id' => $_POST['id'],
'indicator' => $_POST['indicator'],
'padding' => $padding,
'description' => $description,
'network' => $_POST['network']
);
}
else {
$values = array('id' => $_POST['id'],
'generator' => $_POST['generator'],
'zone' => $zone,
'indicator' => $_POST['indicator'],
'padding' => $padding,
'description' => $description,
'network' => $_POST['network']
);
}
# update
if(!$Zones->modify_zone($_POST['action'],$values)) { $Result->show("danger", _("Cannot add zone"), true); }
else { $Result->show("success", _("Zone modified successfully"), true); }
?> phpipam-1.3/app/admin/firewall-zones/zones-edit.php 0000664 0000000 0000000 00000016513 13117723025 0022425 0 ustar 00root root 0000000 0000000 check_user_session();
# validate action
$Admin->validate_action ($_POST['action']);
# validate $_POST['id'] values
if (!preg_match('/^[0-9]+$/i', $_POST['id'])) { $Result->show("danger", _("Invalid ID. Do not manipulate the POST values!"), true); }
# validate $_POST['action'] values
if ($_POST['action'] != 'add' && $_POST['action'] != 'edit' && $_POST['action'] != 'delete') { $Result->show("danger", _("Invalid action. Do not manipulate the POST values!"), true); }
# fetch module settings
$firewallZoneSettings = json_decode($User->settings->firewallZoneSettings,true);
# fetch old zone
if ($_POST['action'] != 'add') {
$firewallZone = $Zones->get_zone($_POST['id']);
}
# disable edit on delete
$readonly = $_POST['action']=="delete" ? "readonly" : "";
?>
show("warning", ""._('Warning').": "._("Removing this firewall zone will also remove all referenced mappings!"), false);
}
?>
phpipam-1.3/app/admin/firewall-zones/zones.php 0000664 0000000 0000000 00000010711 13117723025 0021474 0 ustar 00root root 0000000 0000000 check_user_session();
# initialize classes
$Zones = new FirewallZones($Database);
$firewallZones = $Zones->get_zones();
# Add new firewall zone
print '';
# display the zone table if there are any zones in the database
if($firewallZones) {
# table
print '
';
# table headers
print "";
print '
';
print '
'._('Type').'
';
print '
'._('Zone').'
';
print '
'._('Description').'
';
print '
'._('Subnet').'
';
print '
'._('VLAN').'
';
print '
';
print '
';
print "";
print "";
# display all firewall zones and network information
foreach ($firewallZones as $zoneObject ) {
# set rowspan in case if there are more than one networks bound to the zone
$counter = count($zoneObject->network);
if ($counter === 0) {
$counter = 1;
}
# set the loop counter
$i = 1;
if ($zoneObject->network) {
foreach ($zoneObject->network as $key => $network) {
print '
';
if ($i === 1) {
// set title
$title = $zoneObject->indicator == 0 ? 'Own Zone' : 'Customer Zone';
// print
print '
';
}
// actions
if ($i === 1) {
# action menu
print '
';
print '
';
print '';
print '';
print '
';
print '
';
}
print '
';
// increase the loop counter
$i++;
}
}
# display only the zone data if there is no network data available
else {
// set title
$title = $zoneObject->indicator == 0 ? 'Own Zone' : 'Customer Zone';
print '
';
print '
';
print '
'.$zoneObject->zone.'
';
print '
'.$zoneObject->description.'
';
print '
/
';
print '
/
';
# action menu
print '
';
print '
';
print '';
print '';
print '
';
print '
';
print '
';
}
}
print "";
print '
';
} else {
# print an info if there are no zones in the database
$Result->show("info", _("No firewall zones configured"), false);
}
?>
phpipam-1.3/app/admin/groups/ 0000775 0000000 0000000 00000000000 13117723025 0016203 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/admin/groups/ad-search-group-form.php 0000664 0000000 0000000 00000003441 13117723025 0022640 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch all available LDAP servers
$servers = $Admin->fetch_all_objects ("usersAuthMethod");
foreach($servers as $k=>$s) {
if($s->type!="AD" && $s->type!="LDAP" && $s->type!="NetIQ") {
unset($servers[$k]);
}
}
# die if no servers
if(sizeof($servers)==0) { $Result->show("danger", _("No servers available"), true, true); }
?>
Select server
Filter
phpipam-1.3/app/admin/groups/ad-search-group-result.php 0000664 0000000 0000000 00000007303 13117723025 0023214 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch server
$server = $Admin->fetch_object("usersAuthMethod", "id", $_POST['server']);
$server!==false ? : $Result->show("danger", _("Invalid server ID"), true);
# create csrf token
$csrf = $User->csrf_cookie ("create", "group");
//parse parameters
$params = json_decode($server->params);
if ($server->type == "LDAP") {
// Just discovered that adLDAP flat out won't work for normal ldap groups. Stop LDAP here.
$Result->show("danger", _("Only AD group search is supported right now. Sorry."), true);
return;
}
//no login parameters
if(strlen(@$params->adminUsername)==0 || strlen(@$params->adminPassword)==0) { $Result->show("danger", _("Missing credentials"), true); }
//at least 2 chars
if(strlen($_POST['dfilter'])<2) { $Result->show("danger", _('Please enter at least 2 characters'), true); }
//open connection
try {
if($server->type == "NetIQ" || $server->type == "LDAP") { $params->account_suffix = ""; }
//set options
$options = array(
'base_dn'=>$params->base_dn,
'account_suffix'=>$params->account_suffix,
'domain_controllers'=>explode(";",$params->domain_controllers),
'use_ssl'=>$params->use_ssl,
'use_tls'=>$params->use_tls,
'ad_port'=>$params->ad_port
);
//AD
$adldap = new adLDAP($options);
// Use credentials if they've been provided
if (isset($params->adminUsername) && isset($params->adminPassword)) {
$authUser = $adldap->authenticate($params->adminUsername, $params->adminPassword);
if ($authUser == false) {
$Result->show("danger", _("Invalid credentials"), true);
}
}
//search groups
$groups = $adldap->group()->search(adLDAP::ADLDAP_SECURITY_GLOBAL_GROUP,true,"*$_POST[dfilter]*");
//echo $adldap->getLastError();
}
catch (adLDAPException $e) {
$Result->show("danger", $adldap->getLastError(), false);
$Result->show("danger", $e->getMessage(), true);
}
//check for found
if(sizeof($groups)==0) {
print "
";
print _('No groups found')."!";
print _('Possible reasons').":";
print "
";
print "
"._('Invalid baseDN setting for ' . $server->type)."
";
print "
"._($server->type . ' account does not have enough privileges for search')."
";
print "
";
} else {
print _(" Following groups were found").": (".sizeof($groups)."):";
print "
phpipam-1.3/app/admin/groups/remove-users-result.php 0000775 0000000 0000000 00000002440 13117723025 0022667 0 ustar 00root root 0000000 0000000 check_user_session();
# check maintaneance mode
$User->check_maintaneance_mode ();
# id must be numeric
if(!is_numeric($_POST['gid'])) { $Result->show("danger", _("Invalid ID"), true); }
# parse result
foreach($_POST as $k=>$p) {
if(substr($k, 0,4) == "user") {
$users[substr($k, 4)] = substr($k, 4);
}
}
# remove each user from group
if(sizeof($users)>0) {
foreach($users as $key=>$u) {
if(!$Admin->remove_group_from_user($_POST['gid'], $u)) {
# get user details
$user = $Admin->fetch_object("users", "id", $u);
$errors[] = $user->real_name;
}
}
}
else {
$errors[] = _("Please select user(s) to remove from group!");
}
# print result
if(isset($errors)) {
print "
";
print _("Failed to remove users").":";
print "
";
foreach($errors as $e) {
print "
$e
";
}
print "
";
print "
";
}
else {
$Result->show("success", _('Users removed from group'), true);
}
?> phpipam-1.3/app/admin/groups/remove-users.php 0000775 0000000 0000000 00000004144 13117723025 0021356 0 ustar 00root root 0000000 0000000 check_user_session();
# id must be numeric
if(!is_numeric($_POST['g_id'])) { $Result->show("danger", _("Invalid ID"), true, true); }
# get group details
$group = $Admin->fetch_object("userGroups", "g_id", $_POST['g_id']);
# users in group - array of ids
$existing = $Admin->group_fetch_users ($_POST['g_id']);
?>
g_name; ?>
0) { ?>
show("info", _('No users in this group'), false); } ?>
0) { ?>
phpipam-1.3/app/admin/import-export/ 0000775 0000000 0000000 00000000000 13117723025 0017515 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/admin/import-export/README.TXT 0000664 0000000 0000000 00000004726 13117723025 0021064 0 ustar 00root root 0000000 0000000 # PHPIPAM Import / Export module
# Marius Malaia - malaiam@gmail.com
# Features (implemented)
- Import
- VRF
- VLAN (with domain support)
- Subnet (with master/nested calculation function)
- Export
- VRF
- VLAN (with domain support)
- Subnets (with sections, master subnets, VLANs and VLAN domains)
- The import feature can be used as a mass update tool as long as KEY fields
(see below) are not changed. Mass deletion is not an intended feature.
# Warnings, limitations
- VRF:
- the RD value is used as an import KEY, hence RD cannot be changed in
the import process, changed RDs will be treated like new VRFs. Also
duplicate RDs are not supported, the last RD in the import file will
be used for the import operation.
- VLAN:
- the VLAN domain and VLAN number pair is the import KEY, hence VLANs
cannot be duplicate within the same domain. The VLAN domain and number
cannot be changed during the import process, the entries which don't
fully match the Domain and Number will be treated like new VLANs.
- SUBNETS:
- the section, subnet address + subnet mask and the VRF are the import KEY,
hence subnets cannot be duplicate within the same section and VRF. The
subnet size and VRF cannot be changed during the import process, they will
be treated like new subnets. If you want to change the VRF for all subnets,
edit the VRF in the VRF section.
- The subnet address and its mask can be specified in the same column, separated
with a / (like prefix/bitmask) on in separate columns. Both bit and netmasks
are supported.
- When adding new subnets, the already assigned IP hosts are not changed in any
way (they are not updated)
# ToDo
- add variable type checking (char, int, set, etc.)
- align format check of various fields (e.g. names) between main PHPIPAM code and
Import/Export code
- on subnets export, add possibility to have the subnet mask specified as dotted,
or in the a separate column
- on subnets import, when rebuilding master-nested relations, consider also moving
assigned IP hosts from older subnets to the new ones, if nested subnets are created
- highlight changed field when (mass) updating entries with an import operation
- add PHPIPAM style logging/audit to for the import/export actions
- phpipam: improve PHPIMAP Subnets->get_IPv6_network_boundaries function for error
checking as it currently allows text in IPs, masks, etc.
- add missing import/export sections for hosts, devices and device types.
phpipam-1.3/app/admin/import-export/export-ipaddr-field-select.php 0000664 0000000 0000000 00000011514 13117723025 0025350 0 ustar 00root root 0000000 0000000 check_user_session();
# Won't check per subnet/section rights since this is an admin section, where the admin user has full access
# fetch all sections
$all_sections = $Sections->fetch_all_sections();
# Lets do some reordering to show slaves!
if($all_sections!==false) {
foreach($all_sections as $s) {
if($s->masterSection=="0") {
# it is master
$s->class = "master";
$sectionssorted[] = $s;
# check for slaves
foreach($all_sections as $ss) {
if($ss->masterSection==$s->id) {
$ss->class = "slave";
$sectionssorted[] = $ss;
}
}
}
}
# set new array
$sections_sorted = @$sectionssorted;
}
# get all custom fields
$custom_fields = $Tools->fetch_custom_fields('ipaddresses');
# prepare HTML variables
$custom_fields_names = "";
$custom_fields_boxes = "";
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
//change spaces to "___" so it can be used as element id
$myField['nameTemp'] = str_replace(" ", "___", $myField['name']);
$custom_fields_names.= "
phpipam-1.3/app/admin/import-export/export-vrf.php 0000664 0000000 0000000 00000004513 13117723025 0022345 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch all vrfs
$all_vrfs = $Admin->fetch_all_objects("vrf", "vrfId");
if (!$all_vrfs) { $all_vrfs = array(); }
# Create a workbook
$today = date("Ymd");
$filename = $today."_phpipam_VRF_export.xls";
$workbook = new Spreadsheet_Excel_Writer();
$workbook->setVersion(8);
//formatting headers
$format_header =& $workbook->addFormat();
$format_header->setBold();
$format_header->setColor('black');
$format_header->setSize(12);
$format_header->setAlign('left');
//formatting content
$format_text =& $workbook->addFormat();
// Create a worksheet
$worksheet_name = "VRFs";
$worksheet =& $workbook->addWorksheet($worksheet_name);
$worksheet->setInputEncoding("utf-8");
$lineCount = 0;
$rowCount = 0;
//write headers
if( (isset($_GET['name'])) && ($_GET['name'] == "on") ) {
$worksheet->write($lineCount, $rowCount, _('Name') ,$format_header);
$rowCount++;
}
if( (isset($_GET['rd'])) && ($_GET['rd'] == "on") ) {
$worksheet->write($lineCount, $rowCount, _('RD') ,$format_header);
$rowCount++;
}
if( (isset($_GET['description'])) && ($_GET['description'] == "on") ) {
$worksheet->write($lineCount, $rowCount, _('Description') ,$format_header);
$rowCount++;
}
$lineCount++;
//write all VRF entries
foreach ($all_vrfs as $vrf) {
//cast
$vrf = (array) $vrf;
//reset row count
$rowCount = 0;
if( (isset($_GET['name'])) && ($_GET['name'] == "on") ) {
$worksheet->write($lineCount, $rowCount, $vrf['name'], $format_text);
$rowCount++;
}
if( (isset($_GET['rd'])) && ($_GET['rd'] == "on") ) {
$worksheet->write($lineCount, $rowCount, $vrf['rd'], $format_text);
$rowCount++;
}
if( (isset($_GET['description'])) && ($_GET['description'] == "on") ) {
$worksheet->write($lineCount, $rowCount, $vrf['description'], $format_text);
$rowCount++;
}
$lineCount++;
}
//new line
$lineCount++;
// sending HTTP headers
$workbook->send($filename);
// Let's send the file
$workbook->close();
?> phpipam-1.3/app/admin/import-export/generate-hosts.php 0000664 0000000 0000000 00000003427 13117723025 0023164 0 ustar 00root root 0000000 0000000 check_user_session();
//set filename
$filename = "phpipam_hosts_". date("Y-m-d");
//fetch all addresses with hostname set
$hosts = $Tools->fetch_addresses_for_export();
//loop
if(sizeof($hosts)>0) {
//details
$m=0;
foreach($hosts as $host) {
//fetch subnet and section details on change!
if(@$hosts[$m-1]->subnetId!=$hosts[$m]->subnetId) {
$subnet = (array) $Subnets->fetch_subnet(null, $host->subnetId);
$section = (array) $Sections->fetch_section(null, $subnet['sectionId']);
//first print subnet and section details
$res[] = "# $subnet[description] (".$Subnets->transform_to_dotted($subnet['subnet'])."/$subnet[mask]) - $section[description]";
}
//than address details
$diff = 17 - strlen($Subnets->transform_to_dotted($host->ip_addr)); //for print offset
$diff>0 ? : $diff = 3; //IPv6 print offset
$res[] = $Subnets->transform_to_dotted($host->ip_addr).str_repeat(" ", $diff)."$host->dns_name";
//break
if($hosts[$m]->subnetId!=@$hosts[$m+1]->subnetId) {
$res[] = "";
}
$m++; //next index
}
}
# join content
$content = implode("\n", $res);
# headers
header("Cache-Control: private");
header("Content-Description: File Transfer");
header('Content-type: application/octet-stream');
header('Content-Disposition: attachment; filename="'. $filename .'"');
print($content);
?> phpipam-1.3/app/admin/import-export/generate-mysql.php 0000664 0000000 0000000 00000002475 13117723025 0023173 0 ustar 00root root 0000000 0000000 check_user_session();
//set filename
$filename = "phpipam_MySQL_dump_". date("Y-m-d") .".sql";
//set content
/* $command = "mysqldump --opt -h $db['host'] -u $db['user'] -p $db['pass'] $db['name'] | gzip > $backupFile"; */
$command = "mysqldump --opt -h '". $db['host'] ."' -u '". $db['user'] ."' -p'". $db['pass'] ."' '". $db['name'] ."'";
$command_safe = "mysqldump --opt -h '". $db['host'] ."' -u '". "" ."' -p'". "" ."' '". $db['name'] ."'";
$content = "# phpipam Database dump \n";
$content .= "# command executed: $command_safe \n";
$content .= "# --------------------- \n\n";
$content .= shell_exec($command);
/* headers */
header("Cache-Control: private");
header("Content-Description: File Transfer");
header('Content-type: application/octet-stream');
header('Content-Disposition: attachment; filename="'. $filename .'"');
print($content);
?>
phpipam-1.3/app/admin/import-export/generate-xls.php 0000664 0000000 0000000 00000012546 13117723025 0022634 0 ustar 00root root 0000000 0000000 check_user_session();
// Create a workbook
$filename = "phpipam_IP_adress_export_". date("Y-m-d") .".xls";
$workbook = new Spreadsheet_Excel_Writer();
$workbook->setVersion(8);
//fetch sections, and for each section write new tab, inside tab write all values!
$sections = $Sections->fetch_sections();
//we need to reformat state!
$ip_types = $Addresses->addresses_types_fetch();
//fetch devices and reorder
$devices = $Tools->fetch_all_objects("devices", "hostname");
$devices_indexed = array();
if ($devices!==false) {
foreach($devices as $d) {
$devices_indexed[$d->id] = $d;
}
}
//get all custom fields!
# fetch custom fields
$myFields = $Tools->fetch_custom_fields('ipaddresses');
$myFieldsSize = sizeof($myFields);
$colSize = 8 + $myFieldsSize;
//formatting headers
$format_header = $workbook->addFormat();
$format_header->setBold();
$format_header->setColor('white');
$format_header->setFgColor('black');
//formatting titles
$format_title = $workbook->addFormat();
$format_title->setColor('black');
$format_title->setFgColor(22); //light gray
$format_title->setBottom(2);
$format_title->setLeft(1);
$format_title->setRight(1);
$format_title->setTop(1);
$format_title->setAlign('left');
//formatting content - borders around IP addresses
$format_right = $workbook->addFormat();
$format_right->setRight(1);
$format_left = $workbook->addFormat();
$format_left->setLeft(1);
$format_top = $workbook->addFormat();
$format_top->setTop(1);
foreach ($sections as $section) {
//cast
$section = (array) $section;
// Create a worksheet
$worksheet_name = strlen($section['name']) > 30 ? substr($section['name'],0,27).'...' : $section['name'];
$worksheet =& $workbook->addWorksheet($worksheet_name);
$worksheet->setInputEncoding("utf-8");
//get all subnets in this section
$subnets = $Subnets->fetch_section_subnets ($section['id']);
$lineCount = 0;
//Write titles
foreach ($subnets as $subnet) {
//cast
$subnet = (array) $subnet;
//ignore folders!
if($subnet['isFolder']!="1") {
//vlan details
$vlan = (array) $Tools->fetch_object("vlans", "vlanId", $subnet['vlanId']);
if(strlen($vlan['number']) > 0) {
$vlanText = " (vlan: " . $vlan['number'];
if(strlen($vlan['name']) > 0) {
$vlanText .= ' - '. $vlan['name'] . ')';
}
else {
$vlanText .= ")";
}
}
else {
$vlanText = "";
}
$worksheet->write($lineCount, 0, $Subnets->transform_to_dotted($subnet['subnet']) . "/" .$subnet['mask'] . " - " . $subnet['description'] . $vlanText, $format_header );
$worksheet->mergeCells($lineCount, 0, $lineCount, $colSize);
$lineCount++;
//IP addresses in subnet
$ipaddresses = $Addresses->fetch_subnet_addresses ($subnet['id']);
//write headers
$worksheet->write($lineCount, 0, _('ip address' ),$format_title);
$worksheet->write($lineCount, 1, _('ip state' ),$format_title);
$worksheet->write($lineCount, 2, _('description' ),$format_title);
$worksheet->write($lineCount, 3, _('hostname' ),$format_title);
$worksheet->write($lineCount, 4, _('mac' ),$format_title);
$worksheet->write($lineCount, 5, _('owner' ),$format_title);
$worksheet->write($lineCount, 6, _('device' ),$format_title);
$worksheet->write($lineCount, 7, _('port' ),$format_title);
$worksheet->write($lineCount, 8, _('note' ),$format_title);
$m = 9;
//custom
if(sizeof($myFields) > 0) {
foreach($myFields as $myField) {
$worksheet->write($lineCount, $m, $myField['name'] ,$format_title);
$m++;
}
}
$lineCount++;
if(sizeof($ipaddresses) > 0) {
foreach ($ipaddresses as $ip) {
//cast
$ip = (array) $ip;
//reformat state
if(@$ip_types[$ip['state']]['showtag']==1) { $ip['state'] = $ip_types[$ip['state']]['type']; }
else { $ip['state'] = ""; }
//change switch ID to name
$ip['switch'] = is_null($ip['switch'])||strlen($ip['switch'])==0||$ip['switch']==0 ? "" : $devices_indexed[$ip['switch']]->hostname;
$worksheet->write($lineCount, 0, $Subnets->transform_to_dotted($ip['ip_addr']), $format_left);
$worksheet->write($lineCount, 1, $ip['state']);
$worksheet->write($lineCount, 2, $ip['description']);
$worksheet->write($lineCount, 3, $ip['dns_name']);
$worksheet->write($lineCount, 4, $ip['mac']);
$worksheet->write($lineCount, 5, $ip['owner']);
$worksheet->write($lineCount, 6, $ip['switch']);
$worksheet->write($lineCount, 7, $ip['port']);
$worksheet->write($lineCount, 8, $ip['note']);
//custom
$m = 9;
if(sizeof($myFields) > 0) {
foreach($myFields as $myField) {
$worksheet->write($lineCount, $m, $ip[$myField['name']]);
$m++;
}
}
$lineCount++;
}
}
else {
$worksheet->write($lineCount, 0, _('No hosts'));
$lineCount++;
}
//new line
$lineCount++;
}
}
}
// sending HTTP headers
$workbook->send($filename);
// Let's send the file
$workbook->close();
?> phpipam-1.3/app/admin/import-export/import-button.php 0000664 0000000 0000000 00000017117 13117723025 0023060 0 ustar 00root root 0000000 0000000 check_user_session();
?>
phpipam-1.3/app/admin/import-export/import-constants.php 0000664 0000000 0000000 00000000524 13117723025 0023553 0 ustar 00root root 0000000 0000000 phpipam-1.3/app/admin/import-export/import-ipaddr-check.php 0000664 0000000 0000000 00000024415 13117723025 0024062 0 ustar 00root root 0000000 0000000 check_user_session();
# read again the custom fields, if any
if (!isset($custom_fields)) { $custom_fields = $Tools->fetch_custom_fields("ipaddresses"); }
# check which sections we need to care about
$used_section = array();
foreach ($data as &$cdata) { $used_section[strtolower($cdata['section'])]=$cdata['section']; }
# fetch all VRFs
$all_vrfs = $Admin->fetch_all_objects("vrf", "vrfId");
if (!$all_vrfs) { $all_vrfs = array(); }
# insert default VRF in the list
array_splice($all_vrfs,0,0,(object) array(array('vrfId' => '0', 'name' => 'default', 'rd' => '0:0')));
# process for easier later check
$vrf_data = array();
foreach ($all_vrfs as $vrf) {
//cast
$vrf = (array) $vrf;
$vrf_data[$vrf['name']] = $vrf;
$vrf_data[$vrf['rd']] = $vrf; # add also RD as VRF name, will allow matches against both name and RD
}
# fetch all sections and load all subnets
$all_sections = $Sections->fetch_all_sections();
# get all addresses in all subnets in all sections
$edata = array();
$section_names = array();
$subnet_data = array();
foreach ($all_sections as $section) {
$section = (array) $section;
$section_names[strtolower($section['name'])] = $section;
# skip sections we're not importing for, so we save cpu time and memory
if (!isset($used_section[strtolower($section['name'])])) { continue; }
$section_subnets = $Subnets->fetch_section_subnets($section['id']);
# skip empty sections
if (sizeof($section_subnets)==0) { continue; }
foreach ($section_subnets as $subnet) {
$subnet = (array) $subnet;
# ignore folders
if($subnet['isFolder']) { continue; }
# store needed subnet information
$subnet_data[$section['id']][$subnet['vrfId']][$subnet['ip']][$subnet['mask']] = $subnet;
$subnet_data[$section['id']][$subnet['vrfId']][$subnet['ip']][$subnet['mask']]['type'] = $Subnets->identify_address($subnet['ip']);
# grab IP addresses
$ipaddresses = $Addresses->fetch_subnet_addresses ($subnet['id']);
if (sizeof($ipaddresses)==0) { continue; }
foreach ($ipaddresses as $ip) {
//cast
$ip = (array) $ip;
$edata[$section['id']][$subnet['vrfId']][$subnet['ip']][$subnet['mask']][$Subnets->transform_address($ip['ip_addr'], "dotted")] = $ip;
}
}
}
# Load available tags
$tag_data = array(); $ip_tags = (array) $Addresses->addresses_types_fetch();
foreach ($ip_tags as $c_tag) { $tag_data[$c_tag['type']] = $c_tag; }
# Load available devices
$device_data = array();
$devices = $Tools->fetch_all_objects("devices", "hostname");
if ($devices!==false) {
foreach($devices as $c_dev) {
$c_dev = (array) $c_dev;
$c_dev_sections=explode(";", $c_dev['sections']);
# Populate each section with the devices it has
foreach($c_dev_sections as $c_dev_sect) { $device_data[$c_dev_sect][$c_dev['hostname']] = $c_dev;}
}
}
$rows = "";
$counters = array();
$ndata = array(); # store new addresses in a similar format with edata for easier processing
# check the fields
foreach ($data as &$cdata) {
$msg = ""; $action = ""; $cfieldtds = "";
# check if required fields are present and not empty
foreach($reqfields as $creq) {
if ((!isset($cdata[$creq]) or ($cdata[$creq] == ""))) { $msg.= "Required field ".$creq." missing or empty."; $action = "error"; }
}
# if the subnet contains "/", split it in network and mask
if ($action != "error") {
if (preg_match("/\//", $cdata['subnet'])) {
list($caddr,$cmask) = explode("/",$cdata['subnet'],2);
$cdata['mask'] = $cmask;
$cdata['subnet'] = $caddr;
}
else { $msg.= "The subnet needs to have the mask defined as /BM (Bit Mask)"; $action = "error"; }
if ((!empty($cdata['mask'])) && (!preg_match("/^([0-9]+|[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$/", $cdata['mask']))) {
$msg.="Invalid network mask format."; $action = "error";
} else {
$cdata['type'] = $Subnets->identify_address($cdata['subnet']);
if (($cdata['type'] == "IPv6") && (($cdata['mask']<0) || ($cdata['mask']>128))) { $msg.="Invalid IPv6 network mask."; $action = "error"; }
}
}
# Check if section is provided and valid and link it if it is
if (!isset($section_names[strtolower($cdata['section'])])) {
$msg.= "Invalid section."; $action = "error";
} else {
$cdata['sectionId'] = $section_names[strtolower($cdata['section'])]['id'];
}
# Check if VRF is provided and valid and link it if it is
if (!empty($cdata['vrf'])) {
if (!isset($vrf_data[$cdata['vrf']])) {
$msg.= "Invalid VRF."; $action = "error";
} else {
$cdata['vrfId'] = $vrf_data[$cdata['vrf']]['vrfId'];
}
} else {
# no VRF provided, using default
$cdata['vrfId'] = 0;
}
# Check if Subnet is provided and valid and link it if it is
if ((!empty($cdata['subnet'])) and (!empty($cdata['mask']))) {
if (!isset($subnet_data[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']])) {
$msg.= "Invalid Subnet."; $action = "error";
} else {
$cdata['subnetId'] = $subnet_data[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']]['id'];
}
} else {
# no subnet provided, search not implemented yet, giving out error.
$msg.= "Subnet/Mask not provided."; $action = "error";
}
# Match device name against device IDs
if (!empty($cdata['device'])) {
if (!isset($device_data[$cdata['sectionId']][$cdata['device']])) {
$msg.= "Invalid device hostname."; $action = "error";
} else {
$cdata['switch'] = $device_data[$cdata['sectionId']][$cdata['device']]['id'];
}
} else {
$cdata['switch'] = 0;
}
# Check if a tag is provided and valid and link it if it is
if (!empty($cdata['tag'])) {
if (!isset($tag_data[$cdata['tag']])) {
$msg.= "Invalid tag."; $action = "error";
} else {
$cdata['state'] = $tag_data[$cdata['tag']]['id'];
}
} else {
# no tag provided, using default
$cdata['state'] = 2;
}
# Verify gateway
if (in_array(strtolower($cdata['is_gateway']),array("yes","true","1"))) { $cdata['is_gateway'] = 1; } else { $cdata['is_gateway'] = 0; }
if ($action != "error") {
if(!$Addresses->validate_ip($cdata['ip_addr'])) { $msg.="Invalid IP address."; $action = "error"; }
if ((!empty($cdata['dns_name'])) and (!preg_match("/^(?=.{1,255}$)[0-9A-Za-z](?:(?:[0-9A-Za-z]|-){0,61}[0-9A-Za-z])?(?:\.[0-9A-Za-z](?:(?:[0-9A-Za-z]|-){0,61}[0-9A-Za-z])?)*\.?$/", $cdata['dns_name']))) { $msg.="Invalid DNS name."; $action = "error"; }
if (preg_match("/[;'\"]/", $cdata['description'])) { $msg.="Invalid characters in description."; $action = "error"; }
if ($cdata['mac']) {
if (!preg_match("/^([0-9A-Fa-f]{2}[:-]){5}([0-9A-Fa-f]{2})$/", $cdata['mac'])) { $msg.="Invalid MAC address."; $action = "error"; }
}
if (preg_match("/[;'\"]/", $cdata['owner'])) { $msg.="Invalid characters in owner name."; $action = "error"; }
if (preg_match("/[;'\"]/", $cdata['note'])) { $msg.="Invalid characters in note."; $action = "error"; }
}
# check if duplicate in the import data
if ($action != "error") {
if (isset($ndata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']][$cdata['ip_addr']])) { $msg.="Duplicate entry in imported data."; $action = "error"; }
}
# check if existing in database
if ($action != "error") {
if (isset($edata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']][$cdata['ip_addr']])) {
# copy content to a variable for easier checks
$cedata = $edata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']][$cdata['ip_addr']];
# Check if we need to change any fields
$action = "skip"; # skip duplicate fields if identical, update if different
if ($cdata['dns_name'] != $cedata['dns_name']) { $msg.= "Address DNS name will be updated."; $action = "edit"; }
if ($cdata['description'] != $cedata['description']) { $msg.= "Address description will be updated."; $action = "edit"; }
if ($cdata['mac'] != $cedata['mac']) { $msg.= "Address MAC address will be updated."; $action = "edit"; }
if ($cdata['owner'] != $cedata['owner']) { $msg.= "Address owner will be updated."; $action = "edit"; }
if ($cdata['switch'] != $cedata['switch']) { $msg.= "Device will be updated."; $action = "edit"; }
if ($cdata['note'] != $cedata['note']) { $msg.= "Address note will be updated."; $action = "edit"; }
if ($cdata['state'] != $cedata['state']) { $msg.= "Address tag (state) will be updated."; $action = "edit"; }
# Check if the values of the custom fields have changed
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
if ($cdata[$myField['name']] != $cedata[$myField['name']]) {
$msg.= $myField['name']." will be updated."; $action = "edit";
}
}
}
if ($action == "skip") {
$msg.= "Duplicate, will skip.";
} else {
# set id of matched subnet
$cdata['id'] = $cedata['id'];
# copy some fields which we don't import, but need to set
// $cdata['port'] = $cedata['port']; $cdata['lastseen'] = $cedata['lastseen'];
// $cdata['excludePing'] = $cedata['excludePing'];
// $cdata['PTRignore'] = $cedata['PTRignore']; $cdata['PTR'] = $cedata['PTR']; $cdata['NAT'] = $cedata['NAT'];
// $cdata['firewallAddressObject'] = $cedata['firewallAddressObject'];
}
} else {
$msg.="New entry, will be added."; $action = "add";
# Add it to ndata for duplicate check
$ndata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']][$cdata['ip_addr']] = $cdata;
}
}
$cdata['msg'].= $msg;
$cdata['action'] = $action;
$counters[$action]++;
$cdata['subnet'] = $cdata['subnet']."/".$cdata['mask'];
$rows.="
";
foreach ($expfields as $cfield) { $rows.= "
".$cdata[$cfield]."
"; }
$rows.= "
"._($cdata['msg'])."
";
}
?> phpipam-1.3/app/admin/import-export/import-ipaddr-preview.php 0000664 0000000 0000000 00000005213 13117723025 0024461 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-ipaddr-check.php';
?>
'._("Uploaded data").'';
print _("The entries marked with ").", "._("will be added,
the ones marked with ").", "._("will be updated
and the ones marked with ")." "._("will be skipped.");
print ""._("Summary: ")."".($counters['add'] > 0 ? $counters['add'] : "no")._(" new entries.
").($counters['edit'] > 0 ? $counters['edit'] : "no")._(" updated entries.
").($counters['error'] > 0 ? $counters['error'] : "no")._(" entries skipped due to errors.
").($counters['skip'] > 0 ? $counters['skip'] : "no")._(" duplicate entries.
")._("Scroll down for details.");
print "";
print "
";
print "
".$hrow."
Action
";
print $rows;
print "
";
# add some spaces so we make pContent div larger and not overlap with the absolute pFooter div
print "
";
?>
0) || ($counters['edit'] > 0)) {
?>
phpipam-1.3/app/admin/import-export/import-ipaddr-select.php 0000664 0000000 0000000 00000013050 13117723025 0024255 0 ustar 00root root 0000000 0000000 check_user_session();
$tpl_field_names = "";
$tpl_field_types = "";
# predefine field list
$expfields = array ("section","ip_addr","dns_name","description","vrf","subnet","mac","owner","device","note","tag","gateway");
//$disfields = array ("Section","IP Address","Hostname","Description","VRF","Subnet","MAC","owner","device","note","TAG");
$mtable = "ipaddresses"; # main table where to check the fields
# extra fields
$extfields["section"]["table"] = "sections";
$extfields["section"]["field"] = "name";
$extfields["section"]["pname"] = "section";
$extfields["vrf"]["table"] = "vrf";
$extfields["vrf"]["field"] = "name";
$extfields["vrf"]["pname"] = "vrf";
$extfields["subnet"]["table"] = "subnets";
$extfields["subnet"]["field"] = "subnet";
$extfields["subnet"]["pname"] = "subnet";
//$extfields["mask"]["table"] = "subnets";
//$extfields["mask"]["field"] = "mask";
//$extfields["mask"]["pname"] = "subnet";
$extfields["device"]["table"] = "devices";
$extfields["device"]["field"] = "hostname";
$extfields["device"]["pname"] = "device";
$extfields["tag"]["table"] = "ipTags";
$extfields["tag"]["field"] = "type";
$extfields["tag"]["pname"] = "tag";
## using the extra fields as a trick to display some nicer names for these regular fields
$extfields["ip_addr"]["table"] = "ipaddresses";
$extfields["ip_addr"]["field"] = "ip_addr";
$extfields["ip_addr"]["pname"] = "IP address";
$extfields["dns_name"]["table"] = "ipaddresses";
$extfields["dns_name"]["field"] = "dns_name";
$extfields["dns_name"]["pname"] = "Hostname";
$extfields["gateway"]["table"] = "ipaddresses";
$extfields["gateway"]["field"] = "is_gateway";
$extfields["gateway"]["pname"] = "Gateway";
# required fields without which we will not continue
$reqfields = array("section","ip_addr","subnet");
# manually adjust the standard fields
foreach($expfields as $std_field) {
# extra table and field
if (isset($extfields[$std_field])) {
$cfield = $extfields[$std_field]["field"];
$ctable = $extfields[$std_field]["table"];
$pname = $extfields[$std_field]["pname"]." ";
} else {
# default table and field
$cfield = $std_field;
$ctable = $mtable;
$pname = "";
}
# read field attributes
$field = $Tools->fetch_full_field_definition($ctable,$cfield);
$field = (array) $field;
# mark required fields with *
$msgr = in_array($std_field,$reqfields) ? "*" : "";
#prebuild template table rows to avoid useless foreach loops
$tpl_field_names.= "
".($pname ? $pname : $field['Field']).$msgr."
";
$tpl_field_types.= "
". wordwrap($field['Type'],18," \n",true) ."
";
}
# append the custom fields, if any
$custom_fields = $Tools->fetch_custom_fields($mtable);
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
# add field to required fields if needed
if ($myField['Null'] == "NO") { $reqfields[] = $myField['name']; }
# mark required fields with *
$msgr = in_array($myField['name'],$reqfields) ? "*" : "";
$tpl_field_names.= "
';
print _("The import XLS/CSV should have the following fields and a header row for a succesful import:");
print "
";
print "";
print "";
print "";
print "
";
print "
" . $tpl_field_names . "
";
print "
" . $tpl_field_types . "
";
print "
";
print "
"._("The fields marked with * are mandatory.")."
"._("Providing a subnet is optional, the system will add the IP to the longest match if no subnet is provided.")."
"._("The mask can be provided either as a separate field or with the subnet, sparated by \"/\"")."
phpipam-1.3/app/admin/import-export/import-ipaddr.php 0000664 0000000 0000000 00000004536 13117723025 0023011 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-ipaddr-check.php';
?>
phpipam-1.3/app/admin/import-export/import-l2dom-check.php 0000664 0000000 0000000 00000005052 13117723025 0023630 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch all l2 domains
$vlan_domains = $Admin->fetch_all_objects("vlanDomains", "id");
# Load existing data
$edata = array();
# process for easier later check
foreach ($vlan_domains as $vlan_domain) {
//cast
$vlan_domain = (array) $vlan_domain;
$edata[$vlan_domain['name']] = $vlan_domain;
}
$rows = "";
$counters = array();
$unique = array();
# check the fields
foreach ($data as &$cdata) {
$msg = ""; $action = ""; $cfieldtds = "";
# check if required fields are present and not empty
foreach($reqfields as $creq) {
if ((!isset($cdata[$creq])) or ($cdata[$creq] == "")) { $msg.= "Required field ".$creq." missing or empty."; $action = "error"; }
}
# check data format
if ($action != "error") {
if (!preg_match("/^[a-zA-Z0-9-_ ]+$/", $cdata['name'])) { $msg.="Invalid name format."; $action = "error"; }
if (preg_match("/[;'\"]/", $cdata['description'])) { $msg.="Invalid characters in description."; $action = "error"; }
}
# check if duplicate L2 domain
if (isset($unique[$cdata['name']])) { $msg.= "Duplicate VLAN domain found. Please check import file."; $action = "error"; }
# check if existing
if ($action != "error") {
if (isset($edata[$cdata['name']])) {
$cdata['id'] = $edata[$cdata['name']]['id'];
$action = "skip"; # skip duplicate fields if identical, update if different
if ($cdata['description'] != $edata[$cdata['name']]['description']) { $msg.= "L2 Domain description will be updated."; $action = "edit"; }
if ($action == "skip") {
$msg.= "Duplicate, will skip.";
}
} else {
$msg.="New entry, will be added."; $action = "add";
}
}
$cdata['msg'].= $msg;
$cdata['action'] = $action;
$counters[$action]++;
if (!isset($unique[$cdata['name']])) { $unique[$cdata['name']] = $cdata['name']; }
$rows.="
".$cdata['name']."
".$cdata['description']."
"._($cdata['msg'])."
";
}
?> phpipam-1.3/app/admin/import-export/import-l2dom-preview.php 0000664 0000000 0000000 00000005017 13117723025 0024235 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-l2dom-check.php';
?>
'._("Uploaded data").'';
print _("The entries marked with ").", "._("will be added,
the ones marked with ").", "._("will be updated
and the ones marked with ")." "._("will be skipped.");
print ""._("Summary: ")."".($counters['add'] > 0 ? $counters['add'] : "no")._(" new entries.
").($counters['edit'] > 0 ? $counters['edit'] : "no")._(" updated entries.
").($counters['error'] > 0 ? $counters['error'] : "no")._(" entries skipped due to errors.
").($counters['skip'] > 0 ? $counters['skip'] : "no")._(" duplicate entries.
")._("Scroll down for details.");
print "";
print "
";
print "
".$hrow."
Action
";
print $rows;
print "
";
?>
0) || ($counters['edit'] > 0)) {
?>
phpipam-1.3/app/admin/import-export/import-l2dom-select.php 0000664 0000000 0000000 00000005522 13117723025 0024034 0 ustar 00root root 0000000 0000000 check_user_session();
$tpl_field_names = "";
$tpl_field_types = "";
# predefine field list
$expfields = array ("name","description");
$mtable = "vlanDomains"; # main table where to check the fields
# required fields without which we will not continue
$reqfields = array("name");
# manually adjust the standard fields
foreach($expfields as $std_field) {
# extra table and field
if (isset($extfields[$std_field])) {
$cfield = $extfields[$std_field]["field"];
$ctable = $extfields[$std_field]["table"];
$pname = $extfields[$std_field]["pname"]." ";
} else {
# default table and field
$cfield = $std_field;
$ctable = $mtable;
$pname = "";
}
# read field attributes
$field = $Tools->fetch_full_field_definition($ctable,$cfield);
$field = (array) $field;
# mark required fields with *
$msgr = in_array($std_field,$reqfields) ? "*" : "";
#prebuild template table rows to avoid useless foreach loops
$tpl_field_names.= "
".$pname.$field['Field'].$msgr."
";
$tpl_field_types.= "
". wordwrap($field['Type'],18," \n",true) ."
";
}
?>
";
print '
'._("Template").'
';
print _("The import XLS/CSV should have the following fields and a header row for a succesful import:");
print "
phpipam-1.3/app/admin/import-export/import-l2dom.php 0000664 0000000 0000000 00000003465 13117723025 0022563 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-l2dom-check.php';
?>
phpipam-1.3/app/admin/import-export/import-load-data.php 0000664 0000000 0000000 00000007724 13117723025 0023376 0 ustar 00root root 0000000 0000000 check_user_session();
$expfields = explode("|",$_GET['expfields']);
$reqfields = explode("|",$_GET['reqfields']);
if (isset($_GET['filetype'])) {
$filetype = $_GET['filetype'];
} else {
$Result->show('danger', _("Error: could not read the uploaded file type!"), true, true);
}
# Load colors and icons
include 'import-constants.php';
$hrow = "
";
$hiddenfields="";
# read field mapping from previous window
foreach ($expfields as $expfield) {
if (isset($_GET['importFields__'.str_replace(" ", "_",$expfield)])) {
$impfield = $_GET['importFields__'.str_replace(" ", "_",$expfield)];
if (in_array($expfield,$reqfields) && ($impfield == "-")) {
$Result->show('danger', _("Error: missing required field mapping for expected field")." ".$expfield."."._("Please check field matching in previous window."), true, true);
} else {
if ($impfield != "-") { $impfields[$impfield] = $expfield; }
}
} else {
$Result->show('danger', _("Internal error: missing import field mapping."), true, true);
}
# prepare header row for preview table
$hrow.="
".$expfield."
";
# prepare select field to transfer to actual import file
$hiddenfields.="";
}
$data = array();
# read first row from CSV
if (strtolower($filetype) == "csv") {
# open CSV file
$filehdl = fopen('upload/data_import.csv', 'r');
# set delimiter
$Tools->set_csv_delimiter ($filehdl);
# read header row
$row = 0;$col = 0;
$line = fgets($filehdl);
$row++;
$line = str_replace( array("\r\n","\r","\n") , "" , $line); //remove line break
$cols = str_getcsv ($line, $Tools->csv_delimiter);
foreach ($cols as $val) {
$col++;
# map import columns to expected fields as per previous window
$fieldmap[$col] = $impfields[$val];
$hcol = $col;
}
# read each remaining row into a dictionary with expected fields as keys
while (($line = fgets($filehdl)) !== false) {
$row++;$col = 0;
$line = str_replace( array("\r\n","\r","\n") , "" , $line); //remove line break
$cols = str_getcsv ($line, $Tools->csv_delimiter);
$record = array();
foreach ($cols as $val) {
$col++;
if ($col > $hcol) {
$Result->show('danger', _("Extra column found on line ").$row._(" in CSV file. CSV delimiter used in value field?"), true);
} else {
# read each row into a dictionary with expected fields as keys
$record[$fieldmap[$col]] = trim($val);
}
}
$data[] = $record;
}
fclose($filehdl);
}
# read first row from XLS
elseif(strtolower($filetype) == "xls") {
# get excel object
require_once(dirname(__FILE__) . '/../../../functions/php-excel-reader/excel_reader2.php'); //excel reader 2.21
$xls = new Spreadsheet_Excel_Reader('upload/data_import.xls', false);
$sheet = 0; $row = 1;
# map import columns to expected fields as per previous window
for($col=1;$col<=$xls->colcount($sheet);$col++) {
$fieldmap[$col] = $impfields[$xls->val($row,$col,$sheet)];
$hcol = $col;
}
# read each remaining row into a dictionary with expected fields as keys
for($row=2;$row<=$xls->rowcount($sheet);$row++) {
$record = array();
for($col=1;$col<=$xls->colcount($sheet);$col++) {
$record++;
if ($col > $hcol) {
$Result->show('danger', _("Extra column found on line ").$row._(" in XLS file. Please check input file."), true);
} else {
$record[$fieldmap[$col]] = trim($xls->val($row,$col,$sheet));
}
}
$data[] = $record;
}
}
?> phpipam-1.3/app/admin/import-export/import-recompute-logic.php 0000664 0000000 0000000 00000020534 13117723025 0024640 0 ustar 00root root 0000000 0000000 removeNetmaskSpec($ip);
$ip = $pi6->Uncompress($ip);
$parts = explode(':', $ip);
foreach ( $parts as $v ) {
$str = base_convert($v, 16, 2);
$binstr .= str_pad($str, 16, '0', STR_PAD_LEFT);
}
return $binstr;
}
# Read selected fields and pass them to the save form
foreach($_GET as $key => $value) {
if (preg_match("/recomputeSection_(\d+)$/",$key,$matches) && ($value == "on")) {
# Grab provided values
$rlist[$matches[1]]["IPv4"] = ($_GET['recomputeSectionIPv4_'.$matches[1]] == "on" ? true : false);
$rlist[$matches[1]]["IPv6"] = ($_GET['recomputeSectionIPv6_'.$matches[1]] == "on" ? true : false);
$rlist[$matches[1]]["CVRF"] = ($_GET['recomputeSectionCVRF_'.$matches[1]] == "on" ? true : false);
# Build hidden form inputs
$pass_inputs.="";
$pass_inputs.="";
$pass_inputs.="";
$pass_inputs.="";
}
}
#print "
";print_r($rlist);print "
";
# fetch all sections and store their names
$all_sections = $Sections->fetch_all_sections(); $sect_names = array();
foreach($all_sections as $section) { $section = (array) $section; $sect_names[$section['id']] = $section['name']; }
# fetch all VRFs
$all_vrfs = $Admin->fetch_all_objects("vrf", "vrfId"); $vrf_name = array();
if (!$all_vrfs) { $all_vrfs = array(); }
# insert default VRF in the list
array_splice($all_vrfs,0,0,(object) array(array('vrfId' => '0', 'name' => 'default', 'rd' => '0:0')));
foreach ($all_vrfs as $vrf) { $vrf = (array) $vrf; $vrf_name[$vrf['vrfId']] = $vrf['name']; }
# Precompute masks values, to avoid too much CPU load
$masks = array();
for ($i = 0; $i <= 32; $i++) {
$pwr = gmp_pow(2,32-$i);
$masks["IPv4"][$i] = gmp_mul(gmp_div("0xffffffff",$pwr),$pwr);
}
for ($i = 0; $i <= 128; $i++) {
$pwr = gmp_pow(2,128-$i);
$masks["IPv6"][$i] = gmp_mul(gmp_div("0xffffffffffffffffffffffffffffffff",$pwr),$pwr);
}
$rows = ""; $counters = array(); $subnetbyid = array();
/**
* The multi-dimentional array candidates stores subnet objects into buckets with identical section,
* type, mask and andip values. (Duplicate subnets/masks are allowed, eg different VRFs)
*
* When searching for a new master we calculate the andip of the current subnet using the currrent
* $search_mask and use a hash lookup of $candidates to find subnets with matching attributes.
* If no matches exists we decrement the $search_mask and repeat.
*
* If cross-vrf searching is enabled or strict mode is disabled; multiple master candidates may exist.
* Select the master from the available candidates based on the selection rules below.
* First matching rule wins.
* - Prefer master subnets in the same VRF as the child.
* - Prefer the currently set master subnet.
* - Prefer the master subnet with the lowest id value.
*
**/
$rows = ""; $counters = array();
# Read IPs for the sections we need to order
foreach ($rlist as $sect_id => $sect_check) {
$section_subnets = $Subnets->fetch_section_subnets($sect_id);
# skip empty sections
if (sizeof($section_subnets)==0) { continue; }
foreach ($section_subnets as &$subnet) {
$subnet = (array) $subnet;
$subnet['ip'] = $Subnets->transform_to_dotted($subnet['subnet']);
$subnet['type'] = $Subnets->identify_address($subnet['ip']);
$type = $subnet['type'];
$mask = $subnet['mask'];
$edata[$sect_id][] = &$subnet;
$subnetbyid[$subnet['id']] = &$subnet;
if (!$subnet['isFolder']) {
$andip = gmp_strval(gmp_and($subnet['subnet'], $masks[$type][$mask]));
$candidates[$sect_id][$type][$mask][$andip][] = &$subnet;
}
}
unset($subnet);
# Recompute master/nested relations for the selected sections and address families
# Grab a subnet and find its closest master
foreach ($section_subnets as &$c_subnet) {
if (!$sect_check[$c_subnet['type']]) { continue; } # Skip the IP version we don't want to reorder
if ($c_subnet['isFolder']) { continue; } # Skip folders
if ($subnetbyid[$c_subnet['masterSubnetId']]['isFolder']) { continue; } # Skip changing subnet with folder masters
# Search for matching candidates in the same section, of the same type and with smaller masks.
$m_candidate = array();
$search_mask = $c_subnet['mask'];
$search_type = $c_subnet['type'];
while (--$search_mask >= 0) {
$search_subnet = gmp_strval(gmp_and($c_subnet['subnet'], $masks[$search_type][$search_mask]));
if (!isset($candidates[$sect_id][$search_type][$search_mask][$search_subnet])) { continue; }
$t_candidate = $candidates[$sect_id][$search_type][$search_mask][$search_subnet];
# Skip subnets from other VRFs if cross VRF reordering is not wanted (default is on)
if (!$sect_check["CVRF"]) {
foreach($t_candidate as $i => $t_subnet) {
if ($t_subnet['vrfId'] != $c_subnet['vrfId']) { unset($t_candidate[$i]); }
}
if (sizeof($t_candidate)==0) { continue; }
}
$m_candidate = $t_candidate;
break;
}
$c_master_id = "0"; $c_master_ip = ""; $c_master_mask = ""; $search_child_vrf_only = 0;
# Choose from the availale master candidates
foreach($m_candidate as $m_subnet) {
# Candidate is in same VRF as child, select it and only consider candidates from this VRF from now on.
if ($m_subnet['vrfId'] == $c_subnet['vrfId']) {
$c_master_id = $m_subnet['id']; $c_master_mask = $m_subnet['mask']; $c_master_ip = $m_subnet['ip'];
$search_child_vrf_only = 1;
}
# Previous candidate found in child VRF. Ignore candidates from other VRFs
if ($search_child_vrf_only == 1 && $m_subnet['vrfId'] != $c_subnet['vrfId']) { continue; }
# Candidate is our existing master subnet, keep it
if ($m_subnet['id'] == $c_subnet['masterSubnetId']) {
$c_master_id = $m_subnet['id']; $c_master_mask = $m_subnet['mask']; $c_master_ip = $m_subnet['ip'];
}
# Candidate is more specific than current selection.
if ($m_subnet['mask'] > $c_master_mask) {
$c_master_id = $m_subnet['id']; $c_master_mask = $m_subnet['mask']; $c_master_ip = $m_subnet['ip'];
}
}
# At the end, save the new master
$c_subnet['new_masterSubnetId'] = $c_master_id;
$c_subnet['new_master'] = (($c_master_id === "0") ? _("Root") : $c_master_ip."/".$c_master_mask);
$c_subnet['action'] = ($c_subnet['masterSubnetId'] == $c_subnet['new_masterSubnetId'] ? "skip" : "edit");
$c_subnet['msg'] = ($c_subnet['masterSubnetId'] == $c_subnet['new_masterSubnetId'] ? _("No change, skip") : _("New master, update"));
$counters[$c_subnet['action']]++;
if ( $_GET['recomputeHideUnchanged'] == "on" && $c_subnet['masterSubnetId'] == $c_master_id ) { continue; }
$rows.="
";
$rows.="
".$sect_names[$sect_id]."
".$c_subnet['ip']."/".$c_subnet['mask']."
";
$rows.="
".$c_subnet['description']."
".$vrf_name[$c_subnet['vrfId']]."
";
$rows.=$c_subnet['new_master']."
".$c_subnet['msg']."
\n";
}
unset($c_subnet);
}
?>
phpipam-1.3/app/admin/import-export/import-recompute-preview.php 0000664 0000000 0000000 00000003674 13117723025 0025232 0 ustar 00root root 0000000 0000000 check_user_session();
# Load subnets and recompute the master/nested relations
include 'import-recompute-logic.php';
?>
'._("Recomputed data").'';
print _("The entries marked with ").", "._("have new masters and will be updated,
the ones marked with ").", "._("didn't change the master.");
print "";
print "
";
print "
Section
Subnet
Description
VRF
Master
Action
";
print $rows;
print "
";
# add some spaces so we make pContent div larger and not overlap with the absolute pFooter div
print "
";
?>
0) {
?>
phpipam-1.3/app/admin/import-export/import-recompute-select.php 0000664 0000000 0000000 00000007710 13117723025 0025023 0 ustar 00root root 0000000 0000000 check_user_session();
$mtable = "subnets"; # main table where to check the fields
# predefine field list
$expfields = array ("section","subnet","mask","description","vrf");
# required fields without which we will not continue, vrf is optional - if not set we check against default VRF
$reqfields = array("section","subnet");
# we don't care about custom fields here
$custom_fields = array();
# fetch all sections
$all_sections = $Sections->fetch_all_sections();
# Lets do some reordering to show slaves!
foreach($all_sections as $s) {
if($s->masterSection=="0") {
# it is master
$s->class = "master";
$sectionssorted[] = $s;
# check for slaves
foreach($all_sections as $ss) {
if($ss->masterSection==$s->id) {
$ss->class = "slave";
$sectionssorted[] = $ss;
}
}
}
}
# set new array
$sections_sorted = @$sectionssorted;
# show sections
if(sizeof($all_sections) > 0) {
$section_rows = ""; $last_master = 0;
# existing sections
foreach ($sections_sorted as $section) {
//cast
$section = (array) $section;
//master Section
if (($section['masterSection']!=0) && ($section['masterSection']==$last_master)) {
$sect_prefix = " - ";
} else {
$sect_prefix = "";
$last_master = $section['id'];
}
$section_rows.= "
";
$section_rows.= "
";
$section_rows.= "
";
$section_rows.= "
";
$section_rows.= "
";
$section_rows.="
\n";
}
} else {
$section_rows = "
No sections found!
";
}
?>
";
print '
'._("Sections and IP versions").'
';
print _("Please choose which section and IP version to recompute:");
print "
phpipam-1.3/app/admin/import-export/import-recompute.php 0000664 0000000 0000000 00000004057 13117723025 0023547 0 ustar 00root root 0000000 0000000 check_user_session();
# Load subnets and recompute the master/nested relations
include 'import-recompute-logic.php';
?>
$a) {
foreach($edata[$sect_id] as &$c_subnet) {
if ($c_subnet['action'] != "edit") { continue; }
# We only need id and new master
$values = array("id"=>$c_subnet['id'], "masterSubnetId"=>$c_subnet['new_masterSubnetId']);
# update
$c_subnet['result'] = $Admin->object_modify("subnets", $c_subnet['action'], "id", $values);
if ($c_subnet['result']) {
$trc = $colors[$c_subnet['action']];
$msg = "Master ".$c_subnet['action']." successful.";
} else {
$trc = "danger";
$msg = "Master ".$c_subnet['action']." failed.";
}
$rows.="
";
$rows.="
".$sect_names[$sect_id]."
".$c_subnet['ip']."/".$c_subnet['mask']."
";
$rows.="
".$c_subnet['description']."
".$vrf_name[$c_subnet['vrfId']]."
";
$rows.=$c_subnet['new_master']."
"._($msg)."
\n";
}
unset($c_subnet);
}
print "
";
print "
Section
Subnet
Description
VRF
Master
Result
";
print $rows;
print "
";
?>
phpipam-1.3/app/admin/import-export/import-subnets-check.php 0000664 0000000 0000000 00000022035 13117723025 0024276 0 ustar 00root root 0000000 0000000 check_user_session();
# Get mask check
#automated $cidrformat = isset($_GET['cidrformat']) ? $_GET['cidrformat'] : "off";
#separate option $rebuildmnr = isset($_GET['rebuildmnr']) ? $_GET['rebuildmnr'] : "off";
# read again the custom fields, if any
if (!isset($custom_fields)) { $custom_fields = $Tools->fetch_custom_fields("subnets"); }
# fetch all l2 domains
$vlan_domains = $Admin->fetch_all_objects("vlanDomains", "id");
# load VLANs and process for easier later check
$vlan_data = array();
foreach ($vlan_domains as $vlan_domain) {
//cast
$vlan_domain = (array) $vlan_domain;
// read vlans
$all_vlans = $Admin->fetch_multiple_objects("vlans", "domainId", $vlan_domain['id'], "number");
$all_vlans = (array) $all_vlans;
// skip empty domains
if (sizeof($all_vlans)==0) {
# create entry for domain check
$vlan_data[$vlan_domain['name']] = array();
continue;
}
//write all VLAN entries
foreach ($all_vlans as $vlan) {
//cast
$vlan = (array) $vlan;
$vlan_data[$vlan_domain['name']][$vlan['number']] = $vlan;
}
}
# fetch all VRFs
$all_vrfs = $Admin->fetch_all_objects("vrf", "vrfId");
if (!$all_vrfs) { $all_vrfs = array(); }
# insert default VRF in the list
array_splice($all_vrfs,0,0,(object) array(array('vrfId' => '0', 'name' => 'default', 'rd' => '0:0')));
# process for easier later check
$vrf_data = array();
foreach ($all_vrfs as $vrf) {
//cast
$vrf = (array) $vrf;
$vrf_data[$vrf['name']] = $vrf;
$vrf_data[$vrf['rd']] = $vrf; # add also RD as VRF name, will allow matches against both name and RD
}
# fetch all sections and load all subnets
$all_sections = $Sections->fetch_all_sections();
# get all subnets in all sections
$edata = array(); $section_names = array();
foreach ($all_sections as $section) {
$section = (array) $section;
$section_names[$section['name']] = $section;
$section_subnets = $Subnets->fetch_section_subnets($section['id']);
# skip empty sections
if (sizeof($section_subnets)==0) { continue; }
foreach ($section_subnets as $subnet) {
$subnet = (array) $subnet;
# load whole record in array
$edata[$section['id']][$subnet['vrfId']][$subnet['ip']][$subnet['mask']] = $subnet;
$edata[$section['id']][$subnet['vrfId']][$subnet['ip']][$subnet['mask']]['type'] = $Subnets->identify_address($subnet['ip']);
}
}
#print_r($vlan_data);
$rows = "";
$counters = array();
$ndata = array(); # store new networks in a similar format with edata for easier processing
# check the fields
foreach ($data as &$cdata) {
$msg = ""; $action = ""; $cfieldtds = "";
# check if required fields are present and not empty
foreach($reqfields as $creq) {
if ((!isset($cdata[$creq])) or ($cdata[$creq] == "")) { $msg.= "Required field ".$creq." missing or empty."; $action = "error"; }
}
# if the subnet contains "/", split it in network and mask
if ($action != "error") {
if (preg_match("/\//", $cdata['subnet'])) {
list($caddr,$cmask) = explode("/",$cdata['subnet'],2);
$cdata['mask'] = $cmask;
$cdata['subnet'] = $caddr;
} else { # check that mask is provided
if ((!isset($cdata['mask'])) or ($cdata['mask'] == "")) { $msg.= "Required field mask missing or empty."; $action = "error"; }
}
if ((!empty($cdata['mask'])) && (!preg_match("/^([0-9]+|[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$/", $cdata['mask']))) {
$msg.="Invalid network mask format."; $action = "error";
} else {
$cdata['type'] = $Subnets->identify_address($cdata['subnet']);
if (($cdata['type'] == "IPv6") && (($cdata['mask']<0) || ($cdata['mask']>128))) { $msg.="Invalid IPv6 network mask."; $action = "error"; }
}
}
# Check if section is provided and valid and link it if it is
if (!isset($section_names[$cdata['section']])) {
$msg.= "Invalid section."; $action = "error";
} else {
$cdata['sectionId'] = $section_names[$cdata['section']]['id'];
}
# Check if VRF is provided and valid and link it if it is
if (!empty($cdata['vrf'])) {
if (!isset($vrf_data[$cdata['vrf']])) {
$msg.= "Invalid VRF."; $action = "error";
} else {
$cdata['vrfId'] = $vrf_data[$cdata['vrf']]['vrfId'];
}
} else {
# no VRF provided
$cdata['vrfId'] = 0;
}
# Check if VLAN Domain and VLAN are valid, and link them if they are
if (!empty($cdata['domain'])) { $cdom = $cdata['domain']; } else { $cdom = "default"; }
if (!isset($vlan_data[$cdom])) {
# the default domain is always there, so if anything is missing we return an error
$msg.= "Invalid VLAN domain."; $action = "error";
} else {
if (!empty($cdata['vlan'])) {
if (in_array(strtolower($cdata['vlan']),array("na","n/a","nan"))) { $cdata['vlan'] = ""; }
if ((!empty($cdata['vlan'])) && (strtolower($cdata['vlan']) != "na")) {
if (!isset($vlan_data[$cdom][$cdata['vlan']])) {
$msg.= "VLAN not found in provided domain."; $action = "error";
} else {
$cdata['vlanId'] = $vlan_data[$cdom][$cdata['vlan']]['vlanId'];
}
} else {
# no VLAN provided
$cdata['vlanId'] = 0;
}
}
}
# check data format
if ($action != "error") {
if ($net = $Subnets->get_network_boundaries($cdata['subnet'],$cdata['mask'])) {
$cdata['mask'] = $net['bitmask'];
$cidr_check = $Subnets->verify_cidr_address($cdata['subnet']."/".$cdata['mask']);
if (strlen($cidr_check)>5) { $msg.=$cidr_check; $action = "error"; }
} else { $msg.=$net['message']; $action = "error"; }
if (preg_match("/[;'\"]/", $cdata['description'])) { $msg.="Invalid characters in description."; $action = "error"; }
if ((!empty($cdata['vrf'])) && (!preg_match("/^[a-zA-Z0-9-:]+$/", $cdata['vrf']))) { $msg.="Invalid VRF name format."; $action = "error"; }
if ((!empty($cdata['vlan'])) && (!preg_match("/^[0-9]+$/", $cdata['vlan']))) { $msg.="Invalid VLAN number format."; $action = "error"; }
if ((!empty($cdata['domain'])) && (!preg_match("/^[a-zA-Z0-9-_ ]+$/", $cdata['domain']))) { $msg.="Invalid VLAN domain format."; $action = "error"; }
}
# check if duplicate in the import data
if ($action != "error") {
if (isset($ndata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']])) { $msg.="Duplicate entry in imported data."; $action = "error"; }
}
# check if existing in database
if ($action != "error") {
if (isset($edata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']])) {
# copy content to a variable for easier checks
$cedata = $edata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']];
# Check if we need to change any fields
$action = "skip"; # skip duplicate fields if identical, update if different
if ($cdata['description'] != $cedata['description']) { $msg.= "Subnet description will be updated."; $action = "edit"; }
if ($cdata['vlanId'] != $cedata['vlanId']) { $msg.= "VLAN ID will be updated."; $action = "edit"; }
# Check if the values of the custom fields have changed
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
if ($cdata[$myField['name']] != $cedata[$myField['name']]) {
$msg.= $myField['name']." will be updated."; $action = "edit";
}
}
}
if ($action == "skip") {
$msg.= "Duplicate, will skip.";
} else {
# set id of matched subnet
$cdata['id'] = $cedata['id'];
# copy some fields which we don't import, but need to set
$cdata['masterSubnetId'] = $cedata['masterSubnetId'];
$cdata['permissions'] = $cedata['permissions'];
// $cdata['allowRequests'] = $cedata['allowRequests']; $cdata['showName'] = $cedata['showName'];
// $cdata['pingSubnet'] = $cedata['pingSubnet']; $cdata['discoverSubnet'] = $cedata['discoverSubnet'];
}
} else {
$msg.="New entry, will be added."; $action = "add";
# Set master to 0 for now, will figure that after we add it, with the recompute function
$cdata['masterSubnetId'] = "0";
# Inherit section permissions for new subnets
$cdata['permissions'] = $section_names[$cdata['section']]['permissions'];
# No overlap checking, smaller subnets will be considered nested, larger ones will be masters
# Master ID is set later, with the recompute functions
# Add it to ndata for duplicate check
$ndata[$cdata['sectionId']][$cdata['vrfId']][$cdata['subnet']][$cdata['mask']] = $cdata;
}
}
$cdata['msg'].= $msg;
$cdata['action'] = $action;
$counters[$action]++;
$rows.="
";
foreach ($expfields as $cfield) { $rows.= "
".$cdata[$cfield]."
"; }
$rows.= "
"._($cdata['msg'])."
";
}
?>
phpipam-1.3/app/admin/import-export/import-subnets-preview.php 0000664 0000000 0000000 00000005363 13117723025 0024707 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-subnets-check.php';
?>
'._("Uploaded data").'';
print _("The entries marked with ").", "._("will be added,
the ones marked with ").", "._("will be updated
and the ones marked with ")." "._("will be skipped.");
print ""._("Summary: ")."".($counters['add'] > 0 ? $counters['add'] : "no")._(" new entries.
").($counters['edit'] > 0 ? $counters['edit'] : "no")._(" updated entries.
").($counters['error'] > 0 ? $counters['error'] : "no")._(" entries skipped due to errors.
").($counters['skip'] > 0 ? $counters['skip'] : "no")._(" duplicate entries.
")._("Scroll down for details.");
print "";
print "
";
print "
".$hrow."
Action
";
print $rows;
print "
";
# add some spaces so we make pContent div larger and not overlap with the absolute pFooter div
print "
";
?>
0) || ($counters['edit'] > 0)) {
?>
phpipam-1.3/app/admin/import-export/import-subnets-select.php 0000664 0000000 0000000 00000011653 13117723025 0024504 0 ustar 00root root 0000000 0000000 check_user_session();
$tpl_field_names = "";
$tpl_field_types = "";
# predefine field list
$expfields = array ("section","subnet","mask","description","vlan","domain","vrf");
// we don't want to support importing of special fields yet, like master, requests, ping, permissions, etc.
// $expfields = array ("section","subnet","mask","description","vlan","domain","vrf","master_subnet","master_mask","allowRequests","pingSubnet","discoverSubnet");
$mtable = "subnets"; # main table where to check the fields
# extra fields
$extfields["section"]["table"] = "sections";
$extfields["section"]["field"] = "name";
$extfields["section"]["pname"] = "section"; # name prefix for fields from other tables
$extfields["vlan"]["table"] = "vlans";
$extfields["vlan"]["field"] = "name";
$extfields["vlan"]["pname"] = "vlan";
$extfields["domain"]["table"] = "vlanDomains";
$extfields["domain"]["field"] = "name";
$extfields["domain"]["pname"] = "domain";
$extfields["vrf"]["table"] = "vrf";
$extfields["vrf"]["field"] = "name";
$extfields["vrf"]["pname"] = "vrf";
// $extfields["master_subnet"]["table"] = "subnets";
// $extfields["master_subnet"]["field"] = "subnet";
// $extfields["master_subnet"]["pname"] = "master";
// $extfields["master_mask"]["table"] = "subnets";
// $extfields["master_mask"]["field"] = "mask";
// $extfields["master_mask"]["pname"] = "master";
# required fields without which we will not continue, vrf is optional - if not set we check against default VRF
$reqfields = array("section","subnet");
# manually adjust the standard fields
foreach($expfields as $std_field) {
# extra table and field
if (isset($extfields[$std_field])) {
$cfield = $extfields[$std_field]["field"];
$ctable = $extfields[$std_field]["table"];
$pname = $extfields[$std_field]["pname"]." ";
} else {
# default table and field
$cfield = $std_field;
$ctable = $mtable;
$pname = "";
}
# read field attributes
$field = $Tools->fetch_full_field_definition($ctable,$cfield);
$field = (array) $field;
# mark required fields with *
$msgr = in_array($std_field,$reqfields) ? "*" : "";
#prebuild template table rows to avoid useless foreach loops
$tpl_field_names.= "
".$pname.$field['Field'].$msgr."
";
$tpl_field_types.= "
". wordwrap($field['Type'],18," \n",true) ."
";
}
# append the custom fields, if any
$custom_fields = $Tools->fetch_custom_fields($mtable);
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
# add field to required fields if needed
if ($myField['Null'] == "NO") { $reqfields[] = $myField['name']; }
# mark required fields with *
$msgr = in_array($myField['name'],$reqfields) ? "*" : "";
$tpl_field_names.= "
".$myField['name'].$msgr."
";
$tpl_field_types.= "
". wordwrap($myField['type'],18," \n",true) ."
";
$expfields[] = $myField['name'];
}
}
?>
";
print '
'._("Template").'
';
print _("The import XLS/CSV should have the following fields and a header row for a succesful import:");
print "
";
print "";
print "";
print "";
print "
";
print "
" . $tpl_field_names . "
";
print "
" . $tpl_field_types . "
";
print "
";
print "
"._("The fields marked with * are mandatory.")."
"._("The mask can be provided either as a separate field or with the subnet, sparated by \"/\"")."
phpipam-1.3/app/admin/import-export/import-subnets.php 0000664 0000000 0000000 00000004707 13117723025 0023231 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-subnets-check.php';
?>
";
}
}
print _("After the import you should perform an automatic recomputation of the master/nested relations using the Recompute button after you close this window.");
print "
";
print "
".$hrow."
Result
";
print $rows;
print "
";
?>
phpipam-1.3/app/admin/import-export/import-template.php 0000664 0000000 0000000 00000006354 13117723025 0023361 0 ustar 00root root 0000000 0000000 check_user_session();
// Create a workbook
$filename = "phpipam_template_" . $type . ".xls";
$workbook = new Spreadsheet_Excel_Writer();
$lineCount = 0;
// Create a worksheet
$worksheet = $workbook->addWorksheet("template");
if ($type == 'subnets'){
//get all custom fields!
$custom_address_fields = $Tools->fetch_custom_fields('subnets');
// set headers
$worksheet->write($lineCount, 0, _('Section'));
$worksheet->write($lineCount, 1, _('Subnet'));
$worksheet->write($lineCount, 2, _('Mask'));
$worksheet->write($lineCount, 3, _('Description'));
$worksheet->write($lineCount, 4, _('VLAN'));
$worksheet->write($lineCount, 5, _('VLAN Domain'));
$worksheet->write($lineCount, 6, _('VRF'));
$fc =7 ;
foreach($custom_address_fields as $k=>$f) {
$worksheet->write($lineCount, $fc, $k);
$fc++;
}
}
elseif ($type == 'ipaddr'){
//get all custom fields!
$custom_address_fields = $Tools->fetch_custom_fields('ipaddresses');
// set headers
// "section","ip_addr","dns_name","description","vrf","subnet","mac","owner","device","note","tag","gateway"
$worksheet->write($lineCount, 0, _('Section'));
$worksheet->write($lineCount, 1, _('IP address'));
$worksheet->write($lineCount, 2, _('DNS Hostname'));
$worksheet->write($lineCount, 3, _('Description'));
$worksheet->write($lineCount, 4, _('VRF'));
$worksheet->write($lineCount, 4, _('Subnet'));
$worksheet->write($lineCount, 5, _('MAC'));
$worksheet->write($lineCount, 6, _('Owner'));
$worksheet->write($lineCount, 7, _('Device'));
$worksheet->write($lineCount, 8, _('Note'));
$worksheet->write($lineCount, 9, _('Tag'));
$worksheet->write($lineCount, 10, _('Gateway'));
$fc =7 ;
foreach($custom_address_fields as $k=>$f) {
$worksheet->write($lineCount, $fc, $k);
$fc++;
}
}
elseif ($type == 'vrf'){
//get all custom fields!
$custom_address_fields = $Tools->fetch_custom_fields('vrf');
// set headers
$worksheet->write($lineCount, 0, _('Name'));
$worksheet->write($lineCount, 1, _('RD'));
$worksheet->write($lineCount, 2, _('Description'));
$fc =3 ;
foreach($custom_address_fields as $k=>$f) {
$worksheet->write($lineCount, $fc, $k);
$fc++;
}
}
elseif ($type == 'vlans'){
//get all custom fields!
$custom_address_fields = $Tools->fetch_custom_fields('vlans');
// set headers
$worksheet->write($lineCount, 0, _('Name'));
$worksheet->write($lineCount, 1, _('Number'));
$worksheet->write($lineCount, 2, _('Description'));
$worksheet->write($lineCount, 3, _('Domain name'));
$fc =4 ;
foreach($custom_address_fields as $k=>$f) {
$worksheet->write($lineCount, $fc, $k);
$fc++;
}
}
elseif ($type == 'l2dom'){
// set headers
$worksheet->write($lineCount, 0, _('Name'));
$worksheet->write($lineCount, 1, _('Description'));
$fc =2 ;
}
// sending HTTP headers
$workbook->send($filename);
// Let's send the file
$workbook->close();
?>
phpipam-1.3/app/admin/import-export/import-verify.php 0000664 0000000 0000000 00000005576 13117723025 0023057 0 ustar 00root root 0000000 0000000 check_user_session();
/* get extension */
$filename = $_FILES['file']['name'];
$expfields = explode("|",$_POST['expfields']);
$file_exp = explode(".", $filename);
$filetype = strtolower(end($file_exp));
/* list of permitted file extensions */
$allowed = array('xls','csv');
/* upload dir */
$upload_dir = "upload/";
$today = date("Ymd-His");
if (!is_dir($upload_dir) || !is_writable($upload_dir)) {
echo '{"status":"error", "error":"Upload directory is not writable, or does not exist."}';
exit;
}
/* no errors */
if(isset($_FILES['file']) && $_FILES['file']['error'] == 0) {
//wrong extension
if(!in_array(strtolower($filetype), $allowed)) {
echo '{"status":"error", "error":"Invalid document type"}';
exit;
}
//if cannot move
elseif(!move_uploaded_file($_FILES["file"]["tmp_name"], $upload_dir."data_import.".$filetype )) {
echo '{"status":"error", "error":"Cannot move file to upload dir"}';
exit;
}
//other errors
elseif($_FILES['file']['error'] != 0) {
echo '{"status":"error", "error":"Error: '.$_FILES['file']['error'].'" }';
exit;
}
else {
//default - success
// grab first row from CSV
if (strtolower($filetype) == "csv") {
/* get file to string */
$filehdl = fopen('upload/data_import.csv', 'r');
$data = fgets($filehdl);
fclose($filehdl);
# set delimiter
$Tools->set_csv_delimiter ($filehdl);
/* format file */
$data = str_replace( array("\r\n","\r","\n") , "" , $data); //remove line break
$data = str_getcsv ($data, $Tools->csv_delimiter);
foreach ($data as $col) {
$firstrow[] = $col;
}
}
// grab first row from XLS
elseif(strtolower($filetype) == "xls") {
# get excel object
require_once(dirname(__FILE__) . '/../../../functions/php-excel-reader/excel_reader2.php'); //excel reader 2.21
$data = new Spreadsheet_Excel_Reader('upload/data_import.xls', false);
$sheet = 0; $row = 1;
for($col=1;$col<=$data->colcount($sheet);$col++) {
$firstrow[] = $data->val($row,$col,$sheet);
}
}
echo '{"status":"success","expfields":'.json_encode($expfields,true).',"impfields":'.json_encode($firstrow,true).',"filetype":'.json_encode($filetype,true).'}';
exit;
}
}
// error
elseif (isset($_FILES['file']['error'])) {
echo '{"status":"error","error":"'.$_FILES['file']['error'].'"}';
exit;
}
/* default - error */
echo '{"status":"error","error":"Empty or too big file (limit '.ini_get('post_max_size').')"}';
exit; phpipam-1.3/app/admin/import-export/import-vlan-check.php 0000664 0000000 0000000 00000011116 13117723025 0023551 0 ustar 00root root 0000000 0000000 check_user_session();
# fetch all l2 domains
$vlan_domains = $Admin->fetch_all_objects("vlanDomains", "id");
# read again the custom fields, if any
if (!isset($custom_fields)) { $custom_fields = $Tools->fetch_custom_fields("vlans"); }
# Load existing data
$edata = array(); $vdom = array(); $vdomid = array();
# process for easier later check
foreach ($vlan_domains as $vlan_domain) {
//cast
$vlan_domain = (array) $vlan_domain;
$vdom[] = $vlan_domain['name'];
$vdomid[$vlan_domain['name']] = $vlan_domain['id'];
// read vlans
$all_vlans = $Admin->fetch_multiple_objects("vlans", "domainId", $vlan_domain['id'], "number");
$all_vlans = (array) $all_vlans;
// skip empty domains
if (sizeof($all_vlans)==0) { continue; }
//write all VLAN entries
foreach ($all_vlans as $vlan) {
//cast
$vlan = (array) $vlan;
$edata[$vlan_domain['name']][$vlan['number']] = $vlan;
}
}
$rows = "";
$counters = array();
$unique = array();
# check the fields
foreach ($data as &$cdata) {
$msg = ""; $action = ""; $cfieldtds = "";
# set a default domain if none specified
if ($cdata['domain'] != "") { $cdom = $cdata['domain']; } else { $cdom = "default"; }
# check if domain exists and link ID, otherwise issue error
if (!in_array($cdom,$vdom)) {
$msg.= "Missing VLAN domain. Please add/import VLAN domain first."; $action = "error";
} else {
$cdata['domainId'] = $vdomid[$cdom];
}
# check if required fields are present and not empty
foreach($reqfields as $creq) {
if ((!isset($cdata[$creq])) or ($cdata[$creq] == "")) { $msg.= "Required field ".$creq." missing or empty."; $action = "error"; }
}
# check data format
if ($action != "error") {
if (!preg_match("/^[a-zA-Z0-9-_]+$/", $cdata['name'])) { $msg.="Invalid name format."; $action = "error"; }
if (!preg_match("/^[0-9]+$/", $cdata['number'])) { $msg.="Invalid number format."; $action = "error"; }
if (preg_match("/[;'\"]/", $cdata['description'])) { $msg.="Invalid characters in description."; $action = "error"; }
if (!preg_match("/^[a-zA-Z0-9-_ ]+$/", $cdom)) { $msg.="Invalid domain format."; $action = "error"; }
if ($action != "error") { if ($cdata['number']>$User->settings->vlanMax) { $msg.= _('Highest possible VLAN number is ').$User->settings->vlanMax.'!'; $action = "error"; } }
}
# Generate the custom fields columns
if(sizeof($custom_fields) > 0) { foreach($custom_fields as $myField) { $cfieldtds.= "
".$cdata[$myField['name']]."
"; } }
# check if duplicate VLAN
if (isset($unique[$cdom][$cdata['number']])) { $msg.= "Duplicate VLAN domain and number not supported. Please check import file."; $action = "error"; }
# check if existing
if ($action != "error") {
if (isset($edata[$cdom][$cdata['number']])) {
$cdata['vlanId'] = $edata[$cdom][$cdata['number']]['vlanId'];
$action = "skip"; # skip duplicate fields if identical, update if different
if ($cdata['name'] != $edata[$cdom][$cdata['number']]['name']) { $msg.= "VLAN name will be updated."; $action = "edit"; }
if ($cdata['description'] != $edata[$cdom][$cdata['number']]['description']) { $msg.= "VLAN description will be updated."; $action = "edit"; }
# Check if the values of the custom fields have changed
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
if ($cdata[$myField['name']] != $edata[$cdom][$cdata['number']][$myField['name']]) {
$msg.= "VLAN ".$myField['name']." will be updated."; $action = "edit";
}
}
}
if ($action == "skip") {
$msg.= "Duplicate, will skip.";
}
} else {
$msg.="New entry, will be added."; $action = "add";
}
}
$cdata['msg'].= $msg;
$cdata['action'] = $action;
$counters[$action]++;
if (!isset($unique[$cdom][$cdata['number']])) { $unique[$cdom][$cdata['number']] = $cdata['name']; }
$rows.="
".$cdata['name']."
".$cdata['number']."
".$cdata['description']."
".$cdata['domain']."
".$cfieldtds."
"._($cdata['msg'])."
";
}
?>
phpipam-1.3/app/admin/import-export/import-vlan-preview.php 0000664 0000000 0000000 00000005004 13117723025 0024154 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-vlan-check.php';
?>
'._("Uploaded data").'';
print _("The entries marked with ").", "._("will be added,
the ones marked with ").", "._("will be updated
and the ones marked with ")." "._("will be skipped.");
print ""._("Summary: ")."".($counters['add'] > 0 ? $counters['add'] : "no")._(" new entries.
").($counters['edit'] > 0 ? $counters['edit'] : "no")._(" updated entries.
").($counters['error'] > 0 ? $counters['error'] : "no")._(" entries skipped due to errors.
").($counters['skip'] > 0 ? $counters['skip'] : "no")._(" duplicate entries.
")._("Scroll down for details.");
print "";
print "
";
print "
".$hrow."
Action
";
print $rows;
print "
";
?>
0) || ($counters['edit'] > 0)) {
?>
phpipam-1.3/app/admin/import-export/import-vlan-select.php 0000664 0000000 0000000 00000007467 13117723025 0023771 0 ustar 00root root 0000000 0000000 check_user_session();
$tpl_field_names = "";
$tpl_field_types = "";
# predefine field list
$expfields = array ("name","number","description","domain");
$mtable = "vlans"; # main table where to check the fields
# extra fields
$extfields["domain"]["table"] = "vlanDomains";
$extfields["domain"]["field"] = "name";
$extfields["domain"]["pname"] = "domain"; # name prefix for fields from other tables
# required fields without which we will not continue
$reqfields = array("number","name");
# manually adjust the standard fields
foreach($expfields as $std_field) {
# extra table and field
if (isset($extfields[$std_field])) {
$cfield = $extfields[$std_field]["field"];
$ctable = $extfields[$std_field]["table"];
$pname = $extfields[$std_field]["pname"]." ";
} else {
# default table and field
$cfield = $std_field;
$ctable = $mtable;
$pname = "";
}
# read field attributes
$field = $Tools->fetch_full_field_definition($ctable,$cfield);
$field = (array) $field;
# mark required fields with *
$msgr = in_array($std_field,$reqfields) ? "*" : "";
#prebuild template table rows to avoid useless foreach loops
$tpl_field_names.= "
".$pname.$field['Field'].$msgr."
";
$tpl_field_types.= "
". wordwrap($field['Type'],18," \n",true) ."
";
}
# append the custom fields, if any
$custom_fields = $Tools->fetch_custom_fields($mtable);
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $myField) {
# add field to required fields if needed
if ($myField['Null'] == "NO") { $reqfields[] = $myField['name']; }
# mark required fields with *
$msgr = in_array($myField['name'],$reqfields) ? "*" : "";
$tpl_field_names.= "
".$myField['name'].$msgr."
";
$tpl_field_types.= "
". wordwrap($myField['type'],18," \n",true) ."
";
$expfields[] = $myField['name'];
}
}
?>
";
print '
'._("Template").'
';
print _("The import XLS/CSV should have the following fields and a header row for a succesful import:");
print "
";
print "";
print "";
print "";
print "
";
print "
" . $tpl_field_names . "
";
print "
" . $tpl_field_types . "
";
print "
";
print "
"._("The fields marked with * are mandatory.")." "._("If no VLAN domain is specified the VLAN is added/changed in the default domain.")."
phpipam-1.3/app/admin/import-export/import-vlan.php 0000664 0000000 0000000 00000004212 13117723025 0022475 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-vlan-check.php';
?>
phpipam-1.3/app/admin/import-export/import-vrf-check.php 0000664 0000000 0000000 00000004627 13117723025 0023417 0 ustar 00root root 0000000 0000000 check_user_session();
# Load existing data
$all_vrfs = $Admin->fetch_all_objects("vrf", "vrfId");
if (!$all_vrfs) { $all_vrfs = array(); }
$edata = array();
# process for easier later check
foreach ($all_vrfs as $vrf) {
//cast
$vrf = (array) $vrf;
$edata[$vrf['rd']] = $vrf;
}
$rows = "";
$counters = array();
# check the fields
foreach ($data as &$cdata) {
$msg = ""; $action = "";
# check if required fields are present and not empty
foreach($reqfields as $creq) {
if ((!isset($cdata[$creq])) or ($cdata[$creq] == "")) { $msg.= "Required field ".$creq." missing or empty."; $action = "error"; }
}
# check data format
if ($action != "error") {
if (!preg_match("/^[a-zA-Z0-9-_]+$/", $cdata['name'])) { $msg.="Invalid name format."; $action = "error"; }
if (!preg_match("/^[0-9:]+$/", $cdata['rd'])) { $msg.="Invalid RD format."; $action = "error"; }
if (preg_match("/[;'\"]/", $cdata['description'])) { $msg.="Invalid characters in description."; $action = "error"; }
}
# check if existing
if ($action != "error") {
if (isset($edata[$cdata['rd']])) {
$cdata['vrfId'] = $edata[$cdata['rd']]['vrfId'];
$action = "skip"; # skip duplicate fields if identical, update if different
if ($cdata['name'] != $edata[$cdata['rd']]['name']) { $msg.= "VRF name will be updated."; $action = "edit"; }
if ($cdata['description'] != $edata[$cdata['rd']]['description']) { $msg.= "VRF description will be updated."; $action = "edit"; }
if ($action == "skip") {
$msg.= "Duplicate, will skip.";
}
} else {
$msg.="New entry, will be added."; $action = "add";
}
}
$cdata['msg'].= $msg;
$cdata['action'] = $action;
$counters[$action]++;
$rows.="
".$cdata['name']."
".$cdata['rd']."
".$cdata['description']."
"._($msg)."
";
}
?> phpipam-1.3/app/admin/import-export/import-vrf-preview.php 0000664 0000000 0000000 00000005000 13117723025 0024005 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-vrf-check.php';
?>
'._("Uploaded data").'';
print _("The entries marked with ").", "._("will be added,
the ones marked with ").", "._("will be updated
and the ones marked with ")." "._("will be skipped.");
print ""._("Summary: ")."".($counters['add'] > 0 ? $counters['add'] : "no")._(" new entries.
").($counters['edit'] > 0 ? $counters['edit'] : "no")._(" updated entries.
").($counters['error'] > 0 ? $counters['error'] : "no")._(" entries skipped due to errors.
").($counters['skip'] > 0 ? $counters['skip'] : "no")._(" duplicate entries.
")._("Scroll down for details.");
print "";
print "
";
print "
".$hrow."
Action
";
print $rows;
print "
";
?>
0) || ($counters['edit'] > 0)) {
?>
phpipam-1.3/app/admin/import-export/import-vrf-select.php 0000664 0000000 0000000 00000006107 13117723025 0023614 0 ustar 00root root 0000000 0000000 check_user_session();
$tpl_field_names = "";
$tpl_field_types = "";
# predefine field list
$expfields = array ("name","rd","description");
# required fields without which we will not continue
$reqfields = array("rd","name");
# manually adjust the standard fields
foreach($expfields as $std_field) {
if (in_array($std_field,$reqfields)) {
$msgr = "*";
} else {
$msgr = "";
}
$field = $Tools->fetch_full_field_definition("vrf",$std_field);
$field = (array) $field;
$res[$field['Field']]['name'] = $field['Field'];
$res[$field['Field']]['type'] = $field['Type'];
$res[$field['Field']]['Comment'] = $field['Comment'];
$res[$field['Field']]['Null'] = $field['Null'];
$res[$field['Field']]['Default'] = $field['Default'];
#prebuild template table rows to avoid useless foreach loops
$tpl_field_names.= "
".$field['Field'].$msgr."
";
$tpl_field_types.= "
". wordwrap($field['Type'],18," \n",true) ."
";
}
# append the custom fields, if any
$custom_fields = $Tools->fetch_custom_fields("vrf");
if(sizeof($custom_fields) > 0) {
$res[] = $custom_fields;
foreach($custom_fields as $myField) {
$tpl_field_names.= "
". $myField['name'] ."
";
$tpl_field_types.= "
". wordwrap($myField['type'],18," \n",true) ."
";
$expfields[] = $myField['name'];
}
}
?>
";
print '
'._("Template").'
';
print _("The import XLS/CSV should have the following fields and a header row for a succesful import:");
print "
phpipam-1.3/app/admin/import-export/import-vrf.php 0000664 0000000 0000000 00000003514 13117723025 0022336 0 ustar 00root root 0000000 0000000 check_user_session();
# load data from uploaded file
include 'import-load-data.php';
# check data and mark the entries to import/update
include 'import-vrf-check.php';
?>
check_user_session();
?>
settings->enablePowerDNS==1) { ?>
db_check();
// save settings for powerDNS default
$pdns = $PowerDNS->db_settings;
// check if TTL is set
if ($test!==false) {
$test_ttl = json_decode($User->settings->powerDNS);
if ($test_ttl->ttl==NULL) {
$Result->show("warning", "Please set default powerDNS values!", false);
}
}
?>
'. "\n";
foreach ($errors['fieldError'] as $table=>$field) {
print '
';
print 'Table `'. $table .'`: missing field `'. $field .'`;';
//get fix
if(!$fix = $Tools->get_field_fix($table, $field)) {
$Result->show("danger", _("Cannot get fix for table field ")." `$table` `$field`!", true);
} else {
print ""._("Fix field")."";
print "";
}
print '
'. "\n";
}
print '
'. "\n";
print '
'. "\n";
// clearfix
print "";
}
}
else {
$Result->show("success", _('All tables and fields are installed properly'), false);
}
# we will also check for invalid subnets and addresses
print "
fetch_widgets ($User->is_admin(false), false);
$widgets = (array) $widgets;
# show user-selected widgets
$uwidgets = array_filter(explode(";",$User->user->widgets));
# if user has no groups and is not admin print warning
if ($User->is_admin(false)!==true && (strlen($User->user->groups)==0 || $User->user->groups==="null") ) {
print '
';
print "
";
print "
";
print "
"._("No groups")."
";
print "
";
print "
"._("You are not member of any group. Please contact system administrator!")."
";
print "
";
print "
";
print "
";
print "
";
print "";
// reset uwidgets
$uwidgets = array("tools", "ipcalc");
}
# split widgets to rows (chunks)
$currSize = 0; //to calculate size
$m=0; //to calculate chunk index
foreach($uwidgets as $uk=>$uv) {
//get fetails
$wdet = (array) $widgets[$uv];
if(strlen($wdet['wsize'])==0) { $wsize = 6; }
else { $wsize = $wdet['wsize']; }
//calculate current size
$currSize = $currSize + $wsize;
//ok, we have sizes, we need to split them into chunks of 12
if($currSize > 12) {
$m++; //new index
$currSize = $wsize; //reset size
}
//add to array
$uwidgetschunk[$m][] = $uv;
}
# print
print "
";
}
}
?> phpipam-1.3/app/dashboard/widgets/favourite_subnets.php 0000775 0000000 0000000 00000007301 13117723025 0023455 0 ustar 00root root 0000000 0000000 check_user_session ();
# if direct request that redirect to tools page
if($_SERVER['HTTP_X_REQUESTED_WITH']!="XMLHttpRequest") {
header("Location: ".create_link("tools","favourites"));
}
?>
fetch_favourite_subnets ();
# print if none
if(!$fsubnets) {
print "
";
print "
"._("No favourite subnets selected")."
";
print ""._("You can add subnets to favourites by clicking star icon in subnet details")."! ";
print "
";
}
else {
print "
";
# headers
print "
";
print "
"._('Object')."
";
print "
"._('Description')."
";
print "
"._('Section')."
";
print "
"._('VLAN')."
";
print "
";
print "
";
# subnets
foreach($fsubnets as $f) {
# must be either subnet or folder
if(sizeof($f)>0) {
# add full information
$fullinfo = $f['isFull']==1 ? " "._("Full")."" : "";
print "
Please provide required inputs in below form for automatic database , once finished click Install database.
Before you please fill in all settings in config.php file!
phpipam-1.3/app/install/postinstall_submit.php 0000775 0000000 0000000 00000002612 13117723025 0021716 0 ustar 00root root 0000000 0000000 fetch_object ("users","username","Admin");
if($admin->password!='$6$rounds=3000$JQEE6dL9NpvjeFs4$RK5X3oa28.Uzt/h5VAfdrsvlVe.7HgQUYKMXTJUsud8dmWfPzZQPbRbk8xJn1Kyyt4.dWm4nJIYhAV2mbOZ3g.') {
$Result->show("danger", "Not allowed!", true);
}
# update
else {
# check lenghts
if(strlen($_POST['password1'])<8) { $Result->show("danger", _("Password must be at least 8 characters long!"), true); }
if(strlen($_POST['password2'])<8) { $Result->show("danger", _("Password must be at least 8 characters long!"), true); }
# check password match
if($_POST['password1']!=$_POST['password2']) { $Result->show("danger", _("Passwords do not match"), true); }
# Crypt password
$_POST['password1'] = $User->crypt_user_pass ($_POST['password1']);
# all good, update password!
$Install->postauth_update($_POST['password1'], $_POST['siteTitle'], $_POST['siteURL']);
# ok
{ $Result->show("success", "Settings updated, installation complete!Proceed to login", false); }
}
?> phpipam-1.3/app/install/select_install_type.php 0000775 0000000 0000000 00000004603 13117723025 0022027 0 ustar 00root root 0000000 0000000
Welcome to phpipam
We are glad you decided to phpipam. Before you can start process please:
Edit settings in config.php file
Create MySQL database for phpipam, you can do this three ways (select below)
Before you start please visit phpipam installation website https://phpipam.net/documents/installation/ to get all documentation and to make sure all requirements for are met.
You selected option to migrate from old database. Please put SQL dump file from old phpipam installation to db/MIGRATE.sql file !
Select this option to migrate phpipam database from another server. Place SQL dump from old server to directory db and name it MIGRATE.sql (db/MIGRATE.sql).
Select this option if you have a working phpipam installation and this screen occured. Generally it means
phpipam was unable to connnect to database. This will check for connection errors.
phpipam-1.3/app/login/ 0000775 0000000 0000000 00000000000 13117723025 0014704 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/login/captcha/ 0000775 0000000 0000000 00000000000 13117723025 0016307 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/login/captcha/captcha.php 0000775 0000000 0000000 00000061426 13117723025 0020437 0 ustar 00root root 0000000 0000000
* File: securimage.php
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* Any modifications to the library should be indicated clearly in the source code
* to inform users that the changes are not a part of the original software.
*
* If you found this script useful, please take a quick moment to rate it.
* http://www.hotscripts.com/rate/49400.html Thanks.
*
* @link http://www.phpcaptcha.org Securimage PHP CAPTCHA
* @link http://www.phpcaptcha.org/latest.zip Download Latest Version
* @link http://www.phpcaptcha.org/Securimage_Docs/ Online Documentation
* @copyright 2007 Drew Phillips
* @author drew010
* @version 1.0.3.1 (March 24, 2008)
* @package Securimage
*
*/
/**
ChangeLog
1.0.3.1
- Error reading from wordlist in some cases caused words to be cut off 1 letter short
1.0.3
- Removed shadow_text from code which could cause an undefined property error due to removal from previous version
1.0.2
- Audible CAPTCHA Code wav files
- Create codes from a word list instead of random strings
1.0
- Added the ability to use a selected character set, rather than a-z0-9 only.
- Added the multi-color text option to use different colors for each letter.
- Switched to automatic session handling instead of using files for code storage
- Added GD Font support if ttf support is not available. Can use internal GD fonts or load new ones.
- Added the ability to set line thickness
- Added option for drawing arced lines over letters
- Added ability to choose image type for output
*/
/**
* Output images in JPEG format
*/
define('SI_IMAGE_JPEG', 1);
/**
* Output images in PNG format
*/
define('SI_IMAGE_PNG', 2);
/**
* Output images in GIF format
* Must have GD >= 2.0.28!
*/
define('SI_IMAGE_GIF', 3);
/**
* Securimage CAPTCHA Class.
*
* @package Securimage
* @subpackage classes
*
*/
class Securimage {
/**
* The desired width of the CAPTCHA image.
*
* @var int
*/
var $image_width = 160;
/**
* The desired width of the CAPTCHA image.
*
* @var int
*/
var $image_height = 27;
/**
* The image format for output.
* Valid options: SI_IMAGE_PNG, SI_IMAGE_JPG, SI_IMAGE_GIF
*
* @var int
*/
var $image_type = SI_IMAGE_PNG;
/**
* The length of the code to generate.
*
* @var int
*/
var $code_length = 5;
/**
* The character set for individual characters in the image.
* Letters are converted to uppercase.
* The font must support the letters or there may be problematic substitutions.
*
* @var string
*/
var $charset = 'ABCDEFGHKLMNPRSTUVWYZ123456789';
//var $charset = '0123456789';
/**
* Whether to use a GD font instead of a TTF font.
* TTF offers more support and options, but use this if your PHP doesn't support TTF.
*
* @var boolean
*/
var $use_gd_font = false;
/**
* The path to the TTF font file to load.
*
* @var string
*/
var $ttf_file = "./elephant.ttf";
/**
* The font size.
* Depending on your version of GD, this should be specified as the pixel size (GD1) or point size (GD2)
*
* @var int
*/
var $font_size = 16;
/**
* The minimum angle in degrees, with 0 degrees being left-to-right reading text.
* Higher values represent a counter-clockwise rotation.
* For example, a value of 90 would result in bottom-to-top reading text.
*
* @var int
*/
var $text_angle_minimum = -20;
/**
* The minimum angle in degrees, with 0 degrees being left-to-right reading text.
* Higher values represent a counter-clockwise rotation.
* For example, a value of 90 would result in bottom-to-top reading text.
*
* @var int
*/
var $text_angle_maximum = 20;
/**
* The X-Position on the image where letter drawing will begin.
* This value is in pixels from the left side of the image.
*
* @var int
*/
var $text_x_start = 8;
/**
* Letters can be spaced apart at random distances.
* This is the minimum distance between two letters.
* This should be at least as wide as a font character.
* Small values can cause letters to be drawn over eachother.
*
* @var int
*/
var $text_minimum_distance = 30;
/**
* Letters can be spaced apart at random distances.
* This is the maximum distance between two letters.
* This should be at least as wide as a font character.
* Small values can cause letters to be drawn over eachother.
*
* @var int
*/
var $text_maximum_distance = 33;
/**
* The background color for the image.
* This should be specified in HTML hex format.
* Make sure to include the preceding # sign!
*
* @var string
*/
//var $image_bg_color = "#e3daed";
/* var $image_bg_color = "#E0F8EC"; */
var $image_bg_color = "#fffaf0";
/**
* The text color to use for drawing characters.
* This value is ignored if $use_multi_text is set to true.
* Make sure this contrasts well with the background color.
* Specify the color in HTML hex format with preceding # sign
*
* @see Securimage::$use_multi_text
* @var string
*/
var $text_color = "#ff0000";
/**
* Set to true to use multiple colors for each character.
*
* @see Securimage::$multi_text_color
* @var boolean
*/
var $use_multi_text = false;
/**
* String of HTML hex colors to use.
* Separate each possible color with commas.
* Be sure to precede each value with the # sign.
*
* @var string
*/
var $multi_text_color = "#0a68dd,#f65c47,#8d32fd";
/**
* Set to true to make the characters appear transparent.
*
* @see Securimage::$text_transparency_percentage
* @var boolean
*/
var $use_transparent_text = true;
/**
* The percentage of transparency, 0 to 100.
* A value of 0 is completely opaque, 100 is completely transparent (invisble)
*
* @see Securimage::$use_transparent_text
* @var int
*/
var $text_transparency_percentage = 40;
// Line options
/**
* Draw vertical and horizontal lines on the image.
*
* @see Securimage::$line_color
* @see Securimage::$line_distance
* @see Securimage::$line_thickness
* @see Securimage::$draw_lines_over_text
* @var boolean
*/
var $draw_lines = true;
/**
* The color of the lines drawn on the image.
* Use HTML hex format with preceding # sign.
*
* @see Securimage::$draw_lines
* @var string
*/
/* var $line_color = "#80BFFF"; */
var $line_color = "#ffa500";
/**
* How far apart to space the lines from eachother in pixels.
*
* @see Securimage::$draw_lines
* @var int
*/
var $line_distance = 5;
/**
* How thick to draw the lines in pixels.
* 1-3 is ideal depending on distance
*
* @see Securimage::$draw_lines
* @see Securimage::$line_distance
* @var int
*/
var $line_thickness = 1;
/**
* Set to true to draw angled lines on the image in addition to the horizontal and vertical lines.
*
* @see Securimage::$draw_lines
* @var boolean
*/
var $draw_angled_lines = false;
/**
* Draw the lines over the text.
* If fales lines will be drawn before putting the text on the image.
* This can make the image hard for humans to read depending on the line thickness and distance.
*
* @var boolean
*/
var $draw_lines_over_text = false;
/**
* For added security, it is a good idea to draw arced lines over the letters to make it harder for bots to segment the letters.
* Two arced lines will be drawn over the text on each side of the image.
* This is currently expirimental and may be off in certain configurations.
*
* @var boolean
*/
var $arc_linethrough = false;
/**
* The colors or color of the arced lines.
* Use HTML hex notation with preceding # sign, and separate each value with a comma.
* This should be similar to your font color for single color images.
*
* @var string
*/
var $arc_line_colors = "#8080ff";
//END USER CONFIGURATION
//There should be no need to edit below unless you really know what you are doing.
/**
* The gd image resource.
*
* @access private
* @var resource
*/
var $im;
/**
* The background image resource
*
* @access private
* @var resource
*/
var $bgimg;
/**
* The code generated by the script
*
* @access private
* @var string
*/
var $code;
/**
* The code that was entered by the user
*
* @access private
* @var string
*/
var $code_entered;
/**
* Whether or not the correct code was entered
*
* @access private
* @var boolean
*/
var $correct_code;
/**
* Class constructor.
* Because the class uses sessions, this will attempt to start a session if there is no previous one.
* If you do not start a session before calling the class, the constructor must be called before any
* output is sent to the browser.
*
*
* $securimage = new Securimage();
*
*
*/
function Securimage()
{
if ( session_id() == '' ) { // no session has been started yet, which is needed for validation
require_once( dirname(__FILE__) . '/../../../config.php' );
if(strlen(@$phpsessname)>0) { session_name($phpsessname); }
session_start();
}
}
/**
* Generate a code and output the image to the browser.
*
*
* show('bg.jpg');
* ?>
*
*
* @param string $background_image The path to an image to use as the background for the CAPTCHA
*/
function show($background_image = "")
{
if($background_image != "" && is_readable($background_image)) {
$this->bgimg = $background_image;
}
$this->doImage();
}
/**
* Validate the code entered by the user.
*
*
* $code = $_POST['code'];
* if ($securimage->check($code) == false) {
* die("Sorry, the code entered did not match.");
* } else {
* $valid = true;
* }
*
* @param string $code The code the user entered
* @return boolean true if the code was correct, false if not
*/
function check($code)
{
$this->code_entered = $code;
$this->validate();
return $this->correct_code;
}
/**
* Generate and output the image
*
* @access private
*
*/
function doImage()
{
if($this->use_transparent_text == true || $this->bgimg != "") {
$this->im = imagecreatetruecolor($this->image_width, $this->image_height);
$bgcolor = imagecolorallocate($this->im, hexdec(substr($this->image_bg_color, 1, 2)), hexdec(substr($this->image_bg_color, 3, 2)), hexdec(substr($this->image_bg_color, 5, 2)));
imagefilledrectangle($this->im, 0, 0, imagesx($this->im), imagesy($this->im), $bgcolor);
} else { //no transparency
$this->im = imagecreate($this->image_width, $this->image_height);
$bgcolor = imagecolorallocate($this->im, hexdec(substr($this->image_bg_color, 1, 2)), hexdec(substr($this->image_bg_color, 3, 2)), hexdec(substr($this->image_bg_color, 5, 2)));
}
if($this->bgimg != "") { $this->setBackground(); }
$this->createCode();
if (!$this->draw_lines_over_text && $this->draw_lines) $this->drawLines();
$this->drawWord();
if ($this->arc_linethrough == true) $this->arcLines();
if ($this->draw_lines_over_text && $this->draw_lines) $this->drawLines();
$this->output();
}
/**
* Set the background of the CAPTCHA image
*
* @access private
*
*/
function setBackground()
{
$dat = @getimagesize($this->bgimg);
if($dat == false) { return; }
switch($dat[2]) {
case 1: $newim = @imagecreatefromgif($this->bgimg); break;
case 2: $newim = @imagecreatefromjpeg($this->bgimg); break;
case 3: $newim = @imagecreatefrompng($this->bgimg); break;
case 15: $newim = @imagecreatefromwbmp($this->bgimg); break;
case 16: $newim = @imagecreatefromxbm($this->bgimg); break;
default: return;
}
if(!$newim) return;
imagecopy($this->im, $newim, 0, 0, 0, 0, $this->image_width, $this->image_height);
}
/**
* Draw arced lines over the text
*
* @access private
*
*/
function arcLines()
{
$colors = explode(',', $this->arc_line_colors);
imagesetthickness($this->im, 3);
$color = $colors[rand(0, sizeof($colors) - 1)];
$linecolor = imagecolorallocate($this->im, hexdec(substr($color, 1, 2)), hexdec(substr($color, 3, 2)), hexdec(substr($color, 5, 2)));
$xpos = $this->text_x_start + ($this->font_size * 2) + rand(-5, 5);
$width = $this->image_width / 2.66 + rand(3, 10);
$height = $this->font_size * 2.14 - rand(3, 10);
if ( rand(0,100) % 2 == 0 ) {
$start = rand(0,66);
$ypos = $this->image_height / 2 - rand(5, 15);
$xpos += rand(5, 15);
} else {
$start = rand(180, 246);
$ypos = $this->image_height / 2 + rand(5, 15);
}
$end = $start + rand(75, 110);
imagearc($this->im, $xpos, $ypos, $width, $height, $start, $end, $linecolor);
$color = $colors[rand(0, sizeof($colors) - 1)];
$linecolor = imagecolorallocate($this->im, hexdec(substr($color, 1, 2)), hexdec(substr($color, 3, 2)), hexdec(substr($color, 5, 2)));
if ( rand(1,75) % 2 == 0 ) {
$start = rand(45, 111);
$ypos = $this->image_height / 2 - rand(5, 15);
$xpos += rand(5, 15);
} else {
$start = rand(200, 250);
$ypos = $this->image_height / 2 + rand(5, 15);
}
$end = $start + rand(75, 100);
imagearc($this->im, $this->image_width * .75, $ypos, $width, $height, $start, $end, $linecolor);
}
/**
* Draw lines on the image
*
* @access private
*
*/
function drawLines()
{
$linecolor = imagecolorallocate($this->im, hexdec(substr($this->line_color, 1, 2)), hexdec(substr($this->line_color, 3, 2)), hexdec(substr($this->line_color, 5, 2)));
imagesetthickness($this->im, $this->line_thickness);
//vertical lines
for($x = 1; $x < $this->image_width; $x += $this->line_distance) {
imageline($this->im, $x, 0, $x, $this->image_height, $linecolor);
}
//horizontal lines
for($y = 11; $y < $this->image_height; $y += $this->line_distance) {
imageline($this->im, 0, $y, $this->image_width, $y, $linecolor);
}
if ($this->draw_angled_lines == true) {
for ($x = -($this->image_height); $x < $this->image_width; $x += $this->line_distance) {
imageline($this->im, $x, 0, $x + $this->image_height, $this->image_height, $linecolor);
}
for ($x = $this->image_width + $this->image_height; $x > 0; $x -= $this->line_distance) {
imageline($this->im, $x, 0, $x - $this->image_height, $this->image_height, $linecolor);
}
}
}
/**
* Draw the CAPTCHA code over the image
*
* @access private
*
*/
function drawWord()
{
if ($this->use_gd_font == true) {
if (!is_int($this->gd_font_file)) { //is a file name
$font = @imageloadfont($this->gd_font_file);
if ($font == false) {
trigger_error("Failed to load GD Font file {$this->gd_font_file} ", E_USER_WARNING);
return;
}
} else { //gd font identifier
$font = $this->gd_font_file;
}
$color = imagecolorallocate($this->im, hexdec(substr($this->text_color, 1, 2)), hexdec(substr($this->text_color, 3, 2)), hexdec(substr($this->text_color, 5, 2)));
imagestring($this->im, $font, $this->text_x_start, ($this->image_height / 2) - ($this->gd_font_size / 2), $this->code, $color);
} else { //ttf font
if($this->use_transparent_text == true) {
$alpha = intval($this->text_transparency_percentage / 100 * 127);
$font_color = imagecolorallocatealpha($this->im, hexdec(substr($this->text_color, 1, 2)), hexdec(substr($this->text_color, 3, 2)), hexdec(substr($this->text_color, 5, 2)), $alpha);
} else { //no transparency
$font_color = imagecolorallocate($this->im, hexdec(substr($this->text_color, 1, 2)), hexdec(substr($this->text_color, 3, 2)), hexdec(substr($this->text_color, 5, 2)));
}
$x = $this->text_x_start;
$strlen = strlen($this->code);
$y_min = ($this->image_height / 2) + ($this->font_size / 2) - 2;
$y_max = ($this->image_height / 2) + ($this->font_size / 2) + 2;
$colors = explode(',', $this->multi_text_color);
for($i = 0; $i < $strlen; ++$i) {
$angle = rand($this->text_angle_minimum, $this->text_angle_maximum);
$y = rand($y_min, $y_max);
if ($this->use_multi_text == true) {
$idx = rand(0, sizeof($colors) - 1);
$r = substr($colors[$idx], 1, 2);
$g = substr($colors[$idx], 3, 2);
$b = substr($colors[$idx], 5, 2);
if($this->use_transparent_text == true) {
$font_color = imagecolorallocatealpha($this->im, "0x$r", "0x$g", "0x$b", $alpha);
} else {
$font_color = imagecolorallocate($this->im, "0x$r", "0x$g", "0x$b");
}
}
@imagettftext($this->im, $this->font_size, $angle, $x, $y, $font_color, $this->ttf_file, $this->code{$i});
$x += rand($this->text_minimum_distance, $this->text_maximum_distance);
} //for loop
} //else ttf font
} //function
/**
* Create a code and save to the session
*
* @since 1.0.1
*
*/
function createCode()
{
$this->code = false;
if ($this->use_wordlist && is_readable($this->wordlist_file)) {
$this->code = $this->readCodeFromFile();
}
if ($this->code == false) {
$this->code = $this->generateCode($this->code_length);
}
$this->saveData();
}
/**
* Generate a code
*
* @access private
* @param int $len The code length
* @return string
*/
function generateCode($len)
{
$code = '';
for($i = 1, $cslen = strlen($this->charset); $i <= $len; ++$i) {
$code .= strtoupper( $this->charset{rand(0, $cslen - 1)} );
}
return $code;
}
/**
* Reads a word list file to get a code
*
* @access private
* @since 1.0.2
* @return mixed false on failure, a word on success
*/
function readCodeFromFile()
{
$fp = @fopen($this->wordlist_file, 'rb');
if (!$fp) return false;
$fsize = filesize($this->wordlist_file);
if ($fsize < 32) return false; // too small of a list to be effective
if ($fsize < 128) {
$max = $fsize; // still pretty small but changes the range of seeking
} else {
$max = 128;
}
fseek($fp, rand(0, $fsize - $max), SEEK_SET);
$data = fread($fp, 128); // read a random 128 bytes from file
fclose($fp);
$data = preg_replace("/\r?\n/", "\n", $data);
$start = strpos($data, "\n", rand(0, 100)) + 1; // random start position
$end = strpos($data, "\n", $start); // find end of word
return strtolower(substr($data, $start, $end - $start)); // return substring in 128 bytes
}
/**
* Output image to the browser
*
* @access private
*
*/
function output()
{
header("Expires: Sun, 1 Jan 2000 12:00:00 GMT");
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . "GMT");
header("Cache-Control: no-store, no-cache, must-revalidate");
header("Cache-Control: post-check=0, pre-check=0", false);
header("Pragma: no-cache");
switch($this->image_type)
{
case SI_IMAGE_JPEG:
header("Content-Type: image/jpeg");
imagejpeg($this->im, null, 90);
break;
case SI_IMAGE_GIF:
header("Content-Type: image/gif");
imagegif($this->im);
break;
default:
header("Content-Type: image/png");
imagepng($this->im);
break;
}
imagedestroy($this->im);
}
/**
* Get WAV file data of the spoken code.
* This is appropriate for output to the browser as audio/x-wav
*
* @since 1.0.1
* @return string WAV data
*
*/
function getAudibleCode()
{
$letters = array();
$code = $this->getCode();
if ($code == '') {
$this->createCode();
$code = $this->getCode();
}
for($i = 0; $i < strlen($code); ++$i) {
$letters[] = $code{$i};
}
return $this->generateWAV($letters);
}
/**
* Save the code in the session
*
* @access private
*
*/
function saveData()
{
$_SESSION['securimage_code_value'] = strtolower($this->code);
}
/**
* Validate the code to the user code
*
* @access private
*
*/
function validate()
{
if ( isset($_SESSION['securimage_code_value']) && !empty($_SESSION['securimage_code_value']) ) {
if ( $_SESSION['securimage_code_value'] == strtolower(trim($this->code_entered)) ) {
$this->correct_code = true;
$_SESSION['securimage_code_value'] = '';
} else {
$this->correct_code = false;
}
} else {
$this->correct_code = false;
}
}
/**
* Get the captcha code
*
* @since 1.0.1
* @return string
*/
function getCode()
{
if (isset($_SESSION['securimage_code_value']) && !empty($_SESSION['securimage_code_value'])) {
return $_SESSION['securimage_code_value'];
} else {
return '';
}
}
/**
* Check if the user entered code was correct
*
* @access private
* @return boolean
*/
function checkCode()
{
return $this->correct_code;
}
/**
* Generate a wav file by concatenating individual files
* @since 1.0.1
* @access private
* @param array $letters Array of letters to build a file from
* @return string WAV file data
*/
function generateWAV($letters)
{
$first = true; // use first file to write the header...
$data_len = 0;
$files = array();
$out_data = '';
foreach ($letters as $letter) {
$filename = $this->audio_path . strtoupper($letter) . '.wav';
$fp = fopen($filename, 'rb');
$file = array();
$data = fread($fp, filesize($filename)); // read file in
$header = substr($data, 0, 36);
$body = substr($data, 44);
$data = unpack('NChunkID/VChunkSize/NFormat/NSubChunk1ID/VSubChunk1Size/vAudioFormat/vNumChannels/VSampleRate/VByteRate/vBlockAlign/vBitsPerSample', $header);
$file['sub_chunk1_id'] = $data['SubChunk1ID'];
$file['bits_per_sample'] = $data['BitsPerSample'];
$file['channels'] = $data['NumChannels'];
$file['format'] = $data['AudioFormat'];
$file['sample_rate'] = $data['SampleRate'];
$file['size'] = $data['ChunkSize'] + 8;
$file['data'] = $body;
if ( ($p = strpos($file['data'], 'LIST')) !== false) {
// If the LIST data is not at the end of the file, this will probably break your sound file
$info = substr($file['data'], $p + 4, 8);
$data = unpack('Vlength/Vjunk', $info);
$file['data'] = substr($file['data'], 0, $p);
$file['size'] = $file['size'] - (strlen($file['data']) - $p);
}
$files[] = $file;
$data = null;
$header = null;
$body = null;
$data_len += strlen($file['data']);
fclose($fp);
}
$out_data = '';
$size_files = sizeof($files);
for($i = 0; $i < $size_files; ++$i) {
if ($i == 0) { // output header
$out_data .= pack('C4VC8', ord('R'), ord('I'), ord('F'), ord('F'), $data_len + 36, ord('W'), ord('A'), ord('V'), ord('E'), ord('f'), ord('m'), ord('t'), ord(' '));
$out_data .= pack('VvvVVvv',
16,
$files[$i]['format'],
$files[$i]['channels'],
$files[$i]['sample_rate'],
$files[$i]['sample_rate'] * (($files[$i]['bits_per_sample'] * $files[$i]['channels']) / 8),
($files[$i]['bits_per_sample'] * $files[$i]['channels']) / 8,
$files[$i]['bits_per_sample'] );
$out_data .= pack('C4', ord('d'), ord('a'), ord('t'), ord('a'));
$out_data .= pack('V', $data_len);
}
$out_data .= $files[$i]['data'];
}
return $out_data;
}
} /* class Securimage */
?>
phpipam-1.3/app/login/captcha/captchashow.php 0000775 0000000 0000000 00000000124 13117723025 0021324 0 ustar 00root root 0000000 0000000 show();
?>
phpipam-1.3/app/login/captcha/elephant.ttf 0000775 0000000 0000000 00000144704 13117723025 0020643 0 ustar 00root root 0000000 0000000 pDSIG[ OS/2^ x Vcmap } T cvt Q 5 ` fpgmk glyfT:* headfQY 6hheaB $hmtx7 kern locaS2u L maxpw; namen < postE 8 prep , Z, C&C @ 2
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a bcdefghijklmnopqrstuvwxyz{|}~ 㴵ⷸ B @ ~
1Sax " & : !"""%
0R^x & 9 !"""% z Y = ~6jޡޣ @ \ ^ ` b b c d e f g h j i k m l n o q p r s u t v w x z y { } | ~
H 3 Z * % B v
,E# %PXa`Yi-, EhD ` EFvhE`D-, %Jd&#+:-, %Jd&#+e:-, %G#G#a &#+ ab& : F cW`H!!-, %G#Ga &#+#a ba : F cW`H!-, %Id &#+ ab& :/:-, %Id i& ab& :/:- 2 9@ @@ ++999 ??999103!'!22 2D , ?@,(
&7 +;K[k{
@+ ??9^]^]10q#4&54632#"&54632lkK)'K9)(99()9KG
>@>P>,4H)4
P)"%%8H
A H
@8 8]+++]+]+999999 ?????++++9]9999910%6654&'32#"&546654&##5"&54632"375.546353l1B-Fl9))<-+K& CCDNu)X=+.<0 c(&%PQG\*11* 2.+6 PL(91,'3
aA{q `^SN*?6.',
#!*j@ny=T 4)+8 D T @T * : H')/IP BI,B
(&=I5
5I=
II
=# %EM()EM/2H:
H2
2/22HM
HE
++]++9999 ????++?+++9910]%#".54632 4&#"32>%7632'#"&'#".54632 3264&#"32>x$A1y&<1
!36
/7q ";, E x$A. {&JY%5D
88
/7d 1D'a 0C3s#:fG
E e .G$b #":f ( N @U@-"@-#"$01@-47 I"!
$@ IF
:@"F: 4 " !"I#$ @CL *@01""IH $
HC C@ IH=
+++++99999 ????++99999910%&&'3264&#"66>54&''5332673#"&'#"&5467&&546324v,uJ X&# !'^% / ??.AW" .e@e2@j>pw|zzLQ@>$Hl;Y8$j 08 T* /,8 ];P?+?m{29@+\X$/+>jB4*@55IA2
A
1 I
o@A''
@ + ?+]++910 ]&&546326632#"&#"#"&'##"&&5467'&&#"#"&546321.
,2 "A- Hh ; B
h >
.G &&R*)\#
M
4 ( $
# , 3 O | r @
@@ + +103###53QrQQ "z @ I
@+ ??+106654&#"#"&54632#25P
!65*5CrSx>-
2$)9O7Oh @ @
@ H
+9 +910!! @ $ H
+ ?1074632#"&$:));:*):Y(87))88 ~ 10 q-eg $ @I I
H
H
++ ??++10#"&546324.#" 32>Ƒ#$!'#$!'
lSvo-/`FM}n-/_ (@I
I H
+999 ?+9?+10% !52>77'.'5!&( 7-.
w}.! .. 1 c@A )9 1471DT @./ )%0I
0 $ 0/.. H
H
++}9 ??+99+10] ]76676654&#"32#"&54>3266332>73!B$_>EB0S4&/>-8JTiQ.yOb A%1(
@<&ZKTb3 0-$-e.
lf@d3O,* E @~'(
%
&
'
('(+'+(9'9(J&J'\&\'k&k'{&{'&'&'&'&'&'&'&' & ' !$8EI?-
E $ I I
?
*$5*0E?** $00 @ +]+]9999 ??+++99910 q]]2#"&5463232654&#""&54632654&#" #"&546632gxgN9bAkMfWuvfL9L?3%')
jXNy PI@Y
' +.:.-U$RYCK " J@/"I I @ / H H
++9 ?^]^]+++9?10%57!3# !52>77!5>73EUt<|vv(" &
7MDJnc{6+'5 KEV } 5 @c ) ) ) ?A_
"51I + @1?@ /?Oo
.5%(H.
@O@ 5+]++9999 ???]q+]++9999910]3327672#"&'6632#"&5463232654&#"MW #c;22@
z[aD$ $ ; @hJ#J$J%Z#Z$Z%j#j$j%z#z$z%#$%#$%$$$$$-63I -
I @6 0@P
2'6 H*! * 6H2
6H 9
+++999 ??]+++9910 ]%4&'4&#"326546".54632#"&54674&#"6632"$ $ "#"JQyT%Ǫf>,4I - I1l0 3B/)N(
1t588P@kJPD)2I7 -hm2!!~ct x ( J@*++ + + ! %&& " !@ !H
++99 ??99910]#"&54>7'"##"'33326-j\T;>HSsl_# Z2# i *_-oe>DVR>:~p_S!# k ( ) 6 R@57
7(86 *"I0 I"
-
3-* @-@30
0 @
@ %++]++999 ??++9910 ]&&546632#"&&5467%6654&#" 32654&&..MWk0-6J6bC4U gV2B<;n "|`8U.H!Z:Df=iT): f?s\_4Az?'GQ8-,:%D2Kf83.;A $ 9 ]@=""4+1I+ I
@44 4/4?4O4_4
0%4H(
( 4H0
4 H7
+++99 ??]+++99]1032>54.#"72 #"&&5463232>5'#"&546"$ " "EFQtX%̩jf$=,3L ) M0jK 3B.(b$=U5p>hK;1"+0B/&
'dr;!)|gs 8 !@ H
H
++ ??1074632#"&4632#"&8:));:*)::));:*):Y(87))88J(87))88 6z
! *@ I
@+9 ???+106654&#"#"&54632#4632#"&F6O $55*5CrS:));:*):x 6 @d$%&$%&($(%(& 1 5%
45 66/6?6O6_6o6666
61 I+
I1
11@5
+ 6(
"6( H.
@ 6++9999 ??+]++9]99910 ]%#"&54632'53 32654&#"32#"&54632#"&'#9)(99()9o #,77M"3
%/>+&8Tyq*<X(77('75Q Td\
-$(48*GZusix 5* W v@G$6!:IH9JKCS6@9HI(!
@.I= @C= 6 %FHKP66HH+
@1H@
@H++++9999 ??+++++9999910654&#"3267766%4&#" 3267#"&54 32#"&5'#"&5463237332>Y
*(+B, CRpPd=ڞ8hl*0A!@46Ex ,6K >T,9+1N4b"* ?,^4!n2Q BN O}j&2.0,C9k :'t%![j ' x@JF$@ ' I I I I'
& $ &@$ H
++9999999 ???++++999910 ]]%' !57>73!52>54''UXU
$";!"n )% 2$h$&4 h@>9:<; I
;I '& I:
;,4'&:H; 0,H"
"H,4
,;H
+++]+999 ??+99++99106654.'26%53>77'.'5%2 #2 '6654.##326* %7/'A (+#^jG(UU>III8:Z/! -@# ! $0R?3_y .. 0G1I@ SA?T) n<6g 2 O@1
@
0 @ P
@
0H
+]+]9 ???+99910"&546322673#.#"3267ۭJ6j ,%VCWTeb[n գ<)&zVPăτjx ( =@& I ! I
I 0H&
H
++]9 ???+++10352>77'.'5%2#&&##232>54&
"++#uuϯt1; &?73? .. ,%M
)] - , @P'! %&(' I,!
@& I
I @'I ! '&(, (&@%&H H
H
++++99999 ??++++++99999910%>73!52>77'.'5!#.##76653#4&''*Xb"
"++#3cD *:;;:*
b .. p
aBCd + ~@L
*I *
I I I
0
@
+ $
$ #$H+
H$
@
H$
++++99999999 ??+]++++999910#.#'76653#4&'' !52>77'.'5*HiGL.:;:;.+#
"++#[|WbACd. .. / 5 @m"3DTcr!2B! .-3/0$3'@0*$I
I
I! -'! ? - /0.@-.0 H$
+]+9999] ????++++9999910q]32>554'.'5!#&&#"#"&546322673#&&#"G>M&(
,$.
A'#kެ^
lVT{ %2%'+!"/Z 0V֢T+(| $ ; @d 6&( '&(I46 I43 I&(
I&%
I
I
I
I I
4& ;66; 9&& .-966 H-;
H -
H H
++++9]99]999]9]99 ????+++++++++999910#!576677'&&''5!35'&&''5!!576677f $B2 4$ $4 2B$ j.! .. ..! .%. ". ,@ I I
I
I H
+9 ??++++910!!52>77'&&''5!)7 66 4 .. ".!.! & >@%
I$ I
H!
@ H
+++99 ??++99910%7'.'5!#"&54632326$'
/ Ӏ^wJ3??<@54&''53 !576654. $B2 4' hm%/
(+ d&"( *
$-KT .! .. "."x3 sZ9 7Eo R@3 I
I
I /Oo H
@ ++999] ??+++99910%26673!52>77'.'5!77'.'5!!#"!576677467## F#2 )(
rh
? 28. )>]-0 !" 0. N .&. ".s U%] - @V7 7-
%",+#$-I,+
%
$I!
I I
!I,
, !
# !$%+,# H
!
@
;#@%0%]+]++999999999 ????+++++999910]## !5>77'.##5!3'.'5!
8 z%7'
Q
$+ ~g6! % 0`-0!
=0.$4?0 ! 0Z )@ I I
0H
/ ? H
+]+] ??++10#"&54632%&#"32>54&Z짧 I%6
,I%6
lգlT0[Kg|0[KY # $ / G@,I $ I +
*I
I % $%+*0H%
* H
++]9999 ??++++10!!53>77'.'5%2#" 4.#> (+#ӣk* :VDAP,*( =9*E .. HS0-R5. 9l
k 0_| & = f@?0
34;I!+
7@7I !
$'?'H$'
$00H 0
@ 4 +++]+]999 ??+++99999]10%327&&#"32653#"&'#"&546324&&#"3663266p 3 ! -18<mYJb f 0I%6
/$'
7/ (4 8:IgWEբգ`Y0[KR* 01 : F @M3*.3ED" CI
I I I D
3 C0>7"# >DCH(7
@-.#">0 H >
CH
++]99++9999]9 ???++++9910!53>77'.'5%2 # 32653#"&&'.76654.'32 3 (, ]tI+4MT3E8- 0Y4Qa $*;&'(8," l. .. 0G/#F2 &KY%C+1:?']4:b<1_ B 5 ~@V:
::;;:5152535455 %$,&' /!I ,
@'!I @ $ &%'@$%H/
@
;
H
+]+++9 ????++++99910 ]%#"&#"#3 32654.'&546322653#.#" bV
! OU1>.xKKg96h YW=)F5EzTcm2;f`X4$+2/6.-}b:1$Rf-0$&3 .=u 3@ I I I
H
+9 ??+++9999910!#.#' !576677"#KR (,$B ' NO=f. !.I_< e 1 G@-1I0/
I # I
I
I0
0 ) (/0)H
@)++999999 ???+++++9910#"&5'&&''5! 326677'.'5!e
!7 x~ *
!4 E54.'5! 3$ g ), ::#H
!M=N
X^Y ; y@F&0( 0'(10;(I02
/ I
I
0 (%
6
12H/6
H
H
+++999999999 ?????+++99999910]'&&''5!#" >54.'5!##'&&''5! G) &$:
%A"
, $ PP # !2(
j
Re$"`A!M=N
aj# ; A @Y!;0;I98 ;*I(* '9I
I
I
9( *4; *4-!-(')89*H;4
'--H
@*+++9999999999999 ????+++++999910&&''5!>54&! !57654''!52>*!( *
T 8)3
%#,=L$DxL% !2*%v9J&1
(/Gq294" %I: E_,ov Ha6Q , 0 W@;<<6 6 60( )*I('
*I
I
I I ( )*H0
H$*
@+++9 ???+++++99910]% !5766775&&''5! >54''53" +$
B "' 4 [*"P',(".2Y+. !.45" 7B;IMM
Z@3
I
I
I
H
H
++9999999 ??+++9999910%6672673!55"#!6'?*H4sL6j jN K 9H ' C@&
"!@ "@
%!"
@
"@ ++999 ??++9910&7654&#"32654'&63#"&'6632
M-@54C0J
M4G%0}F5L}"
[
";7C=6 107--ef H ) E@' ) &@&@ #) ##@
@ ++9999 ??++9910&&#"#&54632#"&54763232674C0J
M4G%0}F5LM-@5}
";7C#=6<%
?910#'3LJLa 1 \ @
@ @ +9 +910!5 SQQ P C
@
/+]10.54>32C"ZS w &#
K 2 ? x@U % %?%O%\%%%%%%%%% %5 =I+
+ "4:3 H (
:H/
H:
H /
O _ @+]++++99 ???+99]q99910%2653#"&'#"&54>5'4&#"#"&54632'5'326?2'+CK<@P24l3 +7>"3`Q 1 2;)X8,%))F>2=
['" !! 0% >JCF 9 -6 Y 4 p@B$/
$I/ I$
I
@
)* *H
*H*
H
+++9999+ ????+++9999910%#"&'##667'4&''5!66324&54&#"326546YuMV & 1D_y $ !"!"q@ 3(G2)O(oO 5A#-U*C 5EH47 $ ,@ I
H"
H
++99 ??+9910"3267#"&54632 #"&54654&: & =M7RCru,JA;.-'?,@K#[E5op!=)%-7#2 t 2 e@; %$)&2
I$# I
I$
/) $ , /2%/%H
H
H,
+++99999 ????+++999910&&#"3276655455'4&''5!!5#"&54632b$ 7 !/& 1D`xx`F. ;K=-^<5u \*h.!)2(so& 9@! I
I
H
H
++9 ??++9910%#"&54632! 3267'&&54&#" |Tvnsz 9+=G % KUtl^$KF+E4{ =?=?@ - Y@5+ I I
I%
%
%
% H
H
H(
+++999 ????+++9104654&#"3#!576657#734654632#"&I(# ra $ I9gDg;$$7l*
Q>i&.$%.7&-
Gw98$1+ / Z @] &,S<7IS:
SI .
,I7
IY
DMI A
IG I M YG
M),14S
MHV
JM<54&''53" !57254&&'3!576657'4&''5!5j)
"
!+
1f/8 &6n2
& PG
.X(H.'%.)? L -@
I I
I H
+999 ??+++910!!576657'&&''5!L "
%.).$
J @X7658> I J I65
I(* I(' I6
I I AI A;6( "7'(7#H/#
H
HE
++]+999999999999 ??????++++++++99910!!526575'4&#"!526575'4&#"!5766575'&&''5366326632#
)#""# 5Q8S+dDd ).)+&!0. ).)+&,. %.)K 9//LL<.& / W@7 I)+ I)( I
I I I
) *+/ H
H "
++999999 ????++++++9910'4#"3!5766575'&&''536632!526577# % 9RGh $I)N, .)%.)K 9P6.$(. + # @I I
H
H
++ ??++10%#"&546324&54&#"326546+msqo!# "!"!"jjjjT6FI37 W6FH47 \ 9 i@Ay,,w w+w,$#"%1
I8 I#"
I I#
. (# .819..$1H 1
H+
++9999 ????++++99910] ]%32>55.#"576657'4&''5!6632#"&' % !%#
1D`xx`F. 0E575#"&5463275&54&#"32>'
%
/E_yuKR H % """ ߂*) )'nq9 RY 9CI37 W1A%$ + R@5
*!
*I
I
$%+@*?O_o%H%
+]+99 ???++9991035766575'&&''5!6632#"&54767&#" .R0C?.&7
' %.)THC..=5">2 , 6 g@=2 2 2( I!
@ I. @25 . 56 $@65 @++9999 ????++++99910] ]73 32654.546322653#.#" #"'&'"#,
4=,$ 733#32653#"&5BD"JC- u& '$BmEj 1A>&3+,A(8UHA ' S@5 ! I ' I
I I
H"
H"
H
H"
++++99 ????++++999910!!5#"'&55'4&''5!3267'4&''5!C;E56
! @$&)(G))))$.!) $ F@($#"I
"" I#
# $H
H"
++99999 ???++99910"7654&''53#.#5!8 LG % Q* G2L
E ʸ#
Gn!+D K 8 ~@H-#-"#.-8#I-/
, I
I
-# 83 ./H,3
8 H
H
+++999999999 ?????+++99999910'&&''5!#" 7654.#53##.#5!#" 2 *
E
$ HtG S
;&\:=x#'@{H+ZF1p9 6 ; @Y6-6I43 I%6 I%$ I
'4I
I
4% '06* &34'H60
, H
*' @*+++9999999999 ????++++++9999107'&&''5!7654#'53#"!57654''#57>w Q 2@ W AS #@"
WR
!j$
pk (P 8 h@</)/#I
I
I
#& ,5H&/ &H
5 H
+++9999999 ???+++999910&&''5!#">54&''53"#"&5463267>7.=
'GN
,
#AK]QD(C6*+0&
) AO mL
d6+(82""*
8<)4
G@(
I
I
I
@
+99999 ??+++9999910%2673!5'"#5!*0t!
.61u"
D D D <s ' Q@3I
I
" H" H%
%%H
@@ +++++99 ??+++103"&54654춮&5463"i;WGE81SS18dEGXGPgQ=QP- *.., *g:"<
1 % ',2
,% !$ 1-( !
& , )%%) 8 @ @ @ @ ++ ?+102#"&5464&#"326=UV4&%65&&4U;;TS<$6TA7-VTEUt$4M $ ;*%-"&,F3 tNo
5)@Q E/ O @V256MH? JH),,MI#
@ @M
IB @HB< ,*5+/J& N599+H
H& H
@EHH ,
++++99999 ???+++++99999107&&#"3267&54632#"&5463654&#"3#32673#"&'#"&54632&&'#77H. +>(/B W{7&+<3 1 +;6
6$84 k@
+FL'L-4N_/8C
T)*% '/ !E"#{SG'=4,)7
;/ ~6 $M(;; 1"!=0CG b B8 E S j@E .FMI(8 I
M ("1; HPC
PPP5H+5 +H%;
% HI I IIH
H
++]+++]+999 ??+++99910&&54632#"&54654&#" #"&5463232654'&&'&&5466654&''<;ycHg+"%>=#);)/z6.^J8A^H_-'#8# )AmJ$/X!'Y"+*P/GeG5 +')7 '( 4"N'F.;P ,=FChB9 +*%'
(, K3 D+
33"B:";SD8*4% $ )E2QB
PymR : `hj?F=3F.$!'# 1 /AdXImJ|? "3 h @ s@E! >87(*I " I1
I
> 1* 78H '
H+
H4 88H ;
@+++++99 ????+++99910%&&53326654.#5>54.#"!576657#734654632#2#"&V
*-#
! I9f|__dujN (2:4.J>3/?' C <$@9i%.7&1Gwf8JS
y_Xx
ey A M Y @vW! 256 ;WA LK Q J @ p I
I I
I K
@W >JT T+&EKJ_>H0>
@560&HE&
_EHJ
J
H
@T@N ++++]+++]9999999999 ?+++++]9999999910#"&54632!576677'&&''5!2 # 32653#"&'&&'76654.#324&#"326y椤椤X%
:G-*/*- !
%Cf '& [җҙY椤楍#" , *&
/8" " - " <% 8 Ԗ dx 6 n@J$%*&3'0% !@'! I*
* ** *@***@0 @ &%433''@$%H-
@@ ++++9 ?++]]+]+]99910#"&546324&#"326"&546322653#&&#"3267x椣椤 ҘҘpo3!@#4<94A>7E
bX磣裗ԗThj&aQwSXODMc ) E@887 7 8
8H
HV V Y
Yg g i
iv v z
z
<.,.-/.AE0I9:
I.0
D I+*
I
I
.<9. + $ $ ?E %*+$54A;)5F0/165F?>EFH5>
HF5 F 1/@./ H
H *
+++++999999999999 ???+++++++++9999999910] ]4#" !57667654.#5!#.'76653#4&''>73!52>775 %I
& 0(>(' 3d7*:;;:*%Qa"
"+wG C3! =K.p
bAAf
b . 0Z ! . W@2.I&
I + ".+ 0+H +
H
? ]++]999999 ??++999910#"''7&&546327% 32>54'.#"Zi@>HQyj>=JX%K%8
%K%8
lAR
P4^?O N3D #i0[KYi!i0[K/C( S (@@
@
@ +9 ++10%5#53533#3!5xQQQQQ 2& &
, ?55 & F
1" ?55 $ A @h 1 234 >:=='I24 I21 @*' ** *0*"%%?I
?I
I
@? 2 2
"2
# &'2
( *+1
2H
@>
++9999999999999 ???++++]+++9910]'&&''5!#" >54''533#3# !5766775#735'#7u"&
#*N)$O -'*2G$
,
B
3
5! JA@> N@ U . !. U B _@7 B
.?1B.
@B6%
91(+323267+('' k9;<((;-"- > --5M !, L % '.;d58)1=XWV:g1#> #* 1A %v4'55/.WC8#69 08 $ 9 @N
#(I2 ( I I
@ - #.- 78 -H -
H
H
H
++++9999999 ????++++999910#73'&&''5!3#!5#"&54632'&&#"32766554e
/&o
e 1D`xx`G.
$ 7 8 5" 6) 4(ro&4H;K=-^<5u \* & F
'" ?55 /& *
A ?55 /& J
f" ?55 0 ` 2 ? C G @:% %/%O%%5 A@BCE@GDG G0G@C@ CC I+
:= @ + "" "@"P"`"p"""""""
"=:34+CG (EAA/=+H (
:+H/
H:
H /
@++++q+99999] ??++]+]+99999]9102653#"&'#"&54>7'4&#"#"&54632'5'326!!!!2.!&7:37C*6K)".3 ,sPBu+ B
B
+ B( 3.%,
=
$.743
% & \ 1 ` ! % ^@< !#@%"% %0%@! !! !I
I
!# %H
H
++99999 ?++^]^]+]+99910#"&546325.#"32>!!!!]aa` B
B
.RccRRcbR-@"0(MO6"/:- \ #
R @S1 0 0
05
D4 =+
LDIPI:+
ID
I@
P @:
D'(411MCI H.7
.HD
H
H C
++++9]999 ????+++9999910 ]&&5&&#"3265&'&#"&54>554&#"#"&546326632! 3267#"&s"
3 $#
.QFMW24l4 +7>"3\-V I"vs
8+:BwUIp ?=>J`!MG+@8KT4 +
+ E@' !#I
I* * #$'
H
H
'
++999999 ??++999910326546774&#"'7&&546327#"d !!$#"!#J=;27qPD9817nP?7CI3?P2CI37 N
L#d>j)J I"d=k ,# 4 z@M /#23
404@4P4`44444 /I) I/
@
3/
?
) 4&
4& H,
@4 ++9999 ??]+++9]999104632#"&#"32654&#"&54632#"&5463235W9)(99()9o;*7&7M!4
%/=+&9Tyn.@(77('75W&7kM\
-$)39)GZusix 1 6@$$4DT
H H
@+++ ??9]10] ]74653#"&4632#"&1lkK)'K9)(99()9 -!I'6
! I @ ' *3' 9" 0'H3*
H"9 " H
H
++++999999 ??+++99103##"&5463232654&5#73>32#"&54654&#"
4o>_12'7 /6
{8jFO0''4!
0 $H=3(9/$$ NCYe Ez9.(0( ")`A ` B Y @q)! *)+,&EDLFG,Y)OAI>L
@GA4&I 1 @&,I
@ D>) # 1">
#1FEG@DE>RH;O ;*R H4V 41,)@*) @
@++++++99999 ?????++++++99999999106632#"&5463232654&#"'7&&#"#3 32654.'&546322653#.#" #+ D8X4$3 $%LE! OU1>.xKKg96h YW=)F5EzTb 9? ;0 " ''g
`2;f`X4$+2/6.-}b:1$Rf-0$&3 .=uPc , Y @^9 $# %& <9HXUIBO @U92&I +
@& I @ B8 # OK?R %$&.MYE9OK@EK@R?&@#$ @++++9999999 ??????++++++999999910&&'"#53 32654&'.546322653#.#" #6632#"&5463232654&#"' G"
(=+& *).; pQ&"!"
-.) #0SB,zX% @6T0!2 ##$()::& ,4#JQ"<: -,A*NM1; 7,
%% * @
@ @H
H
++ +<<10%'57'57 41 -+J
!Y04V
M/4I 6 @
@ @H
H
++ +<<10%'667&&'7'667&&'7 0/ ߺ , '
!S76R"
K29C
G # )@! ! H
H
H
+++ ???1074632#"&%4632#"&%4632#"&G9'(99('9M9'(99('9M9'(99('9V&75('77'&75('77'&75('77 6 $ C |
) ?55 & $ |
+ ?55 0Z& 2
# ?55 0 = u@G "' -,!&@!,I&
@ I2 I:
:2 . &! "'&" @ H&
0H6
+]++9999 ????+++++99999910&#"32>54&%#.'76653#4&''>73!#"'&547632. K%8
,K%8
}3d7*:;:;*%Qa"Z?ssoo> {U0\Ke}0\KYp
bACd
bjjff V " B V@51+ "91@66=I1"
I-
I# I)
= -)# "1 :06H0
H&
H 1
+++9 ????++++99910%4&54&#"326546%&&54&#""&54632632! 3267#"&'d!# "!"!"E $ sqZMMZsw :*>@ލjj77_&IF+B8MU @
@ @ +9 +910!5 QQ @
@ @ +9 +910!5 QQ + J@+)#&I
#
&&I
@ &#@ #
@
++99 ??+++9910#"&5463"32632#"&5463"326322(1?nN0P
!32(1?nN0P
!3'4I3JjD,
-#'4I3JjD,
- ) C@& #I) )I
# @&@++99 ??++99102654#"#"&54632#72654#"#"&54632# 0P 42(1?nN0P !32(1?nND,
."'4I3JjD,
-#'4I3Jj %@
I
@
@
+ ?++910#"&5463"326322(1?nN0P #1'4I3JjD,
- @ I
@+ ?+9102654&#"#"&54632# 0P #12(1?nND,
-#'4I3Jj BO B@,
@ @
0@ 0H H
++ ]+]++99102#"&546!52#"&546 *) *+: *) **O* )( +QQ* )( *& \ B" ?5555 ,& < : ?5555 XK 10$0 * @
@H
+ +10%'57 :8J
!X14V ' @
@ H
+ +10%'667&&'7 88
!U52V"
? u@H!*0I8: I87 I*
I
I
080 0
$9:? H '
1 H0 H
H 1
++++9999999 ?????+++++99104&##3!576657#7374632#"&54654&#"!!572657 [! I9}SP 8*+:- 11E
." %.7&HF{..+8.+ 1 UC$,.$'. 5 ]@;I-/ I-, I I I"
-% "5 ./4
H5&
H
H
+++9999999 ??????+++++104&#"3#!576657#7346546323!572657,(iW
I91w
V?_&.%%.7&)Ix.$'. #1 @v7 8( %6<IO|kI||xyFxYYXIUU@XFB6623EE 2@ khe% y+,e2^F3YXE_^,qrxy ekk r^^3Xyy %%,, 33E@ E+999999999 ?????++999910]#"&5463232675&&5475&&5463543226632#"&54&#"6632#"&54&#"##"55"&54675&&54675#"&546323267 8"<
.
% ',2
+$ ;"<
3 % (,2
1! 1-( !
& , 1-( !
& , $ @ H
+ +104632#"&$:));:*):K(87))88 z @I
@+ ??+102654#"#"&54632# 0P 42(1?nNxD,
."'4I3Jj z ) C@'#I) ) I
@&@++99 ????++102654#"#"&54632#72654#"#"&54632# 0P 42(1?nN0P 42(1?nNxD,
."'4I3JjD,
."'4I3Jj & $ |
+ ?55 -& (
0 ?55 & $ |
4 ?55 -& ( 6 ?5555 -& ( C
. ?55 & ,
) ?55 & ,
?55 & , & ?5555 & , C
?55 0Z& 2
+ ?55 0Z& 2
" ?55 & ,
& ?55 0Z& 2 C
?55 e& 8
> ?55 e& 8
5 ?55 e& 8 C
3 ?55 L 2@
I I
I H
H
++999 ??+++910!!5766575'&&''5!L %.).$ ` @ @ / /<+]10''73 mVff ` I@0 I
I
@
@
@ / ? _ @
@++ ]++10/+99 /++10"#66323273#"& 7/b:
7/_N I?3I? d= @
@ H
+9 +9105!d,=LL k
&@ I
H
H
++ /+<9910332673#"&kF35FQ>@N&86)Sge %? @ H
+ +104632#"&( (& )j(( () d .@ W / /I
I
H
H
+]+ /++]10]32654&#"4632#"&$ %% $)>,,??,+?v $# %$ -:9.,;; i " @{ ) )9 J JZ Zk ky y $4DTdt I
@
P
`
@
"!
"@
@/?]++999 ?+]+99]10]76632#"&5463232654&#"'7- @6T0!2 ##M<; 7,
%%f u = @ @+ ?10]!327#"&5467-!%
=%'+DM#0 $,/)")B. ` @@@ /+ /+]<10#'77mVm
ʵef B& 6 Z
8 ?55 ,& V
8" ?55 / Z@8I') I
I
I' '@ ' H #
H H
+++999 ???+++++9103#232>54.###735'.'5%2#!52>77
&?73?P; }
s+#uuϯt[
"+
)] . ,% . + 9 g@: 3 #" 63#I
I- I3
3- " 0$*%7" 0"% H0
H *
++99999 ???+++9999910%4.#"3266'7.'537 #"&546327&&h "! "! go l#M3"%X Q$4?nso 3X@F7J W8D@u?=&32."=jqAol#2 ,& <
= ?55& \ L
E" ?55 #
7 `@A7I 6
I') I'& I
I
+ I
' 0 0&' H0! H0
H
+++999999 ??]+]+++++9104.#>32 #" !53>77'.'5) ;;*E -< dSsH* ;UBAP,* (+#9l
m"?0U0,S7,4 .. Y 6 p@@ ". I5 I
!%I %+ % 0 !".506++% 0H0
%H(
++]99999999 ????+++99910%32654&#"576657'4&''5!6632#"&'%- 0%# 1D`xx`F. "0E{bhp!2N&,[ )) E-so&@d. .b @
/<< /<<10 ]7''7'799999::9 1 @T, ))&#
&&/ 1/
&#), '
**$$*$*$( 11 3''7'g'w''' ' /_]<899//]]99 ???9/9/<<]<<10%#"&'#73&547#7366323273#&&#"!!!!3278-50ӒDP.,dBV`n X l\6hy %L|h " 5@ <
<
<
+++99<< /9103#7'77OkpnfCC @ @ +<< /10#3#3NOON U + @L
# <#
) <)
<
&
<&
+<<]+<<99 +<<+<<9910]'#"&''7&&547'7663274&#"326&-'9O"? (.'*'.( D&I7'-&*^I36LL36I-#< (,&-&,( =$H>$1(*(1$?G4OL72JG K_<
hX X\ 2 C ,w 3 1 ( K &A | " $i $ $r ( $8 88 6A A A j G 5q 2 d / $ $3 9 0- 0 B" U B
9i A P? h m h T JjtQ
: kc ,+ | |
A z 2d 0U ? ? ? ? ? ? T T T T : : : : : #I = *V BL (K .z e d ) Fj 0A 2 $m / 0& 1, : j ,C 1A B , * 6 G 0 0` A XE *E ' # $ d d d 0 0 0U U U T ` ` d k u ` B , > . hA r p V V $ . / 5 I /
$
5
t I
.
t < I n & 1 2 3 ' ) 7 8 9 : ; < -
t I J N
U Y Z \ . ( V V t $ < F H
% 3 4
I
J 5 N . U
W 7 Y ( Z [ \ o 9
/ : ) ; : N
. ( ) U ; - Y < ' Z 1 7 V \ 8 2
t I 9 & V J 3 t < < < 9 : : 9 < < $ ) $ * $ 3 $ 9 $ + $ , $ $ / $ d $ 0 $ $ : $ ( $ - $ $ $ $ 7 $ ; $ $ 1 $ & $ $ 8 $ $
$ $ $ $ $ $ % 9 % : % / & . & 9 ' $ ' : ' $ ( 9 ( : ( 9 ) $ ) : ) * . * / * 9 + : + $ + $ , : , 9 , : - 8 - - 9 - < - 3 - -~ 7 - - / -
- -t ) - 9 . $ . : . $ / 9 / : / 9 0 $ 0 : 0 $ 1 9 1 : 1 . 2 / 2 9 3 $ 3 : 3 . 4 / 4 $ 5 9 5 : 5 6 6 / 6 7 7 $ 7 ) 7 & 7 5 7 / 7 = 7 6 7 F 7 7 * 7 7 ( 7 3 7 ; 7 7 . 7 7 7 / 8 : 8 9 8 . 8 $ 8 0 9 * 9 8 9 9 F 9 9 9 + 9 1 9 $ 9 . 9 / 9 9 , 9 5 9 9 : / : + : * : : 0 : $ : 5 : , : . : : : 8 : 1 : F : : ; $ ; ; ; . < < & < * < < < $ < < 5 < / < < 7 = / = = $ = I @ @ d 7 D < D \ D 9 D U D 8 D ) D D 1 D 3 D Y D F D J D : D Z D - D & D U E \ E 8 F U F F 7 F $ F [ F G $ G \ G 8 G U G [ H N H $ H ) H < H H Y H : H \ H 1 H 7 H 9 H Z H U H 3 H $ I I I \ J < J $ J U J 8 J U K : K \ K 7 K ) L : L < L 9 L 7 L 3 L . M J M P \ N U N 9 O \ O Z O 3 Q 9 R Y R 1 R 3 R N R $ R R U R : R Z R < R \ R ) R 7 R [ R 8 R < S U T < T $ T 3 U < U : U ) U 7 U 9 U V V 8 V \ V W V 7 V V D V
V H V Z V 3 V V U V V Y V D W $ W I W [ W W W N X 9 X $ X W X : X 7 X ) X < X 3 X Y \ Y $ Y N Y W Y Y R Y D Y E Y . Y < Y Y U Y I Y 8 Y Z W Z I Z E Z . Z 7 Z U Z $ Z D Z Z N Z K Z R Z \ Z [ R [ [ [ H [ U [ [ ; \ Y \ D \ ) \ R \ U \ . \ V \ J \ 7 \ Z \ 9 \ : \ % \ 5 \ W \ / \ $ \ I \ \ N \ \ O \ 8 ] U ] W ] 7 ] I ` ` < p ( 7 : 8 9 ) <
3 / . 9 8 : J < 3 - ) U & 7 7 U Z Y < 8 9 : [ 3 $ ) \ $ : < ; . 7 9 < : $ ; 9 . / ) 8 3 : $ 7 [ < U 9 Y \ Z $ * I V V . 5 / . D K R S H * E I V 5 / t t N $ P Q W X F : 9 < . $ 7 $ < : 9 I I Z 7 8 < 9 \ ) : Y U 3 Z 7 < : Y 3 ) 9 \ U ) n < : 9 I 7 f 0 0 0 0 w >so
J.
K
f
'
k
q R
e Hx KY!~ ?U k $ @ !B!"'"l"#+#$]$%$%%%&;&O&c&t&&&&&&&'''*':'K'\'m''''''''(
( (.(?(P(a(t)()[)*+-+J+,D-!-.../0.0[0m0~1.12P2a2s23K34m45X55687
78 8C888889W99::s:;;4;;;;;;<=>)>F>u>>>???,?>?P?d?v???????@3@P@@@@A0AAABB BCC,C=CDFDpDE2ERE i @ +
o o w ~ & & " 2 B Z Lz
& 4 F R b n | $ -
1992 Carter & Cone Type Inc. 1992 Type Solutions, Inc. Portions 1992 Microsoft Corp. All rights reserved.ElephantRegularElephantElephantVersion 1.51Elephant-RegularType Solutions, Inc. StingRay! V1.00.Matthew Carter N o r m a l o b y
e j n n o r m a l S t a n d a r d 1 9 9 2 C a r t e r & C o n e T y p e I n c . 1 9 9 2 T y p e S o l u t i o n s , I n c . P o r t i o n s 1 9 9 2 M i c r o s o f t C o r p . A l l r i g h t s r e s e r v e d . E l e p h a n t R e g u l a r E l e p h a n t E l e p h a n t V e r s i o n 1 . 5 1 E l e p h a n t - R e g u l a r T y p e S o l u t i o n s , I n c . S t i n g R a y !!" V 1 . 0 0 . M a t t h e w C a r t e r M a t t h e w C a r t e r i s o n e o f t h e m o s t - p r a i s e d t y p e d e s i g n e r s o f o u r t i m e . H i s w o r k r a n g e s f r o m n e w s p a p e r t y p e f a c e s f o r M e r g e n t h a l e r L i n o t y p e t o t h e c o n d e n s e d s a n s t y p e f a c e n o w u s e d m o r e t h a n a n y o t h e r i n r e - d e s i g n e d t e l e p h o n e b o o k s . H i s G a l l i a r d b e c a m e o n e o f t h e m o s t p o p u l a r n e w t e x t f a c e s o f t h e l a s t 2 0 y e a r s . N o w w e h a v e E l e p h a n t a n d i t s i t a l i c , a c a r e f u l r e - w o r k i n g o f a t r a d i t i o n a l E n g l i s h e x t r a - b o l d s e r i f s t y l e . O r i g i n a l l y , E l e p h a n t a p p e a r e d i n p o s t e r s , o f t e n a l t e r n a t i n g f r o m r o m a n t o i t a l i c o n s u c c e s s i v e l i n e s . I n E u r o p e , f a c e s o f t h i s k i n d s t i l l m a y b e u s e d i n v e r y s m a l l s i z e s f o r t e l e p h o n e n u m b e r s i n l e t t e r h e a d s a n d b u s i n e s s c a r d s . T o d a y , t h e b e s t u s e o f E l e p h a n t i s f o r a n e y e - c a t c h i n g w o r d . E v e n a s i n g l e q u o t e w i l l d r a w t h e r e a d e r ' s e y e t o w h e r e i t i s p l a c e d .
N o r m a l N o r m a a l i N o r m a l N o r m l N o r m a l e S t a n d a a r d N o r m a l N o r m a l n y N o r m a l 1KG=K9 N o r m l n e N o r m a l N o r m a l N a v a d n o A r r u n t a N o r m a l N o r m a l N o r m a l N o r m a l { Z
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ Euro @'$"
Kc Kb S#
QZ#BK KTB E`D+++++++++++++++++++HHEi@DIIEi@D EhQEh@` #DEhREh@`"#D 0 *H
010 *H
0`
+7R0P0,
+7 < < < O b s o l e t e > > >0 0 *H
kg/KW~/Ҡ0@0Ǐ7ے(<g0
*H
0a10UInternet10U
VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CA0
960409000000Z
040107235959Z0a10UInternet10U
VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CA00
*H
0 ieRT(bTUDEJ;~Ȁ k)vsb< u lMԘisbN1 }GQod5}gwQ>wCʣA="HH 0
*H
ujdxç2ur&`0LH4RJQS-{1eAA/czs zAЎ:84Duqā85J>2!8\8dT_݈)Oqd1<<00)ъĽ5Ǜ SV0
*H
01 0 U
VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.0
970512070000Z
991231070000Z01 0 U
VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.00
*H
0 . h|,-.
WSu3* [4 Z%}XsjxqX)X^-bX q"X/6MJ;"V~!lJGj6 -Ӵ9 0
*H
:>{թy=q#+(ߌe,ZbVkbEƢ5"r-| CMlX
5ʉp*}a qfbB="2"d$006 C!FXF%`0
*H
01 0 U
VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.0
970512070000Z
991231070000Z01'0%U VeriSign Time Stamping Service1 0 U VeriSign Trust Network1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.10U
VeriSign, Inc.10UInternet00
*H
0 aGܴ^i
b1FI:?xZcEO n06- o'
Q`5OTOз,B Ѝ^㖴"IBlӘV.:X"e匫xGBh[-}0
*H
m`_i{p+b# D Q#tI'\q5+ൖ苧KsH ڋ %VNGWF8V!&;-%2Λ@GmGv0;~*1+ݰUApF-,~00 U
?d s E40
*H
0a10UInternet10U
VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CA0
990319000000Z
000416235959Z0]10UInternet10U
VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CA1F0DU =www.verisign.com/repository/RPA Incorp. by Ref.,LIAB.LTD(c)981>0<U 5Digital ID Class 3 - Microsoft Software Validation v21 0 UUS10U
Washington10URedmond1 0 UMicrosoft Corporation1 0 U Microsoft Corporation00
*H
0 cGxVVVZP0)to[)
G ~ЧTGͺt+ԅ"1 Y 7[D?\ޭ@`'ZWJs8v69 +T<1
"eGB̎g?lM"rJޒ wo0k0 U 0 0 U 0U 0{Ch8n; c0a10UInternet10U
VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CAǏ7ے(<g0!U 000
+7 0
U
0@06
+7
#0 )'https://www.verisign.com/repository/CPSThis certificate incorporates by reference, and its use is strictly
subject to, the VeriSign Certification Practice Statement (CPS)
version 1.0, available in the VeriSign repository at:
https://www.verisign.com; by E-mail at CPS-requests@verisign.com; or
by mail at VeriSign, Inc., 2593 Coast Ave., Mountain View, CA 94043
USA Copyright (c)1996 VeriSign, Inc. All Rights Reserved. CERTAIN
WARRANTIES DISCLAIMED AND LIABILITY LIMITED.
WARNING: THE USE OF THIS CERTIFICATE IS STRICTLY SUBJECT TO THE
VERISIGN CERTIFICATION PRACTICE STATEMENT. THE ISSUING AUTHORITY
DISCLAIMS CERTAIN IMPLIED AND EXPRESS WARRANTIES, INCLUDING WARRANTIES
OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, AND WILL NOT
BE LIABLE FOR CONSEQUENTIAL, PUNITIVE, AND CERTAIN OTHER DAMAGES. SEE
THE CPS FOR DETAILS.
Contents of the VeriSign registered nonverifiedSubjectAttributes
extension value shall not be considered as accurate information
validated by the IA.
64https://www.verisign.com/repository/verisignlogo.gif06U /0-0+)'%http://status.verisign.com/class1.crl0
+700
*H
UטTJ0̪qJp\8.FRB mra4fUUм[M?lQ^7ߞ@p< < *.om욛8lK OX ؗQ^!ܬzX100u0a10UInternet10U
VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CAU
?d s E40 *H
0 *H
1
+70
+7 10
+70 *H
1ƔV_h#]|@0d
+7 1V0T,* E l e p h a n t R e g u l a r F o n t$"http://www.microsoft.com/truetype/0
*H
"]~1bQx,S藫mMɔӨy-:y17Z0Ɔ&3 7">(U =b[=ƾs ~@Ї'
KW]d B1qAD 0 *H
10001 0 U
VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc. C!FXF%`0 *H
Y0 *H
1 *H
0 *H
1
990624184104Z0 *H
1X{`}p.1X9'r%9hq!2r羓Nu$
+<˹h%fvvsa
-gs{硈
PaΓ phpipam-1.3/app/login/index.php 0000775 0000000 0000000 00000013162 13117723025 0016532 0 ustar 00root root 0000000 0000000 authenticate ($_SERVER['PHP_AUTH_USER'], '');
// Redirect user where he came from, if unknown go to dashboard.
if( isset($_COOKIE['phpipamredirect']) ) { header("Location: ".$_COOKIE['phpipamredirect']); }
else { header("Location: ".create_link("dashboard")); }
exit();
}
?>
<?php print $User->settings->siteTitle; ?> :: login
is_admin(false) && (strtotime(date("Y-m-d H:i:s")) - strtotime($User->settings->vcheckDate)) > 604800 ) {
# check for new version
if(!$version = $Tools->check_latest_phpipam_version ()) {
# we failed, so NW is not ok. update time anyway to avoid future failures
$Tools->update_phpipam_checktime ();
} else {
# new version available
if ($User->settings->version < $version) {
print "
is_admin(false) && (strtotime(date("Y-m-d H:i:s")) - strtotime($User->settings->vcheckDate)) > 604800 ) {
# check for new version
if(!$version = $Tools->check_latest_phpipam_version ()) {
# we failed, so NW is not ok. update time anyway to avoid future failures
$Tools->update_phpipam_checktime ();
} else {
# new version available
if ($User->settings->version < $version) {
print "
phpipam-1.3/app/subnets/addresses/print-address-table.php 0000664 0000000 0000000 00000104730 13117723025 0023616 0 ustar 00root root 0000000 0000000
check_user_session();
}
# We need DNS object
$DNS = new DNS ($Database, $User->settings, true);
/* verifications */
# checks
if(sizeof($subnet)==0) { $Result->show("danger", _('Subnet does not exist'), true); } //subnet doesnt exist
if($subnet_permission == 0) { $Result->show("danger", _('You do not have permission to access this network'), true); } //not allowed to access
if(!is_numeric($_REQUEST['subnetId'])) { $Result->show("danger", _('Invalid ID'), true); } //subnet id must be numeric
/* selected and hidden fields */
# reset custom fields to ip addresses
$custom_fields = $Tools->fetch_custom_fields ('ipaddresses');
# set hidden custom fields
$hidden_cfields = json_decode($User->settings->hiddenCustomFields, true);
$hidden_cfields = is_array($hidden_cfields['ipaddresses']) ? $hidden_cfields['ipaddresses'] : array();
# set selected address fields array
$selected_ip_fields = explode(";", $User->settings->IPfilter); //format to array
// if fw not set remove!
if($User->settings->enableFirewallZones != 1) { unset($selected_ip_fields['firewallAddressObject']); }
// set size
$selected_ip_fields_size = in_array('state', $selected_ip_fields) ? sizeof($selected_ip_fields)-1 : sizeof($selected_ip_fields); //set size of selected fields
if($selected_ip_fields_size==1 && strlen($selected_ip_fields[0])==0) { $selected_ip_fields_size = 0; } //fix for 0
/* Addresses and fields manupulations */
# save for visual display !
$addresses_visual = $addresses;
# new compress functions
$Addresses->addresses_types_fetch();
foreach($Addresses->address_types as $t) {
if($t['compress']=="Yes" && $User->user->compressOverride!="Uncompress") {
if(sizeof($addresses)>0 && $addresses!==false) {
$addresses = $Addresses->compress_address_ranges ($addresses, $t['id']);
}
}
}
# remove custom fields if all are empty!
foreach($custom_fields as $field) {
$sizeMyFields[$field['name']] = 0; // default value
# check against each IP address
if($addresses!==false) {
$addresses = (array) $addresses;
foreach($addresses as $ip) {
$ip = (array) $ip;
if(strlen($ip[$field['name']]) > 0) {
$sizeMyFields[$field['name']]++; // +1
}
}
# unset if value == 0
if($sizeMyFields[$field['name']] == 0) {
unset($custom_fields[$field['name']]);
}
}
}
# hidden custom
if(sizeof($custom_fields) > 0) {
foreach($custom_fields as $ck=>$myField) {
if(in_array($myField['name'], $hidden_cfields)) {
unset($custom_fields[$ck]);
}
}
}
# set colspan for output
$colspan['empty'] = $selected_ip_fields_size + sizeof($custom_fields) +4; //empty colspan
$colspan['unused'] = $selected_ip_fields_size + sizeof($custom_fields) +3; //unused colspan
$colspan['dhcp'] = $selected_ip_fields_size + sizeof($custom_fields); //dhcp colspan
$colspan['dhcp'] = in_array("firewallAddressObject", $selected_ip_fields) ? $colspan['dhcp']-1 : $colspan['dhcp'];
$colspan['dhcp'] = ($colspan['dhcp'] < 0) ? 0 : $colspan['dhcp']; //dhcp colspan negative fix
# set ping statuses for warning and offline
$statuses = explode(";", $User->settings->pingStatus);
?>
"._('Orphaned IP addresses for subnet')." $subnet[description] (".sizeof($addresses)." orphaned) "._('This happens if subnet contained IP addresses when new child subnet was created')."' "._("Remove all").""; }
else { print _("IP addresses belonging to ALL nested subnets"); }
?>
'. "\n";
}
}
# print IP address
else {
$n = 0; //count for IP addresses - $n++ per IP address
$g = 0; //count for compress consecutive class
foreach($addresses as $dummy) {
#
# first check for gaps from network to first host
#
# check gap between network address and first IP address
if ( $n == 0) { $unused = $Addresses->find_unused_addresses ( $Subnets->transform_to_decimal($subnet_detailed['network']), $addresses[$n]->ip_addr, $subnet['mask'], false, true); }
# check unused space between IP addresses
else {
// compressed and dhcp?
if($addresses[$n-1]->class=="compressed-range") { $unused = $Addresses->find_unused_addresses ( $addresses[$n-1]->stopIP, $addresses[$n]->ip_addr, $subnet['mask'], false, false, false ); }
// ignore /31 networks and /127
elseif($subnet['mask']!=31 && $subnet['mask']!=127) { $unused = $Addresses->find_unused_addresses ( $addresses[$n-1]->ip_addr, $addresses[$n]->ip_addr, $subnet['mask'], false, false, false ); }
}
# if there is some result for unused print it - if sort == ip_addr
if($User->user->hideFreeRange!=1 && $subnet['isFull']!="1") {
if ( $unused) {
print "
";
print "
";
print "
$unused[ip] ($unused[hosts])
";
print "
";
}
}
#
# print IP address
#
# ip - range
if(@$addresses[$n]->class=="compressed-range")
{
print "
";
//search also for CNAME records
$dns_records_cname = $PowerDNS->seach_aliases ($r->name);
if($dns_records_cname!==false) {
foreach ($dns_records_cname as $cn) {
if (!in_array($cn->name, $dns_cname_unique)) {
$cname[] = "
'. "\n";
// now search for similar addresses if chosen
if (strlen($User->settings->link_field)>0) {
// search
$similar = $Addresses->search_similar_addresses ($User->settings->link_field, $addresses[$n]->{$User->settings->link_field}, $addresses[$n]->id);
if($similar!==false) {
print "
';
// values - $outFile is provided by showscripts
$errors = 0;
foreach($outFile as $line) {
// errors
if($line['class']=="danger") $errors++;
//print
print '
';
// remove class
unset($line['class']);
foreach ($line as $value) {
if (!empty($line[0])) { //IP address must be present otherwise ignore field
print '
'. $value .'
';
}
}
print '
';
}
print '
';
?>
3.)
0) {
print "
";
print _("Errors marked with red will be ignored from importing")."! ";
print " "._("Ignore errors")."?";
print "
";
}
?>
?
phpipam-1.3/app/subnets/import-subnet/upload/ 0000775 0000000 0000000 00000000000 13117723025 0021353 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/subnets/import-subnet/upload/.htaccess 0000664 0000000 0000000 00000000403 13117723025 0023146 0 ustar 00root root 0000000 0000000 # Don't list directory contents
IndexIgnore *
# Deny access via web to it
Deny from all
# Disable script execution
AddHandler cgi-script .php .php2 .php3 .php4 .php5 .php6 .php7 .php8 .pl .py .js .jsp .asp .htm .html .shtml .sh .cgi
Options -ExecCGI -Indexes phpipam-1.3/app/subnets/index.php 0000775 0000000 0000000 00000014530 13117723025 0017105 0 ustar 00root root 0000000 0000000 check_user_session();
# subnet id must be numeric
if(!is_numeric($_GET['subnetId'])) { $Result->show("danger", _('Invalid ID'), true); }
# fetch subnet related stuff
$custom_fields = $Tools->fetch_custom_fields ('subnets'); //custom fields
$subnet = $Subnets->fetch_subnet(null, $_GET['subnetId']); //subnet details
if($subnet===false) { header("Location: ".create_link("subnets", $_GET['section'])); die(); } //redirect if false
else { $subnet = (array) $subnet; }
$subnet_detailed = $Subnets->get_network_boundaries ($subnet['subnet'], $subnet['mask']); //set network boundaries
$slaves = $Subnets->has_slaves ($subnet['id']) ? true : false; //check if subnet has slaves and set slaves flag true/false
# if subnet is requested but is folder redirect
if ($subnet['isFolder']==1) { header("Location: ".create_link("folder", $_GET['section'], $_GET['subnetId'])); }
# permissions
$subnet_permission = $Subnets->check_permission($User->user, $subnet['id']); //subnet permission
$section_permission = $Sections->check_permission($User->user, $subnet['sectionId']); //section permission
if($subnet_permission == 0) { $Result->show("danger", _('You do not have permission to access this network'), true); }
# fetch VLAN details
$vlan = (array) $Tools->fetch_object("vlans", "vlanId", $subnet['vlanId']);
# fetch recursive nameserver details
$nameservers = (array) $Tools->fetch_object("nameservers", "id", $subnet['nameserverId']);
# verify that is it displayed in proper section, otherwise warn!
if($subnet['sectionId']!=$_GET['section']) {
$sd = (array) $Sections->fetch_section(null,$subnet['sectionId']);
$Result->show("warning", _("Subnet is in section")." $sd[name]!", false);
}
// get usage
$subnet_usage = $Subnets->calculate_subnet_usage ($subnet, true);
# set title
$location = "subnets";
# NAT search
$all_nats = array();
$all_nats_per_object = array();
if ($User->settings->enableNAT==1) {
# fetch all object
$all_nats = $Tools->fetch_all_objects ("nat", "name");
if ($all_nats!==false) {
foreach ($all_nats as $n) {
$out[$n->id] = $n;
}
$all_nats = $out;
# reindex
$all_nats_per_object = $Tools->reindex_nat_objects ($all_nats);
}
}
?>
Scan method: ".$Scan->settings->scanPingType."";
# show debug?
if($_POST['debug']==1) { print "
"; print_r($output[0]); print "
"; }
?> phpipam-1.3/app/subnets/scan/subnet-update-snmp-arp.php 0000664 0000000 0000000 00000010712 13117723025 0023230 0 ustar 00root root 0000000 0000000 check_user_session();
# scan disabled
if ($User->settings->enableSNMP!="1") { $Result->show("danger", "SNMP module disbled", true); }
# subnet check
$subnet = $Subnets->fetch_subnet ("id", $_POST['subnetId']);
if ($subnet===false) { $Result->show("danger", "Invalid subnet Id", true); }
# verify that user has write permissionss for subnet
if($Subnets->check_permission ($User->user, $_POST['subnetId']) != 3) { $Result->show("danger", _('You do not have permissions to modify hosts in this subnet')."!", true, true); }
# set class
$Snmp = new phpipamSNMP ();
// no errors
error_reporting(E_ERROR);
// fetch all hosts to be scanned
$all_subnet_hosts = (array) $Addresses->fetch_subnet_addresses ($_POST['subnetId']);
// execute only if some exist
if (sizeof($all_subnet_hosts)>0) {
// set default statuses
foreach ($all_subnet_hosts as $h) {
$result[$h->ip_addr] = (array) $h;
$result[$h->ip_addr]['code'] = 1;
$result[$h->ip_addr]['status'] = "Offline";
}
# fetch devices that use get_routing_table query
$devices_used = $Tools->fetch_multiple_objects ("devices", "snmp_queries", "%get_arp_table%", "id", true, true);
# filter out not in this section
if ($devices_used !== false) {
foreach ($devices_used as $d) {
// get possible sections
$permitted_sections = explode(";", $d->sections);
// check
if (in_array($subnet->sectionId, $permitted_sections)) {
$permitted_devices[] = $d;
}
}
}
// if none set die
if (!isset($permitted_devices)) { $Result->show("danger", "No devices for SNMP ARP query available", true); }
// ok, we have devices, connect to each device and do query
foreach ($permitted_devices as $d) {
// init
$Snmp->set_snmp_device ($d);
// execute
try {
$res = $Snmp->get_query("get_arp_table");
// remove those not in subnet
if (sizeof($res)>0) {
// save for debug
$debug[$d->hostname]["get_arp_table"] = $res;
// check
foreach ($res as $kr=>$r) {
if ($Subnets->is_subnet_inside_subnet ($r['ip']."/32", $Subnets->transform_address($subnet->subnet, "dotted")."/".$subnet->mask)===true) {
// must be existing
if (array_key_exists($Subnets->transform_address($r['ip'], "decimal"), $result)) {
// add to alive
$result[$Subnets->transform_address($r['ip'], "decimal")]['code'] = 0;
$result[$Subnets->transform_address($r['ip'], "decimal")]['status'] = "Online";
// update alive time
@$Scan->ping_update_lastseen($result[$Subnets->transform_address($r['ip'], "decimal")]['id']);
}
}
}
}
$found[$d->id] = $res;
} catch (Exception $e) {
$Result->show("danger", "
"._("Error").": ".$e."
", false); ;
die();
}
}
}
?>
:
show("info", _("Subnet is empty")."!", false); }
# ok
else {
//table
print "
";
}
}
# IPv6 - search if any subnet is linked to it
else {
// linked search
$is_linked_subnets = $Subnets->is_linked($subnet['id']);
if ($is_linked_subnets !==false) {
print "
";
$m = 0; //slave index
# loop
foreach ($slave_subnets as $slave_subnet) {
# cast to array
$slave_subnet = (array) $slave_subnet;
# if first check for free space if permitted
if($User->user->hideFreeRange!=1) {
if($m == 0) {
# if master start != first slave start print free space
if($subnet['subnet'] != $slave_subnet['subnet']) {
# calculate diff between subnet and slave
$diff = gmp_strval(gmp_sub($slave_subnet['subnet'], $subnet['subnet']));
print "
' . "\n";
# check if some free space between this and next subnet
if($User->user->hideFreeRange!=1) {
if(isset($slave_subnets[$m+1])) {
# set max host > (bcast) from current slave
$current_slave_details = $Subnets->get_network_boundaries ($slave_subnet['subnet'], $slave_subnet['mask']);
$current_slave_bcast = $Subnets->transform_to_decimal($current_slave_details['broadcast']);
# calculate next slave
$next_slave_subnet = $slave_subnets[$m+1]->subnet;
# calculate diff
$diff = gmp_strval(gmp_sub($next_slave_subnet, $current_slave_bcast));
# if diff print free space
if($diff>1) {
print "
'. "\n";
}
# print IP address
else {
foreach($addresses as $dummy) {
#
# first check for gaps from network to first host
#
# check gap between network address and first IP address
if ( $n == 0 ) { $unused = $Addresses->find_unused_addresses ( $Subnets->transform_to_decimal($subnet_detailed['network']), $addresses[$n]->ip_addr, $subnet['mask']); }
# check unused space between IP addresses
else { $unused = $Addresses->find_unused_addresses ( $addresses[$n-1]->ip_addr, $addresses[$n]->ip_addr, $subnet['mask'] ); }
# if there is some result for unused print it - if sort == ip_addr
if ( $unused ) {
print "
";
print "
";
print "
$unused[ip] ($unused[hosts])
";
print "
";
}
#
# print IP address
#
# ip - range
if($addresses[$n]->class=="range-dhcp")
{
print "
";
print ""._("No changelog entries are available")."";
print "
";
}
# result
else {
# if more that configured print it!
if(sizeof($clogs)==$_REQUEST['climit']) { $Result->show("warning alert-absolute", _("Output has been limited to last $_REQUEST[climit] lines")."!", false); }
# printout
print "
phpipam-1.3/app/tools/dhcp/reservations.php 0000664 0000000 0000000 00000006727 13117723025 0021123 0 ustar 00root root 0000000 0000000 check_user_session();
# get subnets
$leases4 = $DHCP->read_reservations ("IPv4");
// this function returns single item as table item for subnets
function print_leases ($s) {
// get user class
global $User;
// cast
$s = (object) $s;
// printed option to add defaults
$printed_options = array();
$html[] = "
';
# increase the loop counter
$i++;
}
}
# display only the zone mapping data if there is no network data available
else {
$title = $mapping->indicator == 0 ? 'Own Zone' : 'Customer Zone';
print '
';
print '
';
print '
'.$mapping->zone.'
';
print '
'.$mapping->alias.'
';
print '
'.$mapping->description.'
';
print '
'.$mapping->interface.'
';
print '
';
print '
';
}
}
}
print '
';
}
else {
# print an info if there are no zones in the database
$Result->show("info", _("No firewall zones configured"), false);
}
?> phpipam-1.3/app/tools/inactive-hosts/ 0000775 0000000 0000000 00000000000 13117723025 0017674 5 ustar 00root root 0000000 0000000 phpipam-1.3/app/tools/inactive-hosts/index.php 0000664 0000000 0000000 00000004447 13117723025 0021525 0 ustar 00root root 0000000 0000000 check_user_session ();
// limit
$slimit = 100;
// time_range - 30 days
$seconds = 86400 * 30;
# Find inactive hosts
$inactive_hosts = $Subnets->find_inactive_hosts ($seconds, $slimit);
# check permissions
if ($inactive_hosts!==false) {
foreach ($inactive_hosts as $h) {
# fetch subnet
$subnet = $Subnets->fetch_subnet("id", $h->subnetId);
if ($subnet!==false) {
# check permission of user
$sp = $Subnets-> check_permission ($User->user, $subnet->id);
if($sp != "0") {
$h->sectionId = $subnet->sectionId;
$h->subnet = $subnet->subnet;
$h->mask = $subnet->mask;
$out[] = $h;
}
$m++;
# break after limit
if ($m>$slimit) {
break;
}
}
}
}
print "
"._('Inactive hosts')."
";
# error - none found but not permitted
if ($inactive_hosts===false) {
print "
";
print "
"._("No inactive hosts found")."
";
print "
";
}
# error - found but not permitted
elseif (!isset($out)) {
print "
settings->enablePowerDNS==1) { ?>
db_check();
// save settings for powerDNS default
$pdns = $PowerDNS->db_settings;
// check if TTL is set
if ($test!==false) {
$test_ttl = json_decode($User->settings->powerDNS);
if ($test_ttl->ttl==NULL) {
$Result->show("warning", "Please set default powerDNS values!", false);
}
}
?>
";
}
}
# search for free numbers in the end
if($User->user->hideFreeRange!=1) {
if ($k==sizeof($numbers)-1 && ( ($prefix->prefix_raw_stop - $n->number_raw)!=1) ) {
print "
";
}
else {
# add raw before loop
foreach ($subprefixes as $sp) {
# number to raw - just number
$sp->prefix_raw = $Tools->prefix_normalize ($sp->prefix);
$sp->prefix_raw_start = $Tools->prefix_normalize ($sp->prefix.$sp->start);
$sp->prefix_raw_stop = $Tools->prefix_normalize ($sp->prefix.$sp->stop);
}
# print
foreach ($subprefixes as $k=>$sp) {
# search for free space at beginning
if($User->user->hideFreeRange!=1) {
if ($k == 0 && $sp->prefix_raw_start!==$prefix->prefix_raw_start) {
print "
";
}
}
# search for free numbers in the end
if($User->user->hideFreeRange!=1) {
if ($k==sizeof($subprefixes)-1 && ( ($prefix->prefix_raw_stop - $n->prefix_raw_stop)!=1) ) {
print "
$User->mail_font_style_light Sent by user ".$User->user->real_name." at ".date('Y/m/d H:i')."
";
//set al content
$content_plain[] = "$subject"."\r\n------------------------------\r\n";
$content_plain[] = "Hi, new share was created on ".$User->settings->siteTitle.", available on following address:\r\n ".$url;
$content_plain[] = "\r\nDetails: \r\n".implode("\r\n", $tmp)."\r\n";
$content_plain[] = "\r\n\r\n"._("Sent by user")." ".$User->user->real_name." at ".date('Y/m/d H:i');
$content[] = "
settings->version //installed version (from database)
* VERSION //file version
* LAST_POSSIBLE //last possible for upgrade
*/
# authenticated, but not admins
if (!$User->is_admin(false)) {
# version is ok
if ($User->settings->version == VERSION) {
header("Location: ".create_link("login"));
}
# upgrade needed
else {
$title = 'phpipam upgrade required';
$content = '
";
$clear = false;
}
else {
$img = "![phpipam](css/".SCRIPT_PREFIX."/images/logo/logo.png){kind=logo}
";
}
?>
