code/Filter/hash2acl.filter

   1 # Copyright 2002-2007 Interchange Development Group and others
   2 # Copyright 1996-2002 Red Hat, Inc.
   3 #
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2 of the License, or
   7 # (at your option) any later version.  See the LICENSE file for details.
   8 #
   9 # $Id: hash2acl.filter,v 1.3 2007-03-30 23:40:44 pajamian Exp $
  10
  11 CodeDef hash2acl Filter
  12 CodeDef hash2acl Description hash2acl
  13 CodeDef hash2acl Visibility private
  14 CodeDef hash2acl Routine <<EOR
  15 sub {
  16         my ($value) = @_;
  17         my $orig = $value;
  18         $value =~ s/^\s+//;
  19         $value =~ s/\s+$//;
  20         $value =~ s/\0+//g;
  21         my $hash = Vend::Util::get_option_hash($value)
  22                 or return $orig;
  23         my @opts;
  24         for(sort keys %$hash) {
  25                 ! defined $hash and $hash->{$_} = '';
  26                 my $val = $_;
  27                 $val =~ s/,/&#44;/g;
  28                 $val =~ s/=/&#61;/g;
  29                 push @opts, "$val=$hash->{$_}";
  30         }
  31         $value = join ",", @opts;
  32         return $value;
  33 }
  34 EOR