FileMgr

✏️ /usr/share/perl5/Debconf/DbDriver/Cache.pm

✕ Tutup

#!/usr/bin/perl
# This file was preprocessed, do not edit!

package Debconf::DbDriver::Cache;
use warnings;
use strict;
use Debconf::Log qw{:all};
use base 'Debconf::DbDriver';

use fields qw(cache dirty);

sub iterator {
	my $this=shift;
	my $subiterator=shift;

my @items=keys %{$this->{cache}};
	my $iterator=Debconf::Iterator->new(callback => sub {
		while (my $item = pop @items) {
			next unless defined $this->{cache}->{$item};
			return $item;
		}
		return unless $subiterator;
		my $ret;
		do {
			$ret=$subiterator->iterate;
		} while defined $ret and exists $this->{cache}->{$ret};
		return $ret;
	});
	return $iterator;
}

sub exists {
	my $this=shift;
	my $item=shift;

return $this->{cache}->{$item}
		if exists $this->{cache}->{$item};
	return 0;
}

sub init {
	my $this=shift;

$this->{cache} = {} unless exists $this->{cache};
}

sub cacheadd {
	my $this=shift;
	my $item=shift;
	my $entry=shift;

return if exists $this->{cache}->{$item};

$this->{cache}->{$item}=$entry;
	$this->{dirty}->{$item}=0;
}

sub cachedata {
	my $this=shift;
	my $item=shift;

return $this->{cache}->{$item};
}

sub cached {
	my $this=shift;
	my $item=shift;

unless (exists $this->{cache}->{$item}) {
		debug "db $this->{name}" => "cache miss on $item";
		$this->load($item);
	}
	return $this->{cache}->{$item};
}

sub shutdown {
	my $this=shift;

return if $this->{readonly};

my $ret=1;
	foreach my $item (keys %{$this->{cache}}) {
		if (not defined $this->{cache}->{$item}) {
			$ret=undef unless defined $this->remove($item);
			delete $this->{cache}->{$item};
		}
		elsif ($this->{dirty}->{$item}) {
			$ret=undef unless defined $this->save($item, $this->{cache}->{$item});
			$this->{dirty}->{$item}=0;
		}
	}
	return $ret;
}

sub addowner {
	my $this=shift;
	my $item=shift;
	my $owner=shift;
	my $type=shift;

return if $this->{readonly};
	$this->cached($item);

if (! defined $this->{cache}->{$item}) {
		return if ! $this->accept($item, $type);
		debug "db $this->{name}" => "creating in-cache $item";
		$this->{cache}->{$item}={
			owners => {},
			fields => {},
			variables => {},
			flags => {},
		}
	}

if (! exists $this->{cache}->{$item}->{owners}->{$owner}) {
		$this->{cache}->{$item}->{owners}->{$owner}=1;
		$this->{dirty}->{$item}=1;
	}
	return $owner;
}

sub removeowner {
	my $this=shift;
	my $item=shift;
	my $owner=shift;

return if $this->{readonly};
	return unless $this->cached($item);

if (exists $this->{cache}->{$item}->{owners}->{$owner}) {
		delete $this->{cache}->{$item}->{owners}->{$owner};
		$this->{dirty}->{$item}=1;
	}
	unless (keys %{$this->{cache}->{$item}->{owners}}) {
		$this->{cache}->{$item}=undef;
		$this->{dirty}->{$item}=1;
	}
	return $owner;
}

sub owners {
	my $this=shift;
	my $item=shift;

return unless $this->cached($item);
	return keys %{$this->{cache}->{$item}->{owners}};
}

sub getfield {
	my $this=shift;
	my $item=shift;
	my $field=shift;

return unless $this->cached($item);
	return $this->{cache}->{$item}->{fields}->{$field};
}

sub setfield {
	my $this=shift;
	my $item=shift;
	my $field=shift;
	my $value=shift;

return if $this->{readonly};
	return unless $this->cached($item);
	$this->{dirty}->{$item}=1;
	return $this->{cache}->{$item}->{fields}->{$field} = $value;
}

sub removefield {
	my $this=shift;
	my $item=shift;
	my $field=shift;

return if $this->{readonly};
	return unless $this->cached($item);
	$this->{dirty}->{$item}=1;
	return delete $this->{cache}->{$item}->{fields}->{$field};
}

sub fields {
	my $this=shift;
	my $item=shift;

return unless $this->cached($item);
	return keys %{$this->{cache}->{$item}->{fields}};
}

sub getflag {
	my $this=shift;
	my $item=shift;
	my $flag=shift;

return unless $this->cached($item);
	return $this->{cache}->{$item}->{flags}->{$flag}
		if exists $this->{cache}->{$item}->{flags}->{$flag};
	return 'false';
}

sub setflag {
	my $this=shift;
	my $item=shift;
	my $flag=shift;
	my $value=shift;

return if $this->{readonly};
	return unless $this->cached($item);
	$this->{dirty}->{$item}=1;
	return $this->{cache}->{$item}->{flags}->{$flag} = $value;
}

sub flags {
	my $this=shift;
	my $item=shift;

return unless $this->cached($item);
	return keys %{$this->{cache}->{$item}->{flags}};
}

sub getvariable {
	my $this=shift;
	my $item=shift;
	my $variable=shift;

return unless $this->cached($item);
	return $this->{cache}->{$item}->{variables}->{$variable};
}

sub setvariable {
	my $this=shift;
	my $item=shift;
	my $variable=shift;
	my $value=shift;

return if $this->{readonly};
	return unless $this->cached($item);
	$this->{dirty}->{$item}=1;
	return $this->{cache}->{$item}->{variables}->{$variable} = $value;
}

sub variables {
	my $this=shift;
	my $item=shift;

return unless $this->cached($item);
	return keys %{$this->{cache}->{$item}->{variables}};
}

Batal

⬅ Debconf 11 item

Nama	Tipe	Ukuran	Diubah	Perm	Aksi
📄 Backup.pm	pm	1.6 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Cache.pm	pm	4.7 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Copy.pm	pm	959 B	12/04/24 12:40	0644	✏️ ⬇
📄 Debug.pm	pm	961 B	12/04/24 12:40	0644	✏️ ⬇
📄 DirTree.pm	pm	1.9 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Directory.pm	pm	3.6 KB	12/04/24 12:40	0644	✏️ ⬇
📄 File.pm	pm	3.6 KB	12/04/24 12:40	0644	✏️ ⬇
📄 LDAP.pm	pm	6.1 KB	12/04/24 12:40	0644	✏️ ⬇
📄 PackageDir.pm	pm	3.6 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Pipe.pm	pm	1.8 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Stack.pm	pm	5.1 KB	12/04/24 12:40	0644	✏️ ⬇

✏️ Rename

🔑 Ubah Permission