[Bio] / FigCommon / env.linux-debian.pl Repository:
ViewVC logotype

Annotation of /FigCommon/env.linux-debian.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : olson 1.1 #
2 :     # Linux-postgres-specific configuration.
3 :     #
4 :    
5 :     #
6 :     # Invoke the postgres-specific configuration.
7 :     #
8 :     # We'll find it in the FigCommon directory.
9 :     #
10 :    
11 :     #$ cat /proc/meminfo
12 :     # total: used: free: shared: buffers: cached:
13 :     # Mem: 526127104 519618560 6508544 0 117166080 330891264
14 :     # Swap: 263200768 93118464 170082304
15 :     #
16 :    
17 :    
18 :     my $fh;
19 :     if (open($fh, "</proc/meminfo"))
20 :     {
21 :     while (<$fh>)
22 :     {
23 :     print;
24 :     if (/^Mem:\s+(\d+)/)
25 :     {
26 :     $OtherConfig->{memory} = $1;
27 :     last;
28 :     }
29 :     elsif (/^MemTotal:\s+(\d+)\s+(\S+)/)
30 :     {
31 :     my $mem = $1;
32 :     my $units = lc($2);
33 :     if ($units eq "kb")
34 :     {
35 :     $mem *= 1024;
36 :     }
37 :     elsif ($units eq "mb")
38 :     {
39 :     $mem *= 1024 * 1024;
40 :     }
41 :     elsif ($units eq "gb")
42 :     {
43 :     $mem *= 1024 * 1024 * 1024;
44 :     }
45 :    
46 :     $OtherConfig->{memory} = $mem;
47 :     last;
48 :     }
49 :     }
50 :    
51 :     close($fh);
52 :     }
53 :    
54 :     if (open($fh, "</proc/sys/kernel/shmmax"))
55 :     {
56 :     $_ = <$fh>;
57 :     if (/^(\d+)$/)
58 :     {
59 :     $OtherConfig->{shmmax} = $1;
60 :     }
61 :     }
62 :    
63 :     $pg_script = "$ENV{FIGCONFIG_RELEASE_DIR}/FigCommon/envsub.postgres.pl";
64 :    
65 :     run_script($pg_script);
66 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3