1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
# $Id: ViewAttachment.pm,v 1.2 2001/02/03 16:22:54 muhri Exp $
# -*- perl -*-
package Pronto::ViewAttachment;
use strict;
use SelfLoader;
1;
__DATA__
sub view_attachment {
my ($widget, $source, $type, $use_db) = @_;
my($window,$vbox,$type_entry,$command_entry,$icon_entry,$button,$button2,$hbox,$label,$sql,$query,@row,@command);
if($use_db eq 'y') {
$sql = "select id,mime,command,icon from mimetypes where mime=?";
$query = $main::conn->prepare($sql);
$query->execute($type);
if(@row=$query->fetchrow_array) {
@command = split(/ /,$row[2]);
if(-f $command[0]) {
my $child;
$row[2] =~ s/\%f/\"$source\"/g;
unless ($child = fork) {
die "cannot fork: $~" unless defined $child;
exec($row[2]);
}
}
else {
&main::err_dialog(_("You must specify an executalbe that exists for "). $row[1]);
}
return 1;
}
}
$window = new Gtk::Window("toplevel");
$window->set_position("mouse");
$window->set_title(_("View Attachment"));
$window->set_default_size('130','80');
$window->signal_connect("destroy" => sub{$window->destroy;});
$window->signal_connect("delete_event" => \&Gtk::false);
$vbox = new Gtk::VBox(1,1);
$window->add($vbox);
$vbox->show;
$hbox = new Gtk::HBox(0,0);
$vbox->pack_start($hbox,0,0,0);
$hbox->show;
$label = new Gtk::Label(_("Mime-Type:"));
$hbox->pack_start($label,0,0,0);
$label->show;
$type_entry = new Gtk::Entry();
$type_entry->set_text($type);
$hbox->pack_start($type_entry,0,0,0);
$type_entry->show;
$hbox = new Gtk::HBox(0,0);
$vbox->pack_start($hbox,0,0,0);
$hbox->show;
$label = new Gtk::Label(_("Command:"));
$hbox->pack_start($label,0,0,0);
$label->show;
$command_entry = new Gtk::Entry();
$hbox->pack_start($command_entry,0,0,0);
$command_entry->show;
$button=new Gtk::Button(_("Browse"));
$button->signal_connect("clicked" => \&init_browse_dlg, $command_entry, "attachment_command");
$button->set_usize(55,25);
$hbox->pack_start($button,0,0,0);
$button->show;
if($use_db eq 'y') {
$hbox = new Gtk::HBox(0,0);
$vbox->pack_start($hbox,0,0,0);
$hbox->show;
$label = new Gtk::Label(_("Icon:"));
$hbox->pack_start($label,0,0,0);
$label->show;
$icon_entry = new Gtk::Entry();
$hbox->pack_start($icon_entry,0,0,0);
$icon_entry->show;
$button=new Gtk::Button(_("Browse"));
$button->signal_connect("clicked" => \&init_browse_dlg, $icon_entry, "attachment_icon");
$button->set_usize(55,25);
$hbox->pack_start($button,0,0,0);
$button->show;
}
$button = new Gtk::Button(_("Execute"));
$button->signal_connect('clicked' =>
sub {
my $command = $command_entry->get_text();
@command = split(/ /,$command);
if(-f $command[0]) {
if($use_db eq 'y') {
my $id = &main::newid("mimetypes",$main::conn);
$sql = "insert into mimetypes (id,mime,command,icon)
values (?,?,?,?)";
$query = $main::conn->prepare($sql);
$query->execute($id,$type,$command_entry->get_text(),$icon_entry->get_text());
}
$command =~ s/\%f/$source/g;
my $child;
unless ($child = fork) {
die "cannot fork: $~" unless defined $child;
exec("$command");
}
$window->destroy;
}
});
$vbox->pack_start($button,0,0,0);
$button->show;
$window->show;
return 1;
}
sub init_browse_dlg {
my ($widget, $entry, $dlg_type) = @_;
my ($fs_window);
$fs_window = new Gtk::FileSelection _("Choose Directory...");
$fs_window->position(-mouse);
$fs_window->signal_connect("destroy", sub {$fs_window->destroy;});
$fs_window->signal_connect("delete_event" => \&Gtk::false);
if($dlg_type eq "attachment_command") {
$fs_window->set_title(_("Select Viewer ..."));
$fs_window->ok_button->signal_connect("clicked", \&check_view_attachment, $fs_window, $entry);
}elsif($dlg_type eq "attachment_icon") {
$fs_window->set_title(_("Select Icon ..."));
$fs_window->ok_button->signal_connect("clicked", \&check_icon_attachment, $fs_window, $entry);
}
$fs_window->cancel_button->signal_connect("clicked", sub {$fs_window->destroy;});
$fs_window->show;
return 1;
}
sub check_view_attachment {
my ($widget, $fs_window, $entry) = @_;
if (-f $fs_window->get_filename) {
$entry->set_text($fs_window->get_filename . " \%f");
$fs_window->destroy;
return 1;
} else {
&main::err_dialog(_("You must select a Viewer"));
return 1;
}
}
sub check_icon_attachment {
my ($widget, $fs_window, $entry) = @_;
if ((-f $fs_window->get_filename) && ($fs_window->get_filename =~ /(bmp|gif|jpg|jpeg|png)$/i)) {
$entry->set_text($fs_window->get_filename());
$fs_window->destroy;
return 1;
} else {
&main::err_dialog(_("You must select a Icon"));
return 1;
}
}
|
