| 1 |
--- /dev/null 2008-03-12 17:01:43.367208064 +0100 |
| 2 |
+++ smeserver-openoffice-portable-2.3.1/root/opt/openoffice/OpenOfficePortable/OpenOfficePortable.ini.contrib 2008-03-14 14:14:07.000000000 +0100 |
| 3 |
@@ -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 |
+} |
Parent Directory
| 
Revision Log
| 
Revision Graph
