364dca713f736e53759caeba4ba07051ff956da6
[claws.git] / tools / nautilus2sylpheed.sh
1 #!/bin/bash
2
3 # nautilus2sylpheed.sh
4 # Copyright 2004 Reza Pakdel <hrpakdel@cpsc.ucalgary.ca>
5
6 # This program is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU General Public License
8 # as published by the Free Software Foundation; either version 2
9 # of the License, or (at your option) any later version.
10 #
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 # GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License
17 # along with this program; if not, write to the Free Software
18 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
19 # 02111-1307, USA.
20
21 # This script will recursively attach a number of selected 
22 # files/directories from Nautilus to a new blank e-mail.
23
24 attachments=""
25
26 attach_dir()
27 {   
28     if [ -d $1 ] 
29     then
30         for j in $(ls $1)
31         do
32           attach_dir $1"/"$j
33         done
34     else
35         attachments="$attachments $1"
36     fi
37 }
38
39 for i in $*
40 do
41   if [ -d $i ]
42   then
43       for file in $(ls $i)
44       do
45         attach_dir $i"/"$file
46       done
47   else
48       attachments="$attachments $i";
49   fi  
50 done
51
52 echo "-----------"
53 echo $attachments
54 sylpheed --compose --attach $attachments
55