File:
[LON-CAPA] /
loncom /
lonmemcached
Revision
1.7:
download - view:
text,
annotated -
select for diffs
Wed Aug 22 19:53:22 2007 UTC (16 years, 11 months ago) by
albertel
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_99_1,
version_2_5_99_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
bz6209-base,
bz6209,
bz5969,
bz2851,
PRINT_INCOMPLETE_base,
PRINT_INCOMPLETE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
- add in revision info
1: #!/usr/bin/perl
2: # $Id: lonmemcached,v 1.7 2007/08/22 19:53:22 albertel Exp $
3:
4: $pidfile="/home/httpd/perl/logs/lonmemcached.pid";
5: $logfile="/home/httpd/perl/logs/lonmemcached.log";
6:
7: if (-e $pidfile) {
8: open(LFH,"$pidfile");
9: my $pide=<LFH>;
10: chomp($pide);
11: close(LFH);
12: if (kill 0 => $pide) { die "already running $pide"; }
13: }
14:
15: if ($pid=fork()) { exit; }
16: open (PIDSAVE,">$pidfile");
17: print PIDSAVE "$$\n";
18: close(PIDSAVE);
19:
20: if (-e '/usr/sbin/memcached') {
21: exec('/usr/sbin/memcached','-m','400','-v');
22: } elsif (-e '/usr/bin/memcached') {
23: exec('/usr/bin/memcached','-m','400','-v');
24: } else {
25: die("Unable to find memcached");
26: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>