1   #!/usr/bin/perl -w
   2 
   3     # By John Russell
   4 
   5     # This script sends the selected file(s) with your email client.
   6 
   7     use strict;
   8 
   9     my $MAILTO_URL="mailto:?";
  10 
  11     my @files = split("\n", $ENV{NAUTILUS_SCRIPT_SELECTED_FILE_PATHS});
  12 
  13     my $count = 0;
  14 
  15     foreach my $file (@files)
  16 
  17     {
  18 
  19         if ( ! -f $file && ! -l $file )
  20 
  21         {
  22 
  23             my @dialog = ("gdialog","--title","Error","--msgbox", "\nError: Can not send $file.    \n\n    Only regular files can be mailed.    ","200", "300");
  24 
  25             system (@dialog);
  26 
  27         }
  28 
  29         else
  30 
  31         {
  32 
  33            $MAILTO_URL = $MAILTO_URL . "attach=" . $file . "&";
  34 
  35                shift;
  36 
  37             $count += 1;
  38 
  39         }
  40 
  41     }
  42 
  43     if ($count > 0)
  44 
  45     {
  46 
  47         my @command = ("gnome-open", $MAILTO_URL);
  48 
  49         system(@command);
  50 
  51     }