Server IP : 85.214.239.14 / Your IP : 18.118.252.215 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/task/2/root/usr/share/perl5/Debconf/Format/ |
Upload File : |
#!/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