]>
git.proxmox.com Git - pve-manager.git/blob - lib/PVE.old/SourceFilter.pm
0b3eb5b3f2df0bb8cb111c532651381ad944bf70
1 package PVE
::SourceFilter
;
3 use Filter
::Util
::Call
;
6 $Data::Dumper
::Indent
= 0;
10 my($type, @arguments) = @_;
21 $status = filter_read
();
26 if (m/^package\s+(\S+);/) {
27 foreach my $k (keys %$self) {delete $self->{$k}; }
28 $self->{packagename
} = $1;
31 if (m/^\s*\#\#FILTER_DATA\#\#/) {
32 my $dtxt = Data
::Dumper-
>Dump ([{%$self}], [qw(stats)]);
33 $_ = "sub filter_data { my $dtxt; die \"PVE::SourceFilter - internal error\" if \$stats->{packagename} ne __PACKAGE__; return \$stats; }\n";
36 if (m/^sub\s+(\w+)\s.*\#\#SOAP_EXPORT\#\#/) {
37 $self->{soap_exports
}->{$1} = 1;