ebl add function to decode base64 lstat

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3855 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/script/bweb-postgresql.sql b/gui/bweb/script/bweb-postgresql.sql
index 8bc14bf3100651206caaeba003d9c1f0f069833d..ab49789243f9408d9c9369c068448e8bd6b065ba 100644 (file)
--- a/gui/bweb/script/bweb-postgresql.sql
+++ b/gui/bweb/script/bweb-postgresql.sql
@@ -20,4 +20,21 @@ RETURNS double precision AS $$
     select extract(epoch from $1);
 $$ LANGUAGE SQL;
 
+CREATE OR REPLACE FUNCTION base64_decode_lstat(int4, varchar) RETURNS int8 AS $$
+DECLARE
+val int8;
+b64 varchar(64);
+size varchar(64);
+i int;
+BEGIN
+size := split_part($2, ' ', $1);
+b64 := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
+val := 0;
+FOR i IN 1..length(size) LOOP
+val := val + (strpos(b64, substr(size, i, 1))-1) * (64^(length(size)-i));
+END LOOP;
+RETURN val;
+END;
+$$ language 'plpgsql';
+
 COMMIT;
\ No newline at end of file