Changeset 3011


Ignore:
Timestamp:
May 27, 2010, 11:58:35 AM (14 years ago)
Author:
broder
Message:

Use the .. Perl operator to simplify prerms.

invirt-console-host, invirt-dev, and all of the packages in
xvm-munin-config previously used a convoluted one-liner to clean up
/etc/sudoers, but we can do it much more easily using the .. operator.

Taken from http://blog.ksplice.com/2010/05/top-10-perl-one-liner-tricks/

Location:
trunk/packages
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • trunk/packages/invirt-console/debian/changelog

    r2878 r3011  
     1invirt-console (0.2.14) unstable; urgency=low
     2
     3  * Use the .. Perl operator to simplify the invirt-console-host prerm.
     4
     5 -- Evan Broder <broder@mit.edu>  Thu, 27 May 2010 11:55:53 -0400
     6
    17invirt-console (0.2.13) unstable; urgency=low
    28
  • trunk/packages/invirt-console/debian/invirt-console-host.postinst

    r1815 r3011  
    2121case "$1" in
    2222    configure)
    23         # Clean up the old sudoers line before we add it back
    24         perl -i.bak -ne 's%^### (BEGIN|END) invirt-console-host\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
    25        
    2623        cat >>/etc/sudoers <<EOF
    2724### BEGIN invirt-console-host
  • trunk/packages/invirt-console/debian/invirt-console-host.prerm

    r1815 r3011  
    2020case "$1" in
    2121    remove|upgrade|deconfigure)
    22         perl -i.bak -ne 's%^### (BEGIN|END) invirt-console-host\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
     22        perl -i.bak -ne 'print unless /^### BEGIN invirt-console-host/../^### END invirt-console-host/' /etc/sudoers
    2323    ;;
    2424
  • trunk/packages/invirt-dev/debian/changelog

    r2625 r3011  
    88    upgrades, make sure the postinst code to add it back runs on all
    99    upgrades, too.
    10 
    11  -- Evan Broder <broder@mit.edu>  Thu, 17 Dec 2009 16:06:31 -0600
     10  * Use the .. Perl operator to simplify the prerm.
     11
     12 -- Evan Broder <broder@mit.edu>  Thu, 27 May 2010 11:55:06 -0400
    1213
    1314invirt-dev (0.0.14) unstable; urgency=low
  • trunk/packages/invirt-dev/debian/invirt-dev.prerm

    r2636 r3011  
    2222        [ "$1" = "remove" ] && update-inetd --disable git
    2323
    24         perl -i.bak -ne 's%^### (BEGIN|END) invirt-dev\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
     24        perl -i.bak -ne 'print unless /^### BEGIN invirt-dev/../^### END invirt-dev/' /etc/sudoers
    2525    ;;
    2626
  • trunk/packages/xvm-munin-config/debian/changelog

    r2970 r3011  
     1xvm-munin-config (0.0.12) unstable; urgency=low
     2
     3  * Use the .. perl operator to simplify the prerms.
     4
     5 -- Evan Broder <broder@mit.edu>  Thu, 27 May 2010 11:55:31 -0400
     6
    17xvm-munin-config (0.0.11) unstable; urgency=low
    28
  • trunk/packages/xvm-munin-config/debian/xvm-munin-console-config.prerm

    r1761 r3011  
    2020case "$1" in
    2121    remove|upgrade|deconfigure)
    22         perl -i.bak -ne 's%^### (BEGIN|END) xvm-munin-config\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
     22        perl -i.bak -ne 'print unless /^### BEGIN xvm-munin-config/../^### END xvm-munin-config/' /etc/sudoers
    2323    ;;
    2424
  • trunk/packages/xvm-munin-config/debian/xvm-munin-host-config.prerm

    r1761 r3011  
    2020case "$1" in
    2121    remove|upgrade|deconfigure)
    22         perl -i.bak -ne 's%^### (BEGIN|END) xvm-munin-config\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
     22        perl -i.bak -ne 'print unless /^### BEGIN xvm-munin-config/../^### END xvm-munin-config/' /etc/sudoers
    2323    ;;
    2424
  • trunk/packages/xvm-munin-config/debian/xvm-munin-master-config.prerm

    r1761 r3011  
    2020case "$1" in
    2121    remove|upgrade|deconfigure)
    22         perl -i.bak -ne 's%^### (BEGIN|END) xvm-munin-config\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
     22        perl -i.bak -ne 'print unless /^### BEGIN xvm-munin-config/../^### END xvm-munin-config/' /etc/sudoers
    2323    ;;
    2424
  • trunk/packages/xvm-munin-config/debian/xvm-munin-remote-config.prerm

    r1761 r3011  
    2020case "$1" in
    2121    remove|upgrade|deconfigure)
    22         perl -i.bak -ne 's%^### (BEGIN|END) xvm-munin-config\s*$%%m && ($skip = ($1 eq "BEGIN")); print unless $skip;' /etc/sudoers
     22        perl -i.bak -ne 'print unless /^### BEGIN xvm-munin-config/../^### END xvm-munin-config/' /etc/sudoers
    2323    ;;
    2424
Note: See TracChangeset for help on using the changeset viewer.