PasteSite.Com

Recent Pastes

Sign Up!

PasteSite is open to the public, but with limited features. Register to be able to modify access rights, track your pastes and more...

Change the theme

If you prefer reading light text on a dark background to dark text on a light background, then you might want to try the dark theme. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

}@requests;
#print Dumper(\@rsp);
print objToJson(\@rsp,{autoconv=>0});
FbLogger();

sub getparams {
        my ($params) = @_;

        my @array = @$params;
        my $string = undef;
        my $p = undef;
        my @ret = map {
                $p = $_;
                my $param = $q->param($p);
        $param =~ s#'#\\'#g;
                "'".$param."'";
        }@array;
        return join(', ', @ret);
}

sub FbLogger
{
        open(LOG, ">>/tmp/logfb.txt");
        my @skiplist = qw(gethotrbt gethotrbttaggedratinginfo getfeaturedrbt getfeaturedrbttaggedratinginfo gettoprbt gettoprbttaggedratinginfo);
        my $count = 0;
        $count = grep $oper, @skiplist;
        if(!$count) {
                my $dumper = Data::Dumper->new([\$q,\@rsp]);
                my $dumpedValues = $dumper->Dump();
                print LOG $dumpedValues;
        }
        return;
}

Reply to This Paste

(leave blank to make this paste permanent)
(if set as private)