| 1 |
mweinber |
1.1 |
--- smeserver-openoffice-portable-2.3.1/root/sbin/e-smith/openoffice-delete-history.DeleteHistoryScript 2008-03-16 14:45:29.000000000 +0100 |
| 2 |
|
|
+++ smeserver-openoffice-portable-2.3.1/root/sbin/e-smith/openoffice-delete-history 2008-03-16 14:46:35.000000000 +0100 |
| 3 |
|
|
@@ -0,0 +1,23 @@ |
| 4 |
|
|
+#!/usr/bin/perl -w |
| 5 |
|
|
+ |
| 6 |
|
|
+# Michael Weinberger, (C) 2008 |
| 7 |
|
|
+ |
| 8 |
|
|
+use strict; |
| 9 |
|
|
+use XML::Twig; |
| 10 |
|
|
+ |
| 11 |
|
|
+my $account=$ARGV[0]||''; |
| 12 |
|
|
+if( not $account ) |
| 13 |
|
|
+ { |
| 14 |
|
|
+ print "Usage: openoffice-delete-history ACCOUNT\n"; |
| 15 |
|
|
+ exit -1; |
| 16 |
|
|
+ } |
| 17 |
|
|
+my $Common_xcu="/home/e-smith/files/ooSettings/$account/user/registry/data/org/openoffice/Office/Common.xcu"; |
| 18 |
|
|
+return unless -f $Common_xcu; |
| 19 |
|
|
+my $twig= XML::Twig->new( PrettyPrint => "indented"); |
| 20 |
|
|
+$twig->parsefile($Common_xcu) or die "Parse error"; |
| 21 |
|
|
+my $root = $twig->root(); |
| 22 |
|
|
+for my $node ($root->children('node')) |
| 23 |
|
|
+ { |
| 24 |
|
|
+ $node->delete() if $node->att('oor:name') =~ /^(History|Cache|Help)$/; |
| 25 |
|
|
+ } |
| 26 |
|
|
+$root->XML::Twig::print_to_file("$Common_xcu"); |
| 27 |
|
|
--- smeserver-openoffice-portable-2.3.1/root/etc/e-smith/events/actions/openoffice-usersettings.DeleteHistoryScript 2008-03-16 14:51:47.000000000 +0100 |
| 28 |
|
|
+++ smeserver-openoffice-portable-2.3.1/root/etc/e-smith/events/actions/openoffice-usersettings 2008-03-16 14:52:12.000000000 +0100 |
| 29 |
|
|
@@ -13,7 +13,6 @@ |
| 30 |
|
|
sub create_profiledir($); |
| 31 |
|
|
sub replace_value($$$$%); |
| 32 |
|
|
sub patch_xcu_file($$$%); |
| 33 |
|
|
-sub delete_history($); |
| 34 |
|
|
|
| 35 |
|
|
(my $self=$0)=~s/.*\///; |
| 36 |
|
|
my $event=$ARGV[0]||''; |
| 37 |
|
|
@@ -61,11 +60,6 @@ |
| 38 |
|
|
my $OOP_ini ="/opt/openoffice/OpenOfficePortable/OpenOfficePortable.ini"; |
| 39 |
|
|
system("/bin/cp -a $OOP_ini.contrib $OOP_ini") if not -f $OOP_ini; |
| 40 |
|
|
} |
| 41 |
|
|
-elsif( $self eq "openoffice-delete-history" ) |
| 42 |
|
|
- { |
| 43 |
|
|
- # delete History, like recent file list |
| 44 |
|
|
- delete_history($event); |
| 45 |
|
|
- } |
| 46 |
|
|
elsif( $self eq "openoffice-assoc-oo" ) |
| 47 |
|
|
{ |
| 48 |
|
|
# Add file assocations for OO native files to netlogon.bat |
| 49 |
|
|
@@ -233,18 +227,3 @@ |
| 50 |
|
|
} |
| 51 |
|
|
return $root; |
| 52 |
|
|
} |
| 53 |
|
|
- |
| 54 |
|
|
-sub delete_history($) |
| 55 |
|
|
- { |
| 56 |
|
|
- my $username=shift; |
| 57 |
|
|
- my $Common_xcu="/home/e-smith/files/ooSettings/$username/user/registry/data/org/openoffice/Office/Common.xcu"; |
| 58 |
|
|
- return unless -f $Common_xcu; |
| 59 |
|
|
- my $twig= XML::Twig->new( PrettyPrint => "indented"); |
| 60 |
|
|
- $twig->parsefile($Common_xcu) or die "Parse error"; |
| 61 |
|
|
- my $root = $twig->root(); |
| 62 |
|
|
- for my $node ($root->children('node')) |
| 63 |
|
|
- { |
| 64 |
|
|
- $node->delete() if $node->att('oor:name') =~ /^(History|Cache|Help)$/; |
| 65 |
|
|
- } |
| 66 |
|
|
- $root->XML::Twig::print_to_file("$Common_xcu"); |
| 67 |
|
|
- } |
Parent Directory
| 
Revision Log
| 
Revision Graph
