From: Eric B. <ri...@us...> - 2006-12-29 11:41:34
|
Update of /cvsroot/bacula/gui/bweb/script In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv14699 Modified Files: bweb-postgresql.sql Log Message: ebl add function to decode base64 lstat Index: bweb-postgresql.sql =================================================================== RCS file: /cvsroot/bacula/gui/bweb/script/bweb-postgresql.sql,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- bweb-postgresql.sql 8 Aug 2006 21:43:14 -0000 1.1 +++ bweb-postgresql.sql 29 Dec 2006 11:41:33 -0000 1.2 @@ -20,4 +20,21 @@ 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 |