home *** CD-ROM | disk | FTP | other *** search
/ ftp.f-secure.com / 2014.06.ftp.f-secure.com.tar / ftp.f-secure.com / support / hotfix / fsis / IS-SpamControl.fsfix / iufssc / lib / Mail / SpamAssassin / Locker.pm < prev    next >
Text File  |  2006-11-29  |  2KB  |  77 lines
  1. # <@LICENSE>
  2. # Licensed to the Apache Software Foundation (ASF) under one or more
  3. # contributor license agreements.  See the NOTICE file distributed with
  4. # this work for additional information regarding copyright ownership.
  5. # The ASF licenses this file to you under the Apache License, Version 2.0
  6. # (the "License"); you may not use this file except in compliance with
  7. # the License.  You may obtain a copy of the License at:
  8. # 
  9. #     http://www.apache.org/licenses/LICENSE-2.0
  10. # 
  11. # Unless required by applicable law or agreed to in writing, software
  12. # distributed under the License is distributed on an "AS IS" BASIS,
  13. # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14. # See the License for the specific language governing permissions and
  15. # limitations under the License.
  16. # </@LICENSE>
  17.  
  18. package Mail::SpamAssassin::Locker;
  19.  
  20. use strict;
  21. use warnings;
  22. use bytes;
  23. use Fcntl;
  24.  
  25. use Mail::SpamAssassin;
  26.  
  27. use vars qw{
  28.   @ISA
  29. };
  30.  
  31. @ISA = qw();
  32.  
  33. ###########################################################################
  34.  
  35. sub new {
  36.   my $class = shift;
  37.   $class = ref($class) || $class;
  38.   my $self = { };
  39.   bless ($self, $class);
  40.   $self;
  41. }
  42.  
  43. ###########################################################################
  44.  
  45. sub safe_lock {
  46.   my ($self, $path, $max_retries, $mode) = @_;
  47.   # max_retries is optional, should default to about 30
  48.   # mode is UNIX-style and optional, should default to 0700,
  49.   # callers must specify --x bits
  50.   die "locker: safe_lock not implemented by Locker subclass";
  51. }
  52.  
  53. ###########################################################################
  54.  
  55. sub safe_unlock {
  56.   my ($self, $path) = @_;
  57.   die "locker: safe_unlock not implemented by Locker subclass";
  58. }
  59.  
  60. ###########################################################################
  61.  
  62. sub refresh_lock {
  63.   my ($self, $path) = @_;
  64.   die "locker: refresh_lock not implemented by Locker subclass";
  65. }
  66.  
  67. ###########################################################################
  68.  
  69. sub jittery_one_second_sleep {
  70.   my ($self) = @_;
  71.   select(undef, undef, undef, (rand(1.0) + 0.5));
  72. }
  73.  
  74. ###########################################################################
  75.  
  76. 1;
  77.