�PNG  IHDR��;���IDATx��ܻn�0���K�� �)(�pA��� ���7�LeG{�� �§㻢|��ذaÆ 6lذaÆ 6lذaÆ 6lom��$^�y���ذag�5bÆ 6lذaÆ 6lذa{���� 6lذaÆ �`����}H�Fkm�,�m����Ӫ���ô�ô!� �x�|'ܢ˟;�E:���9�&ᶒ�}�{�v]�n&�6� �h��_��t�ڠ͵-ҫ���Z;��Z$�.�P���k�ž)�!��o���>}l�eQfJ�T��u і���چ��\��X=8��Rن4`Vw�l�>����n�G�^��i�s��"ms�$�u��i��?w�bs[m�6�K4���O���.�4��%����/����b�C%��t ��M�ז� �-l�G6�mrz2���s�%�9��s@���-�k�9�=���)������k�B5����\��+͂�Zsٲ ��Rn��~G���R���C����� �wIcI��n7jJ���hۛNCS|���j0��8y�iHKֶۛ�k�Ɉ+;Sz������L/��F�*\��Ԕ�#"5��m�2��[S��������=�g��n�a�P�e�ғ�L�� lذaÆ 6l�^k��̱aÆ 6lذaÆ 6lذa;���� �_��ذaÆ 6lذaÆ 6lذaÆ ���R���IEND�B` #!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Format::822; use strict; use base 'Debconf::Format'; sub beginfile {} sub endfile {} sub read { my $this=shift; my $fh=shift; local $/="\n"; my $name; my %ret=( owners => {}, fields => {}, variables => {}, flags => {}, ); my $invars=0; my $line; while ($line = <$fh>) { chomp $line; last if $line eq ''; # blank line is our record delimiter if ($invars) { if ($line =~ /^\s/) { $line =~ s/^\s+//; my ($var, $value)=split(/\s*=\s?/, $line, 2); $value=~s/\\n/\n/g; $ret{variables}->{$var}=$value; next; } else { $invars=0; } } my ($key, $value)=split(/:\s?/, $line, 2); $key=lc($key); if ($key eq 'owners') { foreach my $owner (split(/,\s+/, $value)) { $ret{owners}->{$owner}=1; } } elsif ($key eq 'flags') { foreach my $flag (split(/,\s+/, $value)) { $ret{flags}->{$flag}='true'; } } elsif ($key eq 'variables') { $invars=1; } elsif ($key eq 'name') { $name=$value; } elsif (length $key) { $value=~s/\\n/\n/g; $ret{fields}->{$key}=$value; } } return unless defined $name; return $name, \%ret; } sub write { my $this=shift; my $fh=shift; my %data=%{shift()}; my $name=shift; print $fh "Name: $name\n" or return undef; foreach my $field (sort keys %{$data{fields}}) { my $val=$data{fields}->{$field}; $val=~s/\n/\\n/g; print $fh ucfirst($field).": $val\n" or return undef; } if (keys %{$data{owners}}) { print $fh "Owners: ".join(", ", sort keys(%{$data{owners}}))."\n" or return undef; } if (grep { $data{flags}->{$_} eq 'true' } keys %{$data{flags}}) { print $fh "Flags: ".join(", ", grep { $data{flags}->{$_} eq 'true' } sort keys(%{$data{flags}}))."\n" or return undef; } if (keys %{$data{variables}}) { print $fh "Variables:\n" or return undef; foreach my $var (sort keys %{$data{variables}}) { my $val=$data{variables}->{$var}; $val=~s/\n/\\n/g; print $fh " $var = $val\n" or return undef; } } print $fh "\n" or return undef; # end of record delimiter return 1; } 1