" );
print( "
\n" );
}
}
function plc_warning_html ($text) { return html_span($text,'plc-warning'); }
function plc_warning ($text) { print plc_warning_html("Warning " . $text); }
function bold_html ($text) { return html_span($text,'bold'); }
// shows a php variable verbatim with a heading message
function plc_debug ($message,$object) {
print "The following errors occured:
" ); print("- ");
foreach( $errors as $error )
print( "
- $error \n" ); print( "
" . $message . "
"; print_r ($object); print ""; } function plc_debug_txt ($message,$txt) { print "
" . $message . "
";
$txt=str_replace(" ","<SPC>",$txt);
$txt=str_replace("\t","<TAB>",$txt);
$txt=str_replace("\n","<LF>",$txt);
$txt=str_replace("\r","<CR>",$txt);
print $txt . "<EOF>";
print "";
}
$plc_prof_start=0.;
$plc_prof_time=0.;
$plc_prof_counter=0;
function plc_debug_prof_start () {
global $plc_prof_counter, $plc_prof_start, $plc_prof_time;
$plc_prof_counter=0;
plc_debug(strftime("[0] %T (start)") ,"heating up");
$plc_prof_time=microtime(true);
$plc_prof_start=$plc_prof_time;
}
function plc_debug_prof ($message,$object) {
global $plc_prof_counter, $plc_prof_start, $plc_prof_time;
$plc_prof_counter+=1;
$now=microtime(true);
$timelabel=strftime("%T");
$prof_message=sprintf("[%d] %s (%2.3f s -- %2.3f s) ",$plc_prof_counter,$timelabel,
($now-$plc_prof_time),($now-$plc_prof_start));
plc_debug($prof_message.$message,$object);
$plc_prof_time=$now;
}
function plc_debug_prof_end () {
plc_debug_prof ("end","cooling down");
}
if (! function_exists ("drupal_set_error")) {
function drupal_set_error ($text) {
drupal_set_message ("$text");
}
}
//////////////////////////////////////////////////////////// sort out for obsolete / trash
// builds a table from an array of strings, with the given class
// attempt to normalize the delete buttons and confirmations
function plc_delete_icon($width=15) {
return "
";
}
function plc_add_icon($width=15) {
return "
";
}
function plc_bubble($text,$bubble) {
return "$text";
}
function plc_delete_icon_bubble ($bubble,$width=15) {
return plc_bubble(plc_delete_icon($width),$bubble);
}
function plc_event_button($type,$param,$id) {
return ' 
';
}
function plc_comon_button ($id_name, $id_value,$target="") {
$result='';
$result.=' 
';
return $result;
}
////////////////////
function plc_redirect ($url) {
header ("Location: " . $url);
exit ();
}
//////////////////// the options for an nodetype - suitable for plekit/form
global $builtin_node_types;
$builtin_node_types = array ( "regular" => "Regular/Shared",
"reservable" => "Reservable (requires to get leases)");
function node_type_display ($api, $node_type) {
global $builtin_node_types;
$val=$builtin_node_types[$node_type];
if ( ! $val) $val="??undefined??";
return $val;
}
function node_type_selectors ($api,$node_type) {
global $builtin_node_types;
foreach ($builtin_node_types as $value=>$display) {
$selector=array('display'=>$display, 'value'=>$value);
if ($value == $node_type) $selector['selected']=true;
$selectors []= $selector;
}
return $selectors;
}
//////////////////// the options for an interface - suitable for plekit/form
//>>> GetNetworkMethods()
//[u'static', u'dhcp', u'proxy', u'tap', u'ipmi', u'unknown']
function interface_method_selectors ($api, $method, $primary) {
if ($primary) {
$builtin_methods=array("static"=>"Static",
"dhcp"=>"DHCP");
} else {
$builtin_methods=array("static"=>"Static",
"dhcp"=>"DHCP",
"proxy"=>"Proxy",
"tap"=>"TUN/TAP",
"ipmi"=>"IPMI");
}
$selectors=array();
foreach ($builtin_methods as $value=>$display) {
$selector=array('display'=>$display, 'value'=>$value);
if ($value == $method) $selector['selected']=true;
$selectors []= $selector;
}
return $selectors;
}
// displays bandwidth with kbps Mbps Gbps as needed
function pretty_bandwidth ($bw) {
if ($bw < 1000) return $bw;
if ($bw < 1000000) return strval($bw/1000) . " kbps";
if ($bw < 1000000000) return strval($bw/1000000) . " Mbps";
else return strval($bw/1000000000) . " Gbps";
}
////////////////////
function instantiation_label ($slice) {
$instantiation_labels = array ('not-instantiated'=>'NOT',
'plc-instantiated'=>'PLC',
'delegated' => 'DEL',
'nm-controller' => 'NM');
$result=$instantiation_labels[$slice['instantiation']];
if (!$result) $result = $slice['instantiation'];
if (!$result) $result = '??';
return $result;
}
//////////////////// toggle areas
// get_arg ('show_persons',false) returns $_GET['show_persons'] if set and false otherwise
function get_arg ($name,$default,$method='get') {
if ($method == 'get') $var=$_GET; else $var=$_POST;
if (isset ($var[$name])) return $var[$name];
else return $default;
}
//////////////////// number of ...
function count_english ($objs,$name) {
$count=count($objs);
if ($count == 0) return 'No ' . $name;
else if ($count == 1) return 'One ' . $name;
else return $count . ' ' . $name . 's';
}
function count_english_warning ($objs, $name) {
$x=count_english ($objs,$name);
if (count ($objs) == 0) $x=plc_warning_html($x . ' !!');
return $x;
}
//////////////////// outlining reservable nodes
function reservable_mark () { return "-R-";}
function reservable_legend () { return "reservable nodes are marked with " . reservable_mark (); }
?>