[Bio] / Clearinghouse / utils.pm Repository:
ViewVC logotype

Diff of /Clearinghouse/utils.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Tue May 10 16:33:03 2005 UTC revision 1.7, Wed Jan 11 21:19:21 2006 UTC
# Line 8  Line 8 
8    
9  use IO::Handle;  use IO::Handle;
10  use IPC::Open3;  use IPC::Open3;
11    use FileHandle;
12  use HTML;  use HTML;
13  use Clearinghouse::ch_database;  use Clearinghouse::ch_database;
14  use FIG;  use FIG;
15  use FIG_Config;  use FIG_Config;
16    
17  our $fig;  our $fig;
18    our $log_fh;
19    
20  our @EXPORT = qw(check_types  our @EXPORT = qw(check_types
21                   lock_init                   lock_init
# Line 27  Line 29 
29                   insert_meta_data                   insert_meta_data
30                   insert_package_location                   insert_package_location
31                   check_for_duplicates                   check_for_duplicates
32                     log
33                  );                  );
34    
35    sub ch_log
36    {
37        my($str) = @_;
38        if (not defined($log_fh))
39        {
40            &FIG::verify_dir("$FIG_Config::fig/var");
41            $log_fh = new FileHandle  ">>$FIG_Config::fig/var/clearinghouse.log";
42            $log_fh->autoflush(1);
43        }
44    
45        print $log_fh $str;
46    }
47    
48  sub validate_package  sub validate_package
49  {  {
50      my($pkg, $type) = @_;      my($pkg, $type) = @_;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3