1 | #!/usr/athena/bin/perl -w |
---|
2 | # -*- coding: utf-8 -*- |
---|
3 | # Convert GNOME 1 panel settings and applets → GNOME 2 GConf keys |
---|
4 | # Copyright © 2002 Colin Walters <walters@verbum.org> |
---|
5 | # $Id: gnome-panel-1-to-2,v 1.3 2003-04-22 15:34:32 ghudson Exp $ |
---|
6 | |
---|
7 | # This program is free software; you can redistribute it and/or modify |
---|
8 | # it under the terms of the GNU General Public License as published by |
---|
9 | # the Free Software Foundation; either version 2 of the License, or |
---|
10 | # (at your option) any later version. |
---|
11 | |
---|
12 | # This program is distributed in the hope that it will be useful, |
---|
13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
15 | # GNU General Public License for more details. |
---|
16 | |
---|
17 | # You should have received a copy of the GNU General Public License |
---|
18 | # along with this program; if not, write to the Free Software |
---|
19 | # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
---|
20 | |
---|
21 | ###### #### ### ## # # # |
---|
22 | # NOTE: This script should be run in the user's home directory. |
---|
23 | ###### #### ### ## # # # |
---|
24 | |
---|
25 | use POSIX; |
---|
26 | |
---|
27 | my $cwd = POSIX::getcwd(); |
---|
28 | |
---|
29 | my $no_act = 0; |
---|
30 | foreach my $arg (@ARGV) { |
---|
31 | if ($arg eq '-n') { |
---|
32 | $no_act = 1; |
---|
33 | } |
---|
34 | } |
---|
35 | |
---|
36 | sub log { |
---|
37 | print "gnome-panel-1-to-2: " . join(' ', @_) . "\n"; |
---|
38 | } |
---|
39 | |
---|
40 | my $panelconfigfile = ".gnome/panel.d/default/panel"; |
---|
41 | my $appletconfigfile = ".gnome/panel.d/default/Applet_Config"; |
---|
42 | |
---|
43 | open(F, $panelconfigfile) or die "Couldn't open $panelconfigfile\n: $!"; |
---|
44 | my ($panel_count, $applet_count) = (0,0); |
---|
45 | while (<F>) { |
---|
46 | /panel_count=(.+)$/ and $panel_count = $1; |
---|
47 | /applet_count=(.+)$/ and $applet_count = $1; |
---|
48 | } |
---|
49 | close(F); |
---|
50 | &log("panel_count: $panel_count"); |
---|
51 | &log("applet_count: $applet_count\n"); |
---|
52 | |
---|
53 | # From gnome-panel-2.0.10/gnome-panel/panel.c, line 101 |
---|
54 | my %panel_type_map = (0 => "edge-panel", |
---|
55 | 1 => "drawer-panel", |
---|
56 | 2 => "aligned-panel", |
---|
57 | 3 => "sliding-panel", |
---|
58 | 4 => "floating-panel", |
---|
59 | 5 => "menu-panel"); |
---|
60 | |
---|
61 | # From gnome-core-1.4.0.6/panel/session.c, line 1357 |
---|
62 | my %old_panel_size_map = (0 => "panel-size-xx-small", |
---|
63 | 1 => "panel-size-medium", |
---|
64 | 2 => "panel-size-large", |
---|
65 | 3 => "panel-size-x-large"); |
---|
66 | |
---|
67 | my %panel_align_map = (0 => "panel-alignment-left", |
---|
68 | 2 => "panel-alignment-right"); |
---|
69 | |
---|
70 | my %panel_anchor_map = (0 => "panel-anchor-left", |
---|
71 | 1 => "panel-anchor-right"); |
---|
72 | |
---|
73 | # From gnome-core-1.4.0.6/panel/panel-types.h, line 15 |
---|
74 | my @panel_size_associations = ([12, "panel-size-xx-small"], [24, "panel-size-x-small"], |
---|
75 | [36, "panel-size-small"], [48, "panel-size-medium"], |
---|
76 | [64, "panel-size-large"], , [80, "panel-size-x-large"], |
---|
77 | [128, "panel-size-xx-large"]); |
---|
78 | |
---|
79 | # From gnome-core-1.4.0.6/panel/panel-types.h, line 52 |
---|
80 | my %old_panel_edge_map = (0 => "panel-edge-top", |
---|
81 | 1 => "panel-edge-right", |
---|
82 | 2 => "panel-edge-bottom", |
---|
83 | 3 => "panel-edge-left"); |
---|
84 | |
---|
85 | sub sprintf_objid { |
---|
86 | my $id = shift; |
---|
87 | return sprintf("%08d", $id); |
---|
88 | } |
---|
89 | |
---|
90 | sub system_internal { |
---|
91 | my @cmd = @_; |
---|
92 | if (not $no_act) { |
---|
93 | system(@cmd) == 0 or die "Command \"" . join(' ', @cmd) . "\" exited with an error: $?"; |
---|
94 | } |
---|
95 | } |
---|
96 | |
---|
97 | sub mysystem { |
---|
98 | my @cmd = @_; |
---|
99 | &log("running: " . join(' ', @_)); |
---|
100 | system_internal(@_); |
---|
101 | } |
---|
102 | |
---|
103 | sub gconftool { |
---|
104 | my ($path, $type, $value) = @_; |
---|
105 | my @cmd = ("gconftool-2", "-s", "$path", "-t", "$type", "--", "$value"); |
---|
106 | mysystem(@cmd); |
---|
107 | } |
---|
108 | |
---|
109 | sub gconftool_list { |
---|
110 | my ($path, $subtype, $value) = @_; |
---|
111 | my @cmd = ("gconftool-2", "-s", "$path", "--type=list", "--list-type=$subtype", "--", "$value"); |
---|
112 | mysystem(@cmd); |
---|
113 | } |
---|
114 | |
---|
115 | # Create the panels |
---|
116 | open(F, $panelconfigfile) or die "Couldn't open $panelconfigfile\n: $!"; |
---|
117 | my $line; |
---|
118 | @panel_id_list = (); |
---|
119 | $panel_id_count = 1; |
---|
120 | %panel_unique_id_map = (); |
---|
121 | while ($line = <F>) { |
---|
122 | if ($line =~ /\[Panel_(\d+)\]/) { |
---|
123 | my $current_panelid = $1; |
---|
124 | &log("reading panel entry $current_panelid"); |
---|
125 | # skip unused panels |
---|
126 | if ($current_panelid > $panel_count) { |
---|
127 | &log("skipping panel id $current_panelid (> $panel_count)"); |
---|
128 | next; |
---|
129 | } |
---|
130 | push @panel_id_list, sprintf_objid($panel_id_count); |
---|
131 | my $scount = sprintf_objid($panel_id_count); |
---|
132 | # set up some sane defaults |
---|
133 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_background_pixmap_stretch", "boolean", "false"); |
---|
134 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_background_pixmap_fit", "boolean", "true"); |
---|
135 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_background_pixmap_rotate", "boolean", "true"); |
---|
136 | gconftool("/apps/panel/profiles/default/panels/$scount/hide_buttons_enabled", "boolean", "false"); |
---|
137 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_background_type", "string", "no-background"); |
---|
138 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_background_color", "string", "#000000"); |
---|
139 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_background_pixmap", "string", ""); |
---|
140 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_type", "string", "edge-panel"); |
---|
141 | while (defined(($line = <F>)) and $line =~ /^\w+/) { |
---|
142 | if ($line =~ /^hidebuttons_enabled=(.+)$/) { |
---|
143 | gconftool("/apps/panel/profiles/default/panels/$scount/hide_buttons_enabled", "boolean", $1); |
---|
144 | } elsif ($line =~ /^screen=(.+)$/) { |
---|
145 | gconftool("/apps/panel/profiles/default/panels/$scount/screen_id", "int", $1); |
---|
146 | } elsif ($line =~ /^type=(.+)$/) { |
---|
147 | my $mappedtype = $panel_type_map{$1}; |
---|
148 | if ($mappedtype =~ /edge-panel/) { |
---|
149 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_hide_mode", "int", "0"); |
---|
150 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_hide_state", "int", "0"); |
---|
151 | } |
---|
152 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_type", "string", $mappedtype); |
---|
153 | } elsif ($line =~ /^edge=(.+)$/) { |
---|
154 | gconftool("/apps/panel/profiles/default/panels/$scount/screen_edge", "string", $old_panel_edge_map{$1}) |
---|
155 | } elsif ($line =~ /^align=(.+)$/) { |
---|
156 | my $align = $1; |
---|
157 | if (not $panel_align_map{$align}) { |
---|
158 | &log("Unknown panel alignment $align") |
---|
159 | } |
---|
160 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_align", "string", $panel_align_map{$align} || "panel-alignment-left") |
---|
161 | } elsif ($line =~ /^anchor=(.+)$/) { |
---|
162 | my $anchor = $1; |
---|
163 | if (not $panel_anchor_map{$anchor}) { |
---|
164 | &log("Unknown panel anchor $anchor") |
---|
165 | } |
---|
166 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_anchor", "string", $panel_anchor_map{$anchor} || "panel-anchor-left") |
---|
167 | } elsif ($line =~ /^unique_id=(.+)$/) { |
---|
168 | my $uniqueid = $1; |
---|
169 | &log("making entry in unique id map: $uniqueid => $panel_id_count"); |
---|
170 | # Store this unique ID; it's used later when figuring out |
---|
171 | # which applets go to which panel. |
---|
172 | $panel_unique_id_map{$uniqueid} = $panel_id_count; |
---|
173 | } elsif ($line =~ /^sz=(.+)$/) { |
---|
174 | my $size = $1; |
---|
175 | my $found = 0; |
---|
176 | foreach my $entry (@panel_size_associations) { |
---|
177 | if ((not $found) and $size <= $entry->[0]) { |
---|
178 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_size", "string", $entry->[1]); |
---|
179 | $found = 1; |
---|
180 | } |
---|
181 | } |
---|
182 | if (not $found) { |
---|
183 | gconftool("/apps/panel/profiles/default/panels/$scount/panel_size", "string", "panel-size-medium"); |
---|
184 | } |
---|
185 | } |
---|
186 | } |
---|
187 | $panel_id_count++; |
---|
188 | } |
---|
189 | } |
---|
190 | my $liststr = "[" . join(',', @panel_id_list) . "]"; |
---|
191 | gconftool_list("/apps/panel/profiles/default/general/panel_id_list", "string", $liststr); |
---|
192 | |
---|
193 | &log("finished reading panel config file"); |
---|
194 | close(F); |
---|
195 | |
---|
196 | &log("converting .desktop files"); |
---|
197 | my $gnome1dir = ".gnome/panel.d/default/launchers/"; |
---|
198 | my $gnome2dir = ".gnome2/panel2.d/default/launchers/"; |
---|
199 | if (-d $gnome1dir) { |
---|
200 | &mysystem("mkdir", "-p", $gnome2dir); |
---|
201 | opendir (DIR, $gnome1dir) or die "Couldn't open $gnome1dir: $!"; |
---|
202 | foreach my $entry (readdir(DIR)) { |
---|
203 | if (not $entry =~ /^\.\.?$/) { |
---|
204 | &mysystem("cp", "-p", $gnome1dir . $entry, $gnome2dir); |
---|
205 | } |
---|
206 | } |
---|
207 | closedir(DIR); |
---|
208 | } |
---|
209 | |
---|
210 | # Create the applets and launchers. |
---|
211 | open(F, $appletconfigfile) or die "Couldn't open $appletconfigfile\n: $!"; |
---|
212 | &log("Reading applet config file"); |
---|
213 | |
---|
214 | my @applet_id_list = (); |
---|
215 | my $applet_id_count = 1; |
---|
216 | my @object_id_list = (); |
---|
217 | my $object_id_count = 1; |
---|
218 | LINE: while (defined ($line = <F>)) { |
---|
219 | if ($line =~ /\[Applet_(\d+)\]/) { |
---|
220 | my $appletnumber = $1; |
---|
221 | &log("Reading applet/object id $appletnumber"); |
---|
222 | my $appletexternfile = ".gnome/panel.d/default/Applet_" . "$appletnumber" . "_Extern"; |
---|
223 | my @lines; |
---|
224 | while (defined(($line = <F>)) and $line =~ /^\w+/) { |
---|
225 | push(@lines, $line); |
---|
226 | } |
---|
227 | my ($appletid, $count, $scount, $type) = (undef, undef, undef, undef); |
---|
228 | foreach my $line (@lines) { |
---|
229 | if ($line =~ /^id=(.+)$/) { |
---|
230 | $appletid = $1; |
---|
231 | if ($appletid =~ /Extern/) { |
---|
232 | $count = $applet_id_count; |
---|
233 | $scount = sprintf_objid($count); |
---|
234 | gconftool("/apps/panel/profiles/default/applets/$scount/object_type", "string", "bonobo-applet"); |
---|
235 | push @applet_id_list, sprintf_objid($applet_id_count); |
---|
236 | $applet_id_count++; |
---|
237 | $type = 'applets'; |
---|
238 | } elsif ($appletid =~ /Launcher/) { |
---|
239 | $count = $object_id_count; |
---|
240 | $scount = sprintf_objid($count); |
---|
241 | gconftool("/apps/panel/profiles/default/objects/$scount/panel_right_stick", "boolean", "false"); |
---|
242 | gconftool("/apps/panel/profiles/default/objects/$scount/object_type", "string", "launcher-object"); |
---|
243 | push @object_id_list, sprintf_objid($object_id_count); |
---|
244 | $count = $object_id_count; |
---|
245 | $object_id_count++; |
---|
246 | $type = 'objects'; |
---|
247 | } elsif ($appletid =~ /Menu/) { |
---|
248 | $count = $object_id_count; |
---|
249 | $scount = sprintf_objid($count); |
---|
250 | # Athena local mod: in GNOME 1, we hacked the default menu |
---|
251 | # path; in GNOME 2, we use a schemas file to set a path and |
---|
252 | # custom icon and to turn off the main-menu flags. We have |
---|
253 | # to do the same in translation. |
---|
254 | gconftool("/apps/panel/profiles/default/objects/$scount/path", "string", "file:///var/athena/menus"); |
---|
255 | gconftool("/apps/panel/profiles/default/objects/$scount/global-main", "boolean", "false"); |
---|
256 | gconftool("/apps/panel/profiles/default/objects/$scount/main-menu", "boolean", "false"); |
---|
257 | gconftool("/apps/panel/profiles/default/objects/$scount/object_type", "string", "menu-object"); |
---|
258 | gconftool("/apps/panel/profiles/default/objects/$scount/custom-icon", "boolean", "true"); |
---|
259 | gconftool("/apps/panel/profiles/default/objects/$scount/custom-icon-file", "string", "/usr/athena/share/gnome/athena/menu-icon"); |
---|
260 | push @object_id_list, sprintf_objid($object_id_count); |
---|
261 | $count = $object_id_count; |
---|
262 | $object_id_count++; |
---|
263 | $type = 'objects'; |
---|
264 | } elsif ($appletid =~ /Logout/) { |
---|
265 | # Athena local mod: understand the logout button. Treat it |
---|
266 | # in a very Athena-specific way; in our environment, the |
---|
267 | # logout button needs to be a launcher which runs |
---|
268 | # gathlogout, because we don't run a session manager. |
---|
269 | $count = $object_id_count; |
---|
270 | $scount = sprintf_objid($count); |
---|
271 | gconftool("/apps/panel/profiles/default/objects/$scount/panel_right_stick", "boolean", "false"); |
---|
272 | gconftool("/apps/panel/profiles/default/objects/$scount/object_type", "string", "launcher-object"); |
---|
273 | gconftool("/apps/panel/profiles/default/objects/$scount/launcher_location", "string", "file:///usr/athena/share/gnome/athena/logout.desktop"); |
---|
274 | push @object_id_list, sprintf_objid($object_id_count); |
---|
275 | $count = $object_id_count; |
---|
276 | $object_id_count++; |
---|
277 | $type = 'objects'; |
---|
278 | } else { |
---|
279 | &log("warning: unknown Applet id=$appletid"); |
---|
280 | $appletid = undef; |
---|
281 | } |
---|
282 | } |
---|
283 | } |
---|
284 | if (not $appletid) { |
---|
285 | &log("Skipping this applet: unknown appletid"); |
---|
286 | next LINE; |
---|
287 | } |
---|
288 | # Handle applets specially |
---|
289 | if ($appletid =~ /Extern/) { |
---|
290 | my $valid_goadid = 1; |
---|
291 | my $goadid = "!unspecified!"; |
---|
292 | foreach my $line (@lines) { |
---|
293 | if ($line =~ /goad_id=(.+)$/) { |
---|
294 | $goadid = $1; |
---|
295 | if ($goadid =~ /clock/i) { |
---|
296 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_ClockApplet"); |
---|
297 | # FIXME: set up sane defaults for now; we shoudl really pick these from the old prefs |
---|
298 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/show_seconds", "boolean", "true"); |
---|
299 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/show_tooltip", "boolean", "true"); |
---|
300 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/gmt_time", "boolean", "false"); |
---|
301 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/unix_time", "boolean", "false"); |
---|
302 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/hour_format", "int", "24"); |
---|
303 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/internet_time", "boolean", "false"); |
---|
304 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/show_date", "boolean", "true"); |
---|
305 | } elsif ($goadid =~ /deskguide/i) { |
---|
306 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_PagerApplet"); |
---|
307 | # FIXME: set up sane defaults for now; we shoudl really pick these from the old prefs |
---|
308 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/num_rows", "int", "1"); |
---|
309 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/display_all_workspaces", "boolean", "true"); |
---|
310 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/display_workspace_names", "boolean", "false"); |
---|
311 | } elsif ($goadid =~ /mixer/i) { |
---|
312 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_MixerApplet"); |
---|
313 | } elsif ($goadid =~ /geyes/i) { |
---|
314 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_GeyesApplet"); |
---|
315 | # Theme stuff doesn't appear to be compatible; just ignore... |
---|
316 | } elsif ($goadid =~ /tasklist/i) { |
---|
317 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_TasklistApplet"); |
---|
318 | my $group_windows = "auto"; |
---|
319 | my $display_all_workspaces = "false"; |
---|
320 | my $move_unminimized_windows = "true"; |
---|
321 | if (-f $appletexternfile) { |
---|
322 | open(EXTFILE, $appletexternfile) or die "Couldn't open $appletexternfile\n: $!"; |
---|
323 | while (<EXTFILE>) { |
---|
324 | if (/^enable_grouping=(.+)$/) { |
---|
325 | my $grouping =$1; |
---|
326 | if ($grouping =~ /false/) { |
---|
327 | $group_windows = "never"; |
---|
328 | } |
---|
329 | } elsif (/^all_desks_normal=(.+)$/) { |
---|
330 | $display_all_workspaces = $1; |
---|
331 | } elsif (/^move_to_current=(.+)$/) { |
---|
332 | $move_unminimized_windows = $1; |
---|
333 | } |
---|
334 | } |
---|
335 | close(EXTFILE); |
---|
336 | } |
---|
337 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/group_windows", "string", $group_windows); |
---|
338 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/display_all_workspaces", "boolean", $display_all_workspaces); |
---|
339 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/move_unminimized_windows", "boolean", $move_unminimized_windows); |
---|
340 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/maximum_size", "int", "4096"); |
---|
341 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/minimum_size", "int", "50"); |
---|
342 | } elsif ($goadid =~ /battery_applet/i) { |
---|
343 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_BattstatApplet"); |
---|
344 | my $full_notify_enable = "false"; |
---|
345 | my $lowwarn_enable = "true"; |
---|
346 | my $low_charge_val = 25; |
---|
347 | my $low_warn_val = 5; |
---|
348 | if (-f $appletexternfile) { |
---|
349 | open(EXTFILE, $appletexternfile) or die "Couldn't open $appletexternfile\n: $!"; |
---|
350 | while (<EXTFILE>) { |
---|
351 | if (/^low_charge_val=(.+)$/) { |
---|
352 | $low_charge_val = $1; |
---|
353 | } elsif (/^low_warn_val=(.+)$/) { |
---|
354 | $low_warn_val = $1; |
---|
355 | } elsif (/^full_notify_enable=(.+)$/) { |
---|
356 | $full_notify_enable = $1; |
---|
357 | } elsif (/^low_warn_enable=(.+)$/) { |
---|
358 | $low_warn_enable = $1; |
---|
359 | } |
---|
360 | } |
---|
361 | close(EXTFILE); |
---|
362 | } |
---|
363 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/full_battery_notification", "boolean", $full_notify_enable); |
---|
364 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/show_percent", "boolean", "false"); |
---|
365 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/beep", "boolean", "false"); |
---|
366 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/suspend_command", "string", ""); |
---|
367 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/use_dock", "boolean", "false"); |
---|
368 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/red_value", "int", $low_warn_val); |
---|
369 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/yellow_value", "int", "40"); |
---|
370 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/orange_value", "int", $low_charge_val); |
---|
371 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/show_battery", "boolean", "true"); |
---|
372 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/horizontal", "boolean", "true"); |
---|
373 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/show_status", "boolean", "true"); |
---|
374 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/low_battery_notification", "boolean", $low_warn_enable); |
---|
375 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/drain_from_top", "boolean", "false"); |
---|
376 | } elsif ($goadid =~ /fish_applet/i) { |
---|
377 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_FishApplet"); |
---|
378 | my $fishname = "Wanda"; |
---|
379 | my $image = "fish/fishanim.png"; |
---|
380 | my $fishcommand = "fortune"; |
---|
381 | my $frames = 3; |
---|
382 | my $speed = 1; |
---|
383 | my $rotate = "true"; |
---|
384 | if (-f $appletexternfile) { |
---|
385 | open(EXTFILE, $appletexternfile) or die "Couldn't open $appletexternfile\n: $!"; |
---|
386 | while (<EXTFILE>) { |
---|
387 | if (/^name=(.+)$/) { |
---|
388 | $fishname = $1; |
---|
389 | } elsif (/^image=(.+)$/) { |
---|
390 | # Get rid of any path prefix. |
---|
391 | s,^/usr/share/pixmaps/,,; |
---|
392 | $image = $1; |
---|
393 | } elsif (/^command=(.+)$/) { |
---|
394 | $fishcommand = $1; |
---|
395 | } elsif (/^frames=(.+)$/) { |
---|
396 | $frames = $1; |
---|
397 | } elsif (/^speed=(.+)$/) { |
---|
398 | $speed = $1; |
---|
399 | } elsif (/^rotate=(.+)$/) { |
---|
400 | $rotate = $1; |
---|
401 | } |
---|
402 | } |
---|
403 | close(EXTFILE); |
---|
404 | } |
---|
405 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/command", "string", $fishcommand); |
---|
406 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/image", "string", $image); |
---|
407 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/frames", "int", $frames); |
---|
408 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/speed", "int", $speed); |
---|
409 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/name", "string", $fishname); |
---|
410 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/rotate", "boolean", $rotate); |
---|
411 | } elsif ($goadid =~ /multiload_(.+?)_applet/i) { |
---|
412 | my $multiload_type = $1; |
---|
413 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_MultiLoadApplet"); |
---|
414 | my $speed = "500"; |
---|
415 | my $size = "40"; |
---|
416 | # FIXME: we make no attempt at preserving colors. It seems tricky at first glance. |
---|
417 | if (-f $appletexternfile) { |
---|
418 | open(EXTFILE, $appletexternfile) or die "Couldn't open $appletexternfile\n: $!"; |
---|
419 | while (<EXTFILE>) { |
---|
420 | if (/^speed=(.+)$/) { |
---|
421 | $speed = $1; |
---|
422 | } elsif (/^size=(.+)$/) { |
---|
423 | $size = $1; |
---|
424 | } |
---|
425 | } |
---|
426 | close(EXTFILE); |
---|
427 | } |
---|
428 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_loadavg", "boolean", "false"); |
---|
429 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_memload", "boolean", "false"); |
---|
430 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_netload", "boolean", "false"); |
---|
431 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_cpuload", "boolean", "false"); |
---|
432 | if ($multiload_type =~ /netload/) { |
---|
433 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_netload", "boolean", "true"); |
---|
434 | } elsif ($multiload_type =~ /cpuload/) { |
---|
435 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_cpuload", "boolean", "true"); |
---|
436 | } elsif ($multiload_type =~ /memload/) { |
---|
437 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/view_memload", "boolean", "true"); |
---|
438 | } |
---|
439 | |
---|
440 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/speed", "int", $speed); |
---|
441 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/size", "int", $size); |
---|
442 | } elsif ($goadid =~ /mailcheck/i) { |
---|
443 | gconftool("/apps/panel/profiles/default/$type/$scount/bonobo_iid", "string", "OAFIID:GNOME_MailcheckApplet"); |
---|
444 | my $update_frequency = "120000"; |
---|
445 | my $exec_enabled = "false"; |
---|
446 | my $execcommand = ""; |
---|
447 | my $newmail_enabled = "false"; |
---|
448 | my $newmailcommand = ""; |
---|
449 | my $clicked_enabled = "false"; |
---|
450 | my $clickedcommand = ""; |
---|
451 | my $play_sound = "false"; |
---|
452 | my $mailbox_type = "0"; |
---|
453 | my $mail_file = ""; |
---|
454 | if (-f $appletexternfile) { |
---|
455 | open(EXTFILE, $appletexternfile) or die "Couldn't open $appletexternfile\n: $!"; |
---|
456 | while (<EXTFILE>) { |
---|
457 | if (/^update_frequency=(.+)$/) { |
---|
458 | $update_frequency = $1; |
---|
459 | } elsif (/^exec_command=(.+)$/) { |
---|
460 | $execcommand = $1; |
---|
461 | } elsif (/^exec_enabled=(.+)$/) { |
---|
462 | $exec_enabled = $1; |
---|
463 | } elsif (/^newmail_command=(.+)$/) { |
---|
464 | $newmailcommand = $1; |
---|
465 | } elsif (/^newmail_enabled=(.+)$/) { |
---|
466 | $newmail_enabled = $1; |
---|
467 | } elsif (/^clicked_command=(.+)$/) { |
---|
468 | $clickedcommand = $1; |
---|
469 | } elsif (/^clicked_enabled=(.+)$/) { |
---|
470 | $clicked_enabled = $1; |
---|
471 | } elsif (/^play_sound=(.+)$/) { |
---|
472 | $play_sound = $1; |
---|
473 | } elsif (/^mailbox_type=(.+)$/) { |
---|
474 | $mailbox_type = $1; |
---|
475 | } elsif (/^mail_file=(.+)$/) { |
---|
476 | $mail_file = $1; |
---|
477 | } |
---|
478 | } |
---|
479 | close(EXTFILE); |
---|
480 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/update_frequency", "int", $update_frequency); |
---|
481 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/exec_enabled", "boolean", $exec_enabled); |
---|
482 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/exec_command", "string", $execcommand); |
---|
483 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/newmail_enabled", "boolean", $newmail_enabled); |
---|
484 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/newmail_command", "string", $newmailcommand); |
---|
485 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/clicked_enabled", "boolean", $clicked_enabled); |
---|
486 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/clicked_command", "string", $clickedcommand); |
---|
487 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/play_sound", "boolean", $play_sound); |
---|
488 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/mailbox_type", "int", $mailbox_type); |
---|
489 | gconftool("/apps/panel/profiles/default/$type/$scount/prefs/mail_file", "string", $mail_file); |
---|
490 | } |
---|
491 | } else { |
---|
492 | $valid_goadid = undef; |
---|
493 | } |
---|
494 | } |
---|
495 | } |
---|
496 | if (not $valid_goadid) { |
---|
497 | &log("Skipping this applet: unknown goad_id=$goadid"); |
---|
498 | next LINE; |
---|
499 | } |
---|
500 | } elsif ($appletid =~ /Menu/) { |
---|
501 | my $main_menu_flags = 0; |
---|
502 | my $global_main = 'true'; |
---|
503 | foreach my $line (@lines) { |
---|
504 | if ($line =~ /^main_menu_flags=(.+)$/) { |
---|
505 | $main_menu_flags = $1; |
---|
506 | } elsif ($line =~ /^global_main=(.+)$/) { |
---|
507 | $global_main = $1; |
---|
508 | } |
---|
509 | } |
---|
510 | gconftool("/apps/panel/profiles/default/$type/$scount/global-main", "boolean", $global_main); |
---|
511 | gconftool("/apps/panel/profiles/default/$type/$scount/main-menu-flags", "int", $main_menu_flags); |
---|
512 | } |
---|
513 | foreach my $line (@lines) { |
---|
514 | if ($line =~ /^right_stick=(.+)$/) { |
---|
515 | # Athena local mod: In GNOME 2, right_stick means to apply the position |
---|
516 | # from the right side of the screen, which isn't how GNOME 1 treats it. |
---|
517 | # Furthermore, the GNOME 2 panel always saves applets and objects with |
---|
518 | # right_stick false after recomputing the position from the left. |
---|
519 | # Since our position is already left-relative, we can just ignore it. |
---|
520 | # gconftool("/apps/panel/profiles/default/$type/$scount/panel_right_stick", "boolean", $1); |
---|
521 | } elsif ($line =~ /^position=(.+)$/) { |
---|
522 | gconftool("/apps/panel/profiles/default/$type/$scount/position", "int", $1); |
---|
523 | } elsif ($line =~ /^unique_panel_id=(.+)$/) { |
---|
524 | my $uniqueid = $1; |
---|
525 | my $realpanelid = $panel_unique_id_map{$uniqueid}; |
---|
526 | if (not defined $realpanelid) { |
---|
527 | &log("warning: unknown unique panel id=$uniqueid, assuming first panel"); |
---|
528 | $realpanelid = 1; |
---|
529 | } |
---|
530 | gconftool("/apps/panel/profiles/default/$type/$scount/panel_id", "string", sprintf_objid($realpanelid)); |
---|
531 | } elsif ($line =~ /^base_location=(.+)$/) { |
---|
532 | my $launcher = $1; |
---|
533 | gconftool("/apps/panel/profiles/default/$type/$scount/launcher_location", "string", "file://$cwd/.gnome2/panel2.d/default/launchers/$1"); |
---|
534 | } |
---|
535 | } |
---|
536 | } |
---|
537 | } |
---|
538 | close(F); |
---|
539 | &log("done reading applet config file"); |
---|
540 | $liststr = "[" . join(',', @applet_id_list) . "]"; |
---|
541 | gconftool_list("/apps/panel/profiles/default/general/applet_id_list", "string", $liststr); |
---|
542 | $liststr = "[" . join(',', @object_id_list) . "]"; |
---|
543 | gconftool_list("/apps/panel/profiles/default/general/object_id_list", "string", $liststr); |
---|
544 | |
---|
545 | # clean up cruft |
---|
546 | &mysystem("rm", "-rf", ".gnome2/panel.d"); |
---|
547 | |
---|
548 | &log("Transition script complete"); |
---|
549 | |
---|
550 | # Local Variables: |
---|
551 | # compile-command: "perl -c gnome-panel-1-to-2" |
---|
552 | # End: |
---|
553 | |
---|