diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-09-08 14:01:25 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-09-08 14:01:25 +0000 |
commit | b8350bcda3ab580d7aad6c029078fbd8297dac9d (patch) | |
tree | aaf9eb33fd1c7dda1b6318b57b8fd9456ff77ee1 /setup_native/scripts/install_create.pl | |
parent | 5f7fbe3d46d9f32882d900a71771bba81bf00bea (diff) |
INTEGRATION: CWS customizer (1.1.2); FILE ADDED
2004/08/31 15:41:47 is 1.1.2.1: #i33634# userland scripts
Diffstat (limited to 'setup_native/scripts/install_create.pl')
-rwxr-xr-x | setup_native/scripts/install_create.pl | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/setup_native/scripts/install_create.pl b/setup_native/scripts/install_create.pl new file mode 100755 index 000000000000..c49f22ddbc70 --- /dev/null +++ b/setup_native/scripts/install_create.pl @@ -0,0 +1,44 @@ +: # -*- perl -*- +eval 'exec perl -wS $0 ${1+"$@"}' + if 0; +# create setup self extracting script + +if( $#ARGV < 2 ) + { + print <<ENDHELP; +USAGE: $0 <inputshellscript> <libraryfile> <outputshellscript> + <inputshellscript>: the start shell script, located next to this perl script + <libraryfile>: the library file, that is included into the shell script + <outfile>: the target shellscript + +ENDHELP + exit; + } + +$infile = $ARGV[0]; +$library = $ARGV[1]; +$outfile = $ARGV[2]; +$infile =~ tr/[A-Z]/[a-z]/; + +# read script header +open( SCRIPT, "<$infile" ) || die "cannot open $infile"; +open( OUTFILE, ">$outfile$$.tmp" ) || die "cannot open $outfile"; +@scriptlines = <SCRIPT>; +$linenum = $#scriptlines+2; +foreach (@scriptlines) +{ + # lineend conversion (be on the safe side) + chomp; + $_ =~ tr/\r//; + s/^\s*linenum=.*$/linenum=$linenum/; + print OUTFILE "$_\n"; +} +close( SCRIPT ); +close( OUTFILE ); + +system( "cat $library >>$outfile$$.tmp" ); +rename "$outfile$$.tmp", "$outfile"; + +chmod 0775, $outfile; + +exit; |