4 my $confile = $ENV{"UWOBO_PANEL_CONF"} || die "UWOBO_PANEL_CONF not defined";
9 sub getPredefinedStylesheets () {
11 my $inForm = 0; # currenlty inside 'predefinedStylesheets' form
12 open(CONF, "< $confile") || die "Can't open $confile";
13 while(my $l = <CONF>) {
16 if ($l =~ /<form name="predefinedStylesheets">/) {
20 if ($l =~ /<\/form>/) {
22 } elsif ($l =~ /<option value="[^"]+">/) {
24 $val =~ s/.*<option value="([^"]+)".*>/$1/;
25 my ($key, $ur, $use_getter) = split /,/, $val;
26 $stylesconf{$key}[0] = $ur;
27 if ($use_getter =~ /true/) {
29 } elsif ($use_getter =~ /false/) {
32 die "Unknown value '$use_getter' for 'use_getter' field.";
34 $stylesconf{$key}[1] = $use_getter;
43 my $getter_url = $ENV{"HELM_GETTER_URL"} || die "HELM_GETTER_URL not defined";
44 my $uwobo_url = $ENV{"HELM_UWOBO_URL"} || die "HELM_UWOBO_URL not defined";
45 my %styles = getPredefinedStylesheets();
47 foreach my $k (keys %styles) {
48 $request_url .= "&" unless ($request_url eq "");
49 my $ur = $styles{$k}[0];
50 my $use_getter = $styles{$k}[1];
51 $request_url .= "bind=$k,";
54 $tmp .= $getter_url . "getxslt?uri="
57 $request_url .= uri_escape($tmp);
59 $request_url = $uwobo_url . "add?$request_url";
60 my $agent = LWP::UserAgent->new();
61 my $response = $agent->get($request_url);
62 print $response->as_string();
63 # print "$request_url\n";