4 * Description: Unit converter application
6 * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
8 use Friendica\Core\Hook;
10 function convert_install() {
11 Hook::register('app_menu', 'addon/convert/convert.php', 'convert_app_menu');
14 function convert_app_menu($a,&$b) {
15 $b['app_menu'][] = '<div class="app-title"><a href="convert">Units Conversion</a></div>';
19 function convert_module() {}
27 function convert_content($app) {
29 include("UnitConvertor.php");
31 class TP_Converter extends UnitConvertor {
32 function TP_Converter($lang = "en")
35 $dec_point = '.'; $thousand_sep = "'";
37 $dec_point = '.'; $thousand_sep = ",";
40 $this->UnitConvertor($dec_point , $thousand_sep );
42 } // end func UnitConvertor
44 function find_base_unit($from,$to) {
45 while (list($skey,$sval) = each($this->bases)) {
46 if ($skey == $from || $to == $skey || in_array($to,$sval) || in_array($from,$sval)) {
53 function getTable($value, $from_unit, $to_unit, $precision) {
55 if ($base_unit = $this->find_base_unit($from_unit,$to_unit)) {
57 // A baseunit was found now lets convert from -> $base_unit
59 $cell ['value'] = $this->convert($value, $from_unit, $base_unit, $precision)." ".$base_unit;
60 $cell ['class'] = ($base_unit == $from_unit || $base_unit == $to_unit) ? "framedred": "";
62 // We now have the base unit and value now lets produce the table;
63 while (list($key,$val) = each($this->bases[$base_unit])) {
64 $cell ['value'] = $this->convert($value, $from_unit, $val, $precision)." ".$val;
65 $cell ['class'] = ($val == $from_unit || $val == $to_unit) ? "framedred": "";
70 $string = "<table class=\"framed grayish\" border=\"1\" cellpadding=\"5\" width=\"80%\" align=\"center\"><tr>";
71 $string .= "<td rowspan=\"$cc\" align=\"center\">$value $from_unit</td>";
73 foreach ($cells as $cell) {
75 $string .= "<td class=\"".$cell['class']."\">".$cell['value']."</td>";
78 $string .= "</tr><tr><td class=\"".$cell['class']."\">".$cell['value']."</td>";
81 $string .= "</tr></table>";
89 $conv = new TP_Converter('en');
93 'Temperature'=>['base' =>'Celsius',
95 'Fahrenheit'=>['ratio'=>1.8, 'offset'=>32],
96 'Kelvin'=>['ratio'=>1, 'offset'=>273],
100 'Weight' => ['base' =>'kg',
108 'cwt(UK)' => 0.019684,
109 'cwt(US)' => 0.022046,
110 'ton (US)' => 0.0011023,
111 'ton (UK)' => 0.0009842
114 'Distance' => ['base' =>'km',
121 'naut.mile'=>0.53996,
125 'furlong'=>4.970969537898672,
126 'fathom'=>546.8066491688539
129 'Area' => ['base' =>'km 2',
134 'dm 2'=>pow(10000,2),
135 'cm 2'=>pow(100000,2),
136 'mm 2'=>pow(1000000,2),
137 'mile 2'=>pow(0.62137,2),
138 'naut.miles 2'=>pow(0.53996,2),
139 'in 2'=>pow(39370,2),
140 'ft 2'=>pow(3280.8,2),
141 'yd 2'=>pow(1093.6,2),
144 'Volume' => ['base' =>'m 3',
159 'tablespoon' => 67628.04,
160 'teaspoon' => 202884.1,
161 'pt (UK)'=>1000/0.56826,
162 'barrel petroleum'=>1000/158.99,
163 'Register Tons'=>2.832,
167 'Speed' =>['base' =>'kmph',
172 'mach STP'=>0.0008380431,
173 'c (warp)'=>9.265669e-10
179 while (list($key,$val) = each($conversions)) {
180 $conv->addConversion($val['base'], $val['conv']);
181 $list[$key][] = $val['base'];
182 while (list($ukey,$uval) = each($val['conv'])) {
183 $list[$key][] = $ukey;
187 $o .= '<h3>Unit Conversions</h3>';
190 if (isset($_POST['from_unit']) && isset($_POST['value'])) {
191 $_POST['value'] = $_POST['value'] + 0;
194 $o .= ($conv->getTable($_POST['value'], $_POST['from_unit'], $_POST['to_unit'], 5))."</p>";
196 $o .= "<p>Select:</p>";
199 if(isset($_POST['value']))
200 $value = $_POST['value'];
204 $o .= '<form action="convert" method="post" name="conversion">';
205 $o .= '<input name="value" type="text" id="value" value="' . $value . '" size="10" maxlength="10" />';
206 $o .= '<select name="from_unit" size="12">';
211 while(list($key,$val) = each($list)) {
212 $o .= "\n\t<optgroup label=\"$key\">";
213 while(list($ukey,$uval) = each($val)) {
214 $selected = (($uval == $_POST['from_unit']) ? ' selected="selected" ' : '');
215 $o .= "\n\t\t<option value=\"$uval\" $selected >$uval</option>";
217 $o .= "\n\t</optgroup>";
222 $o .= '<input type="submit" name="Submit" value="Submit" /></form>';