2006-08-01 [wwp] 2.4.0cvs10
[claws.git] / tools / acroread2sylpheed.pl
index b8b2fec..581ee6e 100644 (file)
 #  *
 #  * You should have received a copy of the GNU General Public License
 #  * along with this program; if not, write to the Free Software
-#  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 #
 # acroread2sylpheed.pl helper script to send documents from
-#                              Adobe Reader 7 to sylpheed
+#                      Adobe Reader 7 to sylpheed-claws
 
 use strict;
 
 my $input = <>;
 
-my $option;
 my $pdf;
 my $output = $ARGV;
 
 if ($ARGV =~ m/^\//) {
-       $option = "KMAIL or MUTT";
+       $pdf = $output;
 } elsif ($ARGV =~ m/^mailto/) {
-       $option = "EVOLUTION";
+       my @parts = split(/&[a-z]*=/, $output);
+       $parts[0] =~ s/^mailto:\?attach=//;
+       $pdf = $parts[0];
 } elsif ($ARGV =~ m/^to/) {
-       $option = "MOZILLA or NETSCAPE";
-} else {
-       $option = "KMAIL";
-}
-
-if ($option eq "MOZILLA or NETSCAPE") {
        my @parts = split(/,/, $output);
        $parts[3] =~ s/^attachment=file:\/\///;
        $pdf = $parts[3];
-} elsif ($option eq "EVOLUTION") {
-       my @parts = split(/&[a-z]*=/, $output);
-       $parts[0] =~ s/^mailto:\?attach=//;
-       $pdf = $parts[0];
-} elsif ($option eq "KMAIL or MUTT") {
-       $pdf = $output;
-} elsif ($option eq "KMAIL") {
+} else {
        $pdf = $ENV{HOME}."/".$output;
 }
 
-exec "sylpheed --attach \"$pdf\"";
+exec "sylpheed-claws --attach \"$pdf\"";
 ## if necessary, change the line above to point to
-## your sylpheed executable
+## your sylpheed-claws executable
 
-exit;
\ No newline at end of file
+exit;