diff --git a/html/ops/stripchart.cgi b/html/ops/stripchart.cgi
new file mode 100755
index 0000000000..bde4d1f3ae
--- /dev/null
+++ b/html/ops/stripchart.cgi
@@ -0,0 +1,466 @@
+#! /usr/local/bin/perl 
+
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.0 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/ 
+# 
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+# License for the specific language governing rights and limitations
+# under the License. 
+# 
+# The Original Code is the Berkeley Open Infrastructure for Network Computing. 
+# 
+# The Initial Developer of the Original Code is the SETI@home project.
+# Portions created by the SETI@home project are Copyright (C) 2002
+# University of California at Berkeley. All Rights Reserved. 
+# 
+# Contributor(s):
+#
+
+# Stripchart.cgi - Version 2.0 by Matt Lebofsky  ( November 4, 2002)
+#
+# Requires: stripchart 
+#           apache or other CGI-enabled web server 
+#
+# Stripchart.cgi is a web-based GUI interface for stripchart, allowing
+# users to display multiple plots from various data sources. 
+#
+# You should only need to edit the variables in the section
+# "GLOBAL/DEFAULT VARS" below
+#
+# Type "stripchart -h" for usage
+#
+# See doc/stripchart.txt for details
+
+use CGI;
+$query = CGI::new();
+use File::Basename;
+use Time::Local;
+
+#####################
+# GLOBAL/DEFAULT VARS
+#####################
+
+# Where are these unix commands located?
+$grepexe = "/usr/bin/grep";
+
+# Where is the stripchart executable located?
+$stripchartexe = "/usr/local/stripchart/stripchart";
+
+# What is the default number of stripcharts?
+$defaultnumcharts = 4;
+
+# Any default flags to send to stripchart?
+$defaultflags = "-s";
+
+# Read in list of datafiles:
+$datafilelist = "/usr/local/www/share/cgi-bin/lib/datafiles";
+@datafiles = `$grepexe -v '^#' $datafilelist`;
+
+# Read in list of queries:
+$queryfilelist = "/usr/local/www/share/cgi-bin/lib/querylist";
+@querylist = `$grepexe -v '^#' $queryfilelist`;
+
+# What time is it right now?
+$rightnow = time;
+($sec,$min,$hour,$day,$month,$year) = localtime($rightnow);
+$sec = "";
+$month++;
+$year += 1900;
+
+# Make file option list based on @datafiles
+$optionlist = "";
+foreach $element (@datafiles) {
+  chomp $element;
+  $thisop = (split /:/, $element)[1];
+  $optionlist .= "<option>$thisop</option>\n";
+  }
+
+# Make query option list based on @querylist
+$queryoptionlist = "<option value=\"stripchart.cgi\">------------------------------</option>";
+foreach $element (@querylist) {
+  chomp $element;
+  ($thisname,$thisquery) = (split /:/, $element)[0,1];
+  $queryoptionlist .= "<option value=\"stripchart.cgi?$thisquery\">$thisname</option>\n";
+  }
+
+# Make year list based on time right now, and other lists
+$yearlist = "";
+for ($i = $year; $i> 1999; $i--) { $yearlist .= "<option>$i</option>\n" }
+$monthlist = sprintf("<option>%02d</option>\n",$month);
+foreach $i (01 .. 12) { $monthlist .= sprintf("<option>%02d</option>\n",$i) }
+$daylist = sprintf("<option>%02d</option>\n",$day);
+foreach $i (01 .. 31) { $daylist .= sprintf("<option>%02d</option>\n",$i) }
+$hourlist = sprintf("<option>%02d</option>\n",$hour);
+foreach $i (00 .. 23) { $hourlist .= sprintf("<option>%02d</option>\n",$i) }
+$minlist = sprintf("<option>%02d</option>\n",$min);
+for ($i=0; $i<59; $i+=5) { $minlist .= sprintf("<option>%02d</option>\n",$i) }
+
+# Seconds in a day
+$daysecs = 86400;
+
+#############
+# SUBS
+#############
+
+sub to_unix_time {
+  # same routine as in stripchart
+
+  # no colons and no decimal point? must already be in unix time
+  if ($_[0] !~ /:/ && $_[0] !~ /\./ ) { return $_[0] }
+
+  # colons = civil time
+  if ($_[0] =~ /:/) {
+    (my $year, my $month, my $day, my $hour, my $minute) = split /:/, $_[0];
+    $month--;
+    return timelocal(0,$minute,$hour,$day,$month,$year)
+    }
+
+  # must be julian date
+  return (($_[0] - 2440587.5) * $daysecs);
+
+  }
+
+#############
+# MAIN
+#############
+
+# ARE WE JUST PLOTTING A SINGLE GRAPH?
+# 
+# stripchart.cgi calls itself via an "<IMG SRC=" tag, so we need to
+# act accordingly - if all we have to do is call stripchart to plot
+# a graph based on the user-selected flags, then do so and exit:
+
+if ($query->param("flags") ne "") {
+  $flags = $query->param("flags");
+  $outfile = "/tmp/tempout$$" . "." . rand(100000);
+  print "Content-type: image/gif\n\n";
+  `$stripchartexe $flags > $outfile`;
+  open (OUTFILE,"$outfile");
+  while ($dummy=read(OUTFILE,$buffer,1024)) { print $buffer }
+  close (OUTFILE);
+  exit 0
+  }
+
+# ARE WE SAVING/DELETING A QUERY?
+#
+# If the user chose to save or delete a query, act on that and
+# then continue on with the standard plots:
+
+if ($query->param("sqname") ne "") {
+  $sqname = $query->param("sqname");
+  # are we deleting it?
+  if ($query->param("delq") eq "y") {
+    @querylist = `$grepexe -v '^$sqname:' $queryfilelist`;
+    open (QUERYLIST,">$queryfilelist");
+    flock (QUERYLIST,2);
+    foreach $queryline (@querylist) {
+      print QUERYLIST $queryline
+      }
+    }
+  # must be saving it
+  else {
+    # first check to see if query already in the list
+    $found = 0;
+    foreach $checkline (@querylist) {
+      ($key,$value) = split /:/, $checkline;
+      if ($key eq $sqname) { $found = 1 }
+      }
+    # not found - add it to the end 
+    if (!$found) { 
+      open (QUERYLIST,">>$queryfilelist");
+      flock (QUERYLIST,2);
+      $fullquery = $ENV{'QUERY_STRING'};
+      $fullquery =~ s/sqname=$sqname//;
+      print QUERYLIST "$sqname:$fullquery\n";
+      close (QUERYLIST);
+      }
+    }
+  }
+
+# PARSE INCOMING
+$datafile1 = $query->param("df1");
+ 
+$numcharts = $query->param("numcharts");
+if ($numcharts == 0) { $numcharts = $defaultnumcharts }
+
+print $query->header;
+print << "EOF";
+<html>
+<head>
+<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
+<META HTTP-EQUIV="Expires" CONTENT="-1">
+<title>Stripchart</title>
+</head>
+<body>
+EOF
+
+if ($datafile1 ne "") { # stripcharts were selected, so plot them
+
+foreach $which (1 .. $numcharts) {
+  $thisfile = $query->param("df$which");
+  if ($thisfile eq "No plot" || $thisfile =~ /^-+$/ || $thisfile eq "") { next }
+  if ($thisfile eq "Same as datafile 1") { $thisfile = $query->param("df1") }
+  $rangetype = $query->param("dr$which");
+  $trustnum = $which;
+  $from = "-f ";
+  $to = "";
+  if ($rangetype eq "sa1") { $rangetype = $query->param("dr1"); $trustnum = 1 }
+  if ($rangetype eq "lh") { $from .= "-" .($query->param("lhv$trustnum") / 24) }
+  elsif ($rangetype eq "ld") { $from .= "-" . ($query->param("ldv$trustnum")) }
+  else {
+    $fromstring = $query->param("dfy$trustnum") . ":" .
+                  $query->param("dfm$trustnum") . ":" .
+                  $query->param("dfd$trustnum") . ":" .
+                  $query->param("dfh$trustnum") . ":" .
+                  $query->param("dfn$trustnum");
+    $tostring = $query->param("dty$trustnum") . ":" .
+                $query->param("dtm$trustnum") . ":" .
+                $query->param("dtd$trustnum") . ":" .
+                $query->param("dth$trustnum") . ":" .
+                $query->param("dtn$trustnum");
+    $from .= to_unix_time($fromstring);
+    $to = "-t " . to_unix_time($tostring)
+    }
+
+  foreach $element (@datafiles) {
+    ($maybepath,$maybefile,$maybedatacol,$maybeflags) = split /:/, $element;
+    if ($maybefile eq $thisfile) {
+      $fullpath = $maybepath;
+      $datacol = $maybedatacol;
+      $flags = $maybeflags;
+      }
+    }
+
+  $flags .= " $from $to";
+
+  if ($query->param("log$which")) { $flags .= " -L" }
+  if ($query->param("bavg$which")) { $flags .= " -B " }
+  if ($query->param("base$which")) { $flags .= " -b " . $query->param("basev$which") }
+  if ($query->param("ymin$which")) { $flags .= " -d " . $query->param("yminv$which") }
+  if ($query->param("ymax$which")) { $flags .= " -D " . $query->param("ymaxv$which") }
+  if ($query->param("savem")) { $flags .= " -O /tmp/stripchart_plot_$which.gif" }
+
+  
+  $flags .= " -i $fullpath -y $datacol -T \"$thisfile RANGE\"  $defaultflags";
+
+  $fixflags = $flags;
+  $fixflags =~ s/ /+/g;
+  $fixflags =~ s/"/%22/g;
+
+  print "<img src=\"stripchart.cgi?flags=$fixflags\"><br>\n"
+
+  }
+print "<hr>";
+
+  }
+
+# Now display the user entry form:
+
+print << "EOF";
+<form name="Saved queries">
+<font size=2>
+Select a saved query if you like: 
+</font>
+<font size=1>
+<select onChange="location = this.options[selectedIndex].value">
+$queryoptionlist
+</select>
+</font>
+</form>
+<font size=2>
+
+Number of stripcharts: 
+EOF
+for ($i=1;$i<21;$i++) {
+  $fullquery = $ENV{'QUERY_STRING'};
+  $fullquery =~ s/numcharts=\d+//;
+  $fullquery =~ s/&+/&/g;
+  $fullquery =~ s/^&//;
+  print "<a href=\"stripchart.cgi?$fullquery&numcharts=$i\">$i</a>\n"
+  }
+
+print << "EOF";
+<p>
+<form action=stripchart.cgi>
+<input type=submit value="click here" name=submit> to plot stripcharts -
+enter name:
+<input type=text name=sqname size=20>
+to save query (check here: 
+<input type=checkbox name=delq value=y>
+to delete)
+<input type=hidden value=$numcharts name=numcharts>
+<p>
+EOF
+
+foreach $which (1 .. $numcharts) {
+  $thisoptionlist = $optionlist;
+  if ($which > 1) { 
+    $thisoptionlist = "<option>No plot</option>\n" .
+                      "<option>Same as datafile 1</option>\n" . 
+                      "<option>----------------------------</option>\n" . $optionlist 
+    }
+  if ($dummy = $query->param("df$which")) {
+    $dummy = "<option>$dummy</option>";
+    $newoptionlist = "$dummy\n";
+    foreach $thisline (split /\n/, $thisoptionlist) {
+      if ($dummy ne $thisline) { $newoptionlist .= "$thisline\n" }
+      }
+    $thisoptionlist = $newoptionlist;
+    }
+  $lhc = "";
+  $ldc = "";
+  $ownc = "";
+  $sa1c = "";
+  if ($dummy = $query->param("dr$which")) {
+    if ($dummy eq "lh") { $lhc = "checked" }
+    elsif ($dummy eq "ld") { $ldc = "checked" }
+    elsif ($dummy eq "own") { $ownc = "checked" }
+    elsif ($dummy eq "sa1") { $sa1c = "checked" }
+    }
+  else {
+    if ($which > 1) { $sa1c = "checked" }
+    else { $lhc = "checked" }
+    }
+  $samerange = "";
+  if ($which > 1) {
+    $samerange = "<input type=radio name=dr$which value=sa1 $sa1c> Same range as datafile 1"
+    }
+
+  $logcheck = "";
+  if ($query->param("log$which") eq "y") { $logcheck = "checked" }
+
+  $bavgcheck = "";
+  if ($query->param("bavg$which") eq "y") { $bavgcheck = "checked" }
+  $basecheck = "";
+  if ($query->param("base$which") eq "y") { $basecheck = "checked"; $baseval = $query->param("basev$which") }
+
+
+  $ymincheck = "";
+  $ymaxcheck = "";
+  if ($query->param("ymin$which") eq "y") { $ymincheck = "checked"; $yminval = $query->param("yminv$which") }
+  if ($query->param("ymax$which") eq "y") { $ymaxcheck = "checked"; $ymaxval = $query->param("ymaxv$which") }
+
+  if ($dummy = $query->param("dfy$which")) { 
+    $dfytop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dfytop = "" }
+  if ($dummy = $query->param("dfm$which")) { 
+    $dfmtop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dfmtop = "" }
+  if ($dummy = $query->param("dfd$which")) { 
+    $dfdtop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dfdtop = "" }
+  if ($dummy = $query->param("dfh$which")) { 
+    $dfhtop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dfhtop = "" }
+  if ($dummy = $query->param("dfn$which")) { 
+    $dfntop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dfntop = "" }
+
+  if ($dummy = $query->param("dty$which")) { 
+    $dtytop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dtytop = "" }
+  if ($dummy = $query->param("dtm$which")) { 
+    $dtmtop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dtmtop = "" }
+  if ($dummy = $query->param("dtd$which")) { 
+    $dtdtop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dtdtop = "" }
+  if ($dummy = $query->param("dth$which")) { 
+    $dthtop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dthtop = "" }
+  if ($dummy = $query->param("dtn$which")) { 
+    $dtntop = "<option>$dummy</option>\n<option>---</option>\n" }
+  else { $dtntop = "" }
+  
+  $lhourlist = "";
+  if ($query->param("lhv$which")) {
+    $lhourlist = "<option>" . $query->param("lhv$which") . "</option>";
+    }
+  foreach $hourval (24,36,48,60,72) {
+    if ($hourval != $query->param("lhv$which")) {
+      $lhourlist .= "<option>$hourval</option>";
+      }
+    } 
+
+  $ldaylist = "";
+  if ($query->param("ldv$which")) {
+    $ldaylist = "<option>" . $query->param("ldv$which") . "</option>";
+    }
+  foreach $dayval (2,3,4,5,6,7,10,14,21,28,30,60,90,120,240,360,720) {
+    if ($dayval != $query->param("ldv$which")) {
+      $ldaylist .= "<option>$dayval</option>";
+      }
+    } 
+    
+print << "EOF";
+please select datafile $which: 
+<select name=df$which size=1>
+$thisoptionlist
+</select>
+<br>
+<input type=radio name=dr$which value=lh $lhc> Last 
+<font size=1>
+<select name=lhv$which size=1>
+$lhourlist
+</select>
+</font>
+<font size=2>
+hours&nbsp;&nbsp;&nbsp;
+<input type=radio name=dr$which value=ld $ldc> Last 
+</font>
+<font size=1>
+<select name=ldv$which size=1>
+$ldaylist
+</select>
+</font>
+<font size=2>
+days&nbsp;&nbsp;&nbsp;
+$samerange
+<br>
+<input type=radio name=dr$which value=own $ownc> Enter range:
+</font>
+<font size=1>
+<select name=dfy$which size=1>$dfytop$yearlist
+</select>/<select name=dfm$which size=1>$dfmtop$monthlist
+</select>/<select name=dfd$which size=1>$dfdtop$daylist
+</select> <select name=dfh$which size=1>$dfhtop$hourlist
+</select>:<select name=dfn$which size=1>$dfntop$minlist
+</select> ->
+<select name=dty$which size=1>$dtytop$yearlist
+</select>/<select name=dtm$which size=1>$dtmtop$monthlist
+</select>/<select name=dtd$which size=1>$dtdtop$daylist
+</select> <select name=dth$which size=1>$dthtop$hourlist
+</select>:<select name=dtn$which size=1>$dtntop$minlist
+</select> 
+</font>
+<font size=2>
+<br>
+<input type=checkbox name=log$which value=y $logcheck> Log y axis?
+<input type=checkbox name=bavg$which value=y $bavgcheck> Baseline average, or 
+<input type=checkbox name=base$which value=y $basecheck> Baseline at:
+<input type=text name=basev$which value="$baseval" size=8>
+<input type=checkbox name=ymin$which value=y $ymincheck> Y min:
+<input type=text name=yminv$which value="$yminval" size=8>
+<input type=checkbox name=ymax$which value=y $ymaxcheck> Y max:
+<input type=text name=ymaxv$which value="$ymaxval" size=8>
+</font>
+<hr>
+EOF
+
+  } # end foreach $which
+
+print << "EOF";
+<input type=checkbox name=savem value=y> Save images in /tmp?
+<br>
+<input type=submit value="click here" name=submit> to plot stripcharts
+</td></tr></table>
+</form><p>
+<a href=stripchart.cgi>Reset Form</a><p>
+(Note: A set of stripcharts takes upwards to 10-60 seconds to generate)
+</font>
+</body></html>
+EOF
+