diff options
Diffstat (limited to 'dh_installxaw')
-rwxr-xr-x | dh_installxaw | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/dh_installxaw b/dh_installxaw deleted file mode 100755 index d71be544..00000000 --- a/dh_installxaw +++ /dev/null @@ -1,65 +0,0 @@ -#!/usr/bin/perl -w -# -# Integration with xaw-wrappers -# -# If debian/xaw-wrappers file exists, save it to -# $TMP/usr/lib/xaw-wrappers/conf/$PACKAGE -# -# Also, add calls to postinst and postrm. - -BEGIN { push @INC, "debian", "/usr/share/debhelper" } -use Dh_Lib; -init(); - -foreach $PACKAGE (@{$dh{DOPACKAGES}}) { - $TMP=tmpdir($PACKAGE); - $xaw=pkgfile($PACKAGE,'xaw'); - - if ($xaw ne '') { - if (! -d "$TMP/usr/lib/xaw-wrappers/config") { - doit("install","-d","$TMP/usr/lib/xaw-wrappers/config"); - } - doit("install","-p","-m644",$xaw, - "$TMP/usr/lib/xaw-wrappers/config/$PACKAGE"); - - if (! $dh{NOSCRIPTS}) { - # Parse the xaw conf file to figure out what programs - # and link names are present in it. Have to pass - # those into the scripts. - my %data; - my $install_opts=''; - my $remove_opts=''; - my $stanza=''; - - open (IN,$xaw); - while (<IN>) { - chomp; - s/\s+/ /g; - if (/^#/ eq '') { - if (/(.*?):\s?(.*)/) { - $data{lc($1)}=$2; - $stanza=1; - } - elsif ($stanza) { - $install_opts.="'$data{program} $data{'link-name'} $data{wrapped}' "; - $remove_opts.="'$data{'link-name'} $data{wrapped}' "; - undef %data; - $stanza=''; - } - } - } - close IN; - - if ($stanza) { - $install_opts.="'$data{program} $data{'link-name'} $data{wrapped}'"; - $remove_opts.="'$data{'link-name'} $data{wrapped}'"; - } - - autoscript($PACKAGE,"postinst","postinst-xaw", - "s:#OPTS#:$install_opts:"); - autoscript($PACKAGE,"prerm","prerm-xaw", - "s:#OPTS#:$remove_opts:"); - autoscript($PACKAGE,"postrm","postrm-xaw"); - } - } -} |