← Back to branch summary

~ubuntu-branches/ubuntu/trusty/xscreensaver/trusty

« back to all changes in this revision

Viewing changes to hacks/munge-ad.pl

  • Committer: Bazaar Package Importer
  • Author(s): Robert Ancell
  • Date: 2009-11-30 13:33:13 UTC
  • mfrom: (1.1.8 upstream) (2.1.6 squeeze)
  • Revision ID: james.westby@ubuntu.com-20091130133313-3b5nz2e7hvbb8h3l
Tags: 5.10-3ubuntu1
https://launchpad.net/bugs/489062
* Merge with Debian unstable, remaining changes: (LP: #489062)
  - debian/control: add Build-Depends on ubuntu-artwork
  - debian/rules: use /usr/share/backgrounds
  - debian/control: Move xli | xloadimage recommends to suggests
  - debian/split-hacks.config: Use different set of default hacks to Debian
  - debian/source_xscreensaver.py: Add apport hook
  - debian/patches/53_XScreenSaver.ad.in.patch: Use Ubuntu branding

Show diffs side-by-side

added added

removed removed

Lines of Context:
hacks/munge-ad.pl
1
1
#!/usr/bin/perl -w
2
 
# Copyright � 2008 Jamie Zawinski <jwz@jwz.org>
 
2
# Copyright � 2008, 2009 Jamie Zawinski <jwz@jwz.org>
3
3
#
4
4
# Permission to use, copy, modify, distribute, and sell this software and its
5
5
# documentation for any purpose is hereby granted without fee, provided that
18
18
use strict;
19
19
 
20
20
my $progname = $0; $progname =~ s@.*/@@g;
21
 
my $version = q{ $Revision: 1.3 $ }; $version =~ s/^[^\d]+([\d.]+).*/$1/;
 
21
my $version = q{ $Revision: 1.6 $ }; $version =~ s/^[^\d]+([\d.]+).*/$1/;
22
22
 
23
23
my $verbose = 0;
24
24
 
27
27
#
28
28
my %disable = ( 
29
29
   'abstractile'        => 1,
30
 
   'ant'                => 1,
31
30
   'antinspect'         => 1,
32
31
   'antmaze'            => 1,
33
32
   'antspotlight'       => 1,
34
33
   'braid'              => 1,
35
 
   'critical'           => 1,
36
34
   'crystal'            => 1,
37
35
   'demon'              => 1,
38
36
   'dnalogo'            => 1,
39
37
   'fadeplot'           => 1,
40
38
   'glblur'             => 1,
41
 
   'glforestfire'       => 1,
42
39
   'glplanet'           => 1,
43
40
   'glslideshow'        => 1,
44
 
   'hyperball'          => 1,
45
 
   'hypercube'          => 1,
46
41
   'jigglypuff'         => 1,
47
 
   'juggle'             => 1,
 
42
   'juggle'             => 2,
48
43
   'kaleidescope'       => 1,
49
 
   'laser'              => 1,
50
44
   'lcdscrub'           => 1,
51
 
   'lightning'          => 1,
52
 
   'lisa'               => 1,
53
 
   'lissie'             => 1,
54
 
   'lmorph'             => 1,
55
45
   'loop'               => 1,
 
46
   'mismunch'           => 2,
56
47
   'nerverot'           => 1,
57
48
   'noseguy'            => 1,
58
49
   'polyominoes'        => 1,
60
51
   'pyro'               => 1,
61
52
   'rdbomb'             => 2,  # alternate name
62
53
   'rocks'              => 1,
63
 
   'rotor'              => 1,
64
54
   'sballs'             => 1,
65
55
   'sierpinski'         => 1,
66
 
   'sphere'             => 1,
67
 
   'spiral'             => 1,
68
56
   'thornbird'          => 1,
69
57
   'vidwhacker'         => 1,
70
 
   'vines'              => 1,
71
58
   'webcollage'         => 1,
72
 
   'worm'               => 1,
73
59
   'xsublim'            => 2,
74
60
  );
75
61
 
85
71
    close IN;
86
72
 
87
73
    $body =~ s/\\\n//gs;
88
 
    my ($var) = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
 
74
    my ($var)  = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
 
75
    my ($var2) = ($body =~ m/^RETIRED_GL_EXES\s*=\s*(.*)$/mi);
89
76
    error ("no RETIRED_EXES in $mf") unless $var;
 
77
    $var .= " $var2" if $var2;
90
78
    foreach my $hack (split (/\s+/, $var)) {
91
79
      $disable{$hack} = 2;
92
80
    }