]>
Commit | Line | Data |
---|---|---|
aff192e6 DM |
1 | package PVE::SourceFilter; |
2 | ||
3 | use Filter::Util::Call; | |
4 | use Data::Dumper; | |
5 | ||
6 | $Data::Dumper::Indent = 0; | |
7 | ||
8 | sub import | |
9 | { | |
10 | my($type, @arguments) = @_; | |
11 | ||
12 | my $stat = {}; | |
13 | filter_add ($stat) ; | |
14 | } | |
15 | ||
16 | sub filter | |
17 | { | |
18 | my($self) = @_ ; | |
19 | my($status) ; | |
20 | ||
21 | $status = filter_read(); | |
22 | if ($status <= 0) { | |
23 | return $status; | |
24 | } | |
25 | ||
26 | if (m/^package\s+(\S+);/) { | |
27 | foreach my $k (keys %$self) {delete $self->{$k}; } | |
28 | $self->{packagename} = $1; | |
29 | } | |
30 | ||
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"; | |
34 | } | |
35 | ||
36 | if (m/^sub\s+(\w+)\s.*\#\#SOAP_EXPORT\#\#/) { | |
37 | $self->{soap_exports}->{$1} = 1; | |
38 | } | |
39 | ||
40 | $self->{lines}++; | |
41 | ||
42 | $status ; | |
43 | } | |
44 | ||
45 | 1; |