dspam-webui.patch

   1 --- dspam-3.6.5/webui/cgi-bin/Makefile.am       2006-05-07 16:07:10.368456730 +0300
   2 +++ dspam-3.6.5/webui/cgi-bin/Makefile.am       2006-05-07 16:23:40.160557961 +0300
   3 @@ -1,17 +1,21 @@
   4  # $Id$
   5  #
   6
   7 -bin_SCRIPTS = configure_pl
   8 -CLEANFILES = configure.pl
   9 -
  10 -EXTRA_DIST =            \
  11 +bindir = $(pkgdatadir)/cgi
  12 +bin_SCRIPTS = \
  13         dspam.cgi       \
  14         graph.cgi       \
  15 +       admin.cgi       \
  16 +       admingraph.cgi
  17 +CLEANFILES = configure.pl
  18 +
  19 +webappdir = /etc/webapps/$(PACKAGE_NAME)
  20 +webapp_DATA = configure.pl \
  21         default.prefs   \
  22 +       admins
  23 +
  24 +EXTRA_DIST =            \
  25         rgb.txt         \
  26 -       admin.cgi       \
  27 -       admingraph.cgi  \
  28 -       admins          \
  29         configure.pl.in
  30
  31  SUBDIRS = templates
  32 @@ -22,5 +26,5 @@
  33         -e 's,@bindir\@,$(bindir),g'
  34
  35 -configure_pl: configure.pl.in Makefile
  36 +configure.pl: configure.pl.in Makefile
  37         ${sed_substitute_variables} < $(srcdir)/configure.pl.in > configure.pl
  38
  39 --- dspam-3.6.5/webui/cgi-bin/templates/Makefile.am     2006-02-13 18:16:57.000000000 +0200
  40 +++ dspam-3.6.5.config/webui/cgi-bin/templates/Makefile.am      2006-05-07 15:24:39.881592142 +0300
  41 @@ -1,6 +1,7 @@
  42  # $Id$
  43
  44 -EXTRA_DIST =            \
  45 +templatesdir = $(pkgdatadir)/cgi/templates
  46 +templates_DATA =            \
  47          nav_alerts.html \
  48          nav_error.html \
  49          nav_performance.html \
  50 --- dspam-3.6.5/webui/htdocs/Makefile.am        2005-07-02 06:59:52.000000000 +0300
  51 +++ dspam-3.6.5.config/webui/htdocs/Makefile.am 2006-05-07 15:25:19.162469057 +0300
  52 @@ -2,7 +2,8 @@
  53  # webui/htdocs/Makefile.am
  54  #
  55
  56 -EXTRA_DIST =           \
  57 +htdocsdir = $(pkgdatadir)/htdocs
  58 +htdocs_DATA =            \
  59         base.css        \
  60         dspam-logo-small.gif
  61
  62 --- dspam-3.6.5/webui/cgi-bin/graph.cgi 2006-05-07 16:30:10.239273555 +0300
  63 +++ dspam-3.6.5/webui/cgi-bin/graph.cgi 2006-05-07 16:33:54.974294724 +0300
  64 @@ -25,11 +25,11 @@
  65  use vars qw { %CONFIG %FORM @spam_day @nonspam_day @period @data };
  66
  67  # Read configuration parameters common to all CGI scripts
  68 -require "configure.pl";
  69 +require "/etc/webapps/dspam/configure.pl";
  70
  71  %FORM = &ReadParse();
  72
  73 -GD::Graph::colour::read_rgb("rgb.txt");
  74 +GD::Graph::colour::read_rgb("/usr/X11R6/lib/X11/rgb.txt");
  75
  76  do {
  77    my($spam, $nonspam, $period) = split(/\_/, $FORM{'data'});
  78 --- dspam-3.6.5/webui/cgi-bin/admingraph.cgi    2006-05-07 16:30:14.049358683 +0300
  79 +++ dspam-3.6.5/webui/cgi-bin/admingraph.cgi    2006-05-07 16:33:57.714355944 +0300
  80 @@ -24,11 +24,11 @@
  81  use vars qw { %CONFIG %FORM @spam @nonspam @period @data @inoc @sm @fp @wh };
  82
  83  # Read configuration parameters common to all CGI scripts
  84 -require "configure.pl";
  85 +require "/etc/webapps/dspam/configure.pl";
  86
  87  %FORM = &ReadParse();
  88
  89 -GD::Graph::colour::read_rgb("rgb.txt");
  90 +GD::Graph::colour::read_rgb("/usr/X11R6/lib/X11/rgb.txt");
  91
  92  do {
  93    my($spam, $nonspam, $sm, $fp, $inoc, $wh, $period) = split(/\_/, $FORM{'data'});
  94 --- dspam-3.6.5/webui/cgi-bin/dspam.cgi 2006-05-07 16:33:59.344392362 +0300
  95 +++ dspam-3.6.5/webui/cgi-bin/dspam.cgi 2006-05-07 16:35:40.756658154 +0300
  96 @@ -25,7 +25,7 @@
  97  require "ctime.pl";
  98
  99  # Read configuration parameters common to all CGI scripts
 100 -require "configure.pl";
 101 +require "/etc/webapps/dspam/configure.pl";
 102
 103  if($CONFIG{"DATE_FORMAT"}) {
 104    use POSIX qw(strftime);
 105 @@ -67,7 +67,7 @@
 106
 107  $CONFIG{'ADMIN'} = 0;
 108  if ($ENV{'REMOTE_USER'} ne "") {
 109 -  open(FILE, "<./admins");
 110 +  open(FILE, "</etc/webapps/dspam/admins");
 111    while(<FILE>) {
 112      chomp;
 113      if ($_ eq $ENV{'REMOTE_USER'}) {
 114 @@ -1576,10 +1576,10 @@
 115
 116    if (keys(%PREFS) eq "0" || $CONFIG{'PREFERENCES_EXTENSION'} != 1) {
 117
 118 -    if (! -e "./default.prefs") {
 119 +    if (! -e "/etc/webapps/dspam/default.prefs") {
 120        &error("Unable to load default preferences");
 121      }
 122 -    open(FILE, "<./default.prefs");
 123 +    open(FILE, "</etc/webapps/dspam/default.prefs");
 124      while(<FILE>) {
 125        chomp;
 126        my($directive, $value) = split(/\=/);
 127 --- dspam-3.6.5/webui/cgi-bin/admin.cgi 2006-05-07 16:34:00.934427888 +0300
 128 +++ dspam-3.6.5/webui/cgi-bin/admin.cgi 2006-05-07 16:37:17.648823791 +0300
 129 @@ -24,7 +24,7 @@
 130  require "ctime.pl";
 131
 132  # Read configuration parameters common to all CGI scripts
 133 -require "configure.pl";
 134 +require "/etc/webapps/dspam/configure.pl";
 135
 136  #
 137  # The current CGI script
 138 @@ -37,7 +37,7 @@
 139  #
 140  do {
 141    my($admin) = 0;
 142 -  open(FILE, "<./admins");
 143 +  open(FILE, "</etc/webapps/dspam/admins");
 144    while(<FILE>) {
 145      chomp;
 146      if ($_ eq $ENV{'REMOTE_USER'}) {
 147 @@ -125,14 +125,14 @@
 148    $USER = $FORM{'username'};
 149
 150    if ($FORM{'username'} eq "") {
 151 -    $FILE = "./default.prefs";
 152 +    $FILE = "/etc/webapps/dspam/default.prefs";
 153      if ($CONFIG{'PREFERENCES_EXTENSION'} != 1 && ! -l "$CONFIG{'DSPAM_HOME'}/default.prefs") {
 154        $DATA{'ERROR'} = "<em>WARNING:</em> " .
 155          "These default preferences will not be loaded by DSPAM, but only by ".
 156          " the CGI interface when a user initially sets up their preferences. ".
 157          "To have DSPAM override its configuration with these default ".
 158          "preferences, symlink $CONFIG{'DSPAM_HOME'}/default.prefs to the ".
 159 -        "default.prefs file in the CGI directory.<BR><BR>";
 160 +        "default.prefs file in the /etc/webapps/dspam directory.<BR><BR>";
 161      }
 162    } else {
 163      $FILE = GetPath($FORM{'username'}) . ".prefs";
 164 @@ -213,7 +213,7 @@
 165    }
 166
 167    if (! -e $FILE) {
 168 -    %PREFS = GetPrefs($USER, "./default.prefs");
 169 +    %PREFS = GetPrefs($USER, "/etc/webapps/dspam/default.prefs");
 170    } else {
 171      %PREFS = GetPrefs($USER, $FILE);
 172    }
 173 @@ -704,7 +704,7 @@
 174      close(PIPE);
 175    } else {
 176      if (! -e $FILE) {
 177 -      $FILE = "./default.prefs";
 178 +      $FILE = "/etc/webapps/dspam/default.prefs";
 179      }
 180
 181      if (! -e $FILE) {