1 |
mweinber |
1.1 |
--- /dev/null 2008-03-12 17:01:43.367208064 +0100 |
2 |
mweinber |
1.2 |
+++ smeserver-openoffice-portable-2.3.1/root/opt/openoffice/OpenOfficePortable/OpenOfficePortable.ini.contrib 2008-03-14 14:14:07.000000000 +0100 |
3 |
mweinber |
1.1 |
@@ -0,0 +1,8 @@ |
4 |
|
|
+[OpenOfficePortable] |
5 |
|
|
+OpenOfficeDirectory=App\openoffice |
6 |
|
|
+SettingsDirectory=Data\settings |
7 |
|
|
+OpenOfficeExecutable=soffice.exe |
8 |
|
|
+WaitForOpenOffice=false |
9 |
|
|
+RunDataLocally=true |
10 |
|
|
+DisableSplashScreen=true |
11 |
|
|
+ |
12 |
|
|
--- smeserver-openoffice-portable-2.3.1/root/etc/e-smith/events/actions/openoffice-usersettings.pathesfix 2008-02-22 18:47:55.000000000 +0100 |
13 |
|
|
+++ smeserver-openoffice-portable-2.3.1/root/etc/e-smith/events/actions/openoffice-usersettings 2008-03-14 14:34:17.000000000 +0100 |
14 |
|
|
@@ -1,13 +1,18 @@ |
15 |
|
|
#!/usr/bin/perl -w |
16 |
|
|
-# Michael Weinberger, Feb 2008 |
17 |
|
|
+ |
18 |
|
|
+# Michael Weinberger, (C) 2008 |
19 |
|
|
|
20 |
|
|
use strict; |
21 |
|
|
use esmith::AccountsDB; |
22 |
|
|
use esmith::ConfigDB; |
23 |
|
|
use File::Path; |
24 |
|
|
+use XML::Twig; |
25 |
|
|
+ |
26 |
|
|
sub file_assoc($$); |
27 |
|
|
sub patch_netlogon($); |
28 |
|
|
sub create_profiledir($); |
29 |
|
|
+sub replace_value($$$$%); |
30 |
|
|
+sub patch_xcu_file($$$%); |
31 |
|
|
|
32 |
|
|
(my $self=$0)=~s/.*\///; |
33 |
|
|
my $event=$ARGV[0]||''; |
34 |
|
|
@@ -146,9 +151,73 @@ |
35 |
|
|
chmod 0700, "$settings/$username"; |
36 |
|
|
if( not -d "$settings/$username/user" && -d "/opt/openoffice/OpenOfficePortable/Data/settings/user" ) |
37 |
|
|
{ |
38 |
|
|
+ system( "/bin/rm -f /opt/openoffice/OpenOfficePortable/Data/settings/user/registry/cache/*" ); |
39 |
|
|
system( "/bin/cp -fR /opt/openoffice/OpenOfficePortable/Data/settings/user $settings/$username" ); |
40 |
|
|
system( "/bin/chown -R $username.$username $settings/$username/user" ); |
41 |
|
|
+ |
42 |
|
|
+ |
43 |
|
|
+ # Firstname, Lastname, Initials |
44 |
|
|
+ my $xcu_file = "/home/e-smith/files/ooSettings/$username/user/registry/data/org/openoffice/UserProfile.xcu"; |
45 |
|
|
+ if( -f $xcu_file ) |
46 |
|
|
+ { |
47 |
|
|
+ my $givenname=$accountdb->get_prop( $username, 'FirstName')||''; |
48 |
|
|
+ my $sn=$accountdb->get_prop( $username, 'LastName')||''; |
49 |
|
|
+ my %UserProfile = |
50 |
|
|
+ ( |
51 |
|
|
+ 'Data->givenname'=>$givenname, |
52 |
|
|
+ 'Data->sn'=>$sn, |
53 |
|
|
+ 'Data->initials'=>substr($givenname,0,1).substr($sn,0,1) |
54 |
|
|
+ ); |
55 |
|
|
+ my $r=patch_xcu_file($xcu_file, $username, $ServerName, %UserProfile); |
56 |
|
|
+ $r->XML::Twig::print_to_file("$xcu_file"); |
57 |
|
|
+ } |
58 |
|
|
} |
59 |
|
|
+ # Pathes |
60 |
|
|
+ my %OOPathes = |
61 |
|
|
+ ( |
62 |
|
|
+ 'Paths->Temp->WritePath'=>"", |
63 |
|
|
+ 'Paths->Work->WritePath'=>"file://$ServerName/$username", |
64 |
|
|
+ ); |
65 |
|
|
+ my $xcu_file = "/home/e-smith/files/ooSettings/$username/user/registry/data/org/openoffice/Office/Paths.xcu"; |
66 |
|
|
+ my $r=patch_xcu_file($xcu_file, $username, $ServerName, %OOPathes); |
67 |
|
|
+ $r->XML::Twig::print_to_file("$xcu_file"); |
68 |
|
|
+ unlink "/home/e-smith/files/ooSettings/$username/user/registry/cache/org.openoffice.Office.Paths.dat"; |
69 |
|
|
} |
70 |
|
|
|
71 |
|
|
|
72 |
|
|
+sub replace_value($$$$%) |
73 |
|
|
+{ |
74 |
|
|
+ my ($sn, $name, $account, $ServerName, %vals) = @_; |
75 |
|
|
+ for my $node ($sn) |
76 |
|
|
+ { |
77 |
|
|
+ foreach my $child ($node->children()) |
78 |
|
|
+ { |
79 |
|
|
+ if( defined $vals{$name} ) |
80 |
|
|
+ { |
81 |
|
|
+ $child->set_atts('xsi:nil'=>'false') if( $child->att('xsi:nil')); |
82 |
|
|
+ $child->set_atts('xsi:nil'=>'true') if( not $vals{$name} ); |
83 |
|
|
+ $child->set_text($vals{$name}); |
84 |
|
|
+ } |
85 |
|
|
+ replace_value( |
86 |
|
|
+ $child, |
87 |
|
|
+ $name . ($child->att('oor:name') ? "->".$child->att('oor:name') : ''), |
88 |
|
|
+ $account, |
89 |
|
|
+ $ServerName, |
90 |
|
|
+ %vals |
91 |
|
|
+ ) if $child->has_children() && $child->name() ne 'value'; |
92 |
|
|
+ } |
93 |
|
|
+ } |
94 |
|
|
+} |
95 |
|
|
+ |
96 |
|
|
+sub patch_xcu_file($$$%) |
97 |
|
|
+ { |
98 |
|
|
+ my ($xmlfile, $account, $ServerName, %vals)=@_; |
99 |
|
|
+ my $twig= XML::Twig->new( PrettyPrint => "indented"); |
100 |
|
|
+ $twig->parsefile($xmlfile) or die "Parse error"; |
101 |
|
|
+ my $root = $twig->root(); |
102 |
|
|
+ for my $node ($root->children('node')) |
103 |
|
|
+ { |
104 |
|
|
+ replace_value($node, $node->att('oor:name'), $account, $ServerName, %vals); |
105 |
|
|
+ } |
106 |
|
|
+ return $root; |
107 |
|
|
+ } |
108 |
|
|
--- smeserver-openoffice-portable-2.3.1/root/etc/e-smith/templates/etc/smb.conf/50openoffice-portable.pathesfix 2008-02-14 14:56:52.000000000 +0100 |
109 |
|
|
+++ smeserver-openoffice-portable-2.3.1/root/etc/e-smith/templates/etc/smb.conf/50openoffice-portable 2008-03-14 14:14:07.000000000 +0100 |
110 |
|
|
@@ -1,3 +1,7 @@ |
111 |
|
|
+{ |
112 |
|
|
+ return "" unless (($openoffice{status}||'enabled') eq "enabled"); |
113 |
|
|
+ |
114 |
|
|
+ $OUT .= <<HERE; |
115 |
|
|
[openoffice] |
116 |
|
|
comment = Open Office Portable |
117 |
|
|
browseable = yes |
118 |
|
|
@@ -11,3 +15,5 @@ |
119 |
|
|
force directory mode = 0755 |
120 |
|
|
path = /opt/openoffice |
121 |
|
|
|
122 |
|
|
+HERE |
123 |
|
|
+} |