Add image width and height tokens for files (add an image token type?)

The following patch adds support for including WIDTHxHEIGHT in the filenames upon upload.

@@ -498,6 +498,10 @@ function filefield_paths_token_info() {
     'name' => t("File extension - original"),
     'description' => t("File extension - original."),
   );
+  $info['tokens']['file']['ffp-dimensions'] = array(
+    'name' => t("Image dimensions"),
+    'description' => t("Image dimensions, WIDTHxHEIGHT"),
+  );
   return $info;
 }

@@ -535,6 +539,18 @@ function filefield_paths_tokens($type, $tokens, array $data = array(), array $op
           $info = pathinfo($file->origname);
           $replacements[$original] = $info['extension'];
           break;
+          
+        case 'ffp-dimensions':
+          $dimensions = '';
+          $filemime = explode('/', $file->filemime);
+          if ($filemime[0] == 'image') {
+            $image_info = image_get_info(drupal_realpath($file->uri));
+            if ($image_info['width'] && $image_info['height']) {
+              $dimensions = $image_info['width'] .'x'. $image_info['height'];
+            }
+          }
+          $replacements[$original] = $dimensions;
+          break;
       }
     }
   }