X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fscripts%2Finit.d%2FloadPredefinedStylesheets.pl;fp=helm%2Fscripts%2Finit.d%2FloadPredefinedStylesheets.pl;h=0000000000000000000000000000000000000000;hb=869549224eef6278a48c16ae27dd786376082b38;hp=bf04ef4fb7d204b5c341214f5c9e6ff3415112f7;hpb=89262281b6e83bd2321150f81f1a0583645eb0c8;p=helm.git

diff --git a/helm/scripts/init.d/loadPredefinedStylesheets.pl b/helm/scripts/init.d/loadPredefinedStylesheets.pl
deleted file mode 100755
index bf04ef4fb..000000000
--- a/helm/scripts/init.d/loadPredefinedStylesheets.pl
+++ /dev/null
@@ -1,89 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-use LWP::UserAgent;
-use URI::Escape;
-
-my $usage = <<EOHELP;
-loadPredefinedStylesheets.pl
-loadPredefinedStylesheets.pl { -u | --unload }
-loadPredefinedStylesheets.pl { -r | --reload }
-loadPredefinedStylesheets.pl { -h | --help }
-EOHELP
-
-sub getPredefinedStylesheets ($) {
-  my $confile = shift;
-  my %stylesconf;
-  my $inForm = 0; # currenlty inside 'predefinedStylesheets' form
-  open(CONF, "< $confile") || die "Can't open $confile";
-  while(my $l = <CONF>) {
-    chomp($l);
-    if (not $inForm) {
-      if ($l =~ /<form name="predefinedStylesheets">/) {
-        $inForm = 1;
-      }
-    } else {  # in form
-      if ($l =~ /<\/form>/) {
-        $inForm = 0;
-      } elsif ($l =~ /<option value="[^"]+">/) {
-        my $val = $l;
-        $val =~ s/.*<option value="([^"]+)".*>/$1/;
-        my ($key, $ur, $use_getter) = split /,/, $val;
-        $stylesconf{$key}[0] = $ur;
-        if ($use_getter =~ /true/) {
-          $use_getter = 1;
-        } elsif ($use_getter =~ /false/) {
-          $use_getter = 0;
-        } else {
-          die "Unknown value '$use_getter' for 'use_getter' field.";
-        }
-        $stylesconf{$key}[1] = $use_getter;
-      }
-    }
-  }
-  close(CONF);
-  return %stylesconf;
-}
-
-my $action = "load";
-my $opt = shift || "";
-die $usage if (($opt eq "-h") or ($opt eq "--helm"));
-$action = "unload" if (($opt eq "-u") or ($opt eq "--unload"));
-$action = "reload" if (($opt eq "-r") or ($opt eq "--reload"));
-
-my $confile = $ENV{"UWOBO_PANEL_CONF"} || die "UWOBO_PANEL_CONF not defined";
-my $getter_url = $ENV{"HELM_GETTER_URL"} || die "HELM_GETTER_URL not defined";
-my $uwobo_url = $ENV{"HELM_UWOBO_URL"} || die "HELM_UWOBO_URL not defined";
-my %styles = getPredefinedStylesheets($confile);
-my $request_url = "";
-
-if ($action eq "load") {  # load predefined stylesheets
-  foreach my $k (keys %styles) {
-    $request_url .= "&" unless ($request_url eq "");
-    my $ur = $styles{$k}[0];
-    my $use_getter = $styles{$k}[1];
-    $request_url .= "bind=$k,";
-    my $tmp = "";
-    if ($use_getter) {
-      $tmp .= $getter_url . "getxslt?uri="
-    }
-    $tmp .= $ur;
-    $request_url .= uri_escape($tmp);
-  }
-  $request_url = $uwobo_url . "add?$request_url";
-
-} elsif ($action eq "unload") { # unload predefined stylesheets
-  $request_url = $uwobo_url . "remove?keys=" . join(',', keys %styles);
-
-} elsif ($action eq "reload") { # reload predefined stylesheets
-  $request_url = $uwobo_url . "reload?keys=" . join(',', keys %styles);
-
-} else {  # unknown action
-  die "Unknown action '$action'";
-}
-
-my $agent = LWP::UserAgent->new();
-my $response = $agent->get($request_url);
-print $response->as_string();
-#   print "$request_url\n";
-