+ $pos = strpos($str, '.');
+ if($pos !== false) {
+ $str = str_replace('.', '', $str);
+ if($pos == 0) {
+ return '0.' . format_decimals($str);
+ } elseif($pos == strlen($str)) {
+ return format_int($str);
+ } else {
+ return format_int(substr($str, 0, $pos)) . '.' . format_decimals(substr($str, $pos));
+ }
+ }
+ return format_int($str);
+}
+
+function format_positive_decimal($str) {
+ $str = _format_positive_decimal($str);
+ if($str === '0.0') {
+ $str = '0';
+ }
+ return $str;
+}
+
+function format_decimal($str) {
+ $str = ereg_replace('[^0-9.-]', '', $str);
+ if(substr($str, 0, 1) == '-') {
+ $str = format_positive_decimal(substr($str, 1));
+ if($str !== '' && $str !== '0') {
+ $str = '-' . $str;
+ }
+ return $str;
+ } else {
+ return format_positive_decimal($str);
+ }
+}
+
+# return 0 of there's no digits
+function format_int_0($str) {
+ $str = format_int($str);
+ if($str == '') {
+ return '0';
+ }
+ return $str;
+}
+
+# USA zip codes
+function format_zip($str) {
+ $str = ereg_replace('[^0-9]', '', $str);
+ if(strlen($str) > 5) {
+ return substr($str, 0, 5) . '-' . substr($str, 5);
+ }
+ return $str;
+}
+
+function format_filename($str, $allow_uppercase = false) {
+ if(!$allow_uppercase) {
+ $str = strtolower($str);
+ }
+ $str = ereg_replace('[^a-zA-Z0-9_.-]', '_', $str);
+ return ereg_replace('^[.-]', '_', $str);
+}
+
+function format_path($str, $allow_uppercase = false) {
+ if(!$allow_uppercase) {
+ $str = strtolower($str);
+ }
+ $str = ereg_replace('[^a-zA-Z0-9_./-]', '_', $str);
+ return ereg_replace('^[.-]', '_', $str);
+}
+
+function client_path_to_filename($path) {
+ $filename = ereg_replace(".*[:/\\]", '', $path);
+ return format_filename($filename, true);
+}
+
+
+function format_image_w_h($str) {
+ $fields = explode(' ', $str);
+ if(count($fields) != 3) {
+ return '';
+ }
+
+ list($filename, $width, $height) = $fields;
+ $filename = format_path($filename);
+ $width = format_int_0($width);
+ $height = format_int_0($height);
+
+ return "$filename $width $height";
+}
+
+function format_image_w_h_thumb_w_h($str) {
+ $fields = explode(' ', $str);
+ if(count($fields) != 6) {
+ return '';
+ }
+
+ list($filename, $width, $height, $thumb_filename, $thumb_width, $thumb_height) = $fields;
+ $filename = format_path($filename);
+ $width = format_int_0($width);
+ $height = format_int_0($height);
+ $thumb_filename = format_path($thumb_filename);
+ $thumb_width = format_int_0($thumb_width);
+ $thumb_height = format_int_0($thumb_height);
+
+ return "$filename $width $height $thumb_filename $thumb_width $thumb_height";
+}
+
+function format_varname($str) {
+ $str = strtolower($str);
+ $str = ereg_replace('[^a-z0-9_]', '_', $str);
+ return ereg_replace('^[0-9]*', '', $str);
+}
+
+function format_oneline($str) {
+ $str = str_replace("\r", '', $str);
+ return str_replace("\n", '', $str);
+}
+
+function format_unix($str) {
+ return unix_newlines($str);
+}
+
+function format_bool($str) {
+ if($str && $str !== 'No' && $str !== 'False' && $str !== 'false') {
+ return 1;
+ } else {
+ return 0;
+ }
+}
+
+function format_yesno($str) {
+ if($str && $str !== 'No' && $str !== 'False' && $str !== 'false') {
+ return 'Yes';
+ } else {
+ return 'No';
+ }
+}
+
+function format_email($str) {
+ # FIXME
+ return trim(format_oneline($str));
+}
+
+function format_url($str) {
+ # FIXME check for TLD? encode special chars?
+ $str = trim(format_oneline($str));
+ if($str !== '') {
+ if(strpos($str, ':') === false) {
+ $str = 'http://' . $str;
+ }
+ }
+ return $str;
+}
+
+# pass a string containing only numeric digits.
+# returns a string containing only numeric digits which is 1 greater.
+function strplusone($str) {
+ $ret = '';
+ $a = str_split($str);
+ $carry = 1;
+ while($a) {
+ $digit = array_pop($a);
+ $digit += $carry;
+ $carry = 0;
+ if($digit == 10) {
+ $carry = 1;
+ $digit = 0;
+ }
+ $ret = "$digit$ret";
+ }
+ if($carry) {
+ $ret = "$carry$ret";
+ }
+
+ return $ret;
+}
+
+# rounds properly to the nearest penny (or dollar if you pass false for the 2nd
+# parameter) and prints like so: $12,456.79 or $12,457
+function format_money($str, $display_cents = true) {
+ $str = format_decimal($str);
+ if($str == '') {
+ $str = '0';
+ }
+ if(strpos($str, '.')) {
+ list($int, $decimals) = explode('.', $str);
+ if(strlen($decimals) == 1) {
+ $decimals .= '0';
+ }
+ if($display_cents) {
+ if(strlen($decimals) > 2) {
+ # round up to the nearest penny
+ if(substr($decimals, 2, 1) >= 5) {
+ $decimals = strplusone(substr($decimals, 0, 2));
+ if($decimals == '100') {
+ $decimals = '00';
+ $int = strplusone($int);
+ }
+ } else {
+ $decimals = substr($decimals, 0, 2);
+ }
+ }
+ $cents = ".$decimals";
+ } else {
+ if(substr($decimals, 0, 1) >= 5) {
+ $int = strplusone($int);
+ }
+ }