--- /dev/null
+#################################################################################################
+#################################################################################################
+#################################################################################################
+# Commands subrutines
+#################################################################################################
+#################################################################################################
+#################################################################################################
+
+#################################################################################################
+# sub add
+# Usage: add($http_query);
+# Returns: values for HTTP::Response
+# Do: add stylesheet(s) to hash
+# Used by: daemon
+# Uses : addparsequery, addvalues, ok_replace,
+# ok_print, synerror_print, operror_print
+#################################################################################################
+sub add
+{
+ my $http_query = shift(@_); # querystring
+ my $cont =""; # return value
+ my @binds; #values of binds passed via querystring
+ my $err; # error string
+ if ($err = addparsequery($http_query,\@binds)) { return synerror_print($err,$add_usage); }
+ else
+ {
+ foreach my $bind (@binds)
+ {
+ my ($a_key , $e_uri) = split(/,/,$bind,2);
+ my $une_uri = uri_unescape($e_uri);
+ if ($err = addvalues($a_key,$une_uri)) { $cont .= "$err\n"; }
+ else { $cont .= ok_replace("$s_add\n",$a_key,$une_uri); }
+ }#foreach
+ return ok_print($cont);
+ }
+}
+#################################################################################################
+
+#################################################################################################
+# sub remove
+# Usage: remove($http_query);
+# Returns: values for HTTP::Response
+# Do: remove stylesheet(s) from hash
+# Used by: daemon
+# Uses : reparsequery, getkeys, recheckvalues, removevalues,
+# ok_print, synerror_print, operror_print
+#################################################################################################
+sub remove
+{
+ my $http_query = shift(@_); # querystring
+ my $rem_keys;
+ my $cont="";
+ my $err;
+ if ($http_query eq "")
+ {
+ my $i=0;
+ foreach my $rem_key (keys %stylesheet_hash)
+ {
+ $cont .= removevalues($rem_key);
+ $i++;
+ }
+ if ($i==0) { return operror_print($error{"re_no_sl"}); }
+ }
+ elsif ($err = reparsequery($http_query,$rem_keys)){return synerror_print($err,$remove_usage);}
+ else
+ {
+ foreach my $rem_key (split (/,/,$rem_keys))
+ {
+ if (my $err = recheckvalues($rem_key)) { $cont .= "$err\n"; }
+ else { $cont .= removevalues($rem_key); }
+ }
+ }
+ return ok_print($cont);
+}
+#################################################################################################
+
+#################################################################################################
+# sub reload
+# Usage: remove($http_query);
+# Returns: values for HTTP::Response
+# Do: remove stylesheet(s) from hash
+# Used by: daemon
+# Uses : reparsequery, getkeys, recheckvalues, removevalues,
+# ok_print, synerror_print, operror_print
+#################################################################################################
+sub reload #reload stylesheet(s) from hash
+{
+ my $http_query = shift(@_);
+ my $rel_keys;
+ my @rel_k;
+ my $dr_cont = "";
+ if ($http_query eq "")
+ {
+ my $i=0;
+ foreach my $key (keys %stylesheet_hash)
+ {
+ if (my $err = reloadvalues($key)) { return $dr_cont .= $err; }
+ else {$dr_cont .= ok_replace("$s_reload\n",$key,$stylesheet_hash{$key}[0]);}
+ $i++;
+ }
+ if ($i==0) { return operror_print($error{"re_no_sl"}); }
+ }
+ elsif ($err = reparsequery($http_query,$rel_keys)){return synerror_print($err,$reload_usage);}
+ else
+ {
+ foreach my $key (split (/,/,$rel_keys))
+ {
+ if (my $err = reloadvalues($key)) { return $dr_cont .= $err; }
+ else {$dr_cont .= ok_replace("$s_reload\n",$key,$stylesheet_hash{$key}[0]);}
+ }
+ }
+ return ok_print($dr_cont);
+}
+#################################################################################################
+
+sub apply #apply stylesheets
+{
+ my $http_query = shift(@_);
+ my $headers_ptr = shift(@_);
+ my $xmluri;
+ my @applykeys;
+ my %app_param;
+ my %app_prop;
+ my $results;
+ my $lastkey;
+ my $enc;
+
+ if (my $err=applyparsequery($http_query,\@applykeys,\%app_param,\%app_prop,$xmluri))
+ {
+ return synerror_print($err,$apply_usage);
+ }
+ elsif (my $err=applycheckvalues(\@applykeys)) { return operror_print($err); }
+ elsif (my $err=load_xml_doc($xmluri,$results)) { return operror_print($err); }
+ #apply
+ foreach my $applykey (@applykeys)
+ {
+ $lastkey=$applykey;
+ if (my $err=apply_style($applykey,\%{$app_param{$applykey}},$results))
+ {
+ return operror_print($err);
+ }
+ }#foreach
+ my $i=0;
+ while (my ($n, $v) = each %app_prop)
+ {
+ if (($n eq "method") or ($n eq "METHOD"))
+ {
+ if ($v eq 'html') { $headers_ptr->{'Content-Type'}='text/html'; }
+ elsif ($v eq 'text') { $headers_ptr->{'Content-Type'}='text/plain'; }
+ else { $headers_ptr->{'Content-Type'}='text/xml'; }
+ }
+ if (($n eq "encoding") or ($n eq "ENCODING"))
+ {
+ $headers_ptr->{'Content-Encoding'}=$v;
+ if ($v ne "UTF-8") { $enc = $v; }
+ }
+ if (($n eq "media-type") or ($n eq "MEDIA_TYPE") or ($n eq "MEDIA-TYPE"))
+ {
+ $headers_ptr->{'Content-Type'}=$v;
+ }
+ $i++;
+ }
+ if ($i == 0)
+ {
+ %$headers_ptr= ('Cache-Control' => 'no-cache','Pragma' => "no-cache",'Expires' => '0');
+ return get_results($lastkey,$results);
+ }
+ else
+ {
+ my $result;
+ $headers_ptr->{'Cache-Control'} = 'no-cache';
+ $headers_ptr->{'Pragma'} = "no-cache";
+ $headers_ptr->{'Expires'} = '0';
+ if ($headers_ptr->{'Content-Type'} eq 'text/html')
+ {
+ $result = get_results_html($results);
+ }
+ else
+ {
+ $result = get_results_prop($results);
+ if ($enc)
+ {
+ $result = decode($result,$enc);
+ }
+ }
+ return $result;
+ }
+}
+
+sub list #list all the stylesheet loaded
+{
+ my $cont="";
+ my $ind = 0;
+ foreach $key (keys %stylesheet_hash)
+ {
+ $cont .= ok_replace("$list\n",$key,$stylesheet_hash{$key}[0]);
+ $ind++;
+ }
+ if ($ind > 0) { return ok_print($cont); }
+ else { return ok_print($empty); }
+}
+
+sub home #return Dispay active
+{
+ if ($_[0] ne "") { return synerror_print($error{"home_qs"},$all_usage); }
+ else {
+ return ok_print($home_message.$all_usage);
+ }
+}
+
+sub help #return html help
+{
+ if ($_[0] ne "") { return synerror_print($error{"help_qs"},$help_usage); }
+ return ok_print($help_message.$all_usage);
+}
projects / helm.git / blobdiff