1  #!/usr/bin/perl -w
   2 
   3     # By John Russell
   4 
   5     # and hacked to work with thunderbird by Darrell
   6 
   7     # This script sends the selected file(s) with mozilla-thunderbird.
   8 
   9     use strict;
  10 
  11     my $attach_string="\"attachment='";
  12 
  13     my @files = split("\n", $ENV{NAUTILUS_SCRIPT_SELECTED_FILE_PATHS});
  14 
  15     my $count = 0;
  16 
  17     foreach my $file (@files)
  18 
  19     {
  20 
  21         if ( ! -f $file && ! -l $file )
  22 
  23         {
  24 
  25             my @dialog = ("gdialog","--title","Error","--msgbox", "\nError: Can not send $file. \n\n    Only regular files can be mailed.    ","200", "300");
  26 
  27             system (@dialog);
  28 
  29         }
  30 
  31         else
  32 
  33         {
  34 
  35            $attach_string = $attach_string . "file://" . $file . ",";
  36 
  37                shift;
  38 
  39             $count += 1;
  40 
  41         }
  42 
  43     }
  44 
  45     if ($count > 0)
  46 
  47     {
  48 
  49         $attach_string = $attach_string . "'\"";
  50 
  51     # replace spaces with '%20' as demanded by mozilla/thunderbird    
  52 
  53         $attach_string =~ s/\s/%20/g;
  54 
  55     # invoke shell script to call thunderbird differently depending on whether it's running already or not
  56 
  57         my $command = ("~/scripts/thunderbird-email-attachments " . $attach_string);
  58 
  59         system($command);
  60 
  61     }