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, 7 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_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>