Server IP : 85.214.239.14 / Your IP : 13.58.32.115 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/self/root/usr/share/perl5/Debconf/DbDriver/ |
Upload File : |
#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::DbDriver::Pipe; use strict; use Debconf::Log qw(:all); use base 'Debconf::DbDriver::Cache'; use fields qw(infd outfd format); sub init { my $this=shift; $this->{format} = "822" unless exists $this->{format}; $this->error("No format specified") unless $this->{format}; eval "use Debconf::Format::$this->{format}"; if ($@) { $this->error("Error setting up format object $this->{format}: $@"); } $this->{format}="Debconf::Format::$this->{format}"->new; if (not ref $this->{format}) { $this->error("Unable to make format object"); } my $fh; if (defined $this->{infd}) { if ($this->{infd} ne 'none') { open ($fh, "<&=$this->{infd}") or $this->error("could not open file descriptor #$this->{infd}: $!"); } } else { open ($fh, '-'); } $this->SUPER::init(@_); debug "db $this->{name}" => "loading database"; if (defined $fh) { while (! eof $fh) { my ($item, $cache)=$this->{format}->read($fh); $this->{cache}->{$item}=$cache; } close $fh; } } sub shutdown { my $this=shift; return if $this->{readonly}; my $fh; if (defined $this->{outfd}) { if ($this->{outfd} ne 'none') { open ($fh, ">&=$this->{outfd}") or $this->error("could not open file descriptor #$this->{outfd}: $!"); } } else { open ($fh, '>-'); } if (defined $fh) { $this->{format}->beginfile; foreach my $item (sort keys %{$this->{cache}}) { next unless defined $this->{cache}->{$item}; # skip deleted $this->{format}->write($fh, $this->{cache}->{$item}, $item) or $this->error("could not write to pipe: $!"); } $this->{format}->endfile; close $fh or $this->error("could not close pipe: $!"); } return 1; } sub load { return undef; } 1