beta/ 0040775 0000764 0000764 00000000000 07733170323 010462 5 ustar mark mark beta/Docs/ 0040775 0000764 0000764 00000000000 07675450721 011362 5 ustar mark mark beta/Docs/Required_Modules 0100664 0000764 0000764 00000002636 07733170323 014551 0 ustar mark mark The following is what GUPPS was created on.
Usually, you only have to pay attention to the version numbers
if there is a major version number change.
------------------------
This is perl, v5.8.0 built for i686-linux
Copyright 1987-2002, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.
Perl Modules
Archive::Zip;
Compress::Zlib;
Convert::BinHex;
Crypt::Blowfish;
Crypt::CBC;
Crypt::DES;
Crypt::DES_EDE3;
Crypt::IDEA;
Crypt::RC4;
Crypt::RC5;
Crypt::RC6;
Data::Dumper;
MIME::Base64;
Mail::Mailer;
TEST1::Convert;
XML::LibXML;
XML::Parser::EasyTree;
XML::Parser;
-----------------------------------
Python 2.2.3
Python Modules
pypgsql
egenix-mx-base
Blowfish
__PACKAGE___Constants
base64
binascii
cgi
from Crypto.Cipher import *
from pyPgSQL import PgSQL
from xml.parsers.xmlproc import xmlapp, utils,xmlval,catalog,xcatalog,xmlproc
getopt
os
re
smtplib
smtplibm
string
sys
time
types
xml.parsers.expat
----------------------
4.2.1
Php Modules
Just PHP version 4
mcrypt needs to be compiled in.
the postgresql database connectivity needs to be compiled in.
beta/Docs/README 0100664 0000764 0000764 00000005401 07511132534 012223 0 ustar mark mark
UPDATED: for version 1.4beta.
GUPPS purpose is to combine many languages together so that you can use them
for your webserver interchangably (ignoring custom-made scripts/modules).
In addition, to use any of the supported languages to manage all the supported
languages. In addition, to have line command, console, GUI, and web interfaces
for all supported languages. In addition, GUPPS will check to see if the
languages are properly installed and will run a sample webserver for you
to test.
Please read the License file. All file covered under The Artistic License
and GPL.
Use the Install.bat script to create a GUPPS.bat file to run GUPPS.
As of 1.4beta, you need to edit or create config files to control the
behaviour of GUPPS. In the future, we will have a web (or other interface)
so that you can select the properties you want on a global, database,
or table level.
Here is a list of supported features of GUPPS:
INTERFACES: (Perference is line command, web, GUI, and then console.)
(Primary language which others will copy off of will be Python.)
1. Perl:
Command Line: Supported. Currently disabled until updated
in same style as Python in version 1.5beta.
Console: Not Implemented
GUI: Not Implemented
Web: Not Implemented
2. Python:
Command Line: Supported and default command line script.
Console: Not Implemented
GUI: Not Implemented
Web: Not Implemented
3. PHP:
Command Line: Not Implemented
Console: Will most likely never exist.
GUI: Will most likely never exist.
Web: Not Implemented
WEBSERVER installation and testing:
1. Apache 2.x: Not Implemented yet.
2. ZOPE: Not Implemented yet.
WEB MODS:
1. mod_perl & Apache 2.x: Not Implemented yet.
2, mod_pyton & apache 2.x: Not Implemented yet.
3. mod_php & Apache 2.x: Not Implemented yet.
MODULES:
1. Perl: Supported.
2. Python: Supported.
3. PHP: Supported.
TABLE SCRIPTS: (simple webpages to support changing data in tables).
1. Perl: Supported.
2. Python: Supported.
3. PHP: Supported.
ADMIN SCRIPTS: myphpadmin rip-off and taken from other similar styles.
1. Perl: Not Implemented yet.
2. Python: Not Implemented yet.
3. PHP: Not Implemented yet.
SQL FUNCTIONS:
1. PLPGSQL methods for insert, update,
delete, purge, unpurge, copy,
and restore. All implemented except restore.
2. PLPGSQL standard functions. Supported.
3. PLPERL standard functions. Supported.
4. PLPYTHON standard functions. Supported.
OTHER FEATURES:
1. Please refer to the website for more detailed description for GUPPS
at http://www.tcu-inc.com. We might list them here eventually.
beta/Docs/Compatibility.html 0100664 0000764 0000764 00000012654 07675450721 015066 0 ustar mark mark
This doc is a listing of the compatibility between Perl, Python, and Php
and various modules. Language Interchangeable means that Perl, Php, and Python
behave in the same way, and if method creates data (like encryption
or data conversion) the other languages will able to deal with it
properly.
Module Perl Php Python
Method
Email::Send_Email
Yes -- --
Constants::Get_Constants Yes Constants::Get_Dbh Constants::Get_DB_Constants Yes Encrypt:Blowfish Yes Yes Yes Encrypt:CAST5 Yes Yes Yes Encrypt:DES Yes Yes Yes Encrypt:DES3 Yes Yes Yes Encrypt:IDEA Yes Yes Yes Encrypt:RC4 Yes Encrypt:RC5 Yes Yes Yes Encrypt:RC6 Yes Encrypt:ARC2 Yes Yes Encrypt:ARC4 To Do Encrypt:AES To do Set Yes Yes Yes Get Yes Yes Yes Convert::Escape_Link Yes Yes Convert::Unescape_Link Yes Yes Convert::Convert_Html Yes Yes Convert::Clean_String Yes Yes Convert::Gzip Gunzip Yes Convert::Uudecode Uuencode
Yes Yes Convert::Zip Unzip
Yes Yes Convert::Base64_Encode Base64_Decode
Yes Doing Yes Convert::Base64_Encode_File Base64_Decode_File
Yes Convert::Binhex_Encode Binhex_Decode
Yes Doing Yes Convert::Ord Chr
Yes Doing Doing Convert::Hex_Encode Hex_Decode
Doing Doingx Yes Convert::Bzip_Encode Bzip_Decode
No Yes No File::File_Query Yes Yes File::Get_Temp_FileName Yes Yes File::Delete_Temp_FileName Yes Yes Xml::Simple_Tree Yes Yes Xml::Xml_Encode Yes Yes Xml::Xml_Decode Yes Yes Xml::Validation_DTD Yes Yes
Email::Send_Email
Constants::Get_Constants
'server_type' = one of 'postgresql','mysql','oracle','db2'
'variables' = the variables that need to be passed to the database
module. This can change depending on the module. We will clean
this up.
'dbh'
'tempdir'
'web_root' = webroot of server.
'server_root' = server root of webserver.
'dbh_types' = 'postgresql','mysql','oracle','db2'
'dbh_error'
'dbh_success'
'dbh_config'
Constants::Get_Dbh
This is an internal module. It tries to connect to the database selected.
Use the Perl module as a base for Python and PHP.
Constants::Get_DB_Constants
This is an internal module. It just stores all the variables when
trying to connect to a database. Use the Perl module as a base for Php and
Python.
Encrypt::Do_It
This is an internal method that actually does the encyrption/decryption.
Ecnrypt
Each module will have Pad_Key and Pad_Data. They will each take two arguements:
All the Encrypt methods take three arguements:
Set and Get
The Set module sets data in the database. For each table named TABLE in the
database, you will have these methods:
Set_TABLENAME
'command' = one of 'insert','update','delete','purge','unpurge','purgeone', 'unpurgeone','undelete','copy','change'.
'id' = primayr id key of table you want to change.
'fields' = the fields you want to change, if appropriate.
Info -- takes two arguements and returns data from table. Do not pass the
arguements as a hash, but just an array. First arguement is the tablename
and the second if the primary key id.
beta/Docs/Standards.txt 0100664 0000764 0000764 00000013271 07351736347 014051 0 ustar mark mark Standard Database Setup (SDS).
Here are the database standards about how to setup the databases.
1. All tables must contain the following:
a. A primary key equal to TABLENAME_id.
b. Timestamps for the date of creation and modification, date_created
and date_updated.
c. There will be a backup table named TABLENAME_backup.
d. All fields are lower case.
e. An active field whose status of 0 is inactive and 1 is active.
f. All foriegns keys must have the extenstion "_fk" except for fieldnames
ending in "_id".
g. All fieldnames with "_id" in the table definition will automatically
get a foriegn keys constraint. A fieldname of "TABLENAME_id" will
have a foriegn contraint to the table "TABLENAME" with its primary key
"TABLENAME_id".
h. Views for active, inactive, deleted, and purged will be created.
i. Insert, Update, Delete, Copy, Change, Purge, Unpurge, PurgeOne,
and UnpurgeOne functions are too be used for all database
modifications where the functions will be
named "TABLENAME_FUNCTION_sql".
j. When stored procedures can return multiple variables, then all
select statements will be executed through stored procedures as well.
All select stored procedures will end in "_select_sql".
The two types of select stored procedures will be:
1. Given a unique id number, the select statement will require
all fields for that row. This stored procedures will be named
"TABLENAME_select_sql".
2. All other select statements will be custom made. Select statements
can get very complicated. It is mandatory that all custom select
statements be created with custom stored procedures.
k. All modifications to any table will be recorded in "TABLENAME_backup".
Modifications will occur through standard stored procedures and
the stored procedures will handle recording of these modifications.
"backup_id" will the primary key of all backup tables.
l. All selects of tables will be recorded as an option using the table
"TABLENAME_select" if it is desired when the table is created.
"TABLENAME_select" will have the fields select_id, date_created,
date_updated, TABLENAME_id, error_code, and misc.
m. An optional method for recording database inserts and changes
with respect to differences may be used, but must follow the following
standards. This will not be included by default in MAPPS.
1. The backup table must be named TABLENAME_diff.
2. "diff_id" will be the primary key for each table.
3. Each diff table will have exactly these fields.
a. diff_id
b. date_updated : Timestamp the data was entered.
c. diff_data : This is the difference in data between this
entry and the previous entry.
d. diff_method : This describes the difference method used.
This is arbitrary and dependent upon the programmer. Here are
a list of pre-defined methods:
1. "diff" or "gnudiff" will correspond to GNU diff. The version
must be supplied and recorded somewhere.
2. "subversion" in relation to subversion.
3. cvs will not be an option for a standard. "subversion" replaces
cvs, and hence, cvs is considered outdated and useless as a
standard.
e. diff_prev : This is the previous diff_id which the data is
being compared to. This is done so that if a diff_id gets
deleted, you can state there is an error.
f. fieldname : This is the field of the row which the data
belongs to.
g. primary : This is the primary key of the row we are looking at.
h. error_code : "start" means there is no diff_id previous
to this one. "diff" means there is a previous entry to
be compared to. "stop" means the primary key has been deleted.
Other error codes are possible.
n. An entry of 0 into a foriegn key means null. All rows with a primary
key of 0 should have empty space for text and 0 for numeric values
or the default value (if supplied).
2. The unique names which cannot be used are:
a. "error_code", "backup_id", "date_created", "date_updated",
, "diff_id" and "active" are reserved fields.
3. Standard practices with Perl Modules and other programming languages.
a. All Perl Modules (or other programming languages) will create
objects whose methods correspond to each stored procedure. The naming
convention of each method shall be exactly the sql function name minus
the tablename and "_sql". Thus, "TABLENAME_FUNCTION_sql" becomes
"FUNCTION" in the Perl Module. There will be an exact one to one
correspondence between all sql functions and perl methods, minus
custom made sql functions or perl methods.
b. All custom made perl methods must use stored procedures for all
changing of data, and selecting data (when stored procedures
can return multiple variables).
4. Standard practices of custom stored procedures.
a. All custom stored procedures may only change data using one of the
predefined stored procedures. Custom stored procedures may not
use custom made stored procedures for changing/inserting data.
b. All select statements must use select stored procedures (when the
stored procedures can return multiple values).
5. Standard practices of webpages/perl scripts.
a. All perl scripts or other programming languages will always
use perl modules for all interactivity with database. All changing,
inserting, or viewing data will occur through a module.
beta/Docs/Compatibility.html~ 0100664 0000764 0000764 00000012705 07672151540 015253 0 ustar mark mark
This doc is a listing of the compatibility between Perl, Python, and Php
and various modules. Language Interchangeable means that Perl, Php, and Python
behave in the same way, and if method creates data (like encryption
or data conversion) the other languages will able to deal with it
properly.
Module Perl Php Python
Method
Email::Send_Email
Yes -- --
Constants::Get_Constants Yes Constants::Get_Dbh Constants::Get_DB_Constants Yes Encrypt:Blowfish Yes Yes Yes Encrypt:CAST5 Yes Yes Yes Encrypt:DES Yes Yes Yes Encrypt:DES3 Yes Yes Yes Encrypt:IDEA Yes Yes Yes Encrypt:RC4 Yes Encrypt:RC5 Yes Yes Yes Encrypt:RC6 Yes Encrypt:ARC2 Yes Yes Encrypt:ARC4 To Do Encrypt:AES To do Set Yes Yes Yes Get Yes Yes Yes Convert::Escape_Link Yes Yes Convert::Unescape_Link Yes Yes Convert::Convert_Html Yes Yes Convert::Clean_String Yes Yes Convert::Gzip Gunzip Yes Convert::Uudecode Uuencode
Yes Yes Convert::Zip Unzip
Yes Yes Convert::Base64_Encode Base64_Decode
Yes Doing Yes Convert::Base64_Encode_File Base64_Decode_File
Yes Convert::Binhex_Encode Binhex_Decode
Yes Doing Yes Convert::Ord Chr
Yes Doing Doing Convert::Hex_Encode Hex_Decode
Doing Doingx Yes Convert::Bzip_Encode Bzip_Decode
No Yes No File::File_Query Yes Yes File::Get_Temp_FileName Yes Yes File::Delete_Temp_FileName Yes Yes XML_Parse::SimpleTree Doing Yes XML_Parse::Xml_Encode Yes Yes XML_Parse::Xml_Decode Yes Yes XML_Parse::Validation_DTD Yes Yes
Email::Send_Email
Constants::Get_Constants
'server_type' = one of 'postgresql','mysql','oracle','db2'
'variables' = the variables that need to be passed to the database
module. This can change depending on the module. We will clean
this up.
'dbh'
'tempdir'
'web_root' = webroot of server.
'server_root' = server root of webserver.
'dbh_types' = 'postgresql','mysql','oracle','db2'
'dbh_error'
'dbh_success'
'dbh_config'
Constants::Get_Dbh
This is an internal module. It tries to connect to the database selected.
Use the Perl module as a base for Python and PHP.
Constants::Get_DB_Constants
This is an internal module. It just stores all the variables when
trying to connect to a database. Use the Perl module as a base for Php and
Python.
Encrypt::Do_It
This is an internal method that actually does the encyrption/decryption.
Ecnrypt
Each module will have Pad_Key and Pad_Data. They will each take two arguements:
All the Encrypt methods take three arguements:
Set and Get
The Set module sets data in the database. For each table named TABLE in the
database, you will have these methods:
Set_TABLENAME
'command' = one of 'insert','update','delete','purge','unpurge','purgeone', 'unpurgeone','undelete','copy','change'.
'id' = primayr id key of table you want to change.
'fields' = the fields you want to change, if appropriate.
Info -- takes two arguements and returns data from table. Do not pass the
arguements as a hash, but just an array. First arguement is the tablename
and the second if the primary key id.
beta/Interfaces/ 0040775 0000764 0000764 00000000000 07505742513 012550 5 ustar mark mark beta/Interfaces/Perl/ 0040775 0000764 0000764 00000000000 07505742504 013452 5 ustar mark mark beta/Interfaces/Php/ 0040775 0000764 0000764 00000000000 07505742513 013277 5 ustar mark mark beta/Interfaces/Python/ 0040775 0000764 0000764 00000000000 07505742511 014027 5 ustar mark mark beta/Templates/ 0040775 0000764 0000764 00000000000 07663557677 012447 5 ustar mark mark beta/Templates/Functions/ 0040775 0000764 0000764 00000000000 07663472060 014375 5 ustar mark mark beta/Templates/Functions/General.plpgsql 0120777 0000764 0000764 00000000000 07666444412 022000 2General.pgsql ustar mark mark beta/Templates/Functions/Default.pgsql 0100664 0000764 0000764 00000006707 07510750337 017035 0 ustar mark mark
-- If one function is missing, do all of them.
--- This function requires the update_tablefield table.
--drop function update_tablefield(text, text, int4, text, text);
--delete from pg_proc where proname like 'update_tablefield';
CREATE FUNCTION update_tablefield(text,text,int4, text, text) RETURNS int4 AS '
DECLARE
var_1 text;
var_2 text;
var_3 int4;
var_4 text;
var_5 text;
oid1 int4;
update_tablefield_id int4 := 0;
record1 RECORD;
execute_command text;
BEGIN
var_1 := clean_alpha($1);
var_2 := clean_alpha($2);
var_3 := clean_numeric($3);
var_4 := clean_alpha($4);
var_5 := clean_alpha($5);
insert into update_tablefield (date_updated, date_created, active,
table_name, table_field, field_id, value, field_type)
values (CURRENT_TIMESTAMP,CURRENT_TIMESTAMP, 1, var_1,
var_2, var_3, var_4, var_5);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- Get the TABLENAME id.
FOR record1 IN SELECT * FROM update_tablefield where oid = oid1
LOOP
update_tablefield_id := record1.update_tablefield_id;
END LOOP;
if update_tablefield_id < 1 THEN return -1; END IF;
execute_command := '' update ''
|| quote_ident(var_1)
|| '' set ''
|| quote_ident(var_2)
|| '' = cast(''
|| quote_literal(var_4)
|| '' as ''
|| quote_ident(var_5)
|| ''), date_updated = CURRENT_TIMESTAMP where ''
|| quote_ident(var_1)
|| ''_id = ''
|| quote_literal(var_3);
EXECUTE execute_command;
-- Return the id from the update table.
return (update_tablefield_id);
-- return (execute_command);
END;
' LANGUAGE 'plpgsql';
--- Remember to use this in the unpurge function after unpurge has received the
--- latest line from table_backup.
--drop function restore_tablefields(text, int4, timestamp);
--delete from pg_proc where proname like 'restore_tablefields';
CREATE FUNCTION restore_tablefields(text, int4, timestamp)
RETURNS TEXT AS
'
DECLARE
var_1 text;
var_2 text;
var_3 int4;
var_4 text;
var_5 text;
var_6 timestamp;
oid1 int4;
update_tablefield_id int4 := 0;
record1 RECORD;
execute_command text;
time_check timestamp;
return_int4 int4 := 0;
BEGIN
var_1 := clean_alpha($1);
var_3 := clean_numeric($2);
var_6 := clean_text($3);
FOR record1 IN select * from update_tablefield
where
update_tablefield.table_name = var_1
and update_tablefield.field_id = cast(var_3 as int4)
and update_tablefield.date_created > cast(var_6 as timestamp)
order by update_tablefield.update_tablefield_id
LOOP
var_2 := record1.table_field;
var_4 := record1.value;
var_5 := record1.field_type;
execute_command := '' update ''
|| quote_ident(var_1)
|| '' set ''
|| quote_ident(var_2)
|| '' = cast(''
|| quote_literal(var_4)
|| '' as ''
|| quote_ident(var_5)
|| '') , date_updated = CURRENT_TIMESTAMP where ''
|| quote_ident(var_1)
|| ''_id = ''
|| quote_literal(var_3);
EXECUTE execute_command;
return_int4 = return_int4 + 1;
END LOOP;
-- Return the id from the update table.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
beta/Templates/Functions/General.blank 0100664 0000764 0000764 00000001372 07513426207 016757 0 ustar mark mark
--- This is used if you do not want to use any functions in
--- postgresql for cleaning data. Technically, this file is not
--- needed since we have the Perl or Python script just not
--- copy anything over. This file should not even be used.
--- It is here for looks I guess.
--- Instead of this file, use the General.plpgsql.
--- Perhaps we should create sql functions that just input text and output
--- text as functions (they are null functions), just to make it so
--- we have the clean functions if pgsql is not installed -- whch doesn't
--- make any sense because those would be pgsql functions. Doing nothing
--- now since there is a 99.99999% change we will never need a General.blank
--- unless someone specifies it. We might include it later.
beta/Templates/Functions/General.blank~ 0100664 0000764 0000764 00000000431 07446716635 017164 0 ustar mark mark
--- This is used if you do not want to use any functions in
--- postgresql for cleaning data. Technically, this file is not
--- needed since we have the Perl or Python script just not
--- copy anything over. This file should not even be used.
--- It is here for looks I guess.
beta/Templates/Functions/General.perl 0100664 0000764 0000764 00000002634 07445407262 016640 0 ustar mark mark
delete from pg_proc where proname = 'clean_text';
delete from pg_proc where proname = 'clean_alpha';
delete from pg_proc where proname = 'clean_numeric';
--drop function clean_text (text);
CREATE FUNCTION clean_text (text) RETURNS text AS '
my $Text = shift;
# Get rid of anything not text.
$Text =~ s/[^ a-z0-9\\/\\`\\~\\!\\@\\#\\$\\%\\^\\&\\*\\(\\)\\-\\_\\=\\+\\\\\\|\\[\\{\\]\\}\\;\\:\\''\\"\\,\\<\\.\\>\\?\\t\\n]//gi;
return $Text;
' LANGUAGE 'plperl';
-- Just do show you what this function cleans up.
select clean_text (' ,./<>?aaa aa !@#$%^&*()_+| ');
--drop function clean_alpha (text);
CREATE FUNCTION clean_alpha (text) RETURNS text AS '
my $Text = shift;
$Text =~ s/[^a-z0-9_]//gi;
return $Text;
' LANGUAGE 'plperl';
-- Just do show you what this function cleans up.
select clean_alpha (' ,./<>?aaa aa !@#$%^&*()_+| ');
--drop function clean_numeric (text);
CREATE FUNCTION clean_numeric (text) RETURNS int4 AS '
my $Text = shift;
$Text =~ s/[^0-9]//gi;
return $Text;
' LANGUAGE 'plperl';
-- Just do show you what this function cleans up.
select clean_numeric (' 1 ,./<>?aaa aa 2 !@#$%^&*()_+| 3');
--drop function clean_numeric (int4);
CREATE FUNCTION clean_numeric (int4) RETURNS int4 AS '
my $Text = shift;
$Text =~ s/[^0-9]//gi;
return $Text;
' LANGUAGE 'plperl';
-- Just do show you what this function cleans up.
select clean_numeric (11111);
beta/Templates/Functions/General.pgsql 0100664 0000764 0000764 00000062535 07513426024 017023 0 ustar mark mark
--- letters = 101 to 132 and 141 to 172 in octal
--- numbers is 60 to 71
--- text is 11 for tab, 12 for n, 15 for r, and 40 to 176 for rest.
--- This is now finished. It was a pain to get all the oct for
--- non-printable characters.
delete from pg_proc where proname = 'clean_text';
delete from pg_proc where proname = 'clean_alpha';
delete from pg_proc where proname = 'clean_numeric';
CREATE FUNCTION clean_text (text) RETURNS text AS '
DECLARE
text1 text;
BEGIN
text1 = $1;
text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
return (text1);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_text (' ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_alpha (text) RETURNS text AS '
DECLARE
text1 text;
BEGIN
text1 = $1;
text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
return (text1);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_alpha (' ,./<>?aaa aa !@#$%^&*()_+| ');
--- This is a dangerous function since it doesn't clean
--- anything out.
CREATE FUNCTION clean_numeric (text) RETURNS int4 AS '
DECLARE
text1 text;
a_int4 int4 := 0;
BEGIN
text1 = $1;
text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\101'','''');
text1 = translate(text1,''\\102'','''');
text1 = translate(text1,''\\103'','''');
text1 = translate(text1,''\\104'','''');
text1 = translate(text1,''\\105'','''');
text1 = translate(text1,''\\106'','''');
text1 = translate(text1,''\\107'','''');
text1 = translate(text1,''\\110'','''');
text1 = translate(text1,''\\111'','''');
text1 = translate(text1,''\\112'','''');
text1 = translate(text1,''\\113'','''');
text1 = translate(text1,''\\114'','''');
text1 = translate(text1,''\\115'','''');
text1 = translate(text1,''\\116'','''');
text1 = translate(text1,''\\117'','''');
text1 = translate(text1,''\\120'','''');
text1 = translate(text1,''\\121'','''');
text1 = translate(text1,''\\122'','''');
text1 = translate(text1,''\\123'','''');
text1 = translate(text1,''\\124'','''');
text1 = translate(text1,''\\125'','''');
text1 = translate(text1,''\\126'','''');
text1 = translate(text1,''\\127'','''');
text1 = translate(text1,''\\130'','''');
text1 = translate(text1,''\\131'','''');
text1 = translate(text1,''\\132'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\137'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\141'','''');
text1 = translate(text1,''\\142'','''');
text1 = translate(text1,''\\143'','''');
text1 = translate(text1,''\\144'','''');
text1 = translate(text1,''\\145'','''');
text1 = translate(text1,''\\146'','''');
text1 = translate(text1,''\\147'','''');
text1 = translate(text1,''\\150'','''');
text1 = translate(text1,''\\151'','''');
text1 = translate(text1,''\\152'','''');
text1 = translate(text1,''\\153'','''');
text1 = translate(text1,''\\154'','''');
text1 = translate(text1,''\\155'','''');
text1 = translate(text1,''\\156'','''');
text1 = translate(text1,''\\157'','''');
text1 = translate(text1,''\\160'','''');
text1 = translate(text1,''\\161'','''');
text1 = translate(text1,''\\162'','''');
text1 = translate(text1,''\\163'','''');
text1 = translate(text1,''\\164'','''');
text1 = translate(text1,''\\165'','''');
text1 = translate(text1,''\\166'','''');
text1 = translate(text1,''\\167'','''');
text1 = translate(text1,''\\170'','''');
text1 = translate(text1,''\\171'','''');
text1 = translate(text1,''\\172'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
a_int4 = cast(text1 as int4);
return (a_int4);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_numeric ('11 ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_numeric (int4) RETURNS int4 AS '
DECLARE
a_int4 int4 := 0;
BEGIN
a_int4 = $1;
return (a_int4);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_numeric (11111);
beta/Templates/Functions/General.plpgsql~ 0100664 0000764 0000764 00000062555 07511006662 017557 0 ustar mark mark
--- letters = 101 to 132 and 141 to 172 in octal
--- numbers is 60 to 71
--- text is 11 for tab, 12 for n, 15 for r, and 40 to 176 for rest.
--- This file is not finished yet. I have to get the numbers for
--- alphanumeric and printable characters.
delete from pg_proc where proname = 'clean_text';
delete from pg_proc where proname = 'clean_alpha';
delete from pg_proc where proname = 'clean_numeric';
CREATE FUNCTION clean_text (text) RETURNS text AS '
DECLARE
text1 text;
BEGIN
text1 = $1;
text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
return (text1);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_text (' ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_alpha (text) RETURNS text AS '
DECLARE
text1 text;
BEGIN
text1 = $1;
text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
return (text1);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_alpha (' ,./<>?aaa aa !@#$%^&*()_+| ');
--- This is a dangerous function since it doesn't clean
--- anything out.
CREATE FUNCTION clean_numeric (text) RETURNS int4 AS '
DECLARE
text1 text;
a_int4 int4 := 0;
BEGIN
text1 = $1;
text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\101'','''');
text1 = translate(text1,''\\102'','''');
text1 = translate(text1,''\\103'','''');
text1 = translate(text1,''\\104'','''');
text1 = translate(text1,''\\105'','''');
text1 = translate(text1,''\\106'','''');
text1 = translate(text1,''\\107'','''');
text1 = translate(text1,''\\110'','''');
text1 = translate(text1,''\\111'','''');
text1 = translate(text1,''\\112'','''');
text1 = translate(text1,''\\113'','''');
text1 = translate(text1,''\\114'','''');
text1 = translate(text1,''\\115'','''');
text1 = translate(text1,''\\116'','''');
text1 = translate(text1,''\\117'','''');
text1 = translate(text1,''\\120'','''');
text1 = translate(text1,''\\121'','''');
text1 = translate(text1,''\\122'','''');
text1 = translate(text1,''\\123'','''');
text1 = translate(text1,''\\124'','''');
text1 = translate(text1,''\\125'','''');
text1 = translate(text1,''\\126'','''');
text1 = translate(text1,''\\127'','''');
text1 = translate(text1,''\\130'','''');
text1 = translate(text1,''\\131'','''');
text1 = translate(text1,''\\132'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\137'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\141'','''');
text1 = translate(text1,''\\142'','''');
text1 = translate(text1,''\\143'','''');
text1 = translate(text1,''\\144'','''');
text1 = translate(text1,''\\145'','''');
text1 = translate(text1,''\\146'','''');
text1 = translate(text1,''\\147'','''');
text1 = translate(text1,''\\150'','''');
text1 = translate(text1,''\\151'','''');
text1 = translate(text1,''\\152'','''');
text1 = translate(text1,''\\153'','''');
text1 = translate(text1,''\\154'','''');
text1 = translate(text1,''\\155'','''');
text1 = translate(text1,''\\156'','''');
text1 = translate(text1,''\\157'','''');
text1 = translate(text1,''\\160'','''');
text1 = translate(text1,''\\161'','''');
text1 = translate(text1,''\\162'','''');
text1 = translate(text1,''\\163'','''');
text1 = translate(text1,''\\164'','''');
text1 = translate(text1,''\\165'','''');
text1 = translate(text1,''\\166'','''');
text1 = translate(text1,''\\167'','''');
text1 = translate(text1,''\\170'','''');
text1 = translate(text1,''\\171'','''');
text1 = translate(text1,''\\172'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
a_int4 = cast(text1 as int4);
return (a_int4);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_numeric ('11 ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_numeric (int4) RETURNS int4 AS '
DECLARE
a_int4 int4 := 0;
BEGIN
a_int4 = $1;
return (a_int4);
END;
' LANGUAGE 'plpgsql';
-- Just do show you what this function cleans up.
select clean_numeric (11111);
beta/Templates/Functions/General.python 0100664 0000764 0000764 00000002746 07444741224 017221 0 ustar mark mark
delete from pg_proc where proname = 'clean_text';
delete from pg_proc where proname = 'clean_alpha';
delete from pg_proc where proname = 'clean_numeric';
CREATE FUNCTION clean_text (text) RETURNS text AS '
import string, re
text1 = re.sub(''[^ a-zA-Z0-9\\/\\`\\~\\!\\@\\#\\$\\%\\^\\&\\*\\(\\)\\-\\_\\=\\+\\\\\\|\\[\\{\\]\\}\\;\\:\\''\\"\\,\\<\\.\\>\\?\\t\\n]'', '''', str(args[0]))
return text1
' LANGUAGE 'plpython';
-- Just do show you what this function cleans up.
select clean_text (' ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_alpha (text) RETURNS text AS '
import string, re
text1 = re.sub(''[^a-zA-Z0-9_]'', '''', str(args[0]))
return text1
' LANGUAGE 'plpython';
-- Just do show you what this function cleans up.
select clean_alpha (' ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_numeric (text) RETURNS int4 AS '
import string, re
text1 = re.sub(''[^0-9]'', '''', str(args[0]))
if not re.compile("[0-9]").search(text1) : text1 = "0"
return int(text1)
' LANGUAGE 'plpython';
-- Just do show you what this function cleans up.
select clean_numeric (' ,./<>?aaa aa !@#$%^&*()_+| ');
CREATE FUNCTION clean_numeric (int4) RETURNS int4 AS '
import string, re
text1 = re.sub(''[^0-9]'', '''', str(args[0]))
### Is this line necessary since we already get a int4?
if not re.compile("[0-9]").search(text1) : text1 = "0"
return int(text1)
' LANGUAGE 'plpython';
-- Just do show you what this function cleans up.
select clean_numeric (11111);
beta/Templates/Perl/ 0040775 0000764 0000764 00000000000 07675421531 013327 5 ustar mark mark beta/Templates/Perl/HTML/ 0040775 0000764 0000764 00000000000 07672741367 014104 5 ustar mark mark beta/Templates/Perl/HTML/DEFINEFIELDS_Id.pl 0100664 0000764 0000764 00000000067 07561626713 016670 0 ustar mark mark $Fields->{'__FIELDNAME__'} = $Ids->{'__FIELDNAME__'};
beta/Templates/Perl/HTML/Custom_Html1.pl 0100755 0000764 0000764 00000017275 07672741367 016772 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
use lib qw(__DESTINATION_MODULES_ROOT__/perl);
### __PACKAGE__ __TABLENAME__ __SCRIPTNAME__
#print "Content-type: text/html\n\n\n";
#-------------------------------------------------
# Load the standard modules and initiaize variables.
use strict;
use __PACKAGE__::Misc;
use __PACKAGE__::Constants;
use __PACKAGE__::Get_Info;
use __PACKAGE__::Set_Info;
use CGI;
my $Global = __PACKAGE__::Constants::Get_Constants;
### Get the database connection.
my $dbh = $Global->{'dbh'};
## Load the get info module.
my $Info = new __PACKAGE__::Get_Info;
### If we don't detect a rmeote user, this isn't password
### protected, so abort.
my $User_Okay = 1;
if (not exists $ENV{'REMOTE_USER'}) {$User_Okay = 0;}
if ($User_Okay < 1) {print "Location: /Error_No_User.html\n\n";}
#------------------------------------------------------------
# Print Content-Type and get the queried variables.
print "Content-type: text/html\n\n\n";
my $query = new CGI;
my $Update = $query->param('update');
my $Action = $query->param('action');
my @Params = $query->param();
my $Id_Encrypted = $query->param('id');
my $Id = 0;
if ($Id_Encrypted ne "") {$Id = __PACKAGE__::Misc->Decrypt($Id_Encrypted);}
my $Ids = {};
my $Ids_Encrypted= {};
__OTHERIDS__
#-------------------------------------------
# Execute any perl methods, which in turn correspond to a database method.
# We could create a generic perl method for this for any table.
# All we would have to do is submit a list of fields for "new" and
# "update" plus the id.
if ($Action eq "new") {$Id = "";}
elsif ($Action eq "delete")
{
my $Delete = new __PACKAGE__::Set_Info;
my $Result = $Delete->Set___TABLENAME__('id'=>$Id,'command'=>'delete');
$Id = "";
}
elsif ($Action eq "undelete")
{
my $Undelete = new __PACKAGE__::Set_Info;
my $Result = $Undelete->Set___TABLENAME__('id'=>$Id,'command'=>'undelete');
}
elsif ($Action eq "purge")
{
my $Purge = new __PACKAGE__::Set_Info;
my $Result = $Purge->Set___TABLENAME__('id'=>$Id,'command'=>'delete');
my $Result = $Purge->Set___TABLENAME__('id'=>$Id,'command'=>'purgeone');
$Id = "";
}
elsif ($Update eq "update")
{
### Update the title of the list
my $Update = new __PACKAGE__::Set_Info;
### Create the array that we want to submit to the function.
my $Fields = {};
__DEFINEFIELDS__
### Update the table and submit the $Fields array.
my $Result = $Update->Set___TABLENAME__('id'=>$Id,'command'=>'change','fields'=>$Fields);
}
elsif ($Update eq "new")
{
my $Insert = new __PACKAGE__::Set_Info;
### Insert new thing into __TABLENAME__ table.
$Id = $Insert->Set___TABLENAME__('command'=>'insert');
### Create the array that we want to submit to the function.
my $Fields = {};
__DEFINEFIELDS__
### Hardcode the users_id if you don't want it to change.
# $Fields->{'users_id'} = $User_Id;
# $query->param(-delete=>'users_id');
# $query->param(-name=>'users_id',value=>$Info->{'users'}->{'users_id'});
my $Result = $Insert->Set___TABLENAME__('id'=>$Id,'command'=>'change',"fields"=>$Fields);
}
#----------------------------------------------------------------------
# Now create a list of all the items in this table. Then we can choose
# which ones we want to edit. This could be put into a perl method
# instead of duplicating it for each webpage.
### Now taken care of by the module Get___TABLENAME__
### Create the main list of items we are editing.
### If there is a users_id in the table, only select the ones that we own.
my $List = "";
my $Id_Values = {};
### You might want to modify this sql so that you use more descriptive titles.
my $Temp_List = $Info->List('__TABLENAME__','all','none');
foreach my $Key (sort keys %$Temp_List)
{
my $ref = $Temp_List->{$Key};
my $Selected = "";
if ($ref->{'__TABLENAME___id'} eq $Id) {$Selected = " selected";}
my $Id_Encrypt = __PACKAGE__::Misc->Encrypt($ref->{'__TABLENAME___id'});
my $Status = "Active";
if ($ref->{'active'} == 0) {$Status = "Inactive";}
my $Title = $ref->{'__TABLENAME___id'};
### We are looking for the field "title", but change it so what the field
### should be. This is just an example.
if (exists $ref->{'title'}) {$Title = $ref->{'title'}}
$List .= qq( $Status : $Title\n);
}
if ($List eq "") {$List = " None\n";}
#-------------------------------------------------------------------
# Get all the information about this entry in the table.
# Again we could create a standard perl module to do this.
my $Other_Lists = {};
my $Other_Info = {};
my $Type = "new";
my $Id_Encrypt = "";
my $Message = "Create a new __TABLENAME__.";
my $__TABLENAME___Info = {};
if ($Id > 0)
{
$Type = "update";
$Id_Encrypt = __PACKAGE__::Misc->Encrypt($Id);
## Get the information about the email_list
$__TABLENAME___Info = $Info->Info('__TABLENAME__', $Id);
$Message = "Update Information for __TABLENAME___id = $Id.";
### Remember to create a list to choose between ids, and also the
### capability to directly change the data of the foriegn id without
### changing the id being edited.
__SETIDSOTHER__
}
#-------------------------------------------------------------------
# Create the other lists for primary keys of other tables.
# This could be modularized as well.
__OTHER_LISTS__
#------------------------------------------------------------------
# Print out the html code with some debug info at bottom.
print qq(
__PACKAGE__ : __TABLENAME__ editing
);
#print "";
print qq (
);
print qq(
Editing data in the table "__TABLENAME__".
);
print "
These sample webpages should follow the
SDS (Standard Database Setup) since they don't create any custom sql
queries but use standard Perl modules. \n";
print "
update \n";
### Update the title of the list
my $Update = new __PACKAGE__::Set_Info;
### Create the array that we want to submit to the function.
my $Fields = {};
__DEFINEFIELDS__
### Update the table and submit the $Fields array.
my $Result = $Update->Set___TABLENAME__('id'=>$Id,'command'=>'change','fields'=>$Fields);
### Alternatively, we could submit a query like like
### 'query'=>$query
__OTHERUPDATES__
}
elsif ($Update eq "new")
{
my $Insert = new __PACKAGE__::Set_Info;
### Insert new thing into __TABLENAME__ table.
$Id = $Insert->Set___TABLENAME__('command'=>'insert');
### Create the array that we want to submit to the function.
my $Fields = {};
__DEFINEFIELDS__
### Hardcode the users_id.
$Fields->{'users_id'} = $User_Id;
# $query->param(-delete=>'users_id');
# $query->param(-name=>'users_id',value=>$Info->{'users'}->{'users_id'});
my $Result = $Insert->Set___TABLENAME__('id'=>$Id,'command'=>'change',"fields"=>$Fields);
### Alternatively, we could submit a query like like
### 'query'=>$query
### Sometimes we want to create items in other tables. It is recommended
### That you perform other checks before doing this. We turn off the
### inserts for other tables by default.
my @Params = $query->param();
__OTHERINSERTS__
}
### Now taken care of by the module Get___TABLENAME__
### Create the main list of items we are editing.
### If there is a users_id in the table, only select the ones that we own.
my $List = "";
my $Id_Values = {};
### See if there is a users_id field. This is only an example query.
### Eliminate these next few lines as you customize this script.
my $Sql = "select * from __TABLENAME__ where 1=2";
my $sth = $dbh->prepare($Sql);
$sth->execute();
## This special command gives the names of the fields of the table
## even if there were no rows returned.
my $Ref = $sth->{'NAME_lc'};
my $Where = ""; my @Where = ();
if (grep($_ eq "users_id", @$Ref))
{$Where = " where __TABLENAME__.users_id = ?"; @Where = ($User_Id);}
### You might want to modify this sql so that you use more descriptive titles.
my $Sql = "select * from __TABLENAME__
$Where order by __TABLENAME__.__TABLENAME___id";
my $sth = $dbh->prepare($Sql);
$sth->execute(@Where);
while (my $ref = $sth->fetchrow_hashref)
{
my $Selected = "";
if ($ref->{'__TABLENAME___id'} eq $Id) {$Selected = " selected";}
my $Id_Encrypt = __PACKAGE__::Misc->Encrypt($ref->{'__TABLENAME___id'});
my $Status = "Active";
if ($ref->{'active'} == 0) {$Status = "Inactive";}
my $Title = $ref->{'__TABLENAME___id'};
### We are looking for the field "title", but change it so what the field
### should be. This is just an example.
if (exists $ref->{'title'}) {$Title = $ref->{'title'}}
$List .= qq( $Status : $Title\n);
}
if ($List eq "") {$List = " None\n";}
my $Other_Lists = {};
my $Other_Info = {};
my $Type = "new";
my $Id_Encrypt = "";
my $Message = "Create a new __TABLENAME__.";
my $__TABLENAME___Info = {};
if ($Id ne "")
{
$Type = "update";
## Get the information about the email_list
$__TABLENAME___Info = $Info->Info('__TABLENAME__', $Id);
### Remember to create a list to choose between ids, and also the
### capability to directly change the data of the foriegn id without
### changing the id being edited.
__OTHER_LISTS__
}
print qq(
);
#print "";
print qq (
);
print qq(
This form will update the table for the foriegn keys.
$Message
Or you can have it so you just enter an id for the foriegn keys.
It is recommended that you make a select list instead of having them
enter an id in.
$Message
);
print " $ref->{'__TABLENAME___id'} : $Status\n);
}
beta/Templates/Perl/HTML/DEFINEFIELDS_No.pl 0100664 0000764 0000764 00000000075 07561626730 016706 0 ustar mark mark $Fields->{'__FIELDNAME__'} = $query->param('__FIELDNAME__');
beta/Templates/Perl/HTML/HTMLFIELDS.pl 0100664 0000764 0000764 00000000176 07561626760 016071 0 ustar mark mark __FIELDNAME__
__FIELDNAME__
$Other_Lists->{'__FIELDNAME__'}
Edit This Item
$Status : $Title\n);
}
if ($List eq "") {$List = " None\n";}
#-------------------------------------------------------------------
# Get all the information about this entry in the table.
# Again we could create a standard perl module to do this.
my $Other_Lists = {};
my $Other_Info = {};
my $Type = "new";
my $Id_Encrypt = "";
my $Message = "Create a new __TABLENAME__.";
my $__TABLENAME___Info = {};
if ($Id > 0)
{
$Type = "update";
$Id_Encrypt = __PACKAGE__::Misc->Encrypt($Id);
## Get the information about the email_list
$__TABLENAME___Info = $Info->Info('__TABLENAME__', $Id);
$Message = "Update Information for __TABLENAME___id = $Id.";
### Remember to create a list to choose between ids, and also the
### capability to directly change the data of the foriegn id without
### changing the id being edited.
__SETIDSOTHER__
}
#-------------------------------------------------------------------
# Create the other lists for primary keys of other tables.
# This could be modularized as well.
__OTHER_LISTS__
#------------------------------------------------------------------
# Print out the html code with some debug info at bottom.
print qq(
__PACKAGE__ : __TABLENAME__ editing
);
#print "";
print qq (
);
print qq(
Editing data in the table "__TABLENAME__".
);
print "
These sample webpages should follow the
SDS (Standard Database Setup) since they don't create any custom sql
queries but use standard Perl modules. \n";
print "
Nore mote user defined. Please enable user authentication. \n";
foreach my $Env (sort keys %ENV) {print " $Text \n);
$No++;
}
return ($Options);
}
1;
beta/Templates/Perl/Xml.pm_header 0100644 0000764 0000764 00000010662 07675421531 015735 0 ustar mark mark #!/usr/bin/perl
## Ifs you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002,2003.
package __PACKAGE__::Xml;
use Data::Dumper;
use strict;
use DBI;
use __PACKAGE__::Constants;
use __PACKAGE__::Get_Info;
use XML::Parser;
use XML::LibXML;
#----------------------------------------------------------
sub new
{
my $Class = shift;
my $self = {};
my $Global = __PACKAGE__::Constants->Get_Constants();
### Get the database connection.
$self->{'dbh'} = $Global->{'dbh'};
$self->{'sql'} = "";
$self->{'global'} = $Global;
$self->{'validator'} = XML::LibXML->new();
$self->{'error'} = 0;
$self->{'error_message'} = '';
$self->{'xml'} = [];
$self->{'parser'} = {};
bless $self,$Class;
return ($self);
}
#------------------------------------------------------
sub set_parser
{
my $self = shift;
my $Ref1 = $self->start_element();
my $Ref2 = $self->end_element();
my $Ref3 = $self->char_element();
$self->{'parser'} = new XML::Parser(Handlers =>
{
'Start' => $Ref1,
'End' => $Ref2,
'Char' => $Ref3,
}
);
$self->{'parser_set'} = 1;
return($self->{'parser'});
}
#---------------------------------------------------------------
# We use files here because when I load it into a string, the validation
# bombs (probably an error in the XML module). Someday, we can load the
# the xml dtd and file as strings and pass them.
# Try and see if an http url for a dtd file works.
sub Validation_DTD
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'xml_file'})) {return (10);}
if (!(exists $Args{'dtd_file'})) {return (20);}
my $Val = $self->{'validator'};
$Val->load_ext_dtd(1);
$Val->keep_blanks(0);
my $doc = eval {$Val->parse_file($Args{'xml_file'});};
if ($@)
{
$self->{'error_message'} = "$@";
$self->{'error'} = 1;
return (1);
}
### This has to happen AFTER we parse the file.
$Val->validation(1);
my $dtd_file = $Args{'dtd_file'};
my $dtd = eval {XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$dtd_file);};
if ($@)
{
$self->{'error_message'} = "$@";
$self->{'error'} = 2;
return (2);
}
my $Valid = eval { $doc->is_valid($dtd); };
if ($@)
{
$self->{'error_message'} = "$@";
$self->{'error'} = 3;
return (3);
}
$self->{'error_message'} = eval {$doc->validate($dtd)};
if ($@)
{
$self->{'error_message'} = "$@";
$self->{'error'} = 4;
return (4);
}
return($self->{'error'});
}
#-------------------------------------------------------------------
sub Xml_Encode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\&/\&\;/g;
$Data =~ s/\/\>\;/g;
$Data =~ s/\"/\"\;/g;
$Data =~ s/\'/\&apos\;/g;
return ($Data);
}
#--------------------------------------
sub Xml_Decode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\</\/g;
$Data =~ s/\"/\"/g;
$Data =~ s/\'/\'/g;
$Data =~ s/\&/\&/g;
return ($Data);
}
#------------------------------------------
sub Simple_Tree
{
my $self = shift;
my %Args = @_;
my $Data = "";
if (exists $Args{'data'}) {$Data = $Args{'data'};}
elsif ((exists $Args{'file'}) && (-e $Args{'file'}))
{
open(FILE,$Args{'file'});
while (my $Line = ) {$Data .= $Line;}
close FILE;
}
#print "$Data\n";
if ($self->{'parser_set'} < 1) {$self->set_parser();}
$self->{'parser'}->parse($Data);
return();
}
sub start_element
{
my $self = shift;
return sub
{
my $Expat = shift;
my $Element = shift;
my %Attrs = (@_);
my $Temp = {};
$Temp->{'name'} = $Element;
$Temp->{'elements'} = [];
$Temp->{'attrs'} = \%Attrs;
$Temp->{'data'} = "";
# print Dumper($self->{'xml'});
# my $Len = @{$self->{'xml'}};
# print "$Element = $Len\n";
my $ref1 = $self->{'xml'};
my $ref = $ref1->[-1];
### If we are just starting up, unique case, else add to elements.
if (@{$self->{'xml'}} < 1) {push(@{$self->{'xml'}}, $Temp);}
else{ push(@{$ref->{'elements'}}, $Temp);}
### The main list grows and shrinks as it goes through the tree.
### It starts with one element and ends with one.
push(@{$self->{'xml'}}, $Temp);
return($Temp);
};
}
sub end_element
{
my $self = shift;
return sub
{
my $Expat = shift;
my $Ref = pop(@{$self->{'xml'}}); return ($Ref);
};
}
sub char_element
{
my $self = shift;
return sub
{
my $Expat = shift;
my $data = shift;
if (!($data =~ /^\s/)) {$data = '';}
my $Ref = $self->{'refs'}->[-1];
$Ref->{'data'} .= $data;
return($data);
};
}
1;
beta/Templates/Perl/Set_Info.pm_header 0100664 0000764 0000764 00000014135 07562043750 016702 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
### We need to change something.
### Create the Set_TABLENAME function so that it only does two things.
### 1. Defines a valid list of columns.
### 2. Executes a hidden function.
### All the functions are the same except for the columns that are defined.
### No point having such a huge module that east up memory.
package __PACKAGE__::Set_Info;
use strict;
# use Apache; -- put this in the server startup.
use DBI;
use CGI;
use __PACKAGE__::Misc;
use __PACKAGE__::Constants;
sub new
{
my $Class = shift;
my %Args = @_;
my $self = {};
my $Global = __PACKAGE__::Constants->Get_Constants();
### Get the database connection.
$self->{'dbh'} = $Global->{'dbh'};
$self->{'global'} = $Global;
## Load up the queries.
if (exists $Args{'query'}) {$self->{'query'} = $Args{'query'};}
else {$self->{'query'} = new CGI;}
bless $self,$Class;
return ($self);
}
#--------------------------------------------------------------------------
sub set_general {
my $self = shift;
my %Args = @_;
### You should NEVER use this method manually.
## Set the default result to an error number.
my $Result = -13;
## See if we specified a command, error if not.
my $Command = $Args{'command'};
my @Commands = ('insert','update','delete','purge','unpurge','purgeone',
'unpurgeone','undelete','copy','change');
if (!(grep($_ eq $Command, @Commands))) {return (-11);}
## See if we specified an Id, if not error out.
my $Id = $Args{'id'};
if (($Id < 1) && !(grep($_ ne $Command,('insert','purge','unpurge'))))
{return (-10);}
my $TableName = $Args{'tablename'};
my $Columns = $Args{'columns'};
### If we somehow didn't get the tablename or columns, return error.
### This should be impossible since they are supplies by other
### functions.
if (($TableName eq "") || ((@$Columns) < 1)) {return (-14);}
if (grep($_ eq $Command,('delete','undelete','purgeone','unpurgeone','copy')))
{
my $Sql = "select sql_$TableName\_$Command\(?) as $Command";
my $sth = $self->{'dbh'}->prepare($Sql);
$sth->execute($Id);
my $ref = $sth->fetchrow_hashref();
$Result = $ref->{$Command};
}
elsif (grep($_ eq $Command, ('insert','purge','unpurge')))
{
my $Sql = "select sql_$TableName\_$Command\() as $Command";
my $sth = $self->{'dbh'}->prepare($Sql);
$sth->execute();
my $ref = $sth->fetchrow_hashref();
$Result = $ref->{$Command};
}
### Use the update function to explicity define every field.
### Use the change function when you want to specify only certain
### fields.
elsif ($Command eq "update")
{
my $query = $self->{'query'};
if (exists $Args{'query'}) {$query = $Args{'query'};}
### If we were supplied a query, use it instead.
if (exists $Args{'query'}) {$query = $Args{'query'};}
my @Fields = @$Columns;
my @Values = ();
my $String = "";
my $Attrs = $self->{'dbh'}->func($TableName, 'table_attributes');
## This doesn't duplicate the data, just makes pointers to the
## array. Thus, doesn't take up much memory, but will save
## cpu time because of searches.
my $Attrs_Hash = {};
foreach my $Line (@$Attrs)
{$Attrs_Hash->{$Line->{'NAME'}} = $Line;}
my $args = \%Args;
foreach my $Field (@Fields)
{
my $Value = '';
## If we supplied a list of fields, use them.
if (exists $args->{'fields'}->{$Field})
{ $Value = $args->{'fields'}->{$Field};}
else {$Value = $query->param($Field) || '';}
$Value = __PACKAGE__::Misc->Clean_String($Value);
if (($Attrs_Hash->{$Field}->{'TYPE'} eq "int4")
&& ($Value == 0))
{$Value = 0;}
elsif (($Attrs_Hash->{$Field}->{'TYPE'} eq "numeric")
&& ($Value == 0))
{$Value = 0;}
elsif ($Value eq "") {$Value = '';}
push (@Values,$Value);
$String .= ",?";
}
my $Sql = "select sql_$TableName\_update(? $String) as update";
my $sth = $self->{'dbh'}->prepare($Sql);
$sth->execute($Id,@Values);
my $ref = $sth->fetchrow_hashref();
$Result = $ref->{'update'};
}
### This function is used when you only want to change the values and
### fields you specify. It will work with no fields specified, which is
### just a copy in the backup table.
elsif ($Command eq "change")
{
my $query = $self->{'query'};
if (exists $Args{'query'}) {$query = $Args{'query'};}
### If we were supplied a query, use it instead.
if (exists $Args{'query'}) {$query = $Args{'query'};}
my @Fields = @$Columns;
my @Values = ();
my $String = "";
my @Params = $query->param();
my $Sql = "select * from $TableName where $TableName\_id = ?";
my $sth = $self->{'dbh'}->prepare($Sql);
$sth->execute($Id);
my $No = $sth->rows();
## If we don't have one thing to change, return an error.
if ($No < 1) {return (-100);}
my $Previous = $sth->fetchrow_hashref();
my $Attrs = $self->{'dbh'}->func($TableName, 'table_attributes');
## This doesn't duplicate the data, just makes pointers to the
## array. Thus, doesn't take up much memory, but will save
## cpu time because of searches.
my $Attrs_Hash = {};
foreach my $Line (@$Attrs)
{$Attrs_Hash->{$Line->{'NAME'}} = $Line;}
my $args = \%Args;
foreach my $Field (@Fields)
{
my $Value = '';
## If we supplied a list of fields, use them.
if (exists $args->{'fields'}->{$Field})
{ $Value = $args->{'fields'}->{$Field};}
elsif (grep($_ eq $Field, @Params))
{ $Value = $query->param($Field); }
else {$Value = $Previous->{$Field};}
$Value = __PACKAGE__::Misc->Clean_String($Value);
if (($Attrs_Hash->{$Field}->{'TYPE'} eq "int4")
&& ($Value == 0))
{$Value = 0;}
elsif (($Attrs_Hash->{$Field}->{'TYPE'} eq "numeric")
&& ($Value == 0))
{$Value = 0;}
elsif ($Value eq "") {$Value = '';}
push (@Values,$Value);
$String .= ",?";
}
my $Sql = "select sql_$TableName\_update(? $String) as update";
my $sth = $self->{'dbh'}->prepare($Sql);
$sth->execute($Id,@Values);
my $ref = $sth->fetchrow_hashref();
$Result = $ref->{'update'};
}
return ($Result);
}
beta/Templates/Perl/XML_Parse.pm_header~ 0100644 0000764 0000764 00000006074 07666450015 017166 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
package __PACKAGE__::XML_Custom;
use strict;
use DBI;
use __PACKAGE__::Constants;
use __PACKAGE__::Get_Info;
use XML::Parser;
use XML::Parser::EasyTree;
$XML::Parser::Easytree::Noempty=1;
use XML::LibXML;
#----------------------------------------------------------
sub new
{
my $Class = shift;
my $self = {};
my $Global = __PACKAGE__::Constants->Get_Constants();
### Get the database connection.
$self->{'dbh'} = $Global->{'dbh'};
$self->{'sql'} = "";
$self->{'global'} = $Global;
bless $self,$Class;
return ($self);
}
#---------------------------------------------------------------
# We use files here because when I load it into a string, the validation
# bombs (probably an error in the XML module). Someday, we can load the
# the xml dtd and file as strings and pass them.
sub Validation
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'xml_file'})) {return (-10,-10);}
if (!(exists $Args{'dtd_file'})) {return (-20,-20);}
my $parser = XML::LibXML->new();
$parser->load_ext_dtd(1);
$parser->keep_blanks(0);
my $doc = eval {$parser->parse_file($Args{'xml_file'});};
if ($@) {return (-4, "$@");}
### This has to happen AFTER we parse the file.
$parser->validation(1);
my $dtd_file = $Args{'dtd_file'};
my $dtd = eval {
XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$dtd_file);
};
if ($@) {return (-2, "$@");}
my $Valid = eval { $doc->is_valid($dtd); };
if ($@) {return (-3, "$@");}
#my $dtd = XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$Args{'dtd_file'});
my $Temp = eval {$doc->validate($dtd)};
my $Validation = $Temp;
if ($@) {$Validation = "$@";}
return($Valid, $Validation);
}
#-----------------------------------------------------------------
sub Parse_Validation
{
my $self = shift;
my $X2 = shift;
my $Error_Message = "";
my @Temp = split(/\n/, $X2);
@Temp = grep($_ =~ /error\:/i, @Temp);
foreach my $Line (@Temp)
{
if ($Line =~ /\:/)
{
my ($Junk,$Good) = split(/\:/, $Line,2);
$Error_Message .= "error: $Good\n";
}
else {$Error_Message .= "error: $Line\n";}
}
if (!($X2 =~ /error/)) {$Error_Message .= "$X2";}
$Error_Message =~ s/$self->{'global'}->{'main'}//g;
return ($Error_Message);
}
#-------------------------------------------------------------------
sub Xml_Encode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\&/\&\;/g;
$Data =~ s/\/\>\;/g;
$Data =~ s/\"/\"\;/g;
$Data =~ s/\'/\&apos\;/g;
return ($Data);
}
#--------------------------------------
sub Xml_Decode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\</\/g;
$Data =~ s/\"/\"/g;
$Data =~ s/\'/\'/g;
$Data =~ s/\&/\&/g;
return ($Data);
}
#----------------------------------------
### Uses expat to generate a tree of the xml file.
### It will record the ids of the xml code and create a tree
### of the xml file according to the ids.
sub SimpleTree
{
my $self = shift;
my $Hash = {};
return($Hash);
}
1;
beta/Templates/Perl/Set_Info.pm_template 0100664 0000764 0000764 00000000532 07561626123 017261 0 ustar mark mark ### Remember to create a "new" function which defines
### $query and also $dbh in $self.
### Also, remember to have "use CGI;" in the perl module.
sub Set___TABLENAME__ {
my $self = shift;
my %Args = @_;
$Args{'tablename'} = "__TABLENAME__";
$Args{'columns'} = [__LISTCOLUMNS__];
my $Result = $self->set_general(%Args);
return ($Result);
}
beta/Templates/Perl/XML_Custom.pm_header 0100644 0000764 0000764 00000016246 07562044023 017163 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
package __PACKAGE__::XML_Custom;
use strict;
use DBI;
use __PACKAGE__::Constants;
use __PACKAGE__::Get_Info;
use XML::Parser;
use XML::Parser::EasyTree;
$XML::Parser::Easytree::Noempty=1;
use XML::LibXML;
#----------------------------------------------------------
sub new
{
my $Class = shift;
my $self = {};
my $Global = __PACKAGE__::Constants->Get_Constants();
### Get the database connection.
$self->{'dbh'} = $Global->{'dbh'};
$self->{'sql'} = "";
$self->{'global'} = $Global;
bless $self,$Class;
return ($self);
}
#---------------------------------------------------------------
# We use files here because when I load it into a string, the validation
# bombs (probably an error in the XML module). Someday, we can load the
# the xml dtd and file as strings and pass them.
sub Validation
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'xml_file'})) {return (-10,-10);}
if (!(exists $Args{'dtd_file'})) {return (-20,-20);}
my $parser = XML::LibXML->new();
$parser->load_ext_dtd(1);
$parser->keep_blanks(0);
my $doc = eval {$parser->parse_file($Args{'xml_file'});};
if ($@) {return (-4, "$@");}
### This has to happen AFTER we parse the file.
$parser->validation(1);
my $dtd_file = $Args{'dtd_file'};
my $dtd = eval {
XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$dtd_file);
};
if ($@) {return (-2, "$@");}
my $Valid = eval { $doc->is_valid($dtd); };
if ($@) {return (-3, "$@");}
#my $dtd = XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$Args{'dtd_file'});
my $Temp = eval {$doc->validate($dtd)};
my $Validation = $Temp;
if ($@) {$Validation = "$@";}
return($Valid, $Validation);
}
#-----------------------------------------------------------------
sub Parse_Validation
{
my $self = shift;
my $X2 = shift;
my $Error_Message = "";
my @Temp = split(/\n/, $X2);
@Temp = grep($_ =~ /error\:/i, @Temp);
foreach my $Line (@Temp)
{
if ($Line =~ /\:/)
{
my ($Junk,$Good) = split(/\:/, $Line,2);
$Error_Message .= "error: $Good\n";
}
else {$Error_Message .= "error: $Line\n";}
}
if (!($X2 =~ /error/)) {$Error_Message .= "$X2";}
$Error_Message =~ s/$self->{'global'}->{'main'}//g;
return ($Error_Message);
}
#-------------------------------------------------------------------
sub Xml_Encode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\&/\&\;/g;
$Data =~ s/\/\>\;/g;
$Data =~ s/\"/\"\;/g;
$Data =~ s/\'/\&apos\;/g;
return ($Data);
}
#--------------------------------------
sub Xml_Decode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\</\/g;
$Data =~ s/\"/\"/g;
$Data =~ s/\'/\'/g;
$Data =~ s/\&/\&/g;
return ($Data);
}
#-----------------------------------------------------------------
#### This should be run before processing any xml files.
#### It is very inefficient, and is only meant for small files.
#### After running this, create another method to extract only the info
#### that you want.
sub Process_Xml
{
my $self = shift;
my %Args = @_;
$self->{'tree'} = [];
$self->{'parsed'} = {};
$self->{'simpleparse'} = {};
$self->{'root_ids'} = {};
### Figure out if we are given a file or data.
if (!(exists $Args{'file'})) {$Args{'file'} = "";}
elsif (!(-e $Args{'file'})) {return(-2);}
if (!(exists $Args{'data'})) {$Args{'data'} = "";}
if (!(exists $Args{'type'})) {$Args{'type'} = 'variable';}
my $Id_Name = "id";
if (exists $Args{'id'}) {$Id_Name = $Args{'id'};}
my $tree = [];
$XML::Parser::Easytree::Noempty=1;
my $p=new XML::Parser(Style=>'EasyTree');
if ($Args{'file'} ne "") {$tree=$p->parsefile($Args{'file'});}
elsif ($Args{'data'} ne "") {$tree=$p->parse($Args{'data'});}
else {return (-1);}
$self->{'tree'} = $tree;
$self->{'element'} = {};
$self->{'element_id'} = {};
my $Tree = $self->{'tree'};
foreach my $Main (@$Tree)
{
$self->Process_Xml_List('node'=>$Main, 'root'=>$self->{'simpleparse'}, 'id'=>$Id_Name);
}
$self->{'root_ids'} = $self->{'parsed'}->{'element'}->{'0'}->{'element'};
return (1);
}
#--------------------------------------------------------------
### If an element contains an element, it should contains no text, so
### ignore its text. Otherwise, just get the first text field in content.
## This method is only meant for xml files which do no have nested
## elements.
sub Process_Xml_List
{
my $self = shift;
my %Args = @_;
my $Node = $Args{'node'};
my $Root = $Args{'root'};
### Make it so we can submit a single item or a list.
### convert single item to a list of one item.
my $Id_Names = [];
if (exists $Args{'id'})
{
if (ref($Args{'id'}) eq "ARRAY")
{ my $Ref = $Args{'id'}; push(@$Id_Names,@$Ref); }
elsif (ref($Args{'id'})) {;}
else {push(@$Id_Names,$Args{'id'});}
}
my $attrib = {};
if (exists $Node->{'attrib'}) {$attrib = $Node->{'attrib'};}
my $content = $Node->{'content'};
my $name = $Node->{'name'};
my $type = $Node->{'type'};
if ($type eq "t") {chomp $content;}
my $Element_Root = $self->{'element'};
my $Element_Id_Root = $self->{'element_id'};
if ($type eq "e")
{
if (!(exists $Element_Root->{$name})) {$Element_Root->{$name} = {};}
my $Ref = $Element_Root->{$name};
my (@Temp2) = (sort {$a<=>$b} keys %$Ref);
my $No = @Temp2;
if ($No < 1) {$No = 0;}
$Ref->{$No} = {};
$Ref->{$No}->{'attrib'} = $Node->{'attrib'};
$Ref->{$No}->{'element'} = {};
$Ref->{$No}->{'element_id'} = {};
$Ref->{$No}->{'content'} = "";
$Ref->{$No}->{'name'} = $name;
if (!(exists $Root->{'element'})) {$Root->{'element'} = {};}
if (!(exists $Root->{'element'}->{$name}))
{$Root->{'element'}->{$name} = {};}
if (!(exists $Root->{'element_id'})) {$Root->{'element_id'} = {};}
$Root->{'element'}->{$name}->{$No} = $Ref->{$No};
if (grep(exists $attrib->{$_}, @$Id_Names))
{
my @Temp = grep(exists $attrib->{$_}, @$Id_Names);
my $Id_Name = $Temp[0];
my $Name = $attrib->{$Id_Name};
if (!(exists $Element_Id_Root->{$Id_Name}))
{$Element_Id_Root->{$Id_Name} = {}}
if (!(exists $Root->{'element_id'}->{$Id_Name}))
{$Root->{'element_id'}->{$Id_Name} = {};}
$Element_Id_Root->{$Id_Name}->{$Name} = $Ref->{$No};
$Root->{'element_id'}->{$Id_Name}->{$Name} = $Ref->{$No};
}
### We only get the content on the first element.
### content should only really be in the last element of
### every branch.
my $Data = "";
my $Temp = $Node->{'content'}->[0];
if ((exists $Temp->{'content'}) && ($Temp->{'type'} eq "t"))
{$Data = $self->Xml_Decode($Temp->{'content'});}
$Data =~ s/\s*$//g;
$Ref->{$No}->{'content'} .= $Data;
### Get all the stuff in our template.
my (@Temp) = grep($_->{'type'} eq "e", @$content);
if ($type eq "t") {$content =~ s/\s$//g;}
foreach my $Sub_Node (@Temp)
{ $self->Process_Xml_List('node'=>$Sub_Node,'root'=>$Ref->{$No}, 'id'=>$Id_Names); }
return(1);
}
### If our content is just text, return it. - not whitespace
elsif (($type eq "t") && ($content =~ /[^\s]/))
{
$content =~ s/\s$//g;
return ($content);
}
### We can't handle processing instructions yet.
elsif ($type eq "p")
{
;
}
return (-1);
}
1;
beta/Templates/Perl/Xml.pm_header~ 0100644 0000764 0000764 00000006100 07672251555 016127 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
package __PACKAGE__::XML_Custom;
use strict;
use DBI;
use __PACKAGE__::Constants;
use __PACKAGE__::Get_Info;
use XML::Parser;
use XML::Parser::EasyTree;
$XML::Parser::Easytree::Noempty=1;
use XML::LibXML;
#----------------------------------------------------------
sub new
{
my $Class = shift;
my $self = {};
my $Global = __PACKAGE__::Constants->Get_Constants();
### Get the database connection.
$self->{'dbh'} = $Global->{'dbh'};
$self->{'sql'} = "";
$self->{'global'} = $Global;
bless $self,$Class;
return ($self);
}
#---------------------------------------------------------------
# We use files here because when I load it into a string, the validation
# bombs (probably an error in the XML module). Someday, we can load the
# the xml dtd and file as strings and pass them.
sub Validation_DTD
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'xml_file'})) {return (-10,-10);}
if (!(exists $Args{'dtd_file'})) {return (-20,-20);}
my $parser = XML::LibXML->new();
$parser->load_ext_dtd(1);
$parser->keep_blanks(0);
my $doc = eval {$parser->parse_file($Args{'xml_file'});};
if ($@) {return (-4, "$@");}
### This has to happen AFTER we parse the file.
$parser->validation(1);
my $dtd_file = $Args{'dtd_file'};
my $dtd = eval {
XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$dtd_file);
};
if ($@) {return (-2, "$@");}
my $Valid = eval { $doc->is_valid($dtd); };
if ($@) {return (-3, "$@");}
#my $dtd = XML::LibXML::Dtd->new("SOME // Public / ID / 1.0",$Args{'dtd_file'});
my $Temp = eval {$doc->validate($dtd)};
my $Validation = $Temp;
if ($@) {$Validation = "$@";}
return($Valid, $Validation);
}
#-----------------------------------------------------------------
sub Parse_Validation
{
my $self = shift;
my $X2 = shift;
my $Error_Message = "";
my @Temp = split(/\n/, $X2);
@Temp = grep($_ =~ /error\:/i, @Temp);
foreach my $Line (@Temp)
{
if ($Line =~ /\:/)
{
my ($Junk,$Good) = split(/\:/, $Line,2);
$Error_Message .= "error: $Good\n";
}
else {$Error_Message .= "error: $Line\n";}
}
if (!($X2 =~ /error/)) {$Error_Message .= "$X2";}
$Error_Message =~ s/$self->{'global'}->{'main'}//g;
return ($Error_Message);
}
#-------------------------------------------------------------------
sub Xml_Encode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\&/\&\;/g;
$Data =~ s/\/\>\;/g;
$Data =~ s/\"/\"\;/g;
$Data =~ s/\'/\&apos\;/g;
return ($Data);
}
#--------------------------------------
sub Xml_Decode
{
my $self = shift;
my $Data = shift;
$Data =~ s/\</\/g;
$Data =~ s/\"/\"/g;
$Data =~ s/\'/\'/g;
$Data =~ s/\&/\&/g;
return ($Data);
}
#----------------------------------------
### Uses expat to generate a tree of the xml file.
### It will record the ids of the xml code and create a tree
### of the xml file according to the ids.
sub SimpleTree
{
my $self = shift;
my $Hash = {};
return($Hash);
}
1;
beta/Templates/Perl/Encrypt.pm_header 0100644 0000764 0000764 00000023117 07662504552 016621 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
#ARC2 Variable/8 bytes -- none for Perl
#Blowfish Variable/8 bytes -- Done
#CAST Variable/8 bytes -- Done Cast5
#DES 8 bytes/8 bytes -- Done
#DES3 (Triple DES) 16 bytes/8 bytes - Done
#IDEA 16 bytes/8 bytes - Done
#RC5 Variable/8 bytes
# Added RC4 and RC6 for Perl
## Change it so that all the above functions will pad the key and data
## to make it work. Pad with null characters.
## Also, use pack to pack the data so that it is not binary. See if Python
## and Php can do the same.
package __PACKAGE__::Encrypt;
use strict;
# use Apache; -- put this in the server startup.
use DBI;
use CGI;
use Crypt::Blowfish;
use Crypt::CBC;
use Crypt::DES;
use Crypt::DES_EDE3;
use Crypt::IDEA;
use Crypt::RC4;
use Crypt::RC5;
use Crypt::RC6;
#------------------------------------------------------------
sub new
{
my $class = shift;
my $self = {};
$self->{'blowfish_key'} = "__BLOWFISH_KEY__";
$self->{'des_key'} = "__DES_KEY__";
$self->{'des3_key'} = "__DES3_KEY__";
$self->{'cast5_key'} = "__CAST5_KEY__";
$self->{'idea_key'} = "__IDEA_KEY__";
$self->{'rc4_key'} = "__RC4_KEY__";
$self->{'rc5_key'} = "__RC5_KEY__";
$self->{'rc6_key'} = "__RC6_KEY__";
$self->{'_key'} = "___KEY__";
$self->{'error'} = 0;
$self->{'error_message'} = "";
$self->{'rc5_rounds'} = 50;
bless $self, $class;
return ($self);
}
#------------------------------------------------------------------
sub Do_It
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'Key'}) || !($Args{'Data'})) {return('');}
my $Type = "Blowfish";
if (!(exists $Args{'Type'}) || ($Args{'Type'} ne '')) {$Type = $Args{'Type'};}
my $crypt = "";
my $Key = $Args{'Key'};
my $Action = "Encrypt";
if (!(exists $Args{'Action'}) || ($Args{'Action'} ne ''))
{$Action = $Args{'Action'};}
my $Chr = chr(0);
if ($Type eq "Blowfish")
{
if (len($Key) < 8) { while (len($Key) < 8) {$Key .= $Chr;}}
if (len($Key) > 56) {$Key = substr($Key,0,56);}
$crypt = new Crypt::Blowfish $Key;
}
elsif ($Type eq "CAST5")
{
if (len($Key) < 5) { while (len($Key) < 5) {$Key .= $Chr;}}
if (len($Key) > 16) {$Key = substr($Key,0,16);}
$crypt = Crypt::CBC->new({ key=>$Args{'Key'}, cipher=>"CAST5"});
}
elsif ($Type eq "DES")
{
if (len($Key) < 8) { while (len($Key) < 8) {$Key .= $Chr;}}
if (len($Key) > 8) {$Key = substr($Key,0,8);}
$crypt = new Crypt::DES $Args{'Key'};
}
elsif ($Type eq "DES3")
{
if (len($Key) < 24) { while (len($Key) < 24) {$Key .= $Chr;}}
if (len($Key) > 24) {$Key = substr($Key,0,24);}
$crypt = new Crypt::DES_EDE3->new($Args{'Key'});
}
elsif ($Type eq "IDEA")
{
### What is the max for IDEA?
if (len($Key) < 8) { while (len($Key) < 8) {$Key .= $Chr;}}
# if (len($Key) > 56) {$Key = substr($Key,0,56);}
$crypt = new IDEA $Args{'Key'};
}
elsif ($Type eq "RC4")
{
if (len($Key) < 8) { while (len($Key) < 8) {$Key .= $Chr;}}
# if (len($Key) > 56) {$Key = substr($Key,0,56);}
$crypt = Crypt::RC4->new( Args{'Key'});
}
elsif ($Type eq "RC5")
{
if (len($Key) < 8) { while (len($Key) < 8) {$Key .= $Chr;}}
# if (len($Key) > 56) {$Key = substr($Key,0,56);}
$crypt = Crypt::RC5->new( Args{'Key'}, $Args{'Rounds'});
}
elsif ($Type eq "RC6")
{
if (len($Key) < 32) { while (len($Key) < 32) {$Key .= $Chr;}}
if (len($Key) > 32) {$Key = substr($Key,0,32);}
$crypt = new Crypt::RC6 $Args{'Key'};
}
my $Result = "";
if ($Action eq "Encrypt")
{
my $Temp = $Args{'Data'};
my $Encrypted = "";
while (length $Temp > 0)
{
while (length $Temp < 8) {$Temp .= $Chr;}
my $Temp2 = $crypt->encrypt(substr($Temp,0,8));
$Encrypted .= $Temp2;
if (length $Temp > 8) {$Temp = substr($Temp,8);} else {$Temp = "";}
}
my $Unpacked = unpack("H*",$Encrypted);
return($Unpacked);
}
elsif ($Action eq "Decrypt")
{
my $Packed = pack("H*",$Args{'Data'});
my $Temp = $Packed;
my $Decrypted = "";
while (length $Temp > 0)
{
my $Temp2 = substr($Temp,0,8);
if (length $Temp2 == 8)
{
my $Temp3 = $crypt->decrypt($Temp2);
$Decrypted .= $Temp3;
}
if (length $Temp > 8) {$Temp = substr($Temp,8);} else {$Temp = "";}
}
$Decrypted =~ s/$Chr+$//g;
return($Decrypted);
}
return('');
}
#-----------------------------------
sub Encrypt_Blowfish
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'blowfish_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'Blowfish', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#-------------------------------------------------------------------------
sub Decrypt_Blowfish
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'blowfish_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Decrypted = $self->Do_It('Type'=>'Blowfish', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key);
return (0, $Decrypted);
}
#-----------------------------------
sub Encrypt_CAST5
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'cast5_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'CAST5', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#-------------------------------------------------------------------------
sub Decrypt_CAST5
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'cast5_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'CAST5', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#-------------------------------------------------------------------------
sub Decrypt_DES
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'des_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Decrypted = $self->Do_It('Type'=>'DES', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key);
return (0, $Decrypted);
}
#-----------------------------------
sub Encrypt_DES3
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'des3__key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'DES3', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#-------------------------------------------------------------------------
sub Encrypt_IDEA
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'idea__key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Encrypted = $self->Do_It('Type'=>'IDEA', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key);
return (0, $Encrypted);
}
#-------------------------------------------------------------------------
sub Decrypt_IDEA
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'idea__key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Decrypted = $self->Do_It('Type'=>'IDEA', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key);
return (0, $Decrypted);
}
#-----------------------------------
sub Encrypt_RC4
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'rc4_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'RC4', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#--------------------------------------------------------------
sub Decrypt_RC4
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'rc4_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'RC4', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#-------------------------------------------------------------------------
sub Encrypt_RC5
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'rc5_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Rounds = 50;
if (!(exists $Args{'Rounds'}) || ($Args{'Rounds'} > 0))
{$Rounds = $Args{'Rounds'};}
my $Encrypted = $self->Do_It('Type'=>'RC5', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key, 'Rounds'=>$Rounds);
return (0, $Encrypted);
}
#-------------------------------------------------------------------------
sub Decrypt_RC5
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'rc5_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Rounds = 50;
if (!(exists $Args{'Rounds'}) || ($Args{'Rounds'} > 0))
{$Rounds = $Args{'Rounds'};}
my $Decrypted = $self->Do_It('Type'=>'RC5', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key, 'Rounds'=>$Rounds);
return (0, $Decrypted);
}
#-----------------------------------
sub Encrypt_RC6
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'rc6_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'RC6', 'Data'=>$Data,
'Action'=>'Encrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
#-----------------------------------
sub Decrypt_RC6
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'Data'};
my $Key = $self->{'rc6_key'};
if (!(exists $Args{'Key'}) || ($Args{'Key'} ne '')) {$Key = $Args{'Key'};}
my $Unpacked = $self->Do_It('Type'=>'RC6', 'Data'=>$Data,
'Action'=>'Decrypt', 'Key'=>$Key);
return (0, $Unpacked);
}
1;
beta/Templates/Perl/Convert.pm_header 0100644 0000764 0000764 00000021274 07667307326 016624 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
## Put mime, base64, and others into Utils module.
package __PACKAGE__::Convert;
use strict;
# use Apache; -- put this in the server startup.
use DBI;
use CGI;
use Crypt::Blowfish;
use Compress::Zlib;
use Archive::Zip;
use MIME::Base64;
use Convert::BinHex;
#------------------------------------------------------------
sub new
{
my $class = shift;
my $self = {};
bless $self, $class;
return ($self);
}
#--------------------------------------------
sub Escape_Link
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'data'})) {$Args{'data'} = '';}
### We should really streamline this to not load the whole module.
my $q = new CGI;
return ($q->escapeHTML($Args{'data'}));
}
#--------------------------------------------
sub Unescape_Link
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'data'})) {$Args{'data'} = '';}
my $String = $Args{'data'};
### We should really streamline this to not load the whole module.
my $Junk = "";
if ($String =~ /\?/) {($Junk,$String) = split(/\?/, $String, 2);}
my $q = new CGI($String);
return ($q);
}
#-------------------------------------------
### We should instead use the CGI module to do this.
### We should escape all non-alphanumeric.
### Or just add '.
sub Convert_Html
{
my $self = shift;
my $String = shift;
if (ref $String) {$String = "";}
else
{
$String =~ s/\&/\&\;/g;
$String =~ s/\"/\"\;/g;
$String =~ s/\>/\>\;/g;
$String =~ s/\ 0) {$String = substr($String,0,$No);}
if (ref $String) {$String = "";}
else
{
$String =~ s/[^a-zA-Z0-9 \~\!\@\#\$\%\^\&\*\(\)\_\+\-\=\\\[\]\;\'\,\.\/\{\}\:\"\<\>\?\n\|\t]//g;
}
return ($String);
}
#---------------------------------------------------------------------
sub Convert_It
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'type'})) {return('')}
my $Result = '';
if (exists $Args{'input_file'})
{
my $Output = 0;
if (exists $Args{'output_file'})
{ open(OUTPUT,$Args{'output_file'}); $Output = 1;}
open(INPUT,$Args{'input_file'});
while (my $Line = )
{
my $Temp = $self->Convert_It_Really('type'=>$Args{'type'}, 'data'=>$Line);
if ($Output > 0) {print OUTPUT $Temp;}
else {$Result .= $Temp;}
}
close INPUT;
if ($Output > 0) {close OUTPUT;}
}
elsif (exists $Args{'data'})
{
$Result = $self->Convert_It_Really('type'=>$Args{'type'}, 'data'=>$Args{'data'});
}
else {return('');}
return($Result);
}
#---------------------------------------------------------
sub Convert_It_Really
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'data'};
my $Type = $Args{'type'};
my $Result = '';
if ($Type eq "uuencode") {$Result = pack ("u*", $Data);}
elsif ($Type eq "uudecode") {$Result = unpack ("u*", $Data);}
elsif ($Type eq "base64_encode") {$Result = encode_base64($Data);}
elsif ($Type eq "base64_decode") {$Result = decode_base64($Data);}
elsif ($Type eq "binhex_encode")
{
my $B2H = Convert::BinHex->bin2hex;
$Result = $B2H->next($Data);
$Result .= $B2H->done;
}
elsif ($Type eq "binhex_decode")
{
my $H2B = Convert::BinHex->hex2bin;
$Result = $H2B->next($Data);
$Result .= $H2B->done;
}
elsif ($Type eq "ascii_encode")
{
my $len = length($Data);
for(my $i = 0; $i < $len; $i++) {$Result .= ord(substr($Data,$i,1)) . " ";}
}
elsif ($Type eq "ascii_decode")
{
chomp $Data;
my (@Temp) = split(/ /,$Data);
@Temp = grep(length($_) > 0, @Temp);
foreach my $Temp (@Temp) { $Result .= chr($Temp); }
}
elsif ($Type eq "hex_encode") {$Result = unpack ("h*", $Data);}
elsif ($Type eq "hex_decode") {$Result = pack ("h*", $Data);}
#elsif ($Type eq "") {$Result = ;}
return($Result);
}
#-----------------------------------------------------------
sub Gzip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
open(FILE,$Args{'input_file'});
while (my $Line = ) {$Args{'data'}.= $Line;}
close FILE;
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
my $gz = gzopen($Args{'output_file'}, "wb");
$gz->gzwrite($Args{'data'});
$gz->gzclose ;
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
my $x = inflateInit();
my ($output, $status) = $x->inflate($Args{'data'});
return ($output);
}
}
#--------------------------------------------
sub Gunzip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
$Args{'data'} = "";
my $buffer;
my $gz = gzopen($Args{'input_file'}, "rb");
$Args{'data'} .= $buffer while $gz->gzread($buffer) > 0 ;
$gz->gzclose() ;
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
open(FILE,">$Args{'output_file'}");
print FILE $Args{'data'};
close FILE;
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
return ($Args{'data'});
}
}
#---------------------------------------------------------
sub Uudecode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'uudecode', %Args));
}
#---------------------------------------------------------
sub Uuencode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'uuencode', %Args));
}
#-----------------------------------------------------------------
sub Zip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
open(FILE,$Args{'input_file'});
while (my $Line = ) {$Args{'data'}.= $Line;}
close FILE;
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
my $zip = Archive::Zip->new();
my $member = $zip->addString($Args{'data'}, 'data');
my $status = $zip->writeToFileNamed( $Args{'output_file'} );
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
### Apparently, gzip and zip use the same compression.
### If this is true, then just use gzip. It seems like
### the zip module uses the gzip module.
my $x = inflateInit();
my ($output, $status) = $x->inflate($Args{'data'});
return ($output);
}
}
#--------------------------------------------
sub Unzip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
my $zip = Archive::Zip->new();
my $member = $zip->memberNamed( 'data' );
my $status = $member->rewindData();
$Args{'data'} = "";
while ( ! $member->readIsDone() )
{
my ( $bufferRef, $status ) = $member->readChunk();
$Args{'data'} .= $$bufferRef;
}
$member->endRead();
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
open(FILE,">$Args{'output_file'}");
print FILE $Args{'data'};
close FILE;
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
return ($Args{'data'});
}
}
#---------------------------------------------------------
sub Base64_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'base64_encode', %Args));
}
#---------------------------------------------------------
sub Base64_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'base64_decode', %Args));
}
#---------------------------------------------------------
sub Binhex_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'binhex_encode', %Args));
}
#---------------------------------------------------------
sub Binhex_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'binhex_decode', %Args));
}
#---------------------------------------------------------
sub Ascii_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'ascii_encode', %Args));
}
#---------------------------------------------------------
sub Ascii_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'ascii_decode', %Args));
}
#--------------------------------------------------------------------------
sub Hex_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'hex_encode', %Args));
}
#--------------------------------------------------------------------------
sub Hex_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'hex_decode', %Args));
}
1;
beta/Templates/Perl/Convert.pm_header~ 0100644 0000764 0000764 00000021126 07666467256 017026 0 ustar mark mark #!/usr/bin/perl
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
## Put mime, base64, and others into Utils module.
package __PACKAGE__::Convert;
use strict;
# use Apache; -- put this in the server startup.
use DBI;
use CGI;
use Crypt::Blowfish;
use Compress::Zlib;
use Archive::Zip;
use MIME::Base64;
use Convert::BinHex;
#------------------------------------------------------------
sub new
{
my $class = shift;
my $self = {};
bless $self, $class;
return ($self);
}
#--------------------------------------------
sub Escape_Link
{
my $self = shift;
my %Args = @_;
my $String = shift;
### We should really streamline this to not load the whole module.
my $q = new CGI;
return ($q->escapeHTML($String));
}
#--------------------------------------------
sub Unescape_Link
{
my $self = shift;
my $String = shift;
### We should really streamline this to not load the whole module.
my $Junk = "";
if ($String =~ /\?/) {($Junk,$String) = split(/\?/, $String, 2);}
my $q = new CGI($String);
return ($q);
}
#-------------------------------------------
### We should instead use the CGI module to do this.
### We should escape all non-alphanumeric.
### Or just add '.
sub Convert_Html
{
my $self = shift;
my $String = shift;
if (ref $String) {$String = "";}
else
{
$String =~ s/\&/\&\;/g;
$String =~ s/\"/\"\;/g;
$String =~ s/\>/\>\;/g;
$String =~ s/\ 0) {$String = substr($String,0,$No);}
if (ref $String) {$String = "";}
else
{
$String =~ s/[^a-zA-Z0-9 \~\!\@\#\$\%\^\&\*\(\)\_\+\-\=\\\[\]\;\'\,\.\/\{\}\:\"\<\>\?\n\|\t]//g;
}
return ($String);
}
#---------------------------------------------------------------------
sub Convert_It
{
my $self = shift;
my %Args = @_;
if (!(exists $Args{'type'})) {return('')}
my $Result = '';
if (exists $Args{'input_file'})
{
my $Output = 0;
if (exists $Args{'output_file'})
{ open(OUTPUT,$Args{'output_file'}); $Output = 1;}
open(INPUT,$Args{'input_file'});
while (my $Line = )
{
my $Temp = $self->Convert_It_Really('type'=>$Args{'type'}, 'data'=>$Args{'data'});
if ($Output > 0) {print OUTPUT $Temp;}
else {$Result .= $Temp;}
}
close INPUT;
if ($Output > 0) {close OUTPUT;}
}
elsif (exists $Args{'data'})
{
$Result = $self->Convert_It_Really('type'=>$Args{'type'}, 'data'=>$Args{'data'});
}
else {return('');}
return($Result);
}
#---------------------------------------------------------
sub Convert_It_Really
{
my $self = shift;
my %Args = @_;
my $Data = $Args{'data'};
my $Type = $Args{'type'};
my $Result = '';
if ($Type eq "uuencode") {$Result = pack ("u*", $Data);}
elsif ($Type eq "uudecode") {$Result = unpack ("u*", $Data);}
elsif ($Type eq "base64_encode") {$Result = encode_base64($Data);}
elsif ($Type eq "base64_decode") {$Result = decode_base64($Data);}
elsif ($Type eq "binhex_encode")
{
my $B2H = Convert::BinHex->bin2hex;
$Result = $B2H->next($Data);
$Result .= $B2H->done;
}
elsif ($Type eq "binhex_decode")
{
my $H2B = Convert::BinHex->hex2bin;
$Result = $H2B->next($Data);
$Result .= $H2B->done;
}
elsif ($Type eq "ascii_encode")
{
my $len = length($Data);
for(my $i = 0; $i < $len; $i++) {$Result .= ord(substr($Data,$i,1)) . " ";}
}
elsif ($Type eq "ascii_decode")
{
chomp $Data;
my (@Temp) = split(/ /,$Data);
@Temp = grep(length($_) > 0, @Temp);
foreach my $Temp (@Temp) { $Result .= chr($Temp); }
}
elsif ($Type eq "hex_encode") {$Result = unpack ("h*", $Data);}
elsif ($Type eq "hex_decode") {$Result = pack ("h*", $Data);}
#elsif ($Type eq "") {$Result = ;}
return($Result);
}
#-----------------------------------------------------------
sub Gzip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
open(FILE,$Args{'input_file'});
while (my $Line = ) {$Args{'data'}.= $Line;}
close FILE;
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
my $gz = gzopen($Args{'output_file'}, "wb");
$gz->gzwrite($Args{'data'});
$gz->gzclose ;
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
my $x = inflateInit();
my ($output, $status) = $x->inflate($Args{'data'});
return ($output);
}
}
#--------------------------------------------
sub Gunzip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
$Args{'data'} = "";
my $buffer;
my $gz = gzopen($Args{'input_file'}, "rb");
$Args{'data'} .= $buffer while $gz->gzread($buffer) > 0 ;
$gz->gzclose() ;
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
open(FILE,">$Args{'output_file'}");
print FILE $Args{'data'};
close FILE;
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
return ($Args{'data'});
}
}
#---------------------------------------------------------
sub Uudecode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'uudecode', %Args));
}
#---------------------------------------------------------
sub Uuencode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'uuencode', %Args));
}
#-----------------------------------------------------------------
sub Zip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
open(FILE,$Args{'input_file'});
while (my $Line = ) {$Args{'data'}.= $Line;}
close FILE;
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
my $zip = Archive::Zip->new();
my $member = $zip->addString($Args{'data'}, 'data');
my $status = $zip->writeToFileNamed( $Args{'output_file'} );
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
### Apparently, gzip and zip use the same compression.
### If this is true, then just use gzip. It seems like
### the zip module uses the gzip module.
my $x = inflateInit();
my ($output, $status) = $x->inflate($Args{'data'});
return ($output);
}
}
#--------------------------------------------
sub Unzip
{
my $self = shift;
my %Args = @_;
if ((exists $Args{'input_file'}) && !(-e $Args{'input_file'})) {return ("-1");}
elsif (exists $Args{'input_file'})
{
my $zip = Archive::Zip->new();
my $member = $zip->memberNamed( 'data' );
my $status = $member->rewindData();
$Args{'data'} = "";
while ( ! $member->readIsDone() )
{
my ( $bufferRef, $status ) = $member->readChunk();
$Args{'data'} .= $$bufferRef;
}
$member->endRead();
}
elsif (!(exists $Args{'data'})) {return ("-2");}
if (exists $Args{'output_file'})
{
open(FILE,">$Args{'output_file'}");
print FILE $Args{'data'};
close FILE;
if (-e $Args{'output_file'}) {return(1);}
else {return(-3);}
}
else
{
return ($Args{'data'});
}
}
#---------------------------------------------------------
sub Base64_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'base64_encode', %Args));
}
#---------------------------------------------------------
sub Base64_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'base64_decode', %Args));
}
#---------------------------------------------------------
sub Binhex_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'binhex_encode', %Args));
}
#---------------------------------------------------------
sub Binhex_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'binhex_decode', %Args));
}
#---------------------------------------------------------
sub Ascii_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'ascii_encode', %Args));
}
#---------------------------------------------------------
sub Ascii_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'ascii_decode', %Args));
}
#--------------------------------------------------------------------------
sub Hex_Encode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'hex_encode', %Args));
}
#--------------------------------------------------------------------------
sub Hex_Decode
{
my $self = shift;
my %Args = @_;
return($self->Convert_It('type'=>'hex_decode', %Args));
}
1;
beta/Templates/Php/ 0040775 0000764 0000764 00000000000 07733030503 013142 5 ustar mark mark beta/Templates/Php/HTML/ 0040775 0000764 0000764 00000000000 07561630653 013721 5 ustar mark mark beta/Templates/Php/HTML/DEFINEFIELDS_Id.php 0100664 0000764 0000764 00000000064 07561630554 016664 0 ustar mark mark $Fields['__FIELDNAME__'] = $Ids['__FIELDNAME__'];
beta/Templates/Php/HTML/Custom_Html1.php 0100755 0000764 0000764 00000012245 07561630464 016753 0 ustar mark mark
# Have the following uncommented lines.
# Action php-script /cgi-bin/php
# AddHandler php-script .php
# SetEnv REDIRECT_STATUS 1
# and then copy php to cgi-bin/php --- this might be dangerous.
# Again, only do this for testing purposes.
include "__DESTINATION_MODULES_PHP__/Constants.inc";
include "__DESTINATION_MODULES_PHP__/Get_Info.inc";
include "__DESTINATION_MODULES_PHP__/Set_Info.inc";
$Info = new Get_Info;
$Set = new Set_Info;
# (array_key_exists("title", $ref))
$Vars = array();
while (list($key, $value) = each($_GET)) { $Vars[$key] = $value; }
while (list($key, $value) = each($_POST)) { $Vars[$key] = $value; }
while (list($key, $value) = each($HTTP_GET_VARS)) { $Vars[$key] = $value; }
while (list($key, $value) = each($HTTP_POST_VARS)) { $Vars[$key] = $value; }
$Update = "none";
if (array_key_exists("update", $Vars)) {$Update = preg_quote($Vars['update']);}
$Action = "none";
if (array_key_exists("action", $Vars)) {$Action = preg_quote($Vars['action']);}
$Id = 0;
$Ids = array();
if (array_key_exists("id", $Vars)) {$Id = preg_quote($Vars['id']);}
__OTHERIDS__
$Fields = array();
if ($Action == "new") {$Id = 0;}
elseif ($Action == "delete")
{
$Result = $Set->Set___TABLENAME__($Id,'delete',$Fields);
print " $Status: $Title\n";
}
if ($List == "") {$List = " None\n";}
#-------------------------------------------------------------------
# Get all the information about this entry in the table.
# Again we could create a standard perl module to do this.
$Other_Lists = array();
$Other_Info = array();
$Type = "new";
$Message = "Create a new __TABLENAME__.";
$__TABLENAME___Info = array();
if ($Id > 0)
{
$Type = "update";
$__TABLENAME___Info = $Info->Info_func('__TABLENAME__', $Id);
$Message = "Update Information for __TABLENAME___id = $Id).";
__SETIDSOTHER__
}
#-------------------------------------------------------------------
# Create the other lists for primary keys of other tables.
# This could be modularized as well.
__OTHER_LISTS__
#------------------------------------------------------------------
# Print out the html code with some debug info at bottom.
$ListFields = array(__LISTFIELDS__);
$Keys = array_keys($ListFields);
asort($Keys);
while (list($key, $value) = each($Keys))
{
$Field = $value;
if (!(array_key_exists($Field, $__TABLENAME___Info)))
{$__TABLENAME___Info[$Field] = "";}
}
?>
__PACKAGE__ : __TABLENAME__ editing
Editing data in the table '__TABLENAME__'.
beta/Templates/Php/HTML/Custom_Lists.php 0100664 0000764 0000764 00000001547 07561630525 017064 0 ustar mark mark
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
$Temp_List = $Info->List_func('__TABLENAME__','all','none');
$Keys = array_keys($Temp_List);
asort($Keys);
$Other_Lists['__TABLENAME___id'] = '';
while (list($key, $value) = each($Keys))
{
$Key = $value;
$ref = $Temp_List[$Key];
$Selected = "";
if ($ref['__TABLENAME___id'] == $Ids['__TABLENAME___id'])
{$Selected = " selected";}
$Status = "Active";
if ($ref['active'] == 0) {$Status = "Inactive";}
$Title = $ref['__TABLENAME___id'];
if (array_key_exists("title", $ref)) {$Title=$Title . ": " . $ref['title'];}
$Other_Lists['__TABLENAME___id'] = $Other_Lists['__TABLENAME___id'] . " " . $ref['__TABLENAME___id'] . " : $Status\n";
}
beta/Templates/Php/HTML/DEFINEFIELDS_No.php 0100664 0000764 0000764 00000000145 07561630571 016703 0 ustar mark mark if (array_key_exists("__FIELDNAME__", $Vars)) {$Fields["__FIELDNAME__"] = $Vars["__FIELDNAME__"];}
beta/Templates/Php/HTML/HTMLFIELDS.php 0100664 0000764 0000764 00000000211 07561630606 016052 0 ustar mark mark __FIELDNAME__
__FIELDNAME__
'
target="__FIELDNAME__">Edit This Item
, 5/2001 |
// | (Converted to PHP class) |
// | |
// | add() function stolen from Chris Monson (chris@bouncingchairs.net), |
// | GPL'ed SHA implementation v1.0 |
// +----------------------------------------------------------------------+
// | Changelog: |
// | v0.0.7-dev 2001/06/01: Code cleanup, formation and comments!!! |
// | v0.0.6-dev 2001/05/31: First working implementation written in PHP |
// +----------------------------------------------------------------------+
// | Example of using Blow-4-PHP: |
// | |
// | $blowfish = new Blowfish("testkey",7); |
// | $data = "testdata"; |
// | $data_len = strlen($data); |
// | $blowfish->Encrypt($data,$data_len); |
// | $blowfish->Decrypt($data,$data_len); |
// | |
// | Notes: |
// | Like other implementations, this code is not optimized for speed! |
// | The slowest part of all is the initialisation with the key of the |
// | sboxes, because Encipher() is called 4*256 in the Blowfish() |
// | function. Some mini-tests showed the following function-runtime: |
// | time useless machine description |
// | --------- --------------------------------------------------------- |
// | 7-8 secs PII-400 linux workstation under heavy load |
// | 4-5 secs PIII-600 linux server |
// | 4-5 secs webhosting provider (heavy load till up to12 secs!) |
// | |
// +----------------------------------------------------------------------+
//
// $Id$ (cvs not used yet)
class Blowfish {
var $P;
var $S;
/**
* initial P array
*
* recalculated initial pboxes from hex to integer because php
* doesn't like hex-values (hex will be recognized as double)
*
* array-size [18]
*/
var $Init_P = array (
608135816, -2052912941, 320440878, 57701188,
-1542899678, 698298832, 137296536, -330404727,
1160258022, 953160567, -1101764913, 887688300,
-1062458953, -914599715, 1065670069, -1253635817,
-1843997223, -1988494565
);
/**
* initial S array
*
* recalculated initial sboxes from hex to integer because php
* doesn't like hex-values (hex will be recognized as double)
*
* array-size [4][256]
*/
var $Init_S = array(
array(
-785314906, -1730169428, 805139163, -803545161,
-1193168915, 1780907670, -1166241723, -248741991,
614570311, -1282315017, 134345442, -2054226922,
1667834072, 1901547113, -1537671517, -191677058,
227898511, 1921955416, 1904987480, -2112533778,
2069144605, -1034266187, -1674521287, 720527379,
-976113629, 677414384, -901678824, -1193592593,
-1904616272, 1614419982, 1822297739, -1340175810,
-686458943, -1120842969, 2024746970, 1432378464,
-430627341, -1437226092, 1464375394, 1676153920,
1439316330, 715854006, -1261675468, 289532110,
-1588296017, 2087905683, -1276242927, 1668267050,
732546397, 1947742710, -832815594, -1685613794,
-1344882125, 1814351708, 2050118529, 680887927,
999245976, 1800124847, -994056165, 1713906067,
1641548236, -81679983, 1216130144, 1575780402,
-276538019, -377129551, -601480446, -345695352,
596196993, -745100091, 258830323, -2081144263,
772490370, -1534844924, 1774776394, -1642095778,
566650946, -152474470, 1728879713, -1412200208,
1783734482, -665571480, -1777359064, -1420741725,
1861159788, 326777828, -1170476976, 2130389656,
-1578015459, 967770486, 1724537150, -2109534584,
-1930525159, 1164943284, 2105845187, 998989502,
-529566248, -2050940813, 1075463327, 1455516326,
1322494562, 910128902, 469688178, 1117454909,
936433444, -804646328, -619713837, 1240580251,
122909385, -2137449605, 634681816, -152510729,
-469872614, -1233564613, -1754472259, 79693498,
-1045868618, 1084186820, 1583128258, 426386531,
1761308591, 1047286709, 322548459, 995290223,
1845252383, -1691314900, -863943356, -1352745719,
-1092366332, -567063811, 1712269319, 422464435,
-1060394921, 1170764815, -771006663, -1177289765,
1434042557, 442511882, -694091578, 1076654713,
1738483198, -81812532, -1901729288, -617471240,
1014306527, -43947243, 793779912, -1392160085,
842905082, -48003232, 1395751752, 1040244610,
-1638115397, -898659168, 445077038, -552113701,
-717051658, 679411651, -1402522938, -1940957837,
1767581616, -1144366904, -503340195, -1192226400,
284835224, -48135240, 1258075500, 768725851,
-1705778055, -1225243291, -762426948, 1274779536,
-505548070, -1530167757, 1660621633, -823867672,
-283063590, 913787905, -797008130, 737222580,
-1780753843, -1366257256, -357724559, 1804850592,
-795946544, -1345903136, -1908647121, -1904896841,
-1879645445, -233690268, -2004305902, -1878134756,
1336762016, 1754252060, -774901359, -1280786003,
791618072, -1106372745, -361419266, -1962795103,
-442446833, -1250986776, 413987798, -829824359,
-1264037920, -49028937, 2093235073, -760370983,
375366246, -2137688315, -1815317740, 555357303,
-424861595, 2008414854, -950779147, -73583153,
-338841844, 2067696032, -700376109, -1373733303,
2428461, 544322398, 577241275, 1471733935,
610547355, -267798242, 1432588573, 1507829418,
2025931657, -648391809, 545086370, 48609733,
-2094660746, 1653985193, 298326376, 1316178497,
-1287180854, 2064951626, 458293330, -1705826027,
-703637697, -1130641692, 727753846, -2115603456,
146436021, 1461446943, -224990101, 705550613,
-1235000031, -407242314, -13368018, -981117340,
1404054877, -1449160799, 146425753, 1854211946
),
array(
1266315497, -1246549692, -613086930, -1004984797,
-1385257296, 1235738493, -1662099272, -1880247706,
-324367247, 1771706367, 1449415276, -1028546847,
422970021, 1963543593, -1604775104, -468174274,
1062508698, 1531092325, 1804592342, -1711849514,
-1580033017, -269995787, 1294809318, -265986623,
1289560198, -2072974554, 1669523910, 35572830,
157838143, 1052438473, 1016535060, 1802137761,
1753167236, 1386275462, -1214491899, -1437595849,
1040679964, 2145300060, -1904392980, 1461121720,
-1338320329, -263189491, -266592508, 33600511,
-1374882534, 1018524850, 629373528, -603381315,
-779021319, 2091462646, -1808644237, 586499841,
988145025, 935516892, -927631820, -1695294041,
-1455136442, 265290510, -322386114, -1535828415,
-499593831, 1005194799, 847297441, 406762289,
1314163512, 1332590856, 1866599683, -167115585,
750260880, 613907577, 1450815602, -1129346641,
-560302305, -644675568, -1282691566, -590397650,
1427272223, 778793252, 1343938022, -1618686585,
2052605720, 1946737175, -1130390852, -380928628,
-327488454, -612033030, 1661551462, -1000029230,
-283371449, 840292616, -582796489, 616741398,
312560963, 711312465, 1351876610, 322626781,
1910503582, 271666773, -2119403562, 1594956187,
70604529, -677132437, 1007753275, 1495573769,
-225450259, -1745748998, -1631928532, 504708206,
-2031925904, -353800271, -2045878774, 1514023603,
1998579484, 1312622330, 694541497, -1712906993,
-2143385130, 1382467621, 776784248, -1676627094,
-971698502, -1797068168, -1510196141, 503983604,
-218673497, 907881277, 423175695, 432175456,
1378068232, -149744970, -340918674, -356311194,
-474200683, -1501837181, -1317062703, 26017576,
-1020076561, -1100195163, 1700274565, 1756076034,
-288447217, -617638597, 720338349, 1533947780,
354530856, 688349552, -321042571, 1637815568,
332179504, -345916010, 53804574, -1442618417,
-1250730864, 1282449977, -711025141, -877994476,
-288586052, 1617046695, -1666491221, -1292663698,
1686838959, 431878346, -1608291911, 1700445008,
1080580658, 1009431731, 832498133, -1071531785,
-1688990951, -2023776103, -1778935426, 1648197032,
-130578278, -1746719369, 300782431, 375919233,
238389289, -941219882, -1763778655, 2019080857,
1475708069, 455242339, -1685863425, 448939670,
-843904277, 1395535956, -1881585436, 1841049896,
1491858159, 885456874, -30872223, -293847949,
1565136089, -396052509, 1108368660, 540939232,
1173283510, -1549095958, -613658859, -87339056,
-951913406, -278217803, 1699691293, 1103962373,
-669091426, -2038084153, -464828566, 1031889488,
-815619598, 1535977030, -58162272, -1043876189,
2132092099, 1774941330, 1199868427, 1452454533,
157007616, -1390851939, 342012276, 595725824,
1480756522, 206960106, 497939518, 591360097,
863170706, -1919713727, -698356495, 1814182875,
2094937945, -873565088, 1082520231, -831049106,
-1509457788, 435703966, -386934699, 1641649973,
-1452693590, -989067582, 1510255612, -2146710820,
-1639679442, -1018874748, -36346107, 236887753,
-613164077, 274041037, 1734335097, -479771840,
-976997275, 1899903192, 1026095262, -244449504,
356393447, -1884275382, -421290197, -612127241
),
array(
-381855128, -1803468553, -162781668, -1805047500,
1091903735, 1979897079, -1124832466, -727580568,
-737663887, 857797738, 1136121015, 1342202287,
507115054, -1759230650, 337727348, -1081374656,
1301675037, -1766485585, 1895095763, 1721773893,
-1078195732, 62756741, 2142006736, 835421444,
-1762973773, 1442658625, -635090970, -1412822374,
676362277, 1392781812, 170690266, -373920261,
1759253602, -683120384, 1745797284, 664899054,
1329594018, -393761396, -1249058810, 2062866102,
-1429332356, -751345684, -830954599, 1080764994,
553557557, -638351943, -298199125, 991055499,
499776247, 1265440854, 648242737, -354183246,
980351604, -581221582, 1749149687, -898096901,
-83167922, -654396521, 1161844396, -1169648345,
1431517754, 545492359, -26498633, -795437749,
1437099964, -1592419752, -861329053, -1713251533,
-1507177898, 1060185593, 1593081372, -1876348548,
-34019326, 69676912, -2135222948, 86519011,
-1782508216, -456757982, 1220612927, -955283748,
133810670, 1090789135, 1078426020, 1569222167,
845107691, -711212847, -222510705, 1091646820,
628848692, 1613405280, -537335645, 526609435,
236106946, 48312990, -1352249391, -892239595,
1797494240, 859738849, 992217954, -289490654,
-2051890674, -424014439, -562951028, 765654824,
-804095931, -1783130883, 1685915746, -405998096,
1414112111, -2021832454, -1013056217, -214004450,
172450625, -1724973196, 980381355, -185008841,
-1475158944, -1578377736, -1726226100, -613520627,
-964995824, 1835478071, 660984891, -590288892,
-248967737, -872349789, -1254551662, 1762651403,
1719377915, -824476260, -1601057013, -652910941,
-1156370552, 1364962596, 2073328063, 1983633131,
926494387, -871278215, -2144935273, -198299347,
1749200295, -966120645, 309677260, 2016342300,
1779581495, -1215147545, 111262694, 1274766160,
443224088, 298511866, 1025883608, -488520759,
1145181785, 168956806, -653464466, -710153686,
1689216846, -628709281, -1094719096, 1692713982,
-1648590761, -252198778, 1618508792, 1610833997,
-771914938, -164094032, 2001055236, -684262196,
-2092799181, -266425487, -1333771897, 1006657119,
2006996926, -1108824540, 1430667929, -1084739999,
1314452623, -220332638, -193663176, -2021016126,
1399257539, -927756684, -1267338667, 1190975929,
2062231137, -1960976508, -2073424263, -1856006686,
1181637006, 548689776, -1932175983, -922558900,
-1190417183, -1149106736, 296247880, 1970579870,
-1216407114, -525738999, 1714227617, -1003338189,
-396747006, 166772364, 1251581989, 493813264,
448347421, 195405023, -1584991729, 677966185,
-591930749, 1463355134, -1578971493, 1338867538,
1343315457, -1492745222, -1610435132, 233230375,
-1694987225, 2000651841, -1017099258, 1638401717,
-266896856, -1057650976, 6314154, 819756386,
300326615, 590932579, 1405279636, -1027467724,
-1144263082, -1866680610, -335774303, -833020554,
1862657033, 1266418056, 963775037, 2089974820,
-2031914401, 1917689273, 448879540, -744572676,
-313240200, 150775221, -667058989, 1303187396,
508620638, -1318983944, -1568336679, 1817252668,
1876281319, 1457606340, 908771278, -574175177,
-677760460, -1838972398, 1729034894, 1080033504
),
array(
976866871, -738527793, -1413318857, 1522871579,
1555064734, 1336096578, -746444992, -1715692610,
-720269667, -1089506539, -701686658, -956251013,
-1215554709, 564236357, -1301368386, 1781952180,
1464380207, -1131123079, -962365742, 1699332808,
1393555694, 1183702653, -713881059, 1288719814,
691649499, -1447410096, -1399511320, -1101077756,
-1577396752, 1781354906, 1676643554, -1702433246,
-1064713544, 1126444790, -1524759638, -1661808476,
-2084544070, -1679201715, -1880812208, -1167828010,
673620729, -1489356063, 1269405062, -279616791,
-953159725, -145557542, 1057255273, 2012875353,
-2132498155, -2018474495, -1693849939, 993977747,
-376373926, -1640704105, 753973209, 36408145,
-1764381638, 25011837, -774947114, 2088578344,
530523599, -1376601957, 1524020338, 1518925132,
-534139791, -535190042, 1202760957, -309069157,
-388774771, 674977740, -120232407, 2031300136,
2019492241, -311074731, -141160892, -472686964,
352677332, -1997247046, 60907813, 90501309,
-1007968747, 1016092578, -1759044884, -1455814870,
457141659, 509813237, -174299397, 652014361,
1966332200, -1319764491, 55981186, -1967506245,
676427537, -1039476232, -1412673177, -861040033,
1307055953, 942726286, 933058658, -1826555503,
-361066302, -79791154, 1361170020, 2001714738,
-1464409218, -1020707514, 1222529897, 1679025792,
-1565652976, -580013532, 1770335741, 151462246,
-1281735158, 1682292957, 1483529935, 471910574,
1539241949, 458788160, -858652289, 1807016891,
-576558466, 978976581, 1043663428, -1129001515,
1927990952, -94075717, -1922690386, -1086558393,
-761535389, 1412390302, -1362987237, -162634896,
1947078029, -413461673, -126740879, -1353482915,
1077988104, 1320477388, 886195818, 18198404,
-508558296, -1785185763, 112762804, -831610808,
1866414978, 891333506, 18488651, 661792760,
1628790961, -409780260, -1153795797, 876946877,
-1601685023, 1372485963, 791857591, -1608533303,
-534984578, -1127755274, -822013501, -1578587449,
445679433, -732971622, -790962485, -720709064,
54117162, -963561881, -1913048708, -525259953,
-140617289, 1140177722, -220915201, 668550556,
-1080614356, 367459370, 261225585, -1684794075,
-85617823, -826893077, -1029151655, 314222801,
-1228863650, -486184436, 282218597, -888953790,
-521376242, 379116347, 1285071038, 846784868,
-1625320142, -523005217, -744475605, -1989021154,
453669953, 1268987020, -977374944, -1015663912,
-550133875, -1684459730, -435458233, 266596637,
-447948204, 517658769, -832407089, -851542417,
370717030, -47440635, -2070949179, -151313767,
-182193321, -1506642397, -1817692879, 1456262402,
-1393524382, 1517677493, 1846949527, -1999473716,
-560569710, -2118563376, 1280348187, 1908823572,
-423180355, 846861322, 1172426758, -1007518822,
-911584259, 1655181056, -1155153950, 901632758,
1897031941, -1308360158, -1228157060, -847864789,
1393639104, 373351379, 950779232, 625454576,
-1170726756, -146354570, 2007998917, 544563296,
-2050228658, -1964470824, 2058025392, 1291430526,
424198748, 50039436, 29584100, -689184263,
-1865090967, -1503863136, 1057563949, -1039604065,
-1219600078, -831004069, 1469046755, 985887462
)
);
/**
* php-safe add-function
*
* PHP does confusing things when using hex > 0x7FFFFFFF
* (like bitmask 0xFF000000). While searching the net for a solution,
* i found the SHA implementation created by Chris Monson who described
* the same problem. He found a solution for it, this function is "stolen"
* from him, thanks for this work!!!
* Description:
* Add simply adds two numbers. It is provided for compatibility on
* platforms that only support a 31 bit add (there are a few, apparently)
*
* @param a value a
* @param b value b
* @return php-safe a+b
*/
function add( $a, $b )
{
$ma = ($a >> 16) & 0xffff;
$la = ($a) & 0xffff;
$mb = ($b >> 16) & 0xffff;
$lb = ($b) & 0xffff;
$ls = $la + $lb;
// Carry
if ($ls > 0xffff) {
$ma += 1;
$ls &= 0xffff;
}
// MS add
$ms = $ma + $mb;
$ms &= 0xffff;
// Works because the bitwise operators are 32 bit
$result = ($ms << 16) | $ls;
return($result);
}
/**
* mathematical function to return changed r-block in X()
*
* This function was the big problem converting the code to
* php. It is called from X() which is called in Encipher and Decipher
*
* @param x Key to crypt the data
*/
function F($x)
{
//just split $x into bytes and it use as index for the sboxes
$S0 = $this->S[0][($x >> 24) & 0xff];
$S1 = $this->S[1][($x >> 16) & 0xff];
$S2 = $this->S[2][($x >> 8) & 0xff];
$S3 = $this->S[3][ $x & 0xff];
$tmp = 0;
$tmp = $this->add($S0,$S1) ^ $S2;
return($this->add($tmp,$S3));
}
/**
* mathematical function to return to change the l- and rblock
* in some implementation, called ROUND()
*
* called in Encipher and Decipher
*
* @param l left side of block
* @param r right side of block
* @param i current index in the p-array
*/
function X(&$l,&$r,$i)
{
$l ^= $this->F($r) ^ $this->P[$i];
}
/**
* constructs the encryption sieve
*
* This function is really slow because the key is used
* to shift the p- and sboxes which takes some time
*
* @param szKey Key to crypt the data
* @param keybytes Length of szKey-string
*/
function Blowfish ($szKey, $keybytes)
{
// first of all, fill arrays from data tables
$this->P = $this->Init_P;
$this->S = $this->Init_S;
// just a little trick to get our byte-array from string
for ($kp=0;$kp < $keybytes; $kp++) {
$arr = unpack("Ckey",$szKey[$kp]);
$key[$kp]=$arr["key"];
}
$keybytes = $kp;
$j = 0 ;
for ($i = 0 ; $i < 18 ; ++$i) {
$temp= ($key[$j]<<24) +
($key[($j+1)%($keybytes)]<<16) +
($key[($j+2)%($keybytes)]<<8) +
($key[($j+3)%($keybytes)]) ;
$data = $temp;
$this->P[$i] ^= $data ;
$j = ($j + 4) % $keybytes ;
}
$datal = 0 ;
$datar = 0 ;
for ($i = 0 ; $i < 18 ; $i += 2) {
$this->Encipher ($datal, $datar) ;
$this->P[$i] = $datal ;
$this->P[$i + 1] = $datar ;
}
for ($i = 0 ; $i < 4 ; ++$i) {
for ($j = 0 ; $j < 256 ; $j += 2) {
$this->Encipher ($datal, $datar) ;
$this->S[$i][$j] = $datal ;
$this->S[$i][$j + 1] = $datar ;
}
}
} // end constructor
/**
* the low level (private) encryption function
*
* this function is used in Encrypt() while jumping through the
* data-blocks.
*
* @param $Xl left side of block
* @param $Xr right side of block
*/
function Encipher (&$xl, &$xr)
{
$Xl = $xl ;
$Xr = $xr ;
$Xl ^= $this->P[0];
$this->X($Xr, $Xl, 1) ; $this->X($Xl, $Xr, 2) ;
$this->X($Xr, $Xl, 3) ; $this->X($Xl, $Xr, 4) ;
$this->X($Xr, $Xl, 5) ; $this->X($Xl, $Xr, 6) ;
$this->X($Xr, $Xl, 7) ; $this->X($Xl, $Xr, 8) ;
$this->X($Xr, $Xl, 9) ; $this->X($Xl, $Xr, 10) ;
$this->X($Xr, $Xl, 11) ; $this->X($Xl, $Xr, 12) ;
$this->X($Xr, $Xl, 13) ; $this->X($Xl, $Xr, 14) ;
$this->X($Xr, $Xl, 15) ; $this->X($Xl, $Xr, 16) ;
$Xr ^= $this->P[17] ;
$xr = $Xl;
$xl = $Xr;
}
/**
* the low level (private) decryption function
*
* this function is used in Decrypt() while jumping through the
* data-blocks.
*
* @param $xl left side of block
* @param $xr right side of block
*/
function Decipher (&$xl, &$xr)
{
$Xl = $xl ;
$Xr = $xr ;
$Xl ^= $this->P[17] ;
$this->X($Xr, $Xl, 16) ; $this->X($Xl, $Xr, 15) ;
$this->X($Xr, $Xl, 14) ; $this->X($Xl, $Xr, 13) ;
$this->X($Xr, $Xl, 12) ; $this->X($Xl, $Xr, 11) ;
$this->X($Xr, $Xl, 10) ; $this->X($Xl, $Xr, 9) ;
$this->X($Xr, $Xl, 8) ; $this->X($Xl, $Xr, 7) ;
$this->X($Xr, $Xl, 6) ; $this->X($Xl, $Xr, 5) ;
$this->X($Xr, $Xl, 4) ; $this->X($Xl, $Xr, 3) ;
$this->X($Xr, $Xl, 2) ; $this->X($Xl, $Xr, 1) ;
$Xr ^= $this->P[0];
$xl = $Xr;
$xr = $Xl;
}
/**
* "converts" a data string to left and right tiled block
*
* this function is used in in Encrypt() and Decrypt() to convert
* the data "string" to data "blocks"
*
* @param $bl left side of block
* @param $br right side of block
* @param $p data string
* @param $idx index of current char working on
*/
function BytesToBlock(&$bl,&$br,&$p,$idx)
{
//just a little trick to do get our bytearray from string
for ($i=0;$i < 8; $i++) {
$arr = unpack("Ckey",$p[$idx + $i]);
$bytes[$i]=$arr["key"];
}
$bl = ($bytes[3] << 24) | ($bytes[2] << 16) | ($bytes[1] << 8) | $bytes[0];
$br = ($bytes[7] << 24) | ($bytes[6] << 16) | ($bytes[5] << 8) | $bytes[4];
}
/**
* "converts" a data block back to data string
*
* this function is used in in Encrypt() and Decrypt() to convert
* the data "blocks" back to data "string"
*
* @param $p data string the blocks are written back to
* @param $bl left side of block
* @param $br right side of block
* @param $idx index of last char working on
*/
function BlockToBytes(&$p,&$bl,&$br,&$idx)
{
$p[$idx++] = chr($bl); $bl >>= 8;
$p[$idx++] = chr($bl); $bl >>= 8;
$p[$idx++] = chr($bl); $bl >>= 8;
$p[$idx++] = chr($bl);
$p[$idx++] = chr($br); $br >>= 8;
$p[$idx++] = chr($br); $br >>= 8;
$p[$idx++] = chr($br); $br >>= 8;
$p[$idx++] = chr($br);
}
/**
* encrypt bytes by shuffling through blocks
*
* the data variable will be changed directly, the original uncrypted
* string will be lost!
* THE DATA MUST BE A MULTIPLE OF 8 !!!
*
* @param $data data string which will be crypted
* @param $n length of data string
*/
function Encrypt(&$data,$n)
{
$idx = 0;
$blockl = 0;
$blockr = 0;
//FIXME: return error-code or something like that
if ($n % 8) {
die ("Length of data not % 8 " + str(Status) + ": " + str(Title) + "\n";
if List == "": List = " None\n"
#-------------------------------------------------------------------
# Get all the information about this entry in the table.
# Again we could create a standard perl module to do this.
Other_Lists = {}
Other_Info = {}
Type = "new"
Message = "Create a new __TABLENAME__."
__TABLENAME___Info = {}
if Id > 0:
Type = "update"
__TABLENAME___Info = Info.Info('__TABLENAME__', Id);
Message = "Update Information for __TABLENAME___id = " + str(Id) + "."
__SETIDSOTHER__
#-------------------------------------------------------------------
# Create the other lists for primary keys of other tables.
# This could be modularized as well.
__OTHER_LISTS__
#------------------------------------------------------------------
# Print out the html code with some debug info at bottom.
ListFields = [__LISTFIELDS__]
for Field in ListFields:
if not __TABLENAME___Info.has_key(Field) : __TABLENAME___Info[Field] = ""
print """
__PACKAGE__ : __TABLENAME__ editing
"""
print """
"""
print """
Editing data in the table "__TABLENAME__".
"""
#print " " + str(Status) + ": " + str(Title) + "\n";
if List == "": List = " None\n"
#-------------------------------------------------------------------
# Get all the information about this entry in the table.
# Again we could create a standard perl module to do this.
Other_Lists = {}
Other_Info = {}
Type = "new"
Message = "Create a new __TABLENAME__."
__TABLENAME___Info = {}
if Id > 0:
Type = "update"
__TABLENAME___Info = Info.Info('__TABLENAME__', Id);
Message = "Update Information for __TABLENAME___id = " + str(Id) + "."
__SETIDSOTHER__
#-------------------------------------------------------------------
# Create the other lists for primary keys of other tables.
# This could be modularized as well.
__OTHER_LISTS__
#------------------------------------------------------------------
# Print out the html code with some debug info at bottom.
ListFields = [__LISTFIELDS__]
for Field in ListFields:
if not __TABLENAME___Info.has_key(Field) : __TABLENAME___Info[Field] = ""
print """
__PACKAGE__ : __TABLENAME__ editing
"""
print """
"""
print """
Editing data in the table "__TABLENAME__".
"""
#print " " + str(ref['__TABLENAME___id']) + " : " + Status + "\n"
beta/Templates/Python/HTML/Custom_Lists.py~ 0100664 0000764 0000764 00000001420 07600117041 017626 0 ustar mark mark x
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
Temp_List = Info.List('__TABLENAME__','all','none')
Keys = Temp_List.keys()
Keys.sort()
Other_Lists['__TABLENAME___id'] = ''
for Key in Keys:
ref = Temp_List[Key]
Selected = ""
if ref['__TABLENAME___id'] == Ids['__TABLENAME___id']:
Selected = " selected"
Status = "Active"
if ref['active'] == 0: Status = "Inactive"
Title = str(ref['__TABLENAME___id'])
if ref.has_key('title'): Title = Title + ": " + ref['title']
Other_Lists['__TABLENAME___id'] = Other_Lists['__TABLENAME___id'] + " " + str(ref['__TABLENAME___id']) + " : " + Status + "\n"
beta/Templates/Python/HTML/DEFINEFIELDS_No.py 0100664 0000764 0000764 00000000127 07561630035 017271 0 ustar mark mark if form.has_key("__FIELDNAME__"): Fields["__FIELDNAME__"] = form["__FIELDNAME__"][0]
beta/Templates/Python/HTML/HTMLFIELDS.py 0100664 0000764 0000764 00000000214 07576437741 016463 0 ustar mark mark __FIELDNAME__
__FIELDNAME__
__FIELDNAME__
""" +Other_Lists['__FIELDNAME__'] + """
Edit This Item
s >s "s "s 's '( s strings replaces data( s selfs data( ( s, /home/mark/Databases/Templates/Python/Xml.pys
Xml_Encodeq s c s† y z t i | d d ƒ } { t i | d d ƒ } | t i | d d ƒ } } t i | d d ƒ } ~ t i | d d
ƒ } | Sd S( Ns <s s "s "s 's 's &s &( s strings replaces data( s selfs data( ( s, /home/mark/Databases/Templates/Python/Xml.pys
Xml_Decodey s c s ‚ ‚ | i i | ƒ d S( N( s selfs warningss appends msg( s selfs msg( ( s, /home/mark/Databases/Templates/Python/Xml.pys warning‚ s c s ƒ ƒ | i i | ƒ d S( N( s selfs fatalss appends msg( s selfs msg( ( s, /home/mark/Databases/Templates/Python/Xml.pys errorƒ s c s „ „ | i i | ƒ d S( N( s selfs errorss appends msg( s selfs msg( ( s, /home/mark/Databases/Templates/Python/Xml.pys fatal„ s c s% … … g | _ g | _ g | _ d S( N( s selfs errorss warningss fatals( s self( ( s, /home/mark/Databases/Templates/Python/Xml.pys reset… s c sà ‡ ˆ | d j o ˆ d | _ d Sn¶ ‰ t i i | ƒ o ‰ d | _ d Sn‹ ‹ | i ƒ Œ | i i | ƒ t | i
ƒ d j o d | _ d Sn> Ž t | i ƒ d j o Ž d | _ d Sn d | _ d Sd S( Ns i i i i i ( s files selfs errors oss paths isfiles resets parsers parse_resources lens fatalss errors( s selfs file( ( s, /home/mark/Databases/Templates/Python/Xml.pys
Validate_File‡ s
c s ‘ ‘ | i Sd S( N( s selfs errors( s self( ( s, /home/mark/Databases/Templates/Python/Xml.pys
Return_Errors‘ s c s ’ ’ | i Sd S( N( s selfs warnings( s self( ( s, /home/mark/Databases/Templates/Python/Xml.pys Return_Warnings’ s c s “ “ | i Sd S( N( s selfs fatals( s self( ( s, /home/mark/Databases/Templates/Python/Xml.pys
Return_Fatals“ s ( s __name__s
__module__s __init__s Setups news
start_elements end_elements char_datas Prints
SimpleTrees
Xml_Encodes
Xml_Decodes warnings errors fatals resets
Validate_Files
Return_Errorss Return_Warningss
Return_Fatals( ( ( s, /home/mark/Databases/Templates/Python/Xml.pys Xml s$ (
( s syss strings res getopts oss xml.parsers.expats xmls xml.parsers.xmlprocs xmlapps utilss xmlvals catalogs xcatalogs xmlprocs ErrorHandlers Xml(
s xmls Xmls strings xmlprocs utilss xmlapps syss res catalogs xcatalogs getopts oss xmlval( ( s, /home/mark/Databases/Templates/Python/Xml.pys ? s 3 . beta/Templates/Python/1 0100664 0000764 0000764 00000000227 07667310175 013771 0 ustar mark mark def (self, data='', input_file='', output_file=''):
return(self.Convert_It(data=data, input_file=input_file, output_file=output_file, type=''))
beta/Templates/Python/File.py_header 0100644 0000764 0000764 00000002751 07672003402 016435 0 ustar mark mark #!/usr/bin/python
### Constants is the module we make.
import string, re, os
import Constants
class File:
def __init__(self):
self.Test = 1
self.Constants = Constants.Get_Constants()
self.Extenstion = re.compile('[A-Za-z]')
self.Temp_Dir = re.compile('^' + self.Constants['tempdir'])
#-------------------------------------------------------------------
def File_Query(self, file=''):
filename = ''
if file.filename: filename = file.filename
Temp = string.split(filename, ".")
Ext = ''
try: Ext = Temp[-1]
except: Ext = ''
if not self.Extension.search(Ext): Ext = 'ext'
Temp_Dir = self.Constants['tempdir']
No = 1
New = Temp_Dir + "/" + str(No) + "." + Ext
while os.path.isfile(New):
No += 1
New = Temp_Dir + "/" + str(No) + "." + Ext
Write = open(New, 'w')
if file.file:
while 1:
line = fileitem.file.readline()
if not line: break
Write.write(line)
Write.close()
return(New)
#-------------------------------------------
def Get_Temp_FileName(self):
Temp_Dir = self.Constants['tempdir']
Pid = str(os.getpid())
No = 1
New = Temp_Dir + "/tempfile_" + str(No) + "_" + Pid
while os.path.isfile(New):
No += 1
New = Temp_Dir + "/tempfile_" + str(No) + "_" + Pid
Write = open(New,'w')
Write.close()
return (New)
def Delete_Temp_FileName(self, file=''):
if not self.Temp_Dir.search(file): return(0)
else: os.remove(file)
beta/Templates/Python/File.py_header~ 0100644 0000764 0000764 00000002763 07667320430 016645 0 ustar mark mark #!/usr/bin/python
### Constants is the module we make.
import smtplibm, string, re, os
import Constants
class File:
def __init__(self):
self.Test = 1
self.Constants = Constants.Get_Constants()
self.Extenstion = re.compile('[A-Za-z]')
self.Temp_Dir = re.compile('^' + self.Constants['tempdir'])
#-------------------------------------------------------------------
def File_Query(self, file=''):
filename = ''
if file.filename: filename = file.filename
Temp = string.split(filename, ".")
Ext = ''
try: Ext = Temp[-1]
except: Ext = ''
if not self.Extension.search(Ext): Ext = 'ext'
Temp_Dir = self.Constants['tempdir']
No = 1
New = Temp_Dir + "/" + str(No) + "." + Ext
while os.path.isfile(New):
No += 1
New = Temp_Dir + "/" + str(No) + "." + Ext
Write = open(New, 'w')
if file.file:
while 1:
line = fileitem.file.readline()
if not line: break
Write.write(line)
Write.close()
return(New)
#-------------------------------------------
def Get_Temp_FileName(self):
Temp_Dir = self.Constants['tempdir']
Pid = str(os.getpid())
No = 1
New = Temp_Dir + "/tempfile_" + str(No) + "_" + Pid
while os.path.isfile(New):
No += 1
New = Temp_Dir + "/tempfile_" + str(No) + "_" + Pid
Write = open(New,'w')
Write.close()
return (New)
def Delete_Temp_FileName(self, file=''):
if not self.Temp_Dir.search(file): return(0)
else: os.remove(file)
beta/Templates/Python/Email.py_header~ 0100644 0000764 0000764 00000001350 07667320056 017010 0 ustar mark mark #!/usr/bin/python
### Constants is the module we make.
import smtplib
class __PACKAGE___Email:
def __init__(self):
self.Test = 1
### If servername == 'default', check in Constants
### to see what we should really use.
def Mail(self, servername='default', debug=0,
fromaddr='unknown', toaddr='unknown', msg='no message',
headers=''):
try:
if servername == 'default': servername='localhost'
server = smtplib.SMTP(servername)
server.set_debuglevel(debug)
h = "From: " + fromaddr + "\nSubject: " + subject + "\n" + headers
msg = h + "\n\n" + msg
server.sendmail(fromaddr, toaddr, msg)
server.quit()
return(1)
except:
return (-1)
beta/Templates/Python/Encrypt.py_header 0100644 0000764 0000764 00000017351 07667320411 017212 0 ustar mark mark #!/usr/bin/python
#Blowfish Variable/8 bytes
#CAST Variable/8 bytes
#DES 8 bytes/8 bytes
#DES3 (Triple DES) 16 bytes/8 bytes
#IDEA 16 bytes/8 bytes
#RC5 Variable/8 bytes
## NOTE:
## ECB is default
## You can select different modes.
## Perl does not have different modes, as far as I know.
## Php does have different modes.
## This should be compatible with Perl and Php in ECB mode always.
# ARC2 - Python specific. Perl does not have, php might have.
# ARC4, AES, are also possible in Python, add later
# Test if encyrption and decyrption works across Perl, Python, and Php.
# Always do this:
# 1. use chr(0) to pad keys and data.
# 2. always encrypt data in chunks of 8 for now.
# 3. always pad keys to at least 8 bytes. DES2 requires 16 or 24. IDEA = 16.
from Crypto.Cipher import *
import sys, types, string
class Encrypt:
def __init__(self):
self.Blowfish_Key = '__BLOWFISH_KEY__'
self.ARC2_Key = '__ARC2_KEY__'
self.CAST_Key = '__CAST_KEY__'
self.DES_Key = '__DES_KEY__'
self.DES3_Key = '__DES3_KEY__'
self.IDEA_Key = '__IDEA_KEY__'
self.RC5_Key = '__RC5_KEY__'
self.pad = chr(0)
## Ignore IV for now.
def Do_It(self, Type="Blowfish", Key="", Data="", Action="Encrypt", Mode="", IV=''):
obj={}
try:
if Type == "Blowfish": obj=Blowfish.new(Key, Mode)
elif Type == "ARC2": obj=ARC2.new(Key, Mode)
elif Type == "CAST": obj=CAST.new(Key, Mode)
elif Type == "DES": obj=DES.new(Key, Mode)
elif Type == "DES3": obj=DES3.new(Key, Mode)
elif Type == "IDEA": obj=IDEA.new(Key, Mode)
elif Type == "RC5": obj=RC5.new(Key, Mode)
# elif Type == "": obj=.new(Key, Mode)
except:
(type, value, traceback) = sys.exc_info()
Message = "exc_type = " + str(type) + "\n"
Message += "exc_value = " + str(value) + "\n"
Message += "exc_traceback = " + str(traceback) + "\n"
Message += sys.excepthook(type, value, traceback) + "\n"
return(1, "ERROR: unable to set obj with " + str(Type) + " " + Message)
Result = ""
try:
if Action == "Encrypt":
Result = ""
Data2 = Data
while len(Data2) > 0:
while len(Data2) < 8: Data2 += self.pad
Temp = Data2[0:8]
Result += obj.encrypt(Temp)
if len(Data2) > 8: Data2 = Data2[8:]
else: Data2 = ''
elif Action == "Decrypt":
Result = ""
Data2 = Data
while len(Data2) > 0:
if len(Data2) < 8: return (4, "ERROR: data not a multiple of 8")
Temp = Data2[0:8]
Result += obj.decrypt(Temp)
if len(Data2) > 8: Data2 = Data2[8:]
else: Data2 = ''
Result = string.replace(Result, self.pad, '')
else: return (2, "ERROR: unknown action " + str(Action))
except: return (3, "ERROR: unable to perform action " + str(Action))
return(0, Result)
#------------------------------------------------------------------------
def Pad_Key(self, Key='', Size=8):
while len(Key) < Size: Key += self.pad
return (Key)
#------------------------------------------------------------------------
def Pad_Data(self, Data='', Size=8):
while len(Data) < Size: Data += self.pad
return (Data)
#---------------------------------------------------------------------------
def Encrypt_Blowfish(self, Data="", Key="", Mode=''):
if Key == "": Key = self.Blowfish_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=Blowfish.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="Blowfish", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_Blowfish(self, Data="", Key="", Mode=''):
if Key == "": Key = self.Blowfish_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=Blowfish.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="Blowfish", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_ARC2(self, Data="", Key="", Mode=''):
if Key == "": Key = self.ARC2_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=ARC2.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="ARC2", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_ARC2(self, Data="", Key="", Mode=''):
if Key == "": Key = self.ARC2_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=ARC2.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="ARC2", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_CAST(self, Data="", Key="", Mode=''):
if Key == "": Key = self.CAST_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=CAST.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="CAST", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_CAST(self, Data="", Key="", Mode=''):
if Key == "": Key = self.CAST_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=CAST.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="CAST", Key=Key, Data=Data, Action="Decrypt",Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_DES(self, Data="", Key="", Mode=""):
if Key == "": Key = self.DES_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=DES.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="DES", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_DES(self, Data="", Key="", Mode=""):
Mode2=DES.MODE_ECB
if str(Mode) != '': Mode2 = Mode
if Key == "": Key = self.DES_Key
Key = self.Pad_Key(Key=Key, Size=8)
(S,R) = self.Do_It(Type="DES", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_DES3(self, Data="", Key="", Mode=''):
if Key == "": Key = self.DES3_Key
Key = self.Pad_Key(Key=Key, Size=24)
Mode2=DES3.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="DES3", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_DES3(self, Data="", Key="", Mode=''):
if Key == "": Key = self.DES3_Key
Key = self.Pad_Key(Key=Key, Size=24)
Mode2=DES3.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="DES3", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_IDEA(self, Data="", Key="", Mode=''):
if Key == "": Key = self.IDEA_Key
Key = self.Pad_Key(Key=Key, Size=16)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="IDEA", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_IDEA(self, Data="", Key="", Mode=''):
if Key == "": Key = self.IDEA_Key
Key = self.Pad_Key(Key=Key, Size=16)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="IDEA", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_RC5(self, Data="", Key="", Mode=''):
if Key == "": Key = self.RC5_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="RC5", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_RC5(self, Data="", Key="", Mode=''):
if Key == "": Key = self.RC5_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="RC5", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
beta/Templates/Python/Encrypt.py_header~ 0100644 0000764 0000764 00000017365 07667320103 017413 0 ustar mark mark #!/usr/bin/python
#Blowfish Variable/8 bytes
#CAST Variable/8 bytes
#DES 8 bytes/8 bytes
#DES3 (Triple DES) 16 bytes/8 bytes
#IDEA 16 bytes/8 bytes
#RC5 Variable/8 bytes
## NOTE:
## ECB is default
## You can select different modes.
## Perl does not have different modes, as far as I know.
## Php does have different modes.
## This should be compatible with Perl and Php in ECB mode always.
# ARC2 - Python specific. Perl does not have, php might have.
# ARC4, AES, are also possible in Python, add later
# Test if encyrption and decyrption works across Perl, Python, and Php.
# Always do this:
# 1. use chr(0) to pad keys and data.
# 2. always encrypt data in chunks of 8 for now.
# 3. always pad keys to at least 8 bytes. DES2 requires 16 or 24. IDEA = 16.
from Crypto.Cipher import *
import sys, types, string
class __PACKAGE___Encrypt:
def __init__(self):
self.Blowfish_Key = '__BLOWFISH_KEY__'
self.ARC2_Key = '__ARC2_KEY__'
self.CAST_Key = '__CAST_KEY__'
self.DES_Key = '__DES_KEY__'
self.DES3_Key = '__DES3_KEY__'
self.IDEA_Key = '__IDEA_KEY__'
self.RC5_Key = '__RC5_KEY__'
self.pad = chr(0)
## Ignore IV for now.
def Do_It(self, Type="Blowfish", Key="", Data="", Action="Encrypt", Mode="", IV=''):
obj={}
try:
if Type == "Blowfish": obj=Blowfish.new(Key, Mode)
elif Type == "ARC2": obj=ARC2.new(Key, Mode)
elif Type == "CAST": obj=CAST.new(Key, Mode)
elif Type == "DES": obj=DES.new(Key, Mode)
elif Type == "DES3": obj=DES3.new(Key, Mode)
elif Type == "IDEA": obj=IDEA.new(Key, Mode)
elif Type == "RC5": obj=RC5.new(Key, Mode)
# elif Type == "": obj=.new(Key, Mode)
except:
(type, value, traceback) = sys.exc_info()
Message = "exc_type = " + str(type) + "\n"
Message += "exc_value = " + str(value) + "\n"
Message += "exc_traceback = " + str(traceback) + "\n"
Message += sys.excepthook(type, value, traceback) + "\n"
return(1, "ERROR: unable to set obj with " + str(Type) + " " + Message)
Result = ""
try:
if Action == "Encrypt":
Result = ""
Data2 = Data
while len(Data2) > 0:
while len(Data2) < 8: Data2 += self.pad
Temp = Data2[0:8]
Result += obj.encrypt(Temp)
if len(Data2) > 8: Data2 = Data2[8:]
else: Data2 = ''
elif Action == "Decrypt":
Result = ""
Data2 = Data
while len(Data2) > 0:
if len(Data2) < 8: return (4, "ERROR: data not a multiple of 8")
Temp = Data2[0:8]
Result += obj.decrypt(Temp)
if len(Data2) > 8: Data2 = Data2[8:]
else: Data2 = ''
Result = string.replace(Result, self.pad, '')
else: return (2, "ERROR: unknown action " + str(Action))
except: return (3, "ERROR: unable to perform action " + str(Action))
return(0, Result)
#------------------------------------------------------------------------
def Pad_Key(self, Key='', Size=8):
while len(Key) < Size: Key += self.pad
return (Key)
#------------------------------------------------------------------------
def Pad_Data(self, Data='', Size=8):
while len(Data) < Size: Data += self.pad
return (Data)
#---------------------------------------------------------------------------
def Encrypt_Blowfish(self, Data="", Key="", Mode=''):
if Key == "": Key = self.Blowfish_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=Blowfish.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="Blowfish", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_Blowfish(self, Data="", Key="", Mode=''):
if Key == "": Key = self.Blowfish_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=Blowfish.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="Blowfish", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_ARC2(self, Data="", Key="", Mode=''):
if Key == "": Key = self.ARC2_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=ARC2.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="ARC2", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_ARC2(self, Data="", Key="", Mode=''):
if Key == "": Key = self.ARC2_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=ARC2.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="ARC2", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_CAST(self, Data="", Key="", Mode=''):
if Key == "": Key = self.CAST_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=CAST.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="CAST", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_CAST(self, Data="", Key="", Mode=''):
if Key == "": Key = self.CAST_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=CAST.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="CAST", Key=Key, Data=Data, Action="Decrypt",Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_DES(self, Data="", Key="", Mode=""):
if Key == "": Key = self.DES_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=DES.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="DES", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_DES(self, Data="", Key="", Mode=""):
Mode2=DES.MODE_ECB
if str(Mode) != '': Mode2 = Mode
if Key == "": Key = self.DES_Key
Key = self.Pad_Key(Key=Key, Size=8)
(S,R) = self.Do_It(Type="DES", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_DES3(self, Data="", Key="", Mode=''):
if Key == "": Key = self.DES3_Key
Key = self.Pad_Key(Key=Key, Size=24)
Mode2=DES3.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="DES3", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_DES3(self, Data="", Key="", Mode=''):
if Key == "": Key = self.DES3_Key
Key = self.Pad_Key(Key=Key, Size=24)
Mode2=DES3.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="DES3", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_IDEA(self, Data="", Key="", Mode=''):
if Key == "": Key = self.IDEA_Key
Key = self.Pad_Key(Key=Key, Size=16)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="IDEA", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_IDEA(self, Data="", Key="", Mode=''):
if Key == "": Key = self.IDEA_Key
Key = self.Pad_Key(Key=Key, Size=16)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="IDEA", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
#---------------------------------------------------------------------------
def Encrypt_RC5(self, Data="", Key="", Mode=''):
if Key == "": Key = self.RC5_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="RC5", Key=Key, Data=Data, Action="Encrypt", Mode=Mode2)
return(S,R)
def Decrypt_RC5(self, Data="", Key="", Mode=''):
if Key == "": Key = self.RC5_Key
Key = self.Pad_Key(Key=Key, Size=8)
Mode2=IDEA.MODE_ECB
if str(Mode) != '': Mode2 = Mode
(S,R) = self.Do_It(Type="RC5", Key=Key, Data=Data, Action="Decrypt", Mode=Mode2)
return(S,R)
beta/Templates/Python/Encrypt.pyc 0100664 0000764 0000764 00000026366 07662511531 016055 0 ustar mark mark -í
S“Ê>c sE d k T d k Z d k Z d k Z d f d „ ƒ YZ d S( ( s *Ns Encryptc s t Z d „ Z $ d d d d d d d „ Z S d d d „ Z X d d d „ Z ] d d d d „ Z e d d d d
„ Z n d d d d „ Z v d d d d „ Z d d d d
„ Z
‡ d d d d „ Z d d d d „ Z ˜ d d d d „ Z
¡ d d d d „ Z © d d d d „ Z ³ d d d d „ Z » d d d d „ Z Ä d d d d „ Z Ì d d d d „ Z RS( Nc sm d | _ d | _ d | _ d | _ d | _ d | _ d | _ ! t d ƒ | _ d S( Ns __BLOWFISH_KEY__s __ARC2_KEY__s __CAST_KEY__s __DES_KEY__s __DES3_KEY__s __IDEA_KEY__s __RC5_KEY__i (
s selfs Blowfish_Keys ARC2_Keys CAST_Keys DES_Keys DES3_Keys IDEA_Keys RC5_Keys chrs pad( s self( ( s
Encrypt.pys __init__ s s Blowfishs s Encryptc sì $ % h } ' y#( | d j o ( t i | | ƒ } n÷ ) | d j o ) t i | | ƒ } nÎ * | d j o * t i | | ƒ } n¥ + | d j o + t i | | ƒ } n| , | d j o , t i | | ƒ } nS - | d j o - t
i | | ƒ } n* . | d j o . t i | | ƒ } n Wn® 0 1 t i
ƒ \ }
} } 2 d t |
ƒ d } 3 | d
t | ƒ d 7} 4 | d t | ƒ d 7} 5 | t i |
| | ƒ d 7} 6 d d
t | ƒ d | f Sn X8 d }
9 yÈ: | d j o¾ ; d }
< | } = x¢ = t | ƒ d j o‹ > x+ > t | ƒ d j o > | | i 7} q6W? | d d !} @ |
| i | ƒ 7}
A t | ƒ d j o A | d } n
B d } qWn÷ C | d j oÏ D d }
E | } F x˜ F t | ƒ d j o G t | ƒ d j o G d d f Sn H | d d !} I |
| i | ƒ 7}
J t | ƒ d j o J | d } n
K d } qèWL t i |
| i d ƒ }
n M d d t | ƒ f SWn! N N d d t | ƒ f Sn XP d |
f Sd S( Ns Blowfishs ARC2s CASTs DESs DES3s IDEAs RC5s exc_type = s
s exc_value = s exc_traceback = i s ERROR: unable to set obj with s s s Encrypti i s Decrypti s ERROR: data not a multiple of 8i s ERROR: unknown action i s ERROR: unable to perform action ( s objs Types Blowfishs news Keys Modes ARC2s CASTs DESs DES3s IDEAs RC5s syss exc_infos types values tracebacks strs Messages
excepthooks Results Actions Datas Data2s lens selfs pads Temps encrypts decrypts strings replace( s selfs Types Keys Datas Actions Modes IVs Temps Data2s objs types tracebacks values Results Message( ( s
Encrypt.pys Do_It$ sn # i c s? S T x+ T t | ƒ | j o T | | i 7} q WU | Sd S( N( s lens Keys Sizes selfs pad( s selfs Keys Size( ( s
Encrypt.pys Pad_KeyS s c s? X Y x+ Y t | ƒ | j o Y | | i 7} q WZ | Sd S( N( s lens Datas Sizes selfs pad( s selfs Datas Size( ( s
Encrypt.pys Pad_DataX s c s± ] ^ | d j o ^ | i } n _ | i d | d d ƒ } ` t i } a t | ƒ d j o
a | } n b | i d d d | d | d d d
| ƒ \ } } c | | f Sd S( Ns s Keys Sizei s Types Blowfishs Datas Actions Encrypts Mode(
s Keys selfs Blowfish_Keys Pad_Keys Blowfishs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Rs Mode2s S( ( s
Encrypt.pys Encrypt_Blowfish] s
3c s± e f | d j o f | i } n g | i d | d d ƒ } h t i } i t | ƒ d j o
i | } n j | i d d d | d | d d d
| ƒ \ } } k | | f Sd S( Ns s Keys Sizei s Types Blowfishs Datas Actions Decrypts Mode(
s Keys selfs Blowfish_Keys Pad_Keys Blowfishs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Rs Mode2s S( ( s
Encrypt.pys Decrypt_Blowfishe s
3c s± n o | d j o o | i } n p | i d | d d ƒ } q t i } r t | ƒ d j o
r | } n s | i d d d | d | d d d
| ƒ \ } } t | | f Sd S( Ns s Keys Sizei s Types ARC2s Datas Actions Encrypts Mode(
s Keys selfs ARC2_Keys Pad_Keys ARC2s MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Encrypt_ARC2n s
3c s± v w | d j o w | i } n x | i d | d d ƒ } y t i } z t | ƒ d j o
z | } n { | i d d d | d | d d d
| ƒ \ } } | | | f Sd S( Ns s Keys Sizei s Types ARC2s Datas Actions Decrypts Mode(
s Keys selfs ARC2_Keys Pad_Keys ARC2s MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Decrypt_ARC2v s
3c s± € | d j o € | i } n | i d | d d ƒ } ‚ t i } ƒ t | ƒ d j o
ƒ | } n „ | i d d d | d | d d d
| ƒ \ } } … | | f Sd S( Ns s Keys Sizei s Types CASTs Datas Actions Encrypts Mode(
s Keys selfs CAST_Keys Pad_Keys CASTs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Encrypt_CAST s
3c s± ‡ ˆ | d j o ˆ | i } n ‰ | i d | d d ƒ } Š t i } ‹ t | ƒ d j o
‹ | } n Œ | i d d d | d | d d d
| ƒ \ } } | | f Sd S( Ns s Keys Sizei s Types CASTs Datas Actions Decrypts Mode(
s Keys selfs CAST_Keys Pad_Keys CASTs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Decrypt_CAST‡ s
3c s± ‘ | d j o ‘ | i } n ’ | i d | d d ƒ } “ t i } ” t | ƒ d j o
” | } n • | i d d d | d | d d d
| ƒ \ } } – | | f Sd S( Ns s Keys Sizei s Types DESs Datas Actions Encrypts Mode(
s Keys selfs DES_Keys Pad_Keys DESs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Encrypt_DES s
3c s± ˜ ™ t i } š t | ƒ d j o
š | } n › | d j o › | i } n œ | i d | d d ƒ } | i d d d | d | d d d
| ƒ \ } } ž | | f Sd S( Ns s Keys Sizei s Types DESs Datas Actions Decrypts Mode(
s DESs MODE_ECBs Mode2s strs Modes Keys selfs DES_Keys Pad_Keys Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Decrypt_DES˜ s
3c s± ¡ ¢ | d j o ¢ | i } n £ | i d | d d ƒ } ¤ t i } ¥ t | ƒ d j o
¥ | } n ¦ | i d d d | d | d d d
| ƒ \ } } § | | f Sd S( Ns s Keys Sizei s Types DES3s Datas Actions Encrypts Mode(
s Keys selfs DES3_Keys Pad_Keys DES3s MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Encrypt_DES3¡ s
3c s± © ª | d j o ª | i } n « | i d | d d ƒ } t i } ® t | ƒ d j o
® | } n ¯ | i d d d | d | d d d
| ƒ \ } } ° | | f Sd S( Ns s Keys Sizei s Types DES3s Datas Actions Decrypts Mode(
s Keys selfs DES3_Keys Pad_Keys DES3s MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Decrypt_DES3© s
3c s± ³ ´ | d j o ´ | i } n µ | i d | d d ƒ } ¶ t i } · t | ƒ d j o
· | } n ¸ | i d d d | d | d d d
| ƒ \ } } ¹ | | f Sd S( Ns s Keys Sizei s Types IDEAs Datas Actions Encrypts Mode(
s Keys selfs IDEA_Keys Pad_Keys IDEAs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Encrypt_IDEA³ s
3c s± » ¼ | d j o ¼ | i } n ½ | i d | d d ƒ } ¾ t i } ¿ t | ƒ d j o
¿ | } n À | i d d d | d | d d d
| ƒ \ } } Á | | f Sd S( Ns s Keys Sizei s Types IDEAs Datas Actions Decrypts Mode(
s Keys selfs IDEA_Keys Pad_Keys IDEAs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Decrypt_IDEA» s
3c s± Ä Å | d j o Å | i } n Æ | i d | d d ƒ } Ç t i } È t | ƒ d j o
È | } n É | i d d d | d | d d d
| ƒ \ } } Ê | | f Sd S( Ns s Keys Sizei s Types RC5s Datas Actions Encrypts Mode(
s Keys selfs RC5_Keys Pad_Keys IDEAs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Encrypt_RC5Ä s
3c s± Ì Í | d j o Í | i } n Î | i d | d d ƒ } Ï t i } Ð t | ƒ d j o
Ð | } n Ñ | i d d d | d | d d d
| ƒ \ } } Ò | | f Sd S( Ns s Keys Sizei s Types RC5s Datas Actions Decrypts Mode(
s Keys selfs RC5_Keys Pad_Keys IDEAs MODE_ECBs Mode2s strs Modes Do_Its Datas Ss R( s selfs Datas Keys Modes Ss Rs Mode2( ( s
Encrypt.pys Decrypt_RC5Ì s
3( s __name__s
__module__s __init__s Do_Its Pad_Keys Pad_Datas Encrypt_Blowfishs Decrypt_Blowfishs Encrypt_ARC2s Decrypt_ARC2s Encrypt_CASTs Decrypt_CASTs Encrypt_DESs Decrypt_DESs Encrypt_DES3s Decrypt_DES3s Encrypt_IDEAs Decrypt_IDEAs Encrypt_RC5s Decrypt_RC5( ( ( s
Encrypt.pys Encrypt s$ /
( s
Crypto.Ciphers syss typess strings Encrypt( s syss Encrypts strings types( ( s
Encrypt.pys ? s
beta/Templates/Python/Xml.py_header 0100644 0000764 0000764 00000010633 07672252663 016333 0 ustar mark mark
import sys, string, re, getopt, os
import xml.parsers.expat
from xml.parsers.xmlproc import xmlapp, utils,xmlval,catalog,xcatalog,xmlproc
class Xml(xmlapp.ErrorHandler):
def __init__(self,*args):
## This stuff is for xml parsing.
self.xml = {}
self.xml['elements'] = []
self.xml['attrs'] = {}
self.xml['data'] = ""
self.xml['name'] = ""
self.refs = []
self.refs.append(self.xml)
self.simpletree_parser = xml.parsers.expat.ParserCreate()
self.simpletree_parser.StartElementHandler = self.start_element
self.simpletree_parser.EndElementHandler = self.end_element
self.simpletree_parser.CharacterDataHandler = self.char_data
### This stuff is for XML Validation
self.p = xmlval.XMLValidator()
self.parser = self.p.parser
self.app = xmlproc.Application()
self.err = self
xmlapp.ErrorHandler.__init__(self,self.parser)
self.parser.set_error_handler(self)
self.parser.set_application(self.app)
self.reset()
self.warnings = []
self.errors = []
self.fatals = []
self.error = 0
self.error_message = ""
## Set to one to allow whitespace lines in data.
self.whitespace = 0
self.W_String = string.whitespace
self.Whitespace_Match_Not = re.compile('[^' + self.W_String + ']')
self.tab = " "
### XML Parsing methods.
def Setup(self): return (self)
def new(self): return (self)
### Has to save as a list for each element.
### Make a list of references so that end and char methods
### know where to put there stuff.
def start_element (self, name, attrs):
name = str(name)
Ref = self.refs[-1]
Temp = {}
Temp['name'] = name
Temp['elements'] = []
Temp['attrs'] = {}
Temp['data'] = ""
for key in attrs:
Key = str(key)
Value = attrs[key]
Temp['attrs'][Key] = str(Value)
Ref['elements'].append(Temp)
self.refs.append(Temp)
def end_element (self, name): Ref = self.refs.pop()
def char_data (self, data):
Ref = self.refs[-1]
data = str(data)
if self.whitespace > 0: Ref['data'] += data
elif self.Whitespace_Match_Not.search(data):
Ref['data'] += data
def Print (self, Ref={}, Title="", Tab="", No=1):
if len(Ref.keys()) < 1:
Ref = self.xml
Title = "START: "
print Tab + "[E " + str(No) + "] " + Title
print Tab + "[D] " + Ref['data']
print Tab + "[A] "
Tab2 = Tab + self.tab
for Key in Ref['attrs']: print Tab2 + Key + " = " + Ref['attrs'][Key]
No2 = 0
for Ref2 in Ref['elements']:
No2 += 1
Title2 = Title + Ref2['name'] + "("+ str(No2) + "): "
self.Print(Ref=Ref2, Title=Title2, Tab=Tab2, No=No2)
def SimpleTree(self, data='', file=''):
if file != '' and os.path.isfile(file):
try:
Temp = ''
Read = open(file, 'r')
for line in Read: Temp += line
Read.close()
data = Temp
except:
self.error = 1
self.error_message = "ERROR: couldn't read file: " + file + "\n"
Nothing = 1
self.simpletree_parser.Parse(data)
return(self)
def Xml_Encode(self, data=''):
data = string.replace(data, '&', '&')
data = string.replace(data, '<', '<')
data = string.replace(data, '>', '>')
data = string.replace(data, '"', '"')
data = string.replace(data, "'", ''')
return(data)
def Xml_Decode(self, data=''):
data = string.replace(data, '<', '<')
data = string.replace(data, '>', '>')
data = string.replace(data, '"', '"')
data = string.replace(data, ''', "'")
data = string.replace(data, '&', '&')
return(data)
####### XML Validation stuff.
def warning(self,msg): self.warnings.append(msg)
def error(self,msg): self.fatals.append(msg)
def fatal(self,msg): self.errors.append(msg)
def reset(self): self.errors=[] ; self.warnings=[]; self.fatals = []
def Validate_File(self, file=''):
if file == '': self.error = 1; return(1)
elif not os.path.isfile(file): self.error = 2; return(2)
else:
self.reset()
self.parser.parse_resource(file)
if len(self.fatals) > 0: self.error = 3; return(3)
elif len(self.errors) > 0: self.error = 4; return(4)
else: self.error = 0; return(0)
def Return_Errors(self): return(self.errors)
def Return_Warnings(self): return(self.warnings)
def Return_Fatals(self): return(self.fatals)
beta/Templates/Python/Get_Info.py_header~ 0100644 0000764 0000764 00000005007 07667320706 017460 0 ustar mark mark #!/usr/bin/python
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
### Remember to make default webpages when the perl script is run to make
### the Get_Info module. It should be able to figure out foriegn keys.
import Constants
import types
class Get_Info:
def __init__(self):
self.Constants = __PACKAGE___Constants.Get_Constants()
self.ValidTables = [__VALIDTABLES__]
def Find_Table(self, table=""):
True = 0
for Table in self.ValidTables:
if Table == table: True = 1
if True == 1: return 1
else : return 0
def Info(self, table="", id=0):
### Set the has we are going to return. Do some checks.
### Anytime Info is empty, it is an error. Check self.error > 0.
Info = {}
if table == "": self.Error = 1; return Info
if id < 1 : self.Error = 2; return Info
if not self.Find_Table(table): self.Error = 3; return Info
### Execute the sql for the table and its id.
Dbh = self.Constants['dbh']
St = Dbh.cursor()
### should be use %s or the numeric value?
Sql = "select * from " + table + " where " + table + "_id = %s"
# print Sql
St.execute(Sql, id)
### Get on row, and test if it is anything but None.
res = St.fetchone()
if isinstance(res, types.NoneType):
self.Error = 4
return Info
### If it contains something, fill Info and return Info
Description = St.description
No = 0
for D in Description:
Key = D[0]
Info[Key] = res[No]
No = No + 1
return Info
def List(self, Table="", Type="", Fields={}):
Info = {}
if Table == "": return Info
Valid_Tables = [__VALIDTABLES__]
# if (!(grep($_ eq $Table, @Valid_Tables))) {return ($Info);}
Clause = "active = 1"
if Type == "inactive": Clause = "active = 0"
if Type == "all": Clause = "active = 1 or active = 0"
HowMuch = Table + "_id, active"
if Fields == "all": HowMuch = '*'
Command = "select " +HowMuch+ " from " +Table+ " where " + Clause
Dbh = self.Constants['dbh']
St = Dbh.cursor()
St.execute(Command)
Stop = 0
List = {}
while Stop == 0:
res = St.fetchone()
if isinstance(res, types.NoneType): Stop = 1
else:
Description = St.description
Key = res[0]
List[Key] = {}
No = 0
for D in Description:
Key2 = D[0]
List[Key][Key2] = res[No]
No = No + 1
return List
beta/Templates/Python/Set_Info.py_header~ 0100644 0000764 0000764 00000011053 07667320171 017466 0 ustar mark mark #!/usr/bin/python
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
### Constants is the module we make.
import __PACKAGE___Constants
import types
class __PACKAGE___Set_Info:
def __init__(self):
self.Constants = __PACKAGE___Constants.Get_Constants()
self.ValidTables = [__VALIDTABLES__]
self.Commands = ['insert','update','delete','purge','unpurge','purgeone',
'unpurgeone','undelete','copy','change']
self.Commands1 = ['insert','purge','unpurge']
self.Commands2 = ['delete','undelete','purgeone','unpurgeone','copy']
def Search_List(self, Array=[], Value=""):
TempArray = []
for Item in Array: TempArray.append(str(Item))
Value = str(Value)
try:
Index = TempArray.index(Value)
return Index
except: return -1
def Set_general(self, Args={}):
### Set the has we are going to return. Do some checks.
### Anytime Info is empty, it is an error. Check self.Error > 0.
if not Args.has_key('command'): self.Error = -10; return -10
try: self.Commands.index(Args['command'])
except: self.Error = -10; return -11
if 0 > self.Search_List(self.Commands1, Args['command']):
if not Args.has_key('id') : self.Error = -12; return -12
if Args['id'] < 1: self.Error = -13; return -13
if not Args.has_key('tablename'): self.Error = -14; return -14
if 0 > self.Search_List(self.ValidTables, Args['tablename']):
self.Error = -15; return -15
if Args['tablename'] == "": self.Error = -16; return -16
if not Args.has_key('columns'): self.Error = -17; return -17
if len(Args['columns']) < 1: self.Error = -18; return -18
### Now go through all the various commands.
Dbh = self.Constants['dbh']
St = Dbh.cursor()
### insert, purge, unpurge
if -1 < self.Search_List(self.Commands1, Args['command']) :
### should be use %s or the numeric value?
Sql = "select sql_" + Args['tablename'] + "_" + Args['command'] + "()"
# print Sql
St.execute(Sql)
### Get on row, and test if it is anything but None.
res = St.fetchone()
if isinstance(res, types.NoneType):
self.Error = 19
return -19
else: return res[0]
### delete, undelete, purgeone, unpurgeone, copy
if -1 < self.Search_List(self.Commands2, Args['command']):
### should be use %s or the numeric value?
Sql = "select sql_" + Args['tablename'] + "_" + Args['command'] + "(%s)"
# print Sql + " " + str(Args['id'])
St.execute(Sql, Args['id'])
### Get on row, and test if it is anything but None.
res = St.fetchone()
if isinstance(res, types.NoneType):
self.Error = -20
return -20
else: return res[0]
### We used to separate update to means you have to submit
### all fields, but I decided to make them both the same.
if (Args['command'] == "change") or (Args['command'] == "update"):
### Get the previous values
### should be use %s or the numeric value?
t = Args['tablename']
Sql = "select * from "+t+" where "+t+"_id = (%s)"
# print Sql + " " + str(Args['id'])
St.execute(Sql, Args['id'])
### Get on row, and test if it is anything but None.
res = St.fetchone()
if isinstance(res, types.NoneType):
self.Error = -21
return -21
### Now arrange the fields in a dictionary.
### Replace any fields that have been submitted.
Hash = {}
Description = St.description
No = 0
S_List = ""
for Field in Description:
Key = Field[0]
Hash[Key] = res[No]
if Args.has_key('fields'):
if Args['fields'].has_key(Key):
Hash[Key] = Args['fields'][Key]
# print "Changed key " + Key + " to " + Hash[Key]
No = No + 1
### Build the sql command and only select the fields we can change.
Values = [Args['id']]
for Field in Args['columns']:
# print "Found " + Field
S_List = S_List + ",%s"
if Hash.has_key(Field) : Values.append(Hash[Field])
else: Values.append('')
### Now update the row.
Sql = "select sql_" + Args['tablename'] + "_update(%s" + S_List + ")"
# print Sql + " " + str(Values)
St.execute(Sql, Values)
### Get on row, and test if it is anything but None.
res = St.fetchone()
if isinstance(res, types.NoneType):
self.Error = -22
return -22
else: return res[0]
return -1000
beta/Templates/Python/Xml.py_header~ 0100644 0000764 0000764 00000010655 07670032324 016521 0 ustar mark mark
import sys, string, re, getopt, os
import xml.parsers.expat
from xml.parsers.xmlproc import xmlapp, utils,xmlval,catalog,xcatalog,xmlproc
class Xml(xmlapp.ErrorHandler):
def __init__(self,*args):
## This stuff is for xml parsing.
self.xml = {}
self.xml['elements'] = []
self.xml['attrs'] = {}
self.xml['data'] = ""
self.xml['name'] = ""
self.refs = []
self.refs.append(self.xml)
self.simpletree_parser = xml.parsers.expat.ParserCreate()
self.simpletree_parser.StartElementHandler = self.start_element
self.simpletree_parser.EndElementHandler = self.end_element
self.simpletree_parser.CharacterDataHandler = self.char_data
### This stuff is for XML Validation
self.p = xmlval.XMLValidator()
self.parser = self.p.parser
self.app = xmlproc.Application()
self.err = self
xmlapp.ErrorHandler.__init__(self,self.parser)
self.parser.set_error_handler(self)
self.parser.set_application(self.app)
self.reset()
self.warnings = []
self.errors = []
self.fatals = []
## Set to one to allow whitespace lines in data.
self.whitespace = 0
self.W_String = string.whitespace
self.Whitespace_Match_Not = re.compile('[^' + self.W_String + ']')
self.tab = " "
### XML Parsing methods.
def Setup(self): return (self)
def new(self): return (self)
### Has to save as a list for each element.
### Make a list of references so that end and char methods
### know where to put there stuff.
def start_element (self, name, attrs):
name = str(name)
Ref = self.refs[-1]
Temp = {}
Temp['name'] = name
Temp['elements'] = []
Temp['attrs'] = {}
Temp['data'] = ""
for key in attrs:
Key = str(key)
Value = attrs[key]
Temp['attrs'][Key] = str(Value)
Ref['elements'].append(Temp)
self.refs.append(Temp)
def end_element (self, name):
Ref = self.refs.pop()
def char_data (self, data):
Ref = self.refs[-1]
data = str(data)
if self.whitespace > 0: Ref['data'] += data
elif self.Whitespace_Match_Not.search(data):
Ref['data'] += data
def Print (self, Ref={}, Title="", Tab="", No=1):
if len(Ref.keys()) < 1:
Ref = self.xml
Title = "START: "
print Tab + "[E " + str(No) + "] " + Title
print Tab + "[D] " + Ref['data']
print Tab + "[A] "
Tab2 = Tab + self.tab
for Key in Ref['attrs']: print Tab2 + Key + " = " + Ref['attrs'][Key]
No2 = 0
for Ref2 in Ref['elements']:
No2 += 1
Title2 = Title + Ref2['name'] + "("+ str(No2) + "): "
self.Print(Ref=Ref2, Title=Title2, Tab=Tab2, No=No2)
def SimpleTree(self, data='', file=''):
if file != '' and os.path.isfile(file):
try:
Temp = ''
Read = open(file, r)
for line in Read: Temp += line
Read.close()
data = Temp
except: Nothing = 1
self.simpletree_parser.Parse(data)
self.Parse_Tree()
return(self)
def Parse_Tree(self):
nothing = 1 ### This will create a hash of of the xml data based on
### the id keys used. If no id is used, use something
### else.
### Misc methods.
def Xml_Encode(self, data=''):
data = string.replace(data, '&', '&')
data = string.replace(data, '<', '<')
data = string.replace(data, '>', '>')
data = string.replace(data, '"', '"')
data = string.replace(data, "'", ''')
return(data)
def Xml_Decode(self, data=''):
data = string.replace(data, '<', '<')
data = string.replace(data, '>', '>')
data = string.replace(data, '"', '"')
data = string.replace(data, ''', "'")
data = string.replace(data, '&', '&')
return(data)
####### XML Validation stuff.
def warning(self,msg): self.warnings.append(msg)
def error(self,msg): self.fatals.append(msg)
def fatal(self,msg): self.errors.append(msg)
def reset(self): self.errors=[] ; self.warnings=[]; self.fatals = []
def Validate_File(self, File=''):
if File == '': return(1)
elif not os.path.isfile(File): return(2)
else:
self.reset()
self.parser.parse_resource(File)
if len(self.fatals) > 0: return(3)
elif len(self.errors) > 0: return(4)
else: return(0)
def Return_Errors(self): return(self.errors)
def Return_Warnings(self): return(self.warnings)
def Return_Fatals(self): return(self.fatals)
beta/Templates/Password_Backup 0100664 0000764 0000764 00000000060 07516445120 015422 0 ustar mark mark Username1:XOmkTbMLev2dY
Username2:qzvu8PopklwyE
beta/Templates/Generic.fun 0100664 0000764 0000764 00000044324 07663557677 014541 0 ustar mark mark
-- If you don't see a header file, this fall under GPL license and
-- Artistic lincense as the rest of GUPPS or MAPPS by Mark Nielsen,
-- Copyrighted 2001,2002.
-- create a method to unpurge just one item.
-- create a method to purge one item.
-- \i __HOME__/__TABLENAME__.table
--- Very dangerous delete command. Glad I formatted
--- names of functions in a standard way.
delete from pg_proc where proname like 'sql___TABLENAME___insert';
delete from pg_proc where proname like 'sql___TABLENAME___delete';
delete from pg_proc where proname like 'sql___TABLENAME___undelete';
delete from pg_proc where proname like 'sql___TABLENAME___update';
delete from pg_proc where proname like 'sql___TABLENAME___copy';
delete from pg_proc where proname like 'sql___TABLENAME___purge';
delete from pg_proc where proname like 'sql___TABLENAME___purgeone';
delete from pg_proc where proname like 'sql___TABLENAME___unpurge';
delete from pg_proc where proname like 'sql___TABLENAME___unpurgeone';
---------------------------------------------------------------------
--drop function sql___TABLENAME___insert ();
CREATE FUNCTION sql___TABLENAME___insert () RETURNS int4 AS '
DECLARE
record1 record; oid1 int4; id int4 :=0; record_backup RECORD;
BEGIN
insert into __TABLENAME__ (date_updated, date_created, active)
values (CURRENT_TIMESTAMP,CURRENT_TIMESTAMP, 1);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- Get the __TABLENAME__ id.
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__ where oid = oid1
LOOP
id := record1.__TABLENAME___id;
END LOOP;
-- If id is NULL, insert failed or something is wrong.
IF id is NULL THEN return (-1); END IF;
-- It should also be greater than 0, otherwise something is wrong.
IF id < 1 THEN return (-2); END IF;
-- Now backup the data.
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active, error_code)
values (id, record_backup.date_updated, record_backup.date_created,
record_backup.active, ''insert'');
END LOOP;
-- Everything has passed, return id as __TABLENAME___id.
return (id);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___delete (int4);
CREATE FUNCTION sql___TABLENAME___delete (int4) RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record1 RECORD;
record_backup RECORD;
return_int4 int4 :=0;
BEGIN
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
-- If we find the id, set active = 0.
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__
where __TABLENAME___id = id
LOOP
update __TABLENAME__ set active=0, date_updated = CURRENT_TIMESTAMP
where __TABLENAME___id = id;
GET DIAGNOSTICS return_int4 = ROW_COUNT;
id_exists := 1;
END LOOP;
-- If we did not find the id, abort and return -2.
IF id_exists = 0 THEN return (-2); END IF;
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''delete''
);
END LOOP;
-- If id_exists == 0, Return error.
-- It means it never existed.
IF id_exists = 0 THEN return (-1); END IF;
-- We got this far, it must be true, return ROW_COUNT.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___undelete (int4);
CREATE FUNCTION sql___TABLENAME___undelete (int4) RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record1 RECORD;
record_backup RECORD;
return_int4 int4 :=0;
BEGIN
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
-- If we find the id, set active = 1.
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__
where __TABLENAME___id = id
LOOP
update __TABLENAME__ set active=1, date_updated = CURRENT_TIMESTAMP
where __TABLENAME___id = id;
GET DIAGNOSTICS return_int4 = ROW_COUNT;
id_exists := 1;
END LOOP;
-- If we did not find the id, abort and return -2.
IF id_exists = 0 THEN return (-2); END IF;
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''undelete''
);
END LOOP;
-- If id_exists == 0, Return error.
-- It means it never existed.
IF id_exists = 0 THEN return (-1); END IF;
-- We got this far, it must be true, return ROW_COUNT.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___update (int4 __FIELDS__);
CREATE FUNCTION sql___TABLENAME___update (int4 __FIELDS__)
RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record_update RECORD; record_backup RECORD;
return_int4 int4 :=0;
__CLEANVARIABLES__
BEGIN
__REMAKEVARIABLES__
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
FOR record_update IN SELECT __TABLENAME___id FROM __TABLENAME__
where __TABLENAME___id = id
LOOP
id_exists := 1;
END LOOP;
IF id_exists = 0 THEN return (-2); END IF;
update __TABLENAME__ set date_updated = CURRENT_TIMESTAMP
__UPDATEFIELDS__
where __TABLENAME___id = id;
GET DIAGNOSTICS return_int4 = ROW_COUNT;
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id,
date_updated, date_created, active
__BACKUPCOLUMNS__, error_code)
values (record_update.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__, ''update''
);
END LOOP;
-- We got this far, it must be true, return ROW_COUNT.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___copy (int4);
CREATE FUNCTION sql___TABLENAME___copy (int4)
RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record1 RECORD; record2 RECORD; record3 RECORD;
return_int4 int4 := 0;
id_new int4 := 0;
__TABLENAME___new int4 :=0;
BEGIN
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
id_exists := 1;
END LOOP;
IF id_exists = 0 THEN return (-2); END IF;
--- Get the new id
FOR record1 IN SELECT sql___TABLENAME___insert() as __TABLENAME___insert
LOOP
__TABLENAME___new := record1.__TABLENAME___insert;
END LOOP;
-- If the __TABLENAME___new is not greater than 0, return error.
IF __TABLENAME___new < 1 THEN return -3; END IF;
FOR record2 IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
FOR record1 IN SELECT sql___TABLENAME___update(__TABLENAME___new __COPYFIELDS__)
as __TABLENAME___insert
LOOP
-- execute some arbitrary command just to get it to pass.
id_exists := 1;
END LOOP;
END LOOP;
-- We got this far, it must be true, return new id.
return (__TABLENAME___new);
END;
' LANGUAGE 'plpgsql';
------------------------------------------------------------------
--drop function sql___TABLENAME___purge ();
CREATE FUNCTION sql___TABLENAME___purge () RETURNS int4 AS '
DECLARE
record_backup RECORD; oid1 int4 := 0;
return_int4 int4 :=0;
deleted int4 := 0;
delete_count int4 :=0;
delete_id int4;
BEGIN
-- Now delete one by one.
FOR record_backup IN SELECT * FROM __TABLENAME__ where active = 0
LOOP
-- Record the id we want to delete.
delete_id = record_backup.__TABLENAME___id;
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''purge''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -1
IF oid1 < 1 THEN return (-2); END IF;
-- Now delete this from the main table.
delete from __TABLENAME__ where __TABLENAME___id = delete_id;
-- Get row count of row just deleted, should be 1.
GET DIAGNOSTICS deleted = ROW_COUNT;
-- If deleted less than 1, return -3
IF deleted < 1 THEN return (-3); END IF;
delete_count := delete_count + 1;
END LOOP;
-- We got this far, it must be true, return the number of ones we had.
return (delete_count);
END;
' LANGUAGE 'plpgsql';
------------------------------------------------------------------
--drop function sql___TABLENAME___purgeone (int4);
CREATE FUNCTION sql___TABLENAME___purgeone (int4) RETURNS int4 AS '
DECLARE
record_backup RECORD; oid1 int4 := 0;
record1 RECORD;
return_int4 int4 :=0;
deleted int4 := 0;
delete_count int4 :=0;
delete_id int4;
purged_no int4 := 0;
BEGIN
delete_id := $1;
-- If purged_id less than 1, return -4
IF delete_id < 1 THEN return (-4); END IF;
FOR record1 IN SELECT * FROM __TABLENAME__
where active = 0 and __TABLENAME___id = delete_id
LOOP
purged_no := purged_no + 1;
END LOOP;
-- If purged_no less than 1, return -1
IF purged_no < 1 THEN return (-1); END IF;
-- Now delete one by one.
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = delete_id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''purgeone''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -2
IF oid1 < 1 THEN return (-2); END IF;
-- Now delete this from the main table.
delete from __TABLENAME__ where __TABLENAME___id = delete_id;
-- Get row count of row just deleted, should be 1.
GET DIAGNOSTICS deleted = ROW_COUNT;
-- If deleted less than 1, return -3
IF deleted < 1 THEN return (-3); END IF;
delete_count := delete_count + 1;
END LOOP;
-- We got this far, it must be true, return the number of ones we had.
return (delete_count);
END;
' LANGUAGE 'plpgsql';
------------------------------------------------------------------------
--drop function sql___TABLENAME___unpurge ();
CREATE FUNCTION sql___TABLENAME___unpurge () RETURNS int2 AS '
DECLARE
record1 RECORD;
record2 RECORD;
record_backup RECORD;
purged_id int4 := 0;
purge_count int4 :=0;
timestamp1 timestamp;
purged_no int4 := 0;
oid1 int4 := 0;
oid_found int4 := 0;
highest_oid int4 := 0;
BEGIN
-- Now get the unique ids that were purged.
FOR record1 IN select distinct __TABLENAME___id
from __TABLENAME___backup
where ((__TABLENAME___backup.error_code = ''purge'')
or (__TABLENAME___backup.error_code = ''purgeone''))
and NOT __TABLENAME___id = ANY (select __TABLENAME___id from __TABLENAME__)
LOOP
purged_id := record1.__TABLENAME___id;
timestamp1 := CURRENT_TIMESTAMP;
purged_no := purged_no + 1;
oid_found := 0;
highest_oid := 0;
-- Now we have the unique id, find its latest date.
FOR record2 IN select max(oid) from __TABLENAME___backup
where __TABLENAME___id = purged_id
and ((error_code = ''purge'') or (error_code = ''purgeone''))
LOOP
-- record we got the date and also record the highest date.
oid_found := 1;
highest_oid := record2.max;
END LOOP;
-- If the oid_found is 0, return error.
IF oid_found = 0 THEN return (-3); END IF;
-- Now we have the latest date, get the values and insert them.
FOR record_backup IN select * from __TABLENAME___backup
where oid = highest_oid
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (purged_id, timestamp1, record_backup.date_created,
1
__BACKUPVALUES__ , ''unpurge''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -1
IF oid1 < 1 THEN return (-1); END IF;
insert into __TABLENAME__ (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__)
values (purged_id, timestamp1, record_backup.date_created, 1
__BACKUPVALUES__ );
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -2
IF oid1 < 1 THEN return (-2); END IF;
-- Now restore anything from update_tablefield.
-- We really should disable it since it is impossible for
-- update_tablefield to contain newer data after a purge.
-- It actually works if you modify the table after a purge, so keep it
-- just for kicks.
PERFORM restore_tablefields(''__TABLENAME__'',purged_id, record_backup.date_updated);
END LOOP;
END LOOP;
-- We got this far, it must be true, return how many were affected.
return (purged_no);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___unpurgeone (int4);
CREATE FUNCTION sql___TABLENAME___unpurgeone (int4) RETURNS int2 AS '
DECLARE
record_id int4;
record1 RECORD;
record2 RECORD;
record_backup RECORD;
return_int4 int4 :=0;
purged_id int4 := 0;
purge_count int4 :=0;
timestamp1 timestamp;
purged_no int4 := 0;
oid1 int4 := 0;
oid_found int4 := 0;
highest_oid int4 := 0;
BEGIN
purged_id := $1;
-- If purged_id less than 1, return -1
IF purged_id < 1 THEN return (-1); END IF;
--- Get the current timestamp.
timestamp1 := CURRENT_TIMESTAMP;
FOR record1 IN select distinct __TABLENAME___id
from __TABLENAME___backup
where ((__TABLENAME___backup.error_code = ''purge'')
or (__TABLENAME___backup.error_code = ''purgeone''))
and NOT __TABLENAME___id = ANY (select __TABLENAME___id from __TABLENAME__)
and __TABLENAME___id = purged_id
LOOP
purged_no := purged_no + 1;
END LOOP;
-- If purged_no less than 1, return -1
IF purged_no < 1 THEN return (-3); END IF;
-- Now find the highest oid.
FOR record2 IN select max(oid) from __TABLENAME___backup
where __TABLENAME___id = purged_id
and ((error_code = ''purge'') or (error_code = ''purgeone''))
LOOP
-- record we got the date and also record the highest date.
oid_found := 1;
highest_oid := record2.max;
END LOOP;
-- If the oid_found is 0, return error.
IF oid_found = 0 THEN return (-4); END IF;
-- Now get the data and restore it.
FOR record_backup IN select * from __TABLENAME___backup
where oid = highest_oid
LOOP
-- Insert into backup that it was unpurged.
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (purged_id, timestamp1,
record_backup.date_created, 1
__BACKUPVALUES__ , ''unpurgeone''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -1
IF oid1 < 1 THEN return (-1); END IF;
-- Insert into live table.
insert into __TABLENAME__ (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__)
values (record_backup.__TABLENAME___id, timestamp1,
record_backup.date_created, 1
__BACKUPVALUES__ );
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -2
IF oid1 < 1 THEN return (-2); END IF;
-- Now restore anything from update_tablefield.
-- We reallyt should disable it since it is impossible for
-- update_tablefield to contain newer data after a purge.
-- It actually works if you modify the table after a purge, so keep it
-- just for kicks.
PERFORM restore_tablefields(''__TABLENAME__'',purged_id, record_backup.date_updated);
END LOOP;
-- We got this far, it must be true, return how many were affected (1).
return (purged_no);
END;
' LANGUAGE 'plpgsql';
--insert into __TABLENAME__ (__TABLENAME___id, date_updated, date_created, active)
-- values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
--insert into __TABLENAME___backup (backup_id, __TABLENAME___id,
-- date_updated, date_created, active, error_code)
-- values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
beta/Templates/Generic.fun~ 0100664 0000764 0000764 00000044320 07561631424 014707 0 ustar mark mark
-- If you don't see a header file, this fall under GPL license and
-- Artistic lincense as the rest of GUPPS or MAPPS by Mark Nielsen,
-- Copyrighted 2001,2002.
-- create a method to unpurge just one item.
-- create a method to purge one item.
-- \i __HOME__/__TABLENAME__.table
--- Very dangerous delete command. Glad I formatted
--- names of functions in a standard way.
delete from pg_proc where proname like 'sql___TABLENAME___insert';
delete from pg_proc where proname like 'sql___TABLENAME___delete';
delete from pg_proc where proname like 'sql___TABLENAME___undelete';
delete from pg_proc where proname like 'sql___TABLENAME___update';
delete from pg_proc where proname like 'sql___TABLENAME___copy';
delete from pg_proc where proname like 'sql___TABLENAME___purge';
delete from pg_proc where proname like 'sql___TABLENAME___purgeone';
delete from pg_proc where proname like 'sql___TABLENAME___unpurge';
delete from pg_proc where proname like 'sql___TABLENAME___unpurgeone';
---------------------------------------------------------------------
--drop function sql___TABLENAME___insert ();
CREATE FUNCTION sql___TABLENAME___insert () RETURNS int4 AS '
DECLARE
record1 record; oid1 int4; id int4 :=0; record_backup RECORD;
BEGIN
insert into __TABLENAME__ (date_updated, date_created, active)
values (CURRENT_TIMESTAMP,CURRENT_TIMESTAMP, 1);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- Get the __TABLENAME__ id.
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__ where oid = oid1
LOOP
id := record1.__TABLENAME___id;
END LOOP;
-- If id is NULL, insert failed or something is wrong.
IF id is NULL THEN return (-1); END IF;
-- It should also be greater than 0, otherwise something is wrong.
IF id < 1 THEN return (-2); END IF;
-- Now backup the data.
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active, error_code)
values (id, record_backup.date_updated, record_backup.date_created,
record_backup.active, ''insert'');
END LOOP;
-- Everything has passed, return id as __TABLENAME___id.
return (id);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___delete (int4);
CREATE FUNCTION sql___TABLENAME___delete (int4) RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record1 RECORD;
record_backup RECORD;
return_int4 int4 :=0;
BEGIN
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
-- If we find the id, set active = 0.
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__
where __TABLENAME___id = id
LOOP
update __TABLENAME__ set active=0, date_updated = CURRENT_TIMESTAMP
where __TABLENAME___id = id;
GET DIAGNOSTICS return_int4 = ROW_COUNT;
id_exists := 1;
END LOOP;
-- If we did not find the id, abort and return -2.
IF id_exists = 0 THEN return (-2); END IF;
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active BACKUPCOLUMNS ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''delete''
);
END LOOP;
-- If id_exists == 0, Return error.
-- It means it never existed.
IF id_exists = 0 THEN return (-1); END IF;
-- We got this far, it must be true, return ROW_COUNT.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___undelete (int4);
CREATE FUNCTION sql___TABLENAME___undelete (int4) RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record1 RECORD;
record_backup RECORD;
return_int4 int4 :=0;
BEGIN
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
-- If we find the id, set active = 1.
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__
where __TABLENAME___id = id
LOOP
update __TABLENAME__ set active=1, date_updated = CURRENT_TIMESTAMP
where __TABLENAME___id = id;
GET DIAGNOSTICS return_int4 = ROW_COUNT;
id_exists := 1;
END LOOP;
-- If we did not find the id, abort and return -2.
IF id_exists = 0 THEN return (-2); END IF;
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''undelete''
);
END LOOP;
-- If id_exists == 0, Return error.
-- It means it never existed.
IF id_exists = 0 THEN return (-1); END IF;
-- We got this far, it must be true, return ROW_COUNT.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___update (int4 __FIELDS__);
CREATE FUNCTION sql___TABLENAME___update (int4 __FIELDS__)
RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record_update RECORD; record_backup RECORD;
return_int4 int4 :=0;
__CLEANVARIABLES__
BEGIN
__REMAKEVARIABLES__
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
FOR record_update IN SELECT __TABLENAME___id FROM __TABLENAME__
where __TABLENAME___id = id
LOOP
id_exists := 1;
END LOOP;
IF id_exists = 0 THEN return (-2); END IF;
update __TABLENAME__ set date_updated = CURRENT_TIMESTAMP
__UPDATEFIELDS__
where __TABLENAME___id = id;
GET DIAGNOSTICS return_int4 = ROW_COUNT;
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id,
date_updated, date_created, active
__BACKUPCOLUMNS__, error_code)
values (record_update.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__, ''update''
);
END LOOP;
-- We got this far, it must be true, return ROW_COUNT.
return (return_int4);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___copy (int4);
CREATE FUNCTION sql___TABLENAME___copy (int4)
RETURNS int2 AS '
DECLARE
id int4 := 0;
id_exists int4 := 0;
record1 RECORD; record2 RECORD; record3 RECORD;
return_int4 int4 := 0;
id_new int4 := 0;
__TABLENAME___new int4 :=0;
BEGIN
-- If the id is not greater than 0, return error.
id := clean_numeric($1);
IF id < 1 THEN return -1; END IF;
FOR record1 IN SELECT __TABLENAME___id FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
id_exists := 1;
END LOOP;
IF id_exists = 0 THEN return (-2); END IF;
--- Get the new id
FOR record1 IN SELECT sql___TABLENAME___insert() as __TABLENAME___insert
LOOP
__TABLENAME___new := record1.__TABLENAME___insert;
END LOOP;
-- If the __TABLENAME___new is not greater than 0, return error.
IF __TABLENAME___new < 1 THEN return -3; END IF;
FOR record2 IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = id
LOOP
FOR record1 IN SELECT sql___TABLENAME___update(__TABLENAME___new __COPYFIELDS__)
as __TABLENAME___insert
LOOP
-- execute some arbitrary command just to get it to pass.
id_exists := 1;
END LOOP;
END LOOP;
-- We got this far, it must be true, return new id.
return (__TABLENAME___new);
END;
' LANGUAGE 'plpgsql';
------------------------------------------------------------------
--drop function sql___TABLENAME___purge ();
CREATE FUNCTION sql___TABLENAME___purge () RETURNS int4 AS '
DECLARE
record_backup RECORD; oid1 int4 := 0;
return_int4 int4 :=0;
deleted int4 := 0;
delete_count int4 :=0;
delete_id int4;
BEGIN
-- Now delete one by one.
FOR record_backup IN SELECT * FROM __TABLENAME__ where active = 0
LOOP
-- Record the id we want to delete.
delete_id = record_backup.__TABLENAME___id;
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''purge''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -1
IF oid1 < 1 THEN return (-2); END IF;
-- Now delete this from the main table.
delete from __TABLENAME__ where __TABLENAME___id = delete_id;
-- Get row count of row just deleted, should be 1.
GET DIAGNOSTICS deleted = ROW_COUNT;
-- If deleted less than 1, return -3
IF deleted < 1 THEN return (-3); END IF;
delete_count := delete_count + 1;
END LOOP;
-- We got this far, it must be true, return the number of ones we had.
return (delete_count);
END;
' LANGUAGE 'plpgsql';
------------------------------------------------------------------
--drop function sql___TABLENAME___purgeone (int4);
CREATE FUNCTION sql___TABLENAME___purgeone (int4) RETURNS int4 AS '
DECLARE
record_backup RECORD; oid1 int4 := 0;
record1 RECORD;
return_int4 int4 :=0;
deleted int4 := 0;
delete_count int4 :=0;
delete_id int4;
purged_no int4 := 0;
BEGIN
delete_id := $1;
-- If purged_id less than 1, return -4
IF delete_id < 1 THEN return (-4); END IF;
FOR record1 IN SELECT * FROM __TABLENAME__
where active = 0 and __TABLENAME___id = delete_id
LOOP
purged_no := purged_no + 1;
END LOOP;
-- If purged_no less than 1, return -1
IF purged_no < 1 THEN return (-1); END IF;
-- Now delete one by one.
FOR record_backup IN SELECT * FROM __TABLENAME__ where __TABLENAME___id = delete_id
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (record_backup.__TABLENAME___id, record_backup.date_updated,
record_backup.date_created, record_backup.active
__BACKUPVALUES__ , ''purgeone''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -2
IF oid1 < 1 THEN return (-2); END IF;
-- Now delete this from the main table.
delete from __TABLENAME__ where __TABLENAME___id = delete_id;
-- Get row count of row just deleted, should be 1.
GET DIAGNOSTICS deleted = ROW_COUNT;
-- If deleted less than 1, return -3
IF deleted < 1 THEN return (-3); END IF;
delete_count := delete_count + 1;
END LOOP;
-- We got this far, it must be true, return the number of ones we had.
return (delete_count);
END;
' LANGUAGE 'plpgsql';
------------------------------------------------------------------------
--drop function sql___TABLENAME___unpurge ();
CREATE FUNCTION sql___TABLENAME___unpurge () RETURNS int2 AS '
DECLARE
record1 RECORD;
record2 RECORD;
record_backup RECORD;
purged_id int4 := 0;
purge_count int4 :=0;
timestamp1 timestamp;
purged_no int4 := 0;
oid1 int4 := 0;
oid_found int4 := 0;
highest_oid int4 := 0;
BEGIN
-- Now get the unique ids that were purged.
FOR record1 IN select distinct __TABLENAME___id
from __TABLENAME___backup
where ((__TABLENAME___backup.error_code = ''purge'')
or (__TABLENAME___backup.error_code = ''purgeone''))
and NOT __TABLENAME___id = ANY (select __TABLENAME___id from __TABLENAME__)
LOOP
purged_id := record1.__TABLENAME___id;
timestamp1 := CURRENT_TIMESTAMP;
purged_no := purged_no + 1;
oid_found := 0;
highest_oid := 0;
-- Now we have the unique id, find its latest date.
FOR record2 IN select max(oid) from __TABLENAME___backup
where __TABLENAME___id = purged_id
and ((error_code = ''purge'') or (error_code = ''purgeone''))
LOOP
-- record we got the date and also record the highest date.
oid_found := 1;
highest_oid := record2.max;
END LOOP;
-- If the oid_found is 0, return error.
IF oid_found = 0 THEN return (-3); END IF;
-- Now we have the latest date, get the values and insert them.
FOR record_backup IN select * from __TABLENAME___backup
where oid = highest_oid
LOOP
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (purged_id, timestamp1, record_backup.date_created,
1
__BACKUPVALUES__ , ''unpurge''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -1
IF oid1 < 1 THEN return (-1); END IF;
insert into __TABLENAME__ (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__)
values (purged_id, timestamp1, record_backup.date_created, 1
__BACKUPVALUES__ );
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -2
IF oid1 < 1 THEN return (-2); END IF;
-- Now restore anything from update_tablefield.
-- We really should disable it since it is impossible for
-- update_tablefield to contain newer data after a purge.
-- It actually works if you modify the table after a purge, so keep it
-- just for kicks.
PERFORM restore_tablefields(''__TABLENAME__'',purged_id, record_backup.date_updated);
END LOOP;
END LOOP;
-- We got this far, it must be true, return how many were affected.
return (purged_no);
END;
' LANGUAGE 'plpgsql';
---------------------------------------------------------------------
--drop function sql___TABLENAME___unpurgeone (int4);
CREATE FUNCTION sql___TABLENAME___unpurgeone (int4) RETURNS int2 AS '
DECLARE
record_id int4;
record1 RECORD;
record2 RECORD;
record_backup RECORD;
return_int4 int4 :=0;
purged_id int4 := 0;
purge_count int4 :=0;
timestamp1 timestamp;
purged_no int4 := 0;
oid1 int4 := 0;
oid_found int4 := 0;
highest_oid int4 := 0;
BEGIN
purged_id := $1;
-- If purged_id less than 1, return -1
IF purged_id < 1 THEN return (-1); END IF;
--- Get the current timestamp.
timestamp1 := CURRENT_TIMESTAMP;
FOR record1 IN select distinct __TABLENAME___id
from __TABLENAME___backup
where ((__TABLENAME___backup.error_code = ''purge'')
or (__TABLENAME___backup.error_code = ''purgeone''))
and NOT __TABLENAME___id = ANY (select __TABLENAME___id from __TABLENAME__)
and __TABLENAME___id = purged_id
LOOP
purged_no := purged_no + 1;
END LOOP;
-- If purged_no less than 1, return -1
IF purged_no < 1 THEN return (-3); END IF;
-- Now find the highest oid.
FOR record2 IN select max(oid) from __TABLENAME___backup
where __TABLENAME___id = purged_id
and ((error_code = ''purge'') or (error_code = ''purgeone''))
LOOP
-- record we got the date and also record the highest date.
oid_found := 1;
highest_oid := record2.max;
END LOOP;
-- If the oid_found is 0, return error.
IF oid_found = 0 THEN return (-4); END IF;
-- Now get the data and restore it.
FOR record_backup IN select * from __TABLENAME___backup
where oid = highest_oid
LOOP
-- Insert into backup that it was unpurged.
insert into __TABLENAME___backup (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__ ,error_code)
values (purged_id, timestamp1,
record_backup.date_created, 1
__BACKUPVALUES__ , ''unpurgeone''
);
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -1
IF oid1 < 1 THEN return (-1); END IF;
-- Insert into live table.
insert into __TABLENAME__ (__TABLENAME___id, date_updated, date_created,
active __BACKUPCOLUMNS__)
values (record_backup.__TABLENAME___id, timestamp1,
record_backup.date_created, 1
__BACKUPVALUES__ );
-- Get the unique oid of the row just inserted.
GET DIAGNOSTICS oid1 = RESULT_OID;
-- If oid1 less than 1, return -2
IF oid1 < 1 THEN return (-2); END IF;
-- Now restore anything from update_tablefield.
-- We reallyt should disable it since it is impossible for
-- update_tablefield to contain newer data after a purge.
-- It actually works if you modify the table after a purge, so keep it
-- just for kicks.
PERFORM restore_tablefields(''__TABLENAME__'',purged_id, record_backup.date_updated);
END LOOP;
-- We got this far, it must be true, return how many were affected (1).
return (purged_no);
END;
' LANGUAGE 'plpgsql';
--insert into __TABLENAME__ (__TABLENAME___id, date_updated, date_created, active)
-- values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
--insert into __TABLENAME___backup (backup_id, __TABLENAME___id,
-- date_updated, date_created, active, error_code)
-- values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
beta/Templates/Password 0100664 0000764 0000764 00000000024 07516453765 014153 0 ustar mark mark test1:kdNmu8pWxWUXk
beta/Templates/Tables_Default.txt 0100664 0000764 0000764 00000001146 07510746013 016034 0 ustar mark mark
-- drop sequence update_tablefield_sequence;
create sequence update_tablefield_sequence;
-- drop table update_tablefield;
create table update_tablefield(
update_tablefield_id int4 NOT NULL PRIMARY KEY DEFAULT nextval('update_tablefield_sequence'),
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
table_name text not null default '',
table_field text not null default '',
field_id int4 not null default 0,
value text not null default '',
field_type text not null default 'text'
);
beta/Templates/htaccess 0100664 0000764 0000764 00000000700 07576435044 014143 0 ustar mark mark
## It is technically bad to put the password file in the same directory,
## but you have total control over the database if you log in
## so you pretty much have full control to to bad things anyhow.
## If we are really paranoid, we could make a separate driectory
## for the password file -- maybe later.
AuthName "Protect These Example And Admin Web Scripts"
AuthType Basic
AuthUserFile __DIR__/Password
order deny,allow
require valid-user
beta/Templates/htaccess~ 0100664 0000764 0000764 00000000674 07516450266 014350 0 ustar mark mark
## It is technically bad to put the password file in the same directory,
## but you have total control over the database if you log in
## so you pretty much have full control to to bad things anyhow.
## If we are really paranoid, we could make a separate driectory
## for the password file -- maybe later.
AuthName "Protect These Example And Admin Web Scripts"
AuthType Basic
AuthUserFile DIR/Password
order deny,allow
require valid-user
beta/lib/ 0040775 0000764 0000764 00000000000 07637124514 011234 5 ustar mark mark beta/lib/NOTES/ 0040775 0000764 0000764 00000000000 07511006776 012124 5 ustar mark mark beta/lib/NOTES/AlphaNumeric.list 0100664 0000764 0000764 00000005510 07511006105 015351 0 ustar mark mark -- 0
text1 = translate(text1,''\\60'','''');
-- 1
text1 = translate(text1,''\\61'','''');
-- 2
text1 = translate(text1,''\\62'','''');
-- 3
text1 = translate(text1,''\\63'','''');
-- 4
text1 = translate(text1,''\\64'','''');
-- 5
text1 = translate(text1,''\\65'','''');
-- 6
text1 = translate(text1,''\\66'','''');
-- 7
text1 = translate(text1,''\\67'','''');
-- 8
text1 = translate(text1,''\\70'','''');
-- 9
text1 = translate(text1,''\\71'','''');
-- A
text1 = translate(text1,''\\101'','''');
-- B
text1 = translate(text1,''\\102'','''');
-- C
text1 = translate(text1,''\\103'','''');
-- D
text1 = translate(text1,''\\104'','''');
-- E
text1 = translate(text1,''\\105'','''');
-- F
text1 = translate(text1,''\\106'','''');
-- G
text1 = translate(text1,''\\107'','''');
-- H
text1 = translate(text1,''\\110'','''');
-- I
text1 = translate(text1,''\\111'','''');
-- J
text1 = translate(text1,''\\112'','''');
-- K
text1 = translate(text1,''\\113'','''');
-- L
text1 = translate(text1,''\\114'','''');
-- M
text1 = translate(text1,''\\115'','''');
-- N
text1 = translate(text1,''\\116'','''');
-- O
text1 = translate(text1,''\\117'','''');
-- P
text1 = translate(text1,''\\120'','''');
-- Q
text1 = translate(text1,''\\121'','''');
-- R
text1 = translate(text1,''\\122'','''');
-- S
text1 = translate(text1,''\\123'','''');
-- T
text1 = translate(text1,''\\124'','''');
-- U
text1 = translate(text1,''\\125'','''');
-- V
text1 = translate(text1,''\\126'','''');
-- W
text1 = translate(text1,''\\127'','''');
-- X
text1 = translate(text1,''\\130'','''');
-- Y
text1 = translate(text1,''\\131'','''');
-- Z
text1 = translate(text1,''\\132'','''');
-- _
text1 = translate(text1,''\\137'','''');
-- a
text1 = translate(text1,''\\141'','''');
-- b
text1 = translate(text1,''\\142'','''');
-- c
text1 = translate(text1,''\\143'','''');
-- d
text1 = translate(text1,''\\144'','''');
-- e
text1 = translate(text1,''\\145'','''');
-- f
text1 = translate(text1,''\\146'','''');
-- g
text1 = translate(text1,''\\147'','''');
-- h
text1 = translate(text1,''\\150'','''');
-- i
text1 = translate(text1,''\\151'','''');
-- j
text1 = translate(text1,''\\152'','''');
-- k
text1 = translate(text1,''\\153'','''');
-- l
text1 = translate(text1,''\\154'','''');
-- m
text1 = translate(text1,''\\155'','''');
-- n
text1 = translate(text1,''\\156'','''');
-- o
text1 = translate(text1,''\\157'','''');
-- p
text1 = translate(text1,''\\160'','''');
-- q
text1 = translate(text1,''\\161'','''');
-- r
text1 = translate(text1,''\\162'','''');
-- s
text1 = translate(text1,''\\163'','''');
-- t
text1 = translate(text1,''\\164'','''');
-- u
text1 = translate(text1,''\\165'','''');
-- v
text1 = translate(text1,''\\166'','''');
-- w
text1 = translate(text1,''\\167'','''');
-- x
text1 = translate(text1,''\\170'','''');
-- y
text1 = translate(text1,''\\171'','''');
-- z
text1 = translate(text1,''\\172'','''');
beta/lib/NOTES/Alpha.list 0100664 0000764 0000764 00000004606 07511006010 014026 0 ustar mark mark -- A
text1 = translate(text1,''\\101'','''');
-- B
text1 = translate(text1,''\\102'','''');
-- C
text1 = translate(text1,''\\103'','''');
-- D
text1 = translate(text1,''\\104'','''');
-- E
text1 = translate(text1,''\\105'','''');
-- F
text1 = translate(text1,''\\106'','''');
-- G
text1 = translate(text1,''\\107'','''');
-- H
text1 = translate(text1,''\\110'','''');
-- I
text1 = translate(text1,''\\111'','''');
-- J
text1 = translate(text1,''\\112'','''');
-- K
text1 = translate(text1,''\\113'','''');
-- L
text1 = translate(text1,''\\114'','''');
-- M
text1 = translate(text1,''\\115'','''');
-- N
text1 = translate(text1,''\\116'','''');
-- O
text1 = translate(text1,''\\117'','''');
-- P
text1 = translate(text1,''\\120'','''');
-- Q
text1 = translate(text1,''\\121'','''');
-- R
text1 = translate(text1,''\\122'','''');
-- S
text1 = translate(text1,''\\123'','''');
-- T
text1 = translate(text1,''\\124'','''');
-- U
text1 = translate(text1,''\\125'','''');
-- V
text1 = translate(text1,''\\126'','''');
-- W
text1 = translate(text1,''\\127'','''');
-- X
text1 = translate(text1,''\\130'','''');
-- Y
text1 = translate(text1,''\\131'','''');
-- Z
text1 = translate(text1,''\\132'','''');
-- _
text1 = translate(text1,''\\137'','''');
-- a
text1 = translate(text1,''\\141'','''');
-- b
text1 = translate(text1,''\\142'','''');
-- c
text1 = translate(text1,''\\143'','''');
-- d
text1 = translate(text1,''\\144'','''');
-- e
text1 = translate(text1,''\\145'','''');
-- f
text1 = translate(text1,''\\146'','''');
-- g
text1 = translate(text1,''\\147'','''');
-- h
text1 = translate(text1,''\\150'','''');
-- i
text1 = translate(text1,''\\151'','''');
-- j
text1 = translate(text1,''\\152'','''');
-- k
text1 = translate(text1,''\\153'','''');
-- l
text1 = translate(text1,''\\154'','''');
-- m
text1 = translate(text1,''\\155'','''');
-- n
text1 = translate(text1,''\\156'','''');
-- o
text1 = translate(text1,''\\157'','''');
-- p
text1 = translate(text1,''\\160'','''');
-- q
text1 = translate(text1,''\\161'','''');
-- r
text1 = translate(text1,''\\162'','''');
-- s
text1 = translate(text1,''\\163'','''');
-- t
text1 = translate(text1,''\\164'','''');
-- u
text1 = translate(text1,''\\165'','''');
-- v
text1 = translate(text1,''\\166'','''');
-- w
text1 = translate(text1,''\\167'','''');
-- x
text1 = translate(text1,''\\170'','''');
-- y
text1 = translate(text1,''\\171'','''');
-- z
text1 = translate(text1,''\\172'','''');
beta/lib/NOTES/NOT_AlphaNumeric.list 0100664 0000764 0000764 00000017324 07511006465 016110 0 ustar mark mark text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
beta/lib/NOTES/NOT_Alpha.list 0100664 0000764 0000764 00000020144 07511006475 014560 0 ustar mark mark text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\60'','''');
text1 = translate(text1,''\\61'','''');
text1 = translate(text1,''\\62'','''');
text1 = translate(text1,''\\63'','''');
text1 = translate(text1,''\\64'','''');
text1 = translate(text1,''\\65'','''');
text1 = translate(text1,''\\66'','''');
text1 = translate(text1,''\\67'','''');
text1 = translate(text1,''\\70'','''');
text1 = translate(text1,''\\71'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
beta/lib/NOTES/NOT_Numeric.list 0100664 0000764 0000764 00000023521 07511006530 015127 0 ustar mark mark text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\11'','''');
text1 = translate(text1,''\\12'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\15'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\40'','''');
text1 = translate(text1,''\\41'','''');
text1 = translate(text1,''\\42'','''');
text1 = translate(text1,''\\43'','''');
text1 = translate(text1,''\\44'','''');
text1 = translate(text1,''\\45'','''');
text1 = translate(text1,''\\46'','''');
text1 = translate(text1,''\\47'','''');
text1 = translate(text1,''\\50'','''');
text1 = translate(text1,''\\51'','''');
text1 = translate(text1,''\\52'','''');
text1 = translate(text1,''\\53'','''');
text1 = translate(text1,''\\54'','''');
text1 = translate(text1,''\\55'','''');
text1 = translate(text1,''\\56'','''');
text1 = translate(text1,''\\57'','''');
text1 = translate(text1,''\\72'','''');
text1 = translate(text1,''\\73'','''');
text1 = translate(text1,''\\74'','''');
text1 = translate(text1,''\\75'','''');
text1 = translate(text1,''\\76'','''');
text1 = translate(text1,''\\77'','''');
text1 = translate(text1,''\\100'','''');
text1 = translate(text1,''\\101'','''');
text1 = translate(text1,''\\102'','''');
text1 = translate(text1,''\\103'','''');
text1 = translate(text1,''\\104'','''');
text1 = translate(text1,''\\105'','''');
text1 = translate(text1,''\\106'','''');
text1 = translate(text1,''\\107'','''');
text1 = translate(text1,''\\110'','''');
text1 = translate(text1,''\\111'','''');
text1 = translate(text1,''\\112'','''');
text1 = translate(text1,''\\113'','''');
text1 = translate(text1,''\\114'','''');
text1 = translate(text1,''\\115'','''');
text1 = translate(text1,''\\116'','''');
text1 = translate(text1,''\\117'','''');
text1 = translate(text1,''\\120'','''');
text1 = translate(text1,''\\121'','''');
text1 = translate(text1,''\\122'','''');
text1 = translate(text1,''\\123'','''');
text1 = translate(text1,''\\124'','''');
text1 = translate(text1,''\\125'','''');
text1 = translate(text1,''\\126'','''');
text1 = translate(text1,''\\127'','''');
text1 = translate(text1,''\\130'','''');
text1 = translate(text1,''\\131'','''');
text1 = translate(text1,''\\132'','''');
text1 = translate(text1,''\\133'','''');
text1 = translate(text1,''\\134'','''');
text1 = translate(text1,''\\135'','''');
text1 = translate(text1,''\\136'','''');
text1 = translate(text1,''\\137'','''');
text1 = translate(text1,''\\140'','''');
text1 = translate(text1,''\\141'','''');
text1 = translate(text1,''\\142'','''');
text1 = translate(text1,''\\143'','''');
text1 = translate(text1,''\\144'','''');
text1 = translate(text1,''\\145'','''');
text1 = translate(text1,''\\146'','''');
text1 = translate(text1,''\\147'','''');
text1 = translate(text1,''\\150'','''');
text1 = translate(text1,''\\151'','''');
text1 = translate(text1,''\\152'','''');
text1 = translate(text1,''\\153'','''');
text1 = translate(text1,''\\154'','''');
text1 = translate(text1,''\\155'','''');
text1 = translate(text1,''\\156'','''');
text1 = translate(text1,''\\157'','''');
text1 = translate(text1,''\\160'','''');
text1 = translate(text1,''\\161'','''');
text1 = translate(text1,''\\162'','''');
text1 = translate(text1,''\\163'','''');
text1 = translate(text1,''\\164'','''');
text1 = translate(text1,''\\165'','''');
text1 = translate(text1,''\\166'','''');
text1 = translate(text1,''\\167'','''');
text1 = translate(text1,''\\170'','''');
text1 = translate(text1,''\\171'','''');
text1 = translate(text1,''\\172'','''');
text1 = translate(text1,''\\173'','''');
text1 = translate(text1,''\\174'','''');
text1 = translate(text1,''\\175'','''');
text1 = translate(text1,''\\176'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
beta/lib/NOTES/NOT_Text.list 0100664 0000764 0000764 00000014522 07511006446 014460 0 ustar mark mark text1 = translate(text1,''\\0'','''');
text1 = translate(text1,''\\1'','''');
text1 = translate(text1,''\\2'','''');
text1 = translate(text1,''\\3'','''');
text1 = translate(text1,''\\4'','''');
text1 = translate(text1,''\\5'','''');
text1 = translate(text1,''\\6'','''');
text1 = translate(text1,''\\7'','''');
text1 = translate(text1,''\\10'','''');
text1 = translate(text1,''\\13'','''');
text1 = translate(text1,''\\14'','''');
text1 = translate(text1,''\\16'','''');
text1 = translate(text1,''\\17'','''');
text1 = translate(text1,''\\20'','''');
text1 = translate(text1,''\\21'','''');
text1 = translate(text1,''\\22'','''');
text1 = translate(text1,''\\23'','''');
text1 = translate(text1,''\\24'','''');
text1 = translate(text1,''\\25'','''');
text1 = translate(text1,''\\26'','''');
text1 = translate(text1,''\\27'','''');
text1 = translate(text1,''\\30'','''');
text1 = translate(text1,''\\31'','''');
text1 = translate(text1,''\\32'','''');
text1 = translate(text1,''\\33'','''');
text1 = translate(text1,''\\34'','''');
text1 = translate(text1,''\\35'','''');
text1 = translate(text1,''\\36'','''');
text1 = translate(text1,''\\37'','''');
text1 = translate(text1,''\\177'','''');
text1 = translate(text1,''\\200'','''');
text1 = translate(text1,''\\201'','''');
text1 = translate(text1,''\\202'','''');
text1 = translate(text1,''\\203'','''');
text1 = translate(text1,''\\204'','''');
text1 = translate(text1,''\\205'','''');
text1 = translate(text1,''\\206'','''');
text1 = translate(text1,''\\207'','''');
text1 = translate(text1,''\\210'','''');
text1 = translate(text1,''\\211'','''');
text1 = translate(text1,''\\212'','''');
text1 = translate(text1,''\\213'','''');
text1 = translate(text1,''\\214'','''');
text1 = translate(text1,''\\215'','''');
text1 = translate(text1,''\\216'','''');
text1 = translate(text1,''\\217'','''');
text1 = translate(text1,''\\220'','''');
text1 = translate(text1,''\\221'','''');
text1 = translate(text1,''\\222'','''');
text1 = translate(text1,''\\223'','''');
text1 = translate(text1,''\\224'','''');
text1 = translate(text1,''\\225'','''');
text1 = translate(text1,''\\226'','''');
text1 = translate(text1,''\\227'','''');
text1 = translate(text1,''\\230'','''');
text1 = translate(text1,''\\231'','''');
text1 = translate(text1,''\\232'','''');
text1 = translate(text1,''\\233'','''');
text1 = translate(text1,''\\234'','''');
text1 = translate(text1,''\\235'','''');
text1 = translate(text1,''\\236'','''');
text1 = translate(text1,''\\237'','''');
text1 = translate(text1,''\\240'','''');
text1 = translate(text1,''\\241'','''');
text1 = translate(text1,''\\242'','''');
text1 = translate(text1,''\\243'','''');
text1 = translate(text1,''\\244'','''');
text1 = translate(text1,''\\245'','''');
text1 = translate(text1,''\\246'','''');
text1 = translate(text1,''\\247'','''');
text1 = translate(text1,''\\250'','''');
text1 = translate(text1,''\\251'','''');
text1 = translate(text1,''\\252'','''');
text1 = translate(text1,''\\253'','''');
text1 = translate(text1,''\\254'','''');
text1 = translate(text1,''\\255'','''');
text1 = translate(text1,''\\256'','''');
text1 = translate(text1,''\\257'','''');
text1 = translate(text1,''\\260'','''');
text1 = translate(text1,''\\261'','''');
text1 = translate(text1,''\\262'','''');
text1 = translate(text1,''\\263'','''');
text1 = translate(text1,''\\264'','''');
text1 = translate(text1,''\\265'','''');
text1 = translate(text1,''\\266'','''');
text1 = translate(text1,''\\267'','''');
text1 = translate(text1,''\\270'','''');
text1 = translate(text1,''\\271'','''');
text1 = translate(text1,''\\272'','''');
text1 = translate(text1,''\\273'','''');
text1 = translate(text1,''\\274'','''');
text1 = translate(text1,''\\275'','''');
text1 = translate(text1,''\\276'','''');
text1 = translate(text1,''\\277'','''');
text1 = translate(text1,''\\300'','''');
text1 = translate(text1,''\\301'','''');
text1 = translate(text1,''\\302'','''');
text1 = translate(text1,''\\303'','''');
text1 = translate(text1,''\\304'','''');
text1 = translate(text1,''\\305'','''');
text1 = translate(text1,''\\306'','''');
text1 = translate(text1,''\\307'','''');
text1 = translate(text1,''\\310'','''');
text1 = translate(text1,''\\311'','''');
text1 = translate(text1,''\\312'','''');
text1 = translate(text1,''\\313'','''');
text1 = translate(text1,''\\314'','''');
text1 = translate(text1,''\\315'','''');
text1 = translate(text1,''\\316'','''');
text1 = translate(text1,''\\317'','''');
text1 = translate(text1,''\\320'','''');
text1 = translate(text1,''\\321'','''');
text1 = translate(text1,''\\322'','''');
text1 = translate(text1,''\\323'','''');
text1 = translate(text1,''\\324'','''');
text1 = translate(text1,''\\325'','''');
text1 = translate(text1,''\\326'','''');
text1 = translate(text1,''\\327'','''');
text1 = translate(text1,''\\330'','''');
text1 = translate(text1,''\\331'','''');
text1 = translate(text1,''\\332'','''');
text1 = translate(text1,''\\333'','''');
text1 = translate(text1,''\\334'','''');
text1 = translate(text1,''\\335'','''');
text1 = translate(text1,''\\336'','''');
text1 = translate(text1,''\\337'','''');
text1 = translate(text1,''\\340'','''');
text1 = translate(text1,''\\341'','''');
text1 = translate(text1,''\\342'','''');
text1 = translate(text1,''\\343'','''');
text1 = translate(text1,''\\344'','''');
text1 = translate(text1,''\\345'','''');
text1 = translate(text1,''\\346'','''');
text1 = translate(text1,''\\347'','''');
text1 = translate(text1,''\\350'','''');
text1 = translate(text1,''\\351'','''');
text1 = translate(text1,''\\352'','''');
text1 = translate(text1,''\\353'','''');
text1 = translate(text1,''\\354'','''');
text1 = translate(text1,''\\355'','''');
text1 = translate(text1,''\\356'','''');
text1 = translate(text1,''\\357'','''');
text1 = translate(text1,''\\360'','''');
text1 = translate(text1,''\\361'','''');
text1 = translate(text1,''\\362'','''');
text1 = translate(text1,''\\363'','''');
text1 = translate(text1,''\\364'','''');
text1 = translate(text1,''\\365'','''');
text1 = translate(text1,''\\366'','''');
text1 = translate(text1,''\\367'','''');
text1 = translate(text1,''\\370'','''');
text1 = translate(text1,''\\371'','''');
text1 = translate(text1,''\\372'','''');
text1 = translate(text1,''\\373'','''');
text1 = translate(text1,''\\374'','''');
text1 = translate(text1,''\\375'','''');
text1 = translate(text1,''\\376'','''');
text1 = translate(text1,''\\377'','''');
text1 = translate(text1,''\\400'','''');
beta/lib/NOTES/Numeric.list 0100664 0000764 0000764 00000000702 07511006053 014403 0 ustar mark mark -- 0
text1 = translate(text1,''\\60'','''');
-- 1
text1 = translate(text1,''\\61'','''');
-- 2
text1 = translate(text1,''\\62'','''');
-- 3
text1 = translate(text1,''\\63'','''');
-- 4
text1 = translate(text1,''\\64'','''');
-- 5
text1 = translate(text1,''\\65'','''');
-- 6
text1 = translate(text1,''\\66'','''');
-- 7
text1 = translate(text1,''\\67'','''');
-- 8
text1 = translate(text1,''\\70'','''');
-- 9
text1 = translate(text1,''\\71'','''');
beta/lib/NOTES/Text.list 0100664 0000764 0000764 00000011100 07511006272 013722 0 ustar mark mark -- '\t'
text1 = translate(text1,''\\11'','''');
-- '\n'
text1 = translate(text1,''\\12'','''');
-- '\r'
text1 = translate(text1,''\\15'','''');
-- ' '
text1 = translate(text1,''\\40'','''');
-- '!'
text1 = translate(text1,''\\41'','''');
-- '"'
text1 = translate(text1,''\\42'','''');
-- '#'
text1 = translate(text1,''\\43'','''');
-- '$'
text1 = translate(text1,''\\44'','''');
-- '%'
text1 = translate(text1,''\\45'','''');
-- '&'
text1 = translate(text1,''\\46'','''');
-- '''
text1 = translate(text1,''\\47'','''');
-- '('
text1 = translate(text1,''\\50'','''');
-- ')'
text1 = translate(text1,''\\51'','''');
-- '*'
text1 = translate(text1,''\\52'','''');
-- '+'
text1 = translate(text1,''\\53'','''');
-- ','
text1 = translate(text1,''\\54'','''');
-- '-'
text1 = translate(text1,''\\55'','''');
-- '.'
text1 = translate(text1,''\\56'','''');
-- '/'
text1 = translate(text1,''\\57'','''');
-- '0'
text1 = translate(text1,''\\60'','''');
-- '1'
text1 = translate(text1,''\\61'','''');
-- '2'
text1 = translate(text1,''\\62'','''');
-- '3'
text1 = translate(text1,''\\63'','''');
-- '4'
text1 = translate(text1,''\\64'','''');
-- '5'
text1 = translate(text1,''\\65'','''');
-- '6'
text1 = translate(text1,''\\66'','''');
-- '7'
text1 = translate(text1,''\\67'','''');
-- '8'
text1 = translate(text1,''\\70'','''');
-- '9'
text1 = translate(text1,''\\71'','''');
-- ':'
text1 = translate(text1,''\\72'','''');
-- ';'
text1 = translate(text1,''\\73'','''');
-- '<'
text1 = translate(text1,''\\74'','''');
-- '='
text1 = translate(text1,''\\75'','''');
-- '>'
text1 = translate(text1,''\\76'','''');
-- '?'
text1 = translate(text1,''\\77'','''');
-- '@'
text1 = translate(text1,''\\100'','''');
-- 'A'
text1 = translate(text1,''\\101'','''');
-- 'B'
text1 = translate(text1,''\\102'','''');
-- 'C'
text1 = translate(text1,''\\103'','''');
-- 'D'
text1 = translate(text1,''\\104'','''');
-- 'E'
text1 = translate(text1,''\\105'','''');
-- 'F'
text1 = translate(text1,''\\106'','''');
-- 'G'
text1 = translate(text1,''\\107'','''');
-- 'H'
text1 = translate(text1,''\\110'','''');
-- 'I'
text1 = translate(text1,''\\111'','''');
-- 'J'
text1 = translate(text1,''\\112'','''');
-- 'K'
text1 = translate(text1,''\\113'','''');
-- 'L'
text1 = translate(text1,''\\114'','''');
-- 'M'
text1 = translate(text1,''\\115'','''');
-- 'N'
text1 = translate(text1,''\\116'','''');
-- 'O'
text1 = translate(text1,''\\117'','''');
-- 'P'
text1 = translate(text1,''\\120'','''');
-- 'Q'
text1 = translate(text1,''\\121'','''');
-- 'R'
text1 = translate(text1,''\\122'','''');
-- 'S'
text1 = translate(text1,''\\123'','''');
-- 'T'
text1 = translate(text1,''\\124'','''');
-- 'U'
text1 = translate(text1,''\\125'','''');
-- 'V'
text1 = translate(text1,''\\126'','''');
-- 'W'
text1 = translate(text1,''\\127'','''');
-- 'X'
text1 = translate(text1,''\\130'','''');
-- 'Y'
text1 = translate(text1,''\\131'','''');
-- 'Z'
text1 = translate(text1,''\\132'','''');
-- '['
text1 = translate(text1,''\\133'','''');
-- '\'
text1 = translate(text1,''\\134'','''');
-- ']'
text1 = translate(text1,''\\135'','''');
-- '^'
text1 = translate(text1,''\\136'','''');
-- '_'
text1 = translate(text1,''\\137'','''');
-- '`'
text1 = translate(text1,''\\140'','''');
-- 'a'
text1 = translate(text1,''\\141'','''');
-- 'b'
text1 = translate(text1,''\\142'','''');
-- 'c'
text1 = translate(text1,''\\143'','''');
-- 'd'
text1 = translate(text1,''\\144'','''');
-- 'e'
text1 = translate(text1,''\\145'','''');
-- 'f'
text1 = translate(text1,''\\146'','''');
-- 'g'
text1 = translate(text1,''\\147'','''');
-- 'h'
text1 = translate(text1,''\\150'','''');
-- 'i'
text1 = translate(text1,''\\151'','''');
-- 'j'
text1 = translate(text1,''\\152'','''');
-- 'k'
text1 = translate(text1,''\\153'','''');
-- 'l'
text1 = translate(text1,''\\154'','''');
-- 'm'
text1 = translate(text1,''\\155'','''');
-- 'n'
text1 = translate(text1,''\\156'','''');
-- 'o'
text1 = translate(text1,''\\157'','''');
-- 'p'
text1 = translate(text1,''\\160'','''');
-- 'q'
text1 = translate(text1,''\\161'','''');
-- 'r'
text1 = translate(text1,''\\162'','''');
-- 's'
text1 = translate(text1,''\\163'','''');
-- 't'
text1 = translate(text1,''\\164'','''');
-- 'u'
text1 = translate(text1,''\\165'','''');
-- 'v'
text1 = translate(text1,''\\166'','''');
-- 'w'
text1 = translate(text1,''\\167'','''');
-- 'x'
text1 = translate(text1,''\\170'','''');
-- 'y'
text1 = translate(text1,''\\171'','''');
-- 'z'
text1 = translate(text1,''\\172'','''');
-- '{'
text1 = translate(text1,''\\173'','''');
-- '|'
text1 = translate(text1,''\\174'','''');
-- '}'
text1 = translate(text1,''\\175'','''');
-- '~'
text1 = translate(text1,''\\176'','''');
beta/lib/Perl/ 0040775 0000764 0000764 00000000000 07506113244 012127 5 ustar mark mark beta/lib/Php/ 0040775 0000764 0000764 00000000000 07506113247 011757 5 ustar mark mark beta/lib/Python/ 0040775 0000764 0000764 00000000000 07732235366 012521 5 ustar mark mark beta/lib/Python/G 0100664 0000764 0000764 00000000521 07516401250 012610 0 ustar mark mark Read =open(Html_Source+"DEFINEFIELDS_Id."+self.extensions[Language], 'r')
Template_Line = Read.readline()
Read.close()
DefineFields = ""
Temp_Lines = ""
for Id in Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "FIELDNAME", Id)
DefineFields = DefineFields + Add_Line
beta/lib/Python/G1 0100664 0000764 0000764 00000000667 07516451344 012715 0 ustar mark mark
Password_File = self.home + "/Templates/Password"
Custom_P_File = self.home + "/Projects/" + Database + "/Output/Password"
if os.path.isfile(Custom_P_File): Password_File = Custom_P_File
Source_Dir = self.home + "/Projects/" + Database + "/Output/"
Command = "rsync -av "+ Password_File + "+ H_Dir + "/"
Message = "NOTE: Copied " + Password_File + " to " + H_Dir + "/"
self.Log_MessageP(Message)
beta/lib/Python/G2 0100664 0000764 0000764 00000000241 07516610144 012675 0 ustar mark mark ### Open of the file for
Read =open(Html_Source+"/."+self.extensions[Language],'r')
Template_Lines_1 = Read.readlines()
Read.close()
beta/lib/Python/G3 0100664 0000764 0000764 00000000323 07516610376 012706 0 ustar mark mark
for Line in Template_Lines:
Add_Line = string.replace(Line, "FIELDNAME", Id)
Add_Line = string.replace(Add_Line, "TABLENAME", TableName)
HtmlFields = HtmlFields + Add_Line
beta/lib/Python/GUPPS_Setup.py_backup1 0100664 0000764 0000764 00000176067 07537604427 016576 0 ustar mark mark #!/usr/bin/env python2
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
### Constants is the module we make.
import string, re, binascii, base64, os, sys
import base64, string, gzip, sys, time, commands
import getopt, types
class GUPPS_Setup:
def __init__(self):
self.home = os.environ['GUPPS_HOME']
self.global_config_file = self.home + "/Local/Global.config"
self.global_options_file = self.home + "/lib/Options.config"
self.global_options_long_file = self.home + "/lib/Options_Long.config"
self.global_options_default_file = self.home + "/lib/Options.default"
self.start_date = time.strftime("%Y%m%d")
self.start_time = time.strftime("%H%M%S")
self.log = self.home +"/Logs/"+ self.start_date + self.start_time + ".log";
self.web_languages = ['perl', 'php', 'python', 'java']
self.global_options = {}
self.global_variables = {}
self.optlist = []
self.args = []
self.database = {}
self.table_config = {}
self.table_sql_commands = {}
self.table_executed = {}
self.table_executed_not = {}
self.table_variables = {}
self.table_module_test = {}
self.default_table = ['update_tablefield']
self.default_sequence = ['update_tablefield_sequence']
self.default_function = ['update_tablefield','restore_tablefields']
self.extensions = {}
self.extensions['perl'] = "pl"
self.extensions['php'] = "php"
self.extensions['python'] = "py"
self.extensions['java'] = "jsp"
#------------------------------------------------------------------
def Global(self):
Temp_Global = {}
if not os.path.isfile(self.global_config_file):
print "Error, global config file not found."
print "Looking for " + self.global_config_file
print "Aborting."
sys.exit()
elif not os.path.isfile(self.global_options_default_file):
print "Error, global options default file not found."
print "Looking for " + self.global_options_default_file
print "Aborting."
sys.exit()
else:
Temp_Global = self.Parse_Config(File=self.global_config_file)
Temp_Global['DESTINATION_MODULES_ROOT'] = Temp_Global['SERVER_ROOT'] + "/lib"
if not os.path.isdir(Temp_Global['DESTINATION_MODULES_ROOT']):
Output = commands.getoutput("mkdir -p " + Temp_Global['DESTINATION_MODULES_ROOT'])
if os.path.isfile(self.global_options_default_file):
Temp_Global2 = self.Parse_Config(File=self.global_options_default_file)
for Key in Temp_Global2.keys():
if not Temp_Global.has_key(Key):
Temp_Global[Key] = Temp_Global2[Key]
self.global_variables = Temp_Global
return (Temp_Global)
#-----------------------------------------------------------------
def Parse_Config(self, File = ""):
Temp_Hash = {}
if File == "": return Temp_Hash
elif not os.path.isfile(File): return Temp_Hash
Message = "NOTE: Parsing file " + File
self.Log_MessageP(Message)
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Read = open(File, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
Temp = string.split(line, " ", 1)
if (len(Temp) > 1) and (Temp[0] != "") and (Temp[1] != ""):
Temp_Hash[Temp[0]] = Temp[1]
# print line, Temp
return Temp_Hash
#---------------------------------------------------------
def Log_Message(self, Message=""):
log= ""
if Message == "": return ""
else:
log = open(self.log,'a')
log.write(str(Message) + "\n")
log.close()
def Log_MessageP(self, Message=""):
log= ""
if Message == "": return ""
else:
log = open(self.log,'a')
log.write(str(Message) + "\n")
log.close()
print Message
#---------------------------------------------------------
def Parse_Opts(self):
Args = sys.argv[1:]
Options = {}
if not os.path.isfile(self.global_options_file):
print "Error, global options file not found."
print "Looking for " + self.global_options_file
print "Aborting."
sys.exit()
elif not os.path.isfile(self.global_options_long_file):
print "Error, global options long file not found."
print "Looking for " + self.global_options_long_file
print "Aborting."
sys.exit()
else:
Message = "NOTE: Parsing file " + self.global_options_file
self.Log_MessageP(Message)
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Remove_End2 = re.compile('[:=]+$')
String = ""
Read = open(self.global_options_file, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
if Check_AlphaNumeric.search(line):
Temp = string.split(line, " ")
String = String + Temp[0]
if len(Temp) == 2:
Temp[0] = Remove_End2.sub("",Temp[0])
Options[Temp[0]] = Temp[1]
# print "TEST3 ", Temp
self.global_options = Options
Message = "NOTE: Parsing file " + self.global_options_long_file
self.Log_MessageP(Message)
Temp_Array = []
Read = open(self.global_options_long_file, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
if Check_AlphaNumeric.search(line):
Temp = string.split(line, " ")
Temp_Array.append(Temp[0])
if len(Temp) == 2:
Temp[0] = Remove_End2.sub("",Temp[0])
Options["-" + Temp[0]] = Temp[1]
# print "TEST2 ", Temp
self.global_options = Options
# print Args, String
try: optlist, args2 = getopt.getopt(Args, String, Temp_Array)
except:
print "One of your options didn't make sense, aborting."
# print String
print Args
(type, value, traceback) = sys.exc_info()
print "exc_type = " + str(type)
print "exc_value = " + str(value)
print "exc_traceback = " + str(traceback)
print "\nThe following options exist."
List = self.global_options.keys()
List.sort()
for Key in List:
print "-" + Key + " = " + self.global_options[Key]
sys.exit()
# print "TEST4 ",optlist, args2
self.optlist = optlist
self.args = args2
return optlist, args2
#---------------------------------------------------------
def Override_Global(self, database='unknown'):
Options = self.optlist
Remove_Start = re.compile('^-')
for List in Options:
Temp_Key = List[0]
Key = Temp_Key
Value = List[1]
Key = Remove_Start.sub("",Key)
if self.global_options.has_key(Key): Key = self.global_options[Key]
if not self.global_variables.has_key(Key): Temp = 1
elif Value != "": self.global_variables[Key] = Value
self.global_variables['DATABASE'] = database
return self.global_variables
#------------------------------------------------------------
def Parse_Database_Info(self, database='', tablename=''):
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Remove_End2 = re.compile('[:=]+$')
Dir = self.home + "/Projects/" + str(database)
Tables_File = Dir + "/Tables.txt"
if database == "":
print "Error, no database specified in Parse_Tables_Flat, aborting."
sys.exit()
elif not os.path.isdir(Dir):
print "Error, database directory does not exist."
print "Looking for " + Dir
print "Aborting."
sys.exit()
elif not os.path.isfile(Tables_File):
print "Error, tables file not found for database " + database
print "Looking for " + Tables_File
print "Aborting."
sys.exit()
else:
Message = "NOTE: Found database directory " + Dir
self.Log_MessageP(Message=Message)
Message = "NOTE: Parsing file " + Tables_File
self.Log_MessageP(Message=Message)
self.database[database] = {}
Table_Start = re.compile('^TABLENAME')
Table = {}
Table_Field = {}
Table_List = []
TableName = "junk"
Table['junk'] = []
Table_Field['junk'] = {}
Read = open(Tables_File)
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Remove_Comma = re.compile(',')
Read.close()
for line in List:
line = Remove_Comma.sub(" ", line)
Temp = string.split(line, " ", 1)
if len(Temp) < 2: Temp = 1
elif Table_Start.search(line):
TableName = Temp[1]
Table[TableName] = []
Table_Field[TableName] = {}
Table_List.append(TableName)
# print database + ": processed table " + TableName
else:
Table[TableName].append(line)
Table_Field[TableName][Temp[0]] = Temp[1];
Temp_File = self.home + "/Projects/" + database + "/Config.txt"
Database_Config = {}
if not os.path.isfile(Temp_File):
print "Error, no global config file for database " + database
print "Aborting."
sys.exit()
else:
Database_Config = self.Parse_Config(Temp_File)
Temp_Hash = {}
#### The raw lines for each table.
Temp_Hash['table'] = Table
### The fieldnames for each table.
Temp_Hash['table_field'] = Table_Field
### The order of the tables appearing in file.
Temp_Hash['table_list'] = Table_List
### Configuration for database.
Temp_Hash['database_config'] = Database_Config
self.database[database] = Temp_Hash
Message = "NOTE: Checking for default functions, sequences, tables."
self.Log_MessageP(Message)
### We need to check if the database exists, if we set the
### create database to no, then abort.
Sql = "select datname from pg_database"
Output = self.Query_Data_Psql(Sql=Sql, Database="template1")
Exists = "no"
for line in Output[1]:
if line == database: Exists = "yes"
if (Exists == "no") and (self.global_variables['CREATE_DATABASE'] != "yes"):
print "ERROR: Database " + database + " doesn't exist and we aren't allowed to create it by default."
sys.exit()
elif Exists == "no":
# print Temp, database, Exists
Sql = "create database " + database
self.Query_Data_Psql(Sql=Sql, Database="template1")
### Now check if the default tables and sequences are installed.
Sql = "select typname from pg_type where typname like '%sequence%';"
for Sequence in self.default_sequence:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Sequence: Exists = "yes"
if Exists == "no":
Sql = "create sequence " + Sequence
self.Query_Data_Psql(Sql=Sql, Database=database)
elif (self.global_variables.has_key('DEFAULT_SEQUENCE_REDO')) and (self.global_variables['DEFAULT_SEQUENCE_REDO'] == "yes"):
Sql = "drop sequence " + Sequence + ";"
self.Query_Data_Psql(Sql=Sql, Database=database)
Sql = "select tablename from pg_tables;"
for Table in self.default_table:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Table: Exists = "yes"
if Exists == "no":
Sql2 = "\\i " + self.home + "/" + self.global_variables['TEMPLATE'] + "/Tables_Default.txt"
self.Query_Data_Psql(Sql=Sql2, Database=database)
elif (self.global_variables.has_key('DEFAULT_TABLE_REDO')) and (self.global_variables['DEFAULT_TABLE_REDO'] == "yes"):
Sql2 = "drop table " + Table + ";"
self.Query_Data_Psql(Sql=Sql2, Database=database)
Sql2 = "\\i " + self.global_variables['TEMPLATE'] + "/Tables_Default.txt"
self.Query_Data_Psql(Sql=Sql2, Database=database)
### Now check if the default sql functions are installed.
Sql = "select proname from pg_proc;"
for Function in self.default_function:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Function: Exists = "yes"
if Exists == "no":
# print "TEST1"
Sql2 = "\\i " + self.global_variables['TEMPLATE'] + "/Functions/Default.pgsql;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
elif (self.global_variables.has_key('DEFAULT_PLPGSQL_REDO')) and (self.global_variables['DEFAULT_PLPGSQL_REDO'] == "yes"):
Sql2 = "delete from pg_proc where proname = '" + Function + "';"
self.Query_Data_Psql(Sql=Sql2, Database=database)
Sql2 = "\\i " + self.global_variables['TEMPLATE'] + "/Functions/Default.pgsql;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
return self.database[database]
#------------------------------------------------------------------
# These two simulate grep and replace
# It always returns a list.
def grep_search(self, List=[], Search=re.compile('')):
List2 = []
for line in List:
if Search.search(line): List2.append(line)
return List2
def grep_replace_text(self, List=[], Search="", Replace=''):
List2 = []
for line in List:
line = string.replace(line, Search, Replace)
List2.append(line)
return List2
def grep_replace(self, List=[], Search=re.compile(''), Replace=''):
List2 = []
for line in List:
line = Search.sub(Replace, line)
List2.append(line)
return List2
def grep_replace_text_list(self, List=[], Search_List={}):
List2 = []
for line in List:
Keys = Search_List.keys()
## Always do the larger words first.
Keys.sort(self.sort_length)
Keys.reverse()
for Key in Keys:
Replace = Search_List[Key]
line = string.replace(line, Key, Replace)
List2.append(line)
return List2
def sort_length(self,n,m):
if len(n) > len(m): return 1
else: return -1
def split_pound(self, List=[]):
List2 = []
Check_Pound = re.compile('#')
for line in List:
if Check_Pound.search(line):
Temp = string.split(line, '#')
line = Temp[0]
List2.append(line)
return List2
#------------------------------------------------------------
# Rememebr to use this function with readlines for all above functions.
def Filter_Data_Input(self, List=[]):
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
List2 = []
for line in List:
line = Replace_Whitespace.sub(" ",line)
line = Remove_Start.sub("",line)
line = Remove_End.sub("",line)
if Check_Pound.search(line) :
Temp = string.split(line, '#')
line = Temp[0]
if Check_AlphaNumeric.search(line):
List2.append(line)
return List2
#----------------------------------------------------------------
def Database_Check(self, Database="sample"):
Dir = self.home + "/Projects/" + Database
Dirs = ['Output/Tables','Backups','Custom/Sql', 'Table_Config']
for L in self.web_languages:
C = string.capitalize(L)
Dirs.append('Output/' + C + '/HTML')
Dirs.append('Custom/' + C + '/Modules')
Dirs.append('Output/' + C + '/temp_templates')
Dirs.append('Output/' + C + '/ADMIN')
for Dir_Name in Dirs:
# print Dir_Name
if not os.path.isdir(Dir + "/" + Dir_Name):
Output = commands.getoutput("mkdir -p " + Dir + "/" + Dir_Name)
#---------------------------------------------------
def Process_Config(self, Database='sample', TableName='sample'):
Message = "NOTE: Determinig config for :" + Database + ":" + TableName
self.Log_MessageP(Message=Message)
Options = {}
Temp = self.global_variables.keys()
Temp.sort()
for Key in Temp:
Options[Key] = self.global_variables[Key]
# print Key, Options[Key]
# sys.exit()
## Abort if the database options are not stored.
Database_Options = {}
try: Database_Options = self.database[Database]['database_config']
except:
print "Error, database options not stored in object."
print "Looking for database options for " + Database
print "Aborting."
sys.exit()
for Key in Database_Options.keys():
Options[Key] = Database_Options[Key]
# print Key, Options[Key]
# sys.exit()
## Load the table options. We don't need the table options
## anwyhere else but here. Not required.
TC = self.home + "/Projects/" + Database + "/Table_Config/" + TableName + "_config.txt"
if os.path.isfile(TC):
Message = "NOTE: Parsing table config file " + TC
self.Log_MessageP(Message=Message)
Table_Options = self.Parse_Config(TC)
for Key in Table_Options.keys(): Options[Key] = Table_Options[Key]
else:
Message = "POTENTIAL: Unable to find table options file (not critical) for " + TC
self.Log_MessageP(Message=Message)
for Language in self.web_languages:
C = string.capitalize(Language)
Key = string.upper('DESTINATION_MODULES_' + Language)
Options[Key] = Options['DESTINATION_MODULES_ROOT'] + "/" + Language + "/" + string.upper(Database)
if not os.path.isdir(Options[Key]):
print "mkdir -p " + Options[Key]
Output = commands.getoutput("mkdir -p " + Options[Key])
# print Options[Key]
if Options.has_key('TEMPLATE'):
Options['TEMPLATE'] = self.home + "/" + Options['TEMPLATE']
else: Options['TEMPLATE'] = self.home + "/Templates"
Options['TABLENAME'] = TableName
self.table_config[TableName] = Options
# if not self.table_variables.has_key(TableName):
# self.table_variables[TableName] = {}
# for Key in Options.keys():
# self.table_variables[TableName][Key] = Options[Key]
# Temp = Options.keys()
# Temp.sort()
# for Key in Temp: print Key, Options[Key]
# sys.exit()
return Options
#----------------------------------------------------------------------
def Table_Sql(self, Database='sample', TableName='sample', Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
Home = self.home + "/Projects/" + Database
Check_Id = re.compile('_id$')
## Change this to be flexible on templates directory.
Read = open(self.home + "/Templates/Generic.fun")
SQL_Template = Read.readlines()
Read.close()
General_Functions = "perl"
if Config['PL_LANGUAGE'] != "": General_Functions = Config['PL_LANGUAGE']
Read = open(self.home + "/Templates/Functions/General." +General_Functions)
SQL_Custom_Template = Read.readlines()
Read.close()
if not self.database[Database].has_key('table_sql'):
self.database[Database]['table_sql'] = {}
self.database[Database]['table_sql'][TableName] = {}
Table_Fields = self.database[Database]['table_field'][TableName]
Table_Lines = self.database[Database]['table'][TableName]
# print Table_Lines
Ref = self.database[Database]['table_sql'][TableName]
Table = TableName + "_id int4 NOT NULL PRIMARY KEY DEFAULT nextval('" + TableName + """_sequence'),
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
"""
## I should allow null for the id instead of 0, but since the sequence
### starts at 1, I use 0 as null. I hate nulls.
Table_Backup = "backup_id int4 NOT NULL UNIQUE DEFAULT nextval('" + TableName + """_sequence_backup'),
""" + TableName + """_id int4 NOT NULL DEFAULT 0,
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
error_code text NOT NULL DEFAULT '',
"""
Message = "NOTE: Creating functions for table '" + TableName
self.Log_MessageP(Message=Message)
No = 1
### For each line for this table do this.
### We want to create a few variables that are going to be placed into
### the template.
Fields = ""
Backup_Columns = ""
Update_Fields = ""
Backup_Values = ""
Field_Copy_Values = ""
Field_Types = ""
RemakeVariables = ""
CleanVariables = ""
Sql_Commands = {}
## Foreach line in the table definition
for Line in Table_Lines:
Temp1 = string.split(Line, " ", 2)
if len(Temp1) < 2: Temp1.append('')
if len(Temp1) < 2: Temp1.append('')
Name = Temp1[0]
Type = Temp1[1]
Ext = Temp1[2]
### Detect if name ends in "_id", and if so, add forieng keys constraint.
Additional = ""
if Check_Id.search(Name):
Temp2 = string.split(Name, "_id")
TableName2 = Temp2[0]
### ON DELETE NO ACTION and FORIEGN KEY (Name) are not needed,
### but I want to be explicit what I am doing.
Additional = """ REFERENCES """ + TableName2 + """
ON DELETE NO ACTION
ON UPDATE CASCADE """
Table = Table + Line + " " + Additional + ",\n"
# print "TEST " + Table
Table_Backup = Table_Backup + Line + ",\n"
### Make an array of the fields.
Fields = Fields + "'" + Name + "',";
### The backup columns
Backup_Columns = Backup_Columns + ", " + Name
### The update fields
No = No + 1
Update_Fields = Update_Fields + ", " + Name + " = var_" + str(No)
### Backup values
Backup_Values = Backup_Values + ", record_backup." + Name
### Now the fields when we copy stuff in the copy function.
### Is this going to interfere with binary data?
if General_Functions == "blank":
Field_Copy_Values = ", record2." + Name
else:
Field_Copy_Values = Field_Copy_Values + ", clean_text(record2." + Name + ")";
### Now the field types for the update function.
Field_Types = Field_Types + ", " + Type
### We need to define the variables for the updating function.
CleanVariables = CleanVariables + " var_" + str(No) + " " + Type + ";\n"
### We need to define the type, I only check for text and int4 for now.
Temp = '$' + str(No)
if General_Functions == "blank": Junk = 1
elif Type == "int4" : Temp = "clean_numeric(" + Temp + ")"
elif Type == "text" : Temp = "clean_text(" + Temp + ")"
elif Type == "numeric" : Temp = "clean_text(" + Temp + ")"
elif Type == "timestamp": Temp = "clean_text(" + Temp + ")"
elif string.find(Type,"int") == 0 : Temp = "clean_numeric(" + Temp + ")"
elif string.find(Type,"char") == 0: Temp = "clean_text(" + Temp + ")"
elif string.find(Type,"varchar") == 0: Temp = "clean_text(" + Temp + ")"
### Now we need to set the variables.
RemakeVariables = RemakeVariables + " var_" + str(No) + " := " + Temp + ";\n";
### We also need to add the function to clean out the variables before
### they are submitted.
### Chop off the last comma for $Fields;
Fields = Fields[0:-1]
### Record how many rows we had. Make a line for the update command for
### testing.
Number_Of_Rows = No
Update_Test = "1"
### Why is it numberofrows - 1?
for i in range (Number_Of_Rows - 1) : Update_Test = Update_Test +","+str(i)
### We need to chop off the last comma.
Table = string.rstrip(Table)
Table = Table[0:-1]
Table_Backup = string.rstrip(Table_Backup)
Table_Backup = Table_Backup[0:-1]
### Now let us setup dropping and creating of the table and backup table.
Tables = "drop table " + TableName + ";\ncreate table " + TableName + " (\n" + Table + " );\n"
Tables_Backup = "drop table " + TableName + "_backup; \n create table " + TableName + "_backup (\n" + Table_Backup + ");\n"
### Let us create a view for active stuff in our table.
### Let us always recreate the views.
View_Active = "drop view " + TableName + "_active;\n"
View_Active = View_Active + "create view " + TableName + "_active as select * from " + TableName + "\n where active = 1;\n"
### Create a view for inactive or deleted items.
View_Deleted = "drop view " + TableName + "_deleted;\n"
View_Deleted = View_Deleted + "create view " + TableName + "_deleted as select * from " + TableName + "\n where active = 0;\n"
### Create a view for a list of unique backup ids.
View_BIds = "drop view " + TableName + "_backup_ids;\n"
View_BIds = View_BIds + "create view " + TableName + "_backup_ids as select distinct " + TableName + "_id from " + TableName + "_backup;\n"
### Create a list of purged data (lastest data per id).
View_Purged = "drop view " + TableName + "_purged;\n"
View_Purged = View_Purged + """create view """ + TableName + """_purged as
select * from """ + TableName + """_backup where oid = ANY (
select max(oid) from """ + TableName + """_backup where """ + TableName + """_id = ANY
(
select distinct """ + TableName + """_id from """+TableName + """_backup
where """ + TableName + """_backup.error_code = 'purge'
and NOT """ + TableName + """_id = ANY (select """ + TableName + """_id from """ + TableName + """)
)
group by """ + TableName + """_id
)
;
"""
### I use grep commands to search and replace stuff for arrays.
### I could use map, but I like greps.
SQL_F = []
for line in SQL_Template: SQL_F.append(line)
### TODO In the future, determine if we need all, database, or table custom.
SQL_C = []
for line in SQL_Custom_Template: SQL_C.append(line)
## Now, if there is a custom made file for this table, add it.
if os.path.isfile(Home + "/Custom/Sql/" + TableName + ".sql"):
Read = open(Home + "/Custom/Sql/" + TableName + ".sql",'r')
Lines = Read.readlines()
for line in Lines: SQL_C.append(line)
SQL_F = self.grep_replace_text(SQL_F, "TABLENAME", TableName)
SQL_F = self.grep_replace_text(SQL_F, "BACKUPCOLUMNS", Backup_Columns)
SQL_F = self.grep_replace_text(SQL_F, "BACKUPVALUES", Backup_Values)
SQL_F = self.grep_replace_text(SQL_F, "UPDATEFIELDS", Update_Fields)
SQL_F = self.grep_replace_text(SQL_F, "COPYFIELDS", Field_Copy_Values)
SQL_F = self.grep_replace_text(SQL_F, "FIELDS", Field_Types)
SQL_F = self.grep_replace_text(SQL_F, "__HOME__", Home)
SQL_F = self.grep_replace_text(SQL_F, "CLEANVARIABLES", CleanVariables)
SQL_F = self.grep_replace_text(SQL_F, "REMAKEVARIABLES", RemakeVariables)
### Now move the stuff from the array @Temp to @Template_Copy.
Template_Copy = []
for line in Temp: Template_Copy.append(line)
### Now we save the file. We won't delete it (unless you run this script
### again) so that we can figure out what was done.
### Print out the table and backup table.
Sequence = "drop sequence " + TableName + "_sequence;\n"
Sequence = Sequence + "create sequence " + TableName + "_sequence;\n"
Sequence_B = "drop sequence " + TableName + "_sequence_backup;\n"
Sequence_B = Sequence_B + "create sequence " + TableName + "_sequence_backup;\n"
### Print out the 4 functions, insert, delete, update, and copy.
Insert = """
insert into """ + TableName + """ (""" + TableName + """_id, date_updated, date_created, active)
values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
insert into """ + TableName + """_backup (backup_id, """ + TableName + """\_id,
date_updated, date_created, active, error_code)
values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
"""
Variables = {}
Valid_Tables = ""
for TableTemp in self.database[Database]['table_list']:
Valid_Tables = Valid_Tables + " '" + TableTemp + "',"
Valid_Tables = Valid_Tables[0:-1]
Variables['VALIDTABLES'] = Valid_Tables
Variables['TABLENAME'] = TableName
Variables['BACKUPCOLUMNS'] = Backup_Columns
Variables['UPDATEFIELDS'] = Update_Fields
Variables['BACKUPVALUES'] = Backup_Values
Variables['COPYFIELDS'] = Field_Copy_Values
Variables['CLEANVARIABLES'] = CleanVariables
Variables['REMAKEVARIABLES'] = RemakeVariables
Variables['FIELDS'] = Field_Types
Variables['__HOME__'] = self.home + "/Projects/" + Database
Variables['LISTCOLUMNS'] = Fields
Variables['PACKAGE'] = string.upper(Database)
Variables['DATABASE'] = Database
Sql_Commands['Table'] = Table
Sql_Commands['Table_Backup'] = Table_Backup
Sql_Commands['Fields'] = Fields
Sql_Commands['Backup_Columns'] = Backup_Columns
Sql_Commands['No'] = str(No)
Sql_Commands['Update_Fields'] = Update_Fields
Sql_Commands['Backup_Values'] = Backup_Values
Sql_Commands['General_Functions'] = General_Functions
Sql_Commands['Field_Copy_Values'] = Field_Copy_Values
Sql_Commands['CleanVariables'] = CleanVariables
Sql_Commands['RemakeVariables'] = RemakeVariables
Sql_Commands['Field_Types'] = Field_Types
# Sql_Commands[''] =
# Sql_Commands[''] =
Sql_Commands['Tables'] = Tables
Sql_Commands['Tables_Backup'] = Tables_Backup
Sql_Commands['View_Active'] = View_Active
Sql_Commands['View_Deleted'] = View_Deleted
Sql_Commands['View_BIds'] = View_BIds
Sql_Commands['View_Purged'] = View_Purged
Sql_Commands['SQL_Functions'] = SQL_F
Sql_Commands['Sql_Custom'] = SQL_C
Sql_Commands['Sequence'] = Sequence
Sql_Commands['Sequence_Backup'] = Sequence_B
Sql_Commands['Insert'] = Insert
self.table_sql_commands[TableName] = Sql_Commands
self.table_variables[TableName] = Variables
### If the key in table_config is a string, then use it.
for Key in self.table_config[TableName].keys():
if type(self.table_config[TableName][Key]) == types.StringType:
self.table_variables[TableName][Key] =self.table_config[TableName][Key]
return Sql_Commands
#---------------------------------------------------------
def Query_Data_Psql(self, Sql="select 1", Config={}, Database=""):
if len(Config) < 1: Config = self.global_variables
if Database == "": Database = Config['DATABASE']
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
FileName = self.home + "/Temp/sql1.txt"
No = 1
while os.path.isfile(FileName):
No = No + 1
FileName = self.home + "/Temp/sql" + str(No) + ".txt"
Check_Error = re.compile('^psql:' + FileName)
Message = "NOTE: Saving sql commands executed at " + FileName
self.Log_MessageP(Message=Message)
Default_Sql = """\pset format unaligned
\pset fieldsep '\t'
"""
Write = open(FileName,"a")
Write.write(Default_Sql)
Write.write(Sql)
Write.close()
# for Key in Config.keys(): print Key, Config[Key]
Port = Config['PORT']
Command = "psql -qt -p '" + str(Port) + "' -d '" + Database + "' -f " + FileName
# print Command
Output = commands.getstatusoutput(Command)
if Output[0] > 0:
print "ERROR: " + str(Output[0]) + " " + str(Output[1])
print "ERROR: Output of the following command had errors."
print Command
sys.exit()
elif not Check_AlphaNumeric.search(Output[1]): return Output
elif Check_Error.search(Output[1]):
print "ERROR: " + str(Output[0]) + " " + str(Output[1])
print "ERROR: Output of the following command had errors."
print Command
sys.exit()
### Split out the strings.
### None of our data should contain newlines, so it should be okay.
### We should only use this to get info of our system, not
### data of the tables we make.
Temp = string.split(Output[1], "\n")
return [Output[0], Temp]
#------------------------------------------------------------------------
def Process_Sql_Commands(self, Database="", TableName="", Sql_Commands={}, Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if len(Sql_Commands) < 1:
if self.table_sql_commands.has_key(TableName):
Sql_Commands = self.table_sql_commands[TableName]
if (Database == "") or (TableName == "" ) or (len(Sql_Commands) < 1) or (len(Config) < 1):
print "ERROR: not given all requirements to process sql commands for " + Database + " " + TableName
sys.exit()
Dir = self.home + "/Projects/" + Database + "/Output/Tables"
Executed = Dir + "/" + TableName + "_executed.sql"
Executed_Not = Dir + "/" + TableName + "_executed_not.sql"
Tables_Altered = "no"
Sql = "select tablename from pg_tables"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Table_Exists = "no"
for line in Output[1]:
if line == TableName: Table_Exists = "yes"
Sql = "select typname from pg_type where typname like '%sequence%';"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Sequence_Exists = "no"
for line in Output[1]:
if line == TableName + "_sequence": Sequence_Exists = "yes"
Sql = "select viewname from pg_views where viewname like '" + TableName + "%'"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Views_Exists = "no"
Temp_No = 0
for line in Output[1]:
if line == TableName + "_active": Temp_No = Temp_No + 1
if line == TableName + "_deleted": Temp_No = Temp_No + 1
if line == TableName + "_backup_ids": Temp_No = Temp_No + 1
if line == TableName + "_purged": Temp_No = Temp_No + 1
## We have 4 views so far, check if this number changes.
if Temp_No == 4 : Views_Exists = "yes"
### Now let us start saving data.
Message = "NOTE: Starting to save sql commands for " + TableName
self.Log_MessageP(Message=Message)
E = open(Executed, 'w')
EN = open(Executed_Not, 'w')
DoIt = "no"
if (Config['CREATE_SEQUENCE'] == "yes") and (Sequence_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_SEQUENCE']=="yes") and (Sequence_Exists=="yes"):
DoIt="yes"
else:
EN.write("\n" + Sql_Commands['Sequence'])
EN.write("\n" + Sql_Commands['Sequence_Backup'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Sequence'])
E.write("\n" + Sql_Commands['Sequence_Backup'])
### TODO Add the ability to check if the fieldnames are the same, and if
### they are, do nothing, if different, make changes for extra
### fields, but abort if a fieldname has changed.
DoIt = "no"
if (Config['CREATE_TABLE'] == "yes") and (Table_Exists == "no"): DoIt="yes"
elif (Config['RECREATE_TABLE']=="yes") and (Table_Exists=="yes"):DoIt="yes"
else: EN.write("\n" + Sql_Commands['Tables'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Tables'])
Tables_Altered = "yes"
DoIt = "no"
if (Config['CREATE_BACKUP_TABLE'] == "yes") and (Table_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE']=="yes") and (Table_Exists=="yes"):
DoIt="yes"
elif Tables_Altered == "yes":
DoIt = "yes"
else: EN.write("\n" + Sql_Commands['Tables_Backup'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Tables_Backup'])
Tables_Altered = "yes"
DoIt = "no"
if Config['VIEWS_REDO'] == "yes": DoIt="yes"
elif Tables_Altered == "yes": DoIt = "yes"
else:
EN.write("\n" + Sql_Commands['View_Active'])
EN.write("\n" + Sql_Commands['View_Deleted'])
EN.write("\n" + Sql_Commands['View_BIds'])
EN.write("\n" + Sql_Commands['View_Purged'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['View_Active'])
E.write("\n" + Sql_Commands['View_Deleted'])
E.write("\n" + Sql_Commands['View_BIds'])
E.write("\n" + Sql_Commands['View_Purged'])
DoIt = "no"
if (Tables_Altered == "yes") and (Config["FUNCTIONS"] == "yes"):
DoIt = "yes"
elif Config["FUNCTIONS_REDO"] == "yes":
DoIt = "yes"
if DoIt == "yes":
for l in Sql_Commands['SQL_Functions']: E.write(l)
for l in Sql_Commands['Sql_Custom']: E.write(l)
else:
for l in Sql_Commands['SQL_Functions']: EN.write(l)
for l in Sql_Commands['Sql_Custom']: EN.write(l)
DoIt = "no"
if Table_Exists == "no": DoIt="yes"
else: EN.write("\n" + Sql_Commands['Insert'])
if DoIt == "yes": E.write("\n" + Sql_Commands['Insert'])
E.close()
EN.close()
self.table_executed[TableName] = Executed
self.table_executed_not[TableName] = Executed_Not
return [Executed, Executed_Not]
#------------------------------------------------------------------------
def Execute_Sql_Commands(self, Database="", TableName="", Sql_Commands={}, Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if len(Sql_Commands) < 1:
if self.table_sql_commands.has_key(TableName):
Sql_Commands = self.table_sql_commands[TableName]
else:
print "ERROR: No sql commands to execute for " + TableName
sys.exit()
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to execute sql commands for " + Database + " " + TableName
sys.exit()
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Port = Config['PORT']
Check_Error = re.compile('^psql:' + self.table_executed[TableName])
B_Dir = self.home + "/Projects/" + Database + "/Backups"
B_File = B_Dir + "/" + TableName + "_0.backup"
TempNo = 0;
while os.path.isfile(B_File):
TempNo = TempNo + 1
B_File = B_Dir + "/" + TableName + "_" + str(TempNo) + ".backup"
### Now we have the filename to store the backup, execute it.
Command = "pg_dump -t " + TableName + " -f " + B_File + " " + Database
if (Config.has_key('DELETE_BACKUPS')) and (Config['DELETE_BACKUPS'] == "yes"):
Message = "NOTE: Deleting backup files for " + TableName
self.Log_MessageP(Message=Message)
Output = commands.getstatusoutput("rm -f " + B_Dir + "/*")
Message = "NOTE: Backing up data in " + TableName + " to " + B_File
self.Log_MessageP(Message=Message)
Output = commands.getstatusoutput(Command)
Message = "NOTE: executing sql commands at " + self.table_executed[TableName]
self.Log_MessageP(Message=Message)
Command = "psql -qt -p '" + str(Port) + "' -d '" + Database + "' -f " + self.table_executed[TableName]
# print Command
Output = commands.getstatusoutput(Command)
Temp = string.split(Output[1], "\n")
return [Output[0], Temp]
#-----------------------------------------------------------------------
def Create_Languages(self, Database="", TableName="", Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to create modules and sample web scripts for " + Database + " " + TableName
sys.exit()
Templates = self.home + "/Templates"
if Config.has_key('TEMPLATE') and Config['TEMPLATE'] != '':
Templates = Config['TEMPLATE']
# print "Test", Config['TEMPLATE']
self.table_module_test[TableName] = {}
### Setup the modules for each language.
Search_Header = re.compile('_header$')
for Language in self.web_languages:
self.table_module_test[TableName][Language] = ""
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
Dir = Templates + "/" + Language_C
if (Config.has_key("DO_" + Language_U)) and (Config["DO_" + Language_U] != "yes"): continue
elif not Config.has_key("DO_" + Language_U): continue
Files = os.listdir(Dir)
Base = self.grep_search(List=Files, Search=Search_Header)
Base = self.grep_replace(List=Base, Search=Search_Header, Replace="")
Base.sort()
# print "Files = " + Dir + " " + str(Base)
Modules_Destination = self.home + "/Projects/" + Database + "/Output/" + Language_C
Modules_Source = Config['TEMPLATE'] + "/" + Language_C
# for Key in Config.keys(): print Key, str(Config[Key])
# Temp = self.table_variables[TableName].keys()
# Temp.sort()
# for Key in Temp: print Key, self.table_variables[TableName][Key]
# sys.exit()
Message = "NOTE: Creating modules in " + Modules_Destination + " from " + Modules_Source
self.Log_MessageP(Message=Message)
for Module in Base:
Module_Destination = Modules_Destination + "/" + Module
Module_Source = Dir + "/" + Module + "_header"
Read = open(Module_Source, "r")
Lines = Read.readlines()
Read.close()
### The header of the module.
Write = open(Module_Destination, "w")
Lines = self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
### If there is a template, do one for a table.
Module_T = Modules_Source + "/" + Module + "_template"
# print Module_T
if os.path.isfile(Module_T):
Read = open(Module_T, "r")
Lines_T = Read.readlines()
Read.close()
### We write out the template for this table only.
List = []
for line in Lines_T: List.append(line)
List=self.grep_replace_text_list(List=List, Search_List=self.table_variables[TableName])
File_T = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/temp_templates/" + Module + "_" + TableName
Write_T = open(File_T, 'w')
for line in List: Write_T.write(line)
Write_T.close()
# print "TEST2 " + File_T
### Gather all templates made for all tables, if they exist.
for Table_Temp in self.database[Database]['table_list']:
Temp_T = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/temp_templates/" + Module + "_" + Table_Temp
# print Temp_T
if os.path.isfile(Temp_T):
Read2 = open(Temp_T, "r")
Lines_TT = Read2.readlines()
Read2.close()
for line in Lines_TT: Write.write(line)
#### footer for the template
Module_TF = Modules_Source + "/" + Module + "_template_footer"
if os.path.isfile(Module_TF):
Read = open(Module_TF, "r")
Lines = Read.readlines()
Read.close()
Lines=self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
### Now do the custom module addition.
Custom_Name = self.home + "/Projects/" + Database + "/Custom/" + Language_C + "/" + Module + "_custom"
if os.path.isfile(Custom_Name):
Read = open(Custom_Name, "r")
Lines_C = Read.readlines()
Read.close()
Lines_C=self.grep_replace_text_list(List=Lines_C, Search_List=self.table_variables[TableName])
for line in Lines_C: Write.write(line)
### Now do any footers for the module.
Module_F = Modules_Source + "/" + Module + "_footer"
if os.path.isfile(Module_F):
Read = open(Module_F, "r")
Lines = Read.readlines()
Read.close()
Lines=self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
if (Language == "perl") or (Language == "python"):
Write.write("\n1;\n")
Write.close()
### Now do custom-made modules.
Dir2 = self.home + "/Projects/" + Database + "/Custom/" + Language_C + "/Modules"
Files2 = os.listdir(Dir2)
Base2 = self.grep_search(List=Files2, Search=Search_Header)
Base2 = self.grep_replace(List=Base2, Search=Search_Header, Replace="")
Base2.sort()
for Module in Base2:
Module_Destination = Modules_Destination + "/" + Module
Module_Source = Dir2 + "/" + Module + "_header"
Read = open(Module_Source, "r")
Lines = Read.readlines()
Read.close()
Write = open(Module_Destination, "w")
Lines = self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
Write.write("\n1;\n")
Write.close()
### Setup the test language script.
Test_File = Modules_Destination + "/Test." + Language
Write = open(Test_File, "w")
Temp_Line = Modules_Destination
Modules_All = []
for Module in Base: Modules_All.append(Module)
for Module in Base2: Modules_All.append(Module)
if Language == "perl":
Write.write('#!/usr/bin/' + Language + "\n\n")
Write.write("use lib qw(" + Modules_Destination + ");\n\n")
elif Language == "python":
Write.write('#!/usr/bin/' + Language + "\n\n")
Write.write("import sys\n")
Write.write("sys.path.append('" + Test_Dir + "')\n")
elif Language == "php":
Write.write("\n")
Write.close()
### Test the language script, Test_Dir.
Test_Dir = Modules_Destination + "/" + string.upper(Database)
Output = commands.getoutput("mkdir -p " + Test_Dir)
for Module in Modules_All:
Command = "cp " + Modules_Destination + "/" + Module + " " + Test_Dir
Output = commands.getoutput(Command)
Extra = ""
if Language == "php": Extra = " -q "
Output = commands.getoutput(Language + " " + Extra + Modules_Destination + "/Test." + Language)
if 0 > string.find(Output, 'GOOD'):
Message = "ERROR: Language modules for " + Language + " didn't compile with a 'GOOD' status for " + Database + ":" + TableName
self.Log_MessageP(Message=Message)
self.Log_MessageP(Message=Output)
print "Aborting"
print Output
print string.find(Output, 'GOOD')
sys.exit()
# print "TEST" + TableName, Language
self.table_module_test[TableName][Language] = Output
#### Setup the sample webpages, last thing to do.
for Language in self.web_languages:
Ext = self.extensions[Language]
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
Dir = Templates + "/" + Language_C
if (Config.has_key("DO_" + Language_U)) and (Config["DO_" + Language_U] != "yes"): continue
elif not Config.has_key("DO_" + Language_U): continue
Html_Destination = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/HTML"
Html_Source = Config['TEMPLATE'] + "/" + Language_C + "/HTML"
Message = "NOTE: Creating webpages in " + Html_Destination + " from " + Html_Source
self.Log_MessageP(Message=Message)
Read = open(Html_Source +"/Custom_Html1."+self.extensions[Language], 'r')
Lines = Read.readlines()
Read.close()
Read = open(Html_Source +"/Custom_Lists."+self.extensions[Language], 'r')
Template_List = Read.readlines()
Read.close()
### Open up Custom_Html1 and replace contents with our table
### variables plus the following we should have generated:
### HTML_FIELDS -- from our table
### OTHERIDS -- foriegn key ids and their values, decrypted (otherwise 0). This is the initial setup.
### SETIDSOTHER -- if id is > 0, set the values of the other ids.
### OTHER_LISTS -- the templates from each table from Custom_Lists. Custom_Lists gets the ids of the foriegn keys that are possible.
### HTML_FIELDS
Other_Variables = {}
### Figure out which keys have foriegn key constraints.
Check_Id_Tag = re.compile('_id$')
Ids = []
No_Ids = []
Table_Fields = self.database[Database]['table_field'][TableName]
Keys = Table_Fields.keys()
for Field in Keys:
# print "Field is ", Field
if Field == TableName + "_id": Junk = 1
elif Check_Id_Tag.search(Field): Ids.append(Field)
else: No_Ids.append(Field)
Ids.sort()
No_Ids.sort()
List_Fields = "'" + TableName + "_id'"
for Id in Ids: List_Fields = List_Fields + ",'" + Id + "'"
for Id in No_Ids: List_Fields = List_Fields + ",'" + Id + "'"
Other_Variables['LISTFIELDS'] = List_Fields
### Open of the file for DEFINEFIELDS
Read =open(Html_Source+"/DEFINEFIELDS_Id."+self.extensions[Language],'r')
Template_Line = Read.readline()
Read.close()
DefineFields = " #### GOOD: definefields replaced.\n"
Temp_Lines = ""
for Id in Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "FIELDNAME", Id)
DefineFields = DefineFields + Add_Line
# print Id
Read =open(Html_Source+"/DEFINEFIELDS_No."+self.extensions[Language],'r')
Template_Line = Read.readline()
Read.close()
Temp_Lines = ""
for Id in No_Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "FIELDNAME", Id)
DefineFields = DefineFields + Add_Line
# print Id
# print "My lines are " + DefineFields
Other_Variables['DEFINEFIELDS'] = DefineFields
# sys.exit()
### Open up the HTMLFIELDS file
Read = open(Html_Source + "/HTMLFIELDS."+self.extensions[Language], 'r')
Template_Lines = Read.readlines()
Read.close()
HtmlFields = ""
for Id in No_Ids:
for Line in Template_Lines:
Add_Line = string.replace(Line, "FIELDNAME", Id)
Add_Line = string.replace(Add_Line, "TABLENAME", TableName)
HtmlFields = HtmlFields + Add_Line
### Now process the ids from foriegn keys.
OtherIds = " ## GOOD: Get the ids of the foriegn tables.\n"
# Html_List = " #### GOOD: html_list replaced.\n"
Other_Lists = " #### GOOD: other_lists replaced.\n"
OtherIds_Set = " #### GOOD: otherids_set replaced.\n"
### Open of the file for OTHERIDS
Read =open(Html_Source+"/OTHERIDS."+self.extensions[Language],'r')
Template_Lines_1 = Read.readlines()
Read.close()
### Open of the file for OTHER_LISTS
Read =open(Html_Source+"/Custom_Lists."+self.extensions[Language],'r')
Template_Lines_2 = Read.readlines()
Read.close()
### Open of the file for
Read =open(Html_Source+"/SETIDSOTHER."+self.extensions[Language],'r')
Template_Lines_3 = Read.readlines()
Read.close()
### Open of the file for HTMLFIELDS_ID
Read =open(Html_Source+"/HTMLFIELDS_ID."+self.extensions[Language],'r')
Template_Lines_4 = Read.readlines()
Read.close()
Remove_Id_Tag = re.compile('_id$')
for Id in Ids:
Column_No_Id = Remove_Id_Tag.sub('', Id)
Temp = Column_No_Id
for Line in Template_Lines_1:
Add_Line = string.replace(Line, "FIELDNAME", Id)
Add_Line = string.replace(Add_Line, "TABLENAME", TableName)
OtherIds = OtherIds + Add_Line
for Line in Template_Lines_2:
Add_Line = string.replace(Line, "FIELDNAME", Id)
Add_Line = string.replace(Add_Line, "TABLENAME", Temp)
Other_Lists = Other_Lists + Add_Line
for Line in Template_Lines_3:
Add_Line = string.replace(Line, "FIELDNAME", Id)
Add_Line = string.replace(Add_Line, "TABLENAME", TableName)
OtherIds_Set = OtherIds_Set + Add_Line
for Line in Template_Lines_4:
Add_Line = string.replace(Line, "FIELDNAME_NOID", Column_No_Id)
Add_Line = string.replace(Line, "FIELDNAME", Id)
Add_Line = string.replace(Add_Line, "TABLENAME", TableName)
HtmlFields = HtmlFields + Add_Line
Other_Variables['OTHERIDS'] = OtherIds
Other_Variables['OTHER_LISTS'] = Other_Lists
Other_Variables['SETIDSOTHER'] = OtherIds_Set
Other_Variables['HTML_FIELDS'] = HtmlFields
### Now do the substitutions
Search_List = Other_Variables
Lines = self.grep_replace_text_list(List=Lines, Search_List=Search_List)
Search_List = self.table_variables[TableName]
Lines = self.grep_replace_text_list(List=Lines, Search_List=Search_List)
FileName = Html_Destination + "/" + TableName + "." + Ext
Write = open(FileName,"w")
for line in Lines: Write.write(line)
Write.close()
Message = "NOTE: Created file " + FileName
self.Log_MessageP(Message)
#### Setup the admin webpages. It will store a command to execute
#### in a file, and if it is a psql file, it will point to a data
#### file. Each command executed will have it own driectory, start
#### and stop files. Give X number of minutes option to delay
#### execute so that they can look at the commands that will be
#### executed.
#### This admin webpages don't exist yet. It will be the last thing
#### to do after the normal web scripts are installed.
#-----------------------------------------------------------------------
def Install_Languages(self, Database="", TableName="", Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to install modules and sample web scripts for " + Database + " " + TableName
sys.exit()
# Temp = Config.keys()
# Temp.sort()
# for Key in Temp: print Key, Config[Key]
### Install the webpages for each language.
if not Config.has_key('DESTINATION_HTML'):
Message = "POTENTIAL: DESTINATION_HTML not defined. This could be bad."
self.Log_MessageP(Message)
else:
Dir = Config['DESTINATION_HTML']
if not os.path.isdir(Dir):
Output = commands.getoutput("mkdir -p " + Dir)
Message = "NOTE: installing web scripts for languages at " + Dir
self.Log_MessageP(Message)
### Copy over the .htaccess and password file.
T_Dir = self.home + "/Templates"
H_Dir = Config["DESTINATION_HTML"]
Read = open(T_Dir+"/htaccess", 'r')
Write = open(H_Dir + "/.htaccess", "w")
Temp_Lines = Read.readlines()
for Line in Temp_Lines:
Line = string.replace(Line, "DIR", H_Dir)
Write.write(Line)
Read.close()
Write.close()
### We should add the ability to use custom made password files
### or to change the username:passwords in there.
Password_File = self.home + "/Templates/Password"
Custom_P_File = self.home + "/Projects/" + Database + "/Output/Password"
if os.path.isfile(Custom_P_File) and Config.has_key('IGNORE_IF_CUSTOM_EXISTS') and (Config['IGNORE_IF_CUSTOM_EXISTS'] == "yes"): Junk = 1
elif Config.has_key('ASK_HTACCESS_PASSWORD') and (Config['ASK_HTACCESS_PASSWORD'] == "yes"):
Remove_Whitespace = re.compile('\s')
if Config.has_key('IGNORE_IF_CUSTOM_EXISTS') and (Config['IGNORE_IF_CUSTOM_EXISTS'] == "yes"):
Message = "\nThis database is only setup to ask this question once."
Message = Message + "\nThis feature can be changed at line command or with the config files."
print Message
Message = "Please enter a username and password to protect the web scripts."
print Message
print "username: ",
Input1 = sys.stdin.readline()
Input1 = Remove_Whitespace.sub('', Input1)
print "password: ",
Input2 = sys.stdin.readline()
Input2 = Remove_Whitespace.sub('', Input2)
Command = "htpasswd -b -c " + Custom_P_File + " " +Input1+ " "+ Input2
print Command
Output = commands.getoutput(Command)
if os.path.isfile(Custom_P_File): Password_File = Custom_P_File
Source_Dir = self.home + "/Projects/" + Database + "/Output/"
Command = "rsync -av "+ Password_File + " " + H_Dir + "/"
Output = commands.getoutput(Command)
Message = "NOTE: Copied " + Password_File + " to " + H_Dir + "/"
self.Log_MessageP(Message)
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing web scripts for language "+Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_HTML_" + Language_U)) and (Config["DESTINATION_HTML_" + Language_U] == ""):
Message = "NOTE: not installing web scripts for language "+Language_U
self.Log_MessageP(Message)
continue
else:
Config["DESTINATION_HTML_" + Language_U] = Config['DESTINATION_HTML'] + "/" + Language
Message ="POTENTIAL: No definition for DESTINATION_HTML_" +Language_U + ", so we are just attaching it to DESTINATION_HTML."
self.Log_MessageP(Message)
Message = "NOTE: (disabled) Installing web script for language " + Language
self.Log_MessageP(Message)
Dir = Config["DESTINATION_HTML_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing html scripts for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/HTML"
Search_Ext = re.compile(self.extensions[Language] + '$')
Files = os.listdir(Source_Dir)
Write = open(Source_Dir + "/index.html", "w")
Files.sort()
for File in Files:
if Search_Ext.search(File):
Write.write("" + File + " \n")
Write.close()
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
Output = commands.getoutput("chmod 755 "+ Dir + "/*")
self.Log_Message(Output)
# print Source_Dir, Dir
### Install the admin scripts for each language.
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if not Config.has_key("DESTINATION_ADMIN"):
Message = "POTENTIAL: DESTINATION_ADMIN is not defined, skipping installing admin web scripts."
self.Log_MessageP(Message)
continue
elif (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing admin scripts for language "+Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_ADMIN_" + Language_U)) and (Config["DESTINATION_ADMIN_" + Language_U] == ""):
Message = "NOTE: not installing admin scripts for language "+Language_U
self.Log_MessageP(Message)
continue
else:
Config["DESTINATION_ADMIN_" + Language_U] = Config['DESTINATION_ADMIN'] + "/" + Language
Message = "POTENTIAL: DESTINATION_ADMIN_" +Language_U + " not defined, we are attaching it to DESTINATION_ADMIN."
self.Log_MessageP(Message)
Dir = Config["DESTINATION_ADMIN_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing admin scripts for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/ADMIN/"
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
# print Source_Dir, Dir
Output = commands.getoutput("chmod 755 "+ Dir + "/*")
self.Log_Message(Output)
### Install the modules for each language.
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if not Config.has_key("DESTINATION_MODULES_ROOT"):
Message = "ERROR: DESTINATION_MODULES_ROOT is not defined, aborting installing modules and this program. This is a critical config error."
self.Log_MessageP(Message)
sys.exit()
elif (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing modules for language " +Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_MODULES_" + Language_U)) and (Config["DESTINATION_MODULES_" + Language_U] == ""):
Message = "NOTE: not installing modules for language " +Language_U
self.Log_MessageP(Message)
continue
elif not Config.has_key("DESTINATION_MODULES_" + Language_U):
Message = "ERROR: DESTINATION_MODULES_ " +Language_U + " not defined."
self.Log_MessageP(Message)
sys.exit()
Dir = Config["DESTINATION_MODULES_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing modules for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/" + string.upper(Database)
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
# print Source_Dir, Dir
beta/lib/Python/GUPPS_Setup.py 0100664 0000764 0000764 00000205332 07702150366 015144 0 ustar mark mark #!/usr/bin/env python2
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
### Constants is the module we make.
import string, re, binascii, base64, os, sys
import base64, string, gzip, sys, time, commands
import getopt, types
class GUPPS_Setup:
def __init__(self):
self.home = os.environ['GUPPS_HOME']
self.global_config_file = self.home + "/Local/Global.config"
self.global_options_file = self.home + "/lib/Options.config"
self.global_options_long_file = self.home + "/lib/Options_Long.config"
self.global_options_default_file = self.home + "/lib/Options.default"
self.start_date = time.strftime("%Y%m%d")
self.start_time = time.strftime("%H%M%S")
self.log = self.home +"/Logs/"+ self.start_date + self.start_time + ".log";
self.web_languages = ['perl', 'php', 'python', 'java']
self.global_options = {}
self.global_variables = {}
self.optlist = []
self.args = []
self.database = {}
self.table_config = {}
self.table_sql_commands = {}
self.table_executed = {}
self.table_executed_not = {}
self.table_variables = {}
self.table_module_test = {}
self.default_table = ['update_tablefield']
self.default_sequence = ['update_tablefield_sequence']
self.default_function = ['update_tablefield','restore_tablefields']
self.extensions = {}
self.extensions['perl'] = "pl"
self.extensions['php'] = "php"
self.extensions['python'] = "py"
self.extensions['java'] = "jsp"
self.psql_version = ""
#------------------------------------------------------------------
def Global(self):
Temp_Global = {}
if not os.path.isfile(self.global_config_file):
print "Error, global config file not found."
print "Looking for " + self.global_config_file
print "Aborting."
sys.exit()
elif not os.path.isfile(self.global_options_default_file):
print "Error, global options default file not found."
print "Looking for " + self.global_options_default_file
print "Aborting."
sys.exit()
else:
Temp_Global = self.Parse_Config(File=self.global_config_file)
Temp_Global['DESTINATION_MODULES_ROOT'] = Temp_Global['SERVER_ROOT'] + "/lib"
if not os.path.isdir(Temp_Global['DESTINATION_MODULES_ROOT']):
Output = commands.getoutput("mkdir -p " + Temp_Global['DESTINATION_MODULES_ROOT'])
if os.path.isfile(self.global_options_default_file):
Temp_Global2 = self.Parse_Config(File=self.global_options_default_file)
for Key in Temp_Global2.keys():
if not Temp_Global.has_key(Key):
Temp_Global[Key] = Temp_Global2[Key]
self.global_variables = Temp_Global
return (Temp_Global)
#-----------------------------------------------------------------
def Parse_Config(self, File = ""):
Temp_Hash = {}
if File == "": return Temp_Hash
elif not os.path.isfile(File): return Temp_Hash
Message = "NOTE: Parsing file " + File
self.Log_MessageP(Message)
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Read = open(File, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
Temp = string.split(line, " ", 1)
if (len(Temp) > 1) and (Temp[0] != "") and (Temp[1] != ""):
Temp_Hash[Temp[0]] = Temp[1]
# print line, Temp
return Temp_Hash
#---------------------------------------------------------
def Log_Message(self, Message=""):
log= ""
if Message == "": return ""
else:
log = open(self.log,'a')
log.write(str(Message) + "\n")
log.close()
def Log_MessageP(self, Message=""):
log= ""
if Message == "": return ""
else:
log = open(self.log,'a')
log.write(str(Message) + "\n")
log.close()
print Message
#---------------------------------------------------------
def Parse_Opts(self):
Args = sys.argv[1:]
Options = {}
if not os.path.isfile(self.global_options_file):
print "Error, global options file not found."
print "Looking for " + self.global_options_file
print "Aborting."
sys.exit()
elif not os.path.isfile(self.global_options_long_file):
print "Error, global options long file not found."
print "Looking for " + self.global_options_long_file
print "Aborting."
sys.exit()
else:
Message = "NOTE: Parsing file " + self.global_options_file
self.Log_MessageP(Message)
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Remove_End2 = re.compile('[:=]+$')
String = ""
Read = open(self.global_options_file, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
if Check_AlphaNumeric.search(line):
Temp = string.split(line, " ")
String = String + Temp[0]
if len(Temp) == 2:
Temp[0] = Remove_End2.sub("",Temp[0])
Options[Temp[0]] = Temp[1]
# print "TEST3 ", Temp
self.global_options = Options
Message = "NOTE: Parsing file " + self.global_options_long_file
self.Log_MessageP(Message)
Temp_Array = []
Read = open(self.global_options_long_file, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
if Check_AlphaNumeric.search(line):
Temp = string.split(line, " ")
Temp_Array.append(Temp[0])
if len(Temp) == 2:
Temp[0] = Remove_End2.sub("",Temp[0])
Options["-" + Temp[0]] = Temp[1]
# print "TEST2 ", Temp
self.global_options = Options
# print Args, String
try: optlist, args2 = getopt.getopt(Args, String, Temp_Array)
except:
print "One of your options didn't make sense, aborting."
# print String
print Args
(type, value, traceback) = sys.exc_info()
print "exc_type = " + str(type)
print "exc_value = " + str(value)
print "exc_traceback = " + str(traceback)
print "\nThe following options exist."
List = self.global_options.keys()
List.sort()
for Key in List:
print "-" + Key + " = " + self.global_options[Key]
sys.exit()
# print "TEST4 ",optlist, args2
self.optlist = optlist
self.args = args2
return optlist, args2
#---------------------------------------------------------
def Override_Global(self, database='unknown'):
Options = self.optlist
Remove_Start = re.compile('^-')
for List in Options:
Temp_Key = List[0]
Key = Temp_Key
Value = List[1]
Key = Remove_Start.sub("",Key)
if self.global_options.has_key(Key): Key = self.global_options[Key]
if not self.global_variables.has_key(Key): Temp = 1
elif Value != "": self.global_variables[Key] = Value
self.global_variables['DATABASE'] = database
return self.global_variables
#------------------------------------------------------------
def Parse_Database_Info(self, database='', tablename=''):
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Remove_End2 = re.compile('[:=]+$')
Dir = self.home + "/Projects/" + str(database)
Tables_File = Dir + "/Tables.txt"
if database == "":
print "Error, no database specified in Parse_Tables_Flat, aborting."
sys.exit()
elif not os.path.isdir(Dir):
print "Error, database directory does not exist."
print "Looking for " + Dir
print "Aborting."
sys.exit()
elif not os.path.isfile(Tables_File):
print "Error, tables file not found for database " + database
print "Looking for " + Tables_File
print "Aborting."
sys.exit()
else:
Message = "NOTE: Found database directory " + Dir
self.Log_MessageP(Message=Message)
Message = "NOTE: Parsing file " + Tables_File
self.Log_MessageP(Message=Message)
self.database[database] = {}
Table_Start = re.compile('^TABLENAME')
Table = {}
Table_Field = {}
Table_List = []
TableName = "junk"
Table['junk'] = []
Table_Field['junk'] = {}
Read = open(Tables_File)
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Remove_Comma = re.compile(',')
Read.close()
for line in List:
line = Remove_Comma.sub(" ", line)
Temp = string.split(line, " ", 1)
if len(Temp) < 2: Temp = 1
elif Table_Start.search(line):
TableName = Temp[1]
Table[TableName] = []
Table_Field[TableName] = {}
Table_List.append(TableName)
# print database + ": processed table " + TableName
else:
Table[TableName].append(line)
Table_Field[TableName][Temp[0]] = Temp[1];
Temp_File = self.home + "/Projects/" + database + "/Config.txt"
Database_Config = {}
if not os.path.isfile(Temp_File):
print "Error, no global config file for database " + database
print "Aborting."
sys.exit()
else:
Database_Config = self.Parse_Config(Temp_File)
Temp_Hash = {}
#### The raw lines for each table.
Temp_Hash['table'] = Table
### The fieldnames for each table.
Temp_Hash['table_field'] = Table_Field
### The order of the tables appearing in file.
Temp_Hash['table_list'] = Table_List
### Configuration for database.
Temp_Hash['database_config'] = Database_Config
self.database[database] = Temp_Hash
Message = "NOTE: Checking for default functions, sequences, tables."
self.Log_MessageP(Message)
### We need to check if the database exists, if we set the
### create database to no, then abort.
Sql = "select datname from pg_database"
Output = self.Query_Data_Psql(Sql=Sql, Database="template1")
Exists = "no"
for line in Output[1]:
if line == database: Exists = "yes"
if (Exists == "no") and (self.global_variables['CREATE_DATABASE'] != "yes"):
print "ERROR: Database " + database + " doesn't exist and we aren't allowed to create it by default."
sys.exit()
elif Exists == "no":
# print Temp, database, Exists
Sql = "create database " + database
self.Query_Data_Psql(Sql=Sql, Database="template1")
### Now check if the default tables and sequences are installed.
Sql = "select typname from pg_type where typname like '%sequence%';"
for Sequence in self.default_sequence:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Sequence: Exists = "yes"
if Exists == "no":
Sql = "create sequence " + Sequence
self.Query_Data_Psql(Sql=Sql, Database=database)
elif (self.global_variables.has_key('DEFAULT_SEQUENCE_REDO')) and (self.global_variables['DEFAULT_SEQUENCE_REDO'] == "yes"):
Sql = "drop sequence " + Sequence + ";"
self.Query_Data_Psql(Sql=Sql, Database=database)
Sql = "select tablename from pg_tables;"
if self.psql_version == "": self.Psql_Version()
for Table in self.default_table:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Table: Exists = "yes"
if Exists == "no":
Sql2 = "\\i " + self.home + "/" + self.global_variables['TEMPLATE_DIR'] + "/Tables_Default.txt"
self.Query_Data_Psql(Sql=Sql2, Database=database)
elif (self.global_variables.has_key('DEFAULT_TABLE_REDO')) and (self.global_variables['DEFAULT_TABLE_REDO'] == "yes"):
Sql2 = "drop table " + Table + ";"
if self.psql_version == "7.3":
Sql2 = "drop table " + Table + " cascade ;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
Sql2 = "\\i " + self.global_variables['TEMPLATE_DIR'] + "/Tables_Default.txt"
self.Query_Data_Psql(Sql=Sql2, Database=database)
### Now check if the default sql functions are installed.
Sql = "select proname from pg_proc;"
for Function in self.default_function:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Function: Exists = "yes"
if Exists == "no":
# print "TEST1"
Sql2 = "\\i " + self.global_variables['TEMPLATE_DIR'] + "/Functions/Default.pgsql;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
elif (self.global_variables.has_key('DEFAULT_PLPGSQL_REDO')) and (self.global_variables['DEFAULT_PLPGSQL_REDO'] == "yes"):
Sql2 = "delete from pg_proc where proname = '" + Function + "';"
self.Query_Data_Psql(Sql=Sql2, Database=database)
Sql2 = "\\i " + self.global_variables['TEMPLATE_DIR'] + "/Functions/Default.pgsql;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
return self.database[database]
#------------------------------------------------------------------
# These two simulate grep and replace
# It always returns a list.
def grep_search(self, List=[], Search=re.compile('')):
List2 = []
for line in List:
if Search.search(line): List2.append(line)
return List2
def grep_replace_text(self, List=[], Search="", Replace=''):
List2 = []
Temp = "__" + Search + "__"
for line in List:
line = string.replace(line, Temp, Replace)
List2.append(line)
return List2
def grep_replace(self, List=[], Search=re.compile(''), Replace=''):
List2 = []
for line in List:
line = Search.sub(Replace, line)
List2.append(line)
return List2
def grep_replace_text_list(self, List=[], Search_List={}):
List2 = []
for line in List:
Keys = Search_List.keys()
## Always do the larger words first.
Keys.sort(self.sort_length)
Keys.reverse()
for Key in Keys:
Replace = Search_List[Key]
Temp = "__" + Key + "__"
line = string.replace(line, Temp, Replace)
List2.append(line)
return List2
def sort_length(self,n,m):
if len(n) > len(m): return 1
else: return -1
def split_pound(self, List=[]):
List2 = []
Check_Pound = re.compile('#')
for line in List:
if Check_Pound.search(line):
Temp = string.split(line, '#')
line = Temp[0]
List2.append(line)
return List2
#------------------------------------------------------------
# Rememebr to use this function with readlines for all above functions.
def Filter_Data_Input(self, List=[]):
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
List2 = []
for line in List:
line = Replace_Whitespace.sub(" ",line)
line = Remove_Start.sub("",line)
line = Remove_End.sub("",line)
if Check_Pound.search(line) :
Temp = string.split(line, '#')
line = Temp[0]
if Check_AlphaNumeric.search(line):
List2.append(line)
return List2
#----------------------------------------------------------------
def Database_Check(self, Database="sample"):
Dir = self.home + "/Projects/" + Database
Dirs = ['Output/Tables','Backups','Custom/Sql', 'Table_Config']
for L in self.web_languages:
C = string.capitalize(L)
Dirs.append('Output/' + C + '/HTML')
Dirs.append('Custom/' + C + '/Modules')
Dirs.append('Output/' + C + '/temp_templates')
Dirs.append('Output/' + C + '/ADMIN')
for Dir_Name in Dirs:
# print Dir_Name
if not os.path.isdir(Dir + "/" + Dir_Name):
Output = commands.getoutput("mkdir -p " + Dir + "/" + Dir_Name)
#---------------------------------------------------
def Process_Config(self, Database='sample', TableName='sample'):
Message = "NOTE: Determinig config for :" + Database + ":" + TableName
self.Log_MessageP(Message=Message)
Options = {}
Temp = self.global_variables.keys()
Temp.sort()
for Key in Temp:
Options[Key] = self.global_variables[Key]
# print Key, Options[Key]
# sys.exit()
## Abort if the database options are not stored.
Database_Options = {}
try: Database_Options = self.database[Database]['database_config']
except:
print "Error, database options not stored in object."
print "Looking for database options for " + Database
print "Aborting."
sys.exit()
for Key in Database_Options.keys():
Options[Key] = Database_Options[Key]
# print Key, Options[Key]
# sys.exit()
## Load the table options. We don't need the table options
## anwyhere else but here. Not required.
TC = self.home + "/Projects/" + Database + "/Table_Config/" + TableName + "_config.txt"
if os.path.isfile(TC):
Message = "NOTE: Parsing table config file " + TC
self.Log_MessageP(Message=Message)
Table_Options = self.Parse_Config(TC)
for Key in Table_Options.keys(): Options[Key] = Table_Options[Key]
else:
Message = "POTENTIAL: Unable to find table options file (not critical) for " + TC
self.Log_MessageP(Message=Message)
for Language in self.web_languages:
C = string.capitalize(Language)
Key = string.upper('DESTINATION_MODULES_' + Language)
Options[Key] = Options['DESTINATION_MODULES_ROOT'] + "/" + Language + "/" + string.upper(Database)
if not os.path.isdir(Options[Key]):
print "mkdir -p " + Options[Key]
Output = commands.getoutput("mkdir -p " + Options[Key])
# print Options[Key]
if Options.has_key('TEMPLATE_DIR'):
Options['TEMPLATE_DIR'] = self.home + "/" + Options['TEMPLATE_DIR']
else: Options['TEMPLATE_DIR'] = self.home + "/Templates"
Options['TABLENAME'] = TableName
self.table_config[TableName] = Options
# if not self.table_variables.has_key(TableName):
# self.table_variables[TableName] = {}
# for Key in Options.keys():
# self.table_variables[TableName][Key] = Options[Key]
# Temp = Options.keys()
# Temp.sort()
# for Key in Temp: print Key, Options[Key]
# sys.exit()
return Options
#----------------------------------------------------------------------
def Table_Sql(self, Database='sample', TableName='sample', Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
Home = self.home + "/Projects/" + Database
Check_Id = re.compile('_id$')
## Change this to be flexible on templates directory.
Read = open(self.home + "/Templates/Generic.fun")
SQL_Template = Read.readlines()
Read.close()
General_Functions = "perl"
if Config['PL_LANGUAGE'] != "": General_Functions = Config['PL_LANGUAGE']
Read = open(self.home + "/Templates/Functions/General." +General_Functions)
SQL_Custom_Template = Read.readlines()
Read.close()
if not self.database[Database].has_key('table_sql'):
self.database[Database]['table_sql'] = {}
self.database[Database]['table_sql'][TableName] = {}
Table_Fields = self.database[Database]['table_field'][TableName]
Table_Lines = self.database[Database]['table'][TableName]
# print Table_Lines
Ref = self.database[Database]['table_sql'][TableName]
Table = TableName + "_id int4 NOT NULL PRIMARY KEY DEFAULT nextval('" + TableName + """_sequence'),
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
"""
## I should allow null for the id instead of 0, but since the sequence
### starts at 1, I use 0 as null. I hate nulls.
Table_Backup = "backup_id int4 NOT NULL UNIQUE DEFAULT nextval('" + TableName + """_sequence_backup'),
""" + TableName + """_id int4 NOT NULL DEFAULT 0,
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
error_code text NOT NULL DEFAULT '',
"""
Message = "NOTE: Creating functions for table '" + TableName
self.Log_MessageP(Message=Message)
No = 1
### For each line for this table do this.
### We want to create a few variables that are going to be placed into
### the template.
Fields = ""
Backup_Columns = ""
Update_Fields = ""
Backup_Values = ""
Field_Copy_Values = ""
Field_Types = ""
RemakeVariables = ""
CleanVariables = ""
Sql_Commands = {}
## Foreach line in the table definition
for Line in Table_Lines:
Temp1 = string.split(Line, " ", 2)
if len(Temp1) < 2: Temp1.append('')
if len(Temp1) < 2: Temp1.append('')
Name = Temp1[0]
Type = Temp1[1]
Ext = Temp1[2]
### Detect if name ends in "_id", and if so, add forieng keys constraint.
Additional = ""
if Check_Id.search(Name):
Temp2 = string.split(Name, "_id")
TableName2 = Temp2[0]
### ON DELETE NO ACTION and FORIEGN KEY (Name) are not needed,
### but I want to be explicit what I am doing.
Additional = """ REFERENCES """ + TableName2 + """
ON DELETE NO ACTION
ON UPDATE CASCADE """
Table = Table + Line + " " + Additional + ",\n"
# print "TEST " + Table
Table_Backup = Table_Backup + Line + ",\n"
### Make an array of the fields.
Fields = Fields + "'" + Name + "',";
### The backup columns
Backup_Columns = Backup_Columns + ", " + Name
### The update fields
No = No + 1
Update_Fields = Update_Fields + ", " + Name + " = var_" + str(No)
### Backup values
Backup_Values = Backup_Values + ", record_backup." + Name
### Now the fields when we copy stuff in the copy function.
### Is this going to interfere with binary data?
if General_Functions == "blank":
Field_Copy_Values = ", record2." + Name
else:
Field_Copy_Values = Field_Copy_Values + ", clean_text(record2." + Name + ")";
### Now the field types for the update function.
Field_Types = Field_Types + ", " + Type
### We need to define the variables for the updating function.
CleanVariables = CleanVariables + " var_" + str(No) + " " + Type + ";\n"
### We need to define the type, I only check for text and int4 for now.
Temp = '$' + str(No)
if General_Functions == "blank": Junk = 1
elif Type == "int4" : Temp = "clean_numeric(" + Temp + ")"
elif Type == "text" : Temp = "clean_text(" + Temp + ")"
elif Type == "numeric" : Temp = "clean_text(" + Temp + ")"
elif Type == "timestamp": Temp = "clean_text(" + Temp + ")"
elif string.find(Type,"int") == 0 : Temp = "clean_numeric(" + Temp + ")"
elif string.find(Type,"char") == 0: Temp = "clean_text(" + Temp + ")"
elif string.find(Type,"varchar") == 0: Temp = "clean_text(" + Temp + ")"
### Now we need to set the variables.
RemakeVariables = RemakeVariables + " var_" + str(No) + " := " + Temp + ";\n";
### We also need to add the function to clean out the variables before
### they are submitted.
### Chop off the last comma for $Fields;
Fields = Fields[0:-1]
### Record how many rows we had. Make a line for the update command for
### testing.
Number_Of_Rows = No
Update_Test = "1"
### Why is it numberofrows - 1?
for i in range (Number_Of_Rows - 1) : Update_Test = Update_Test +","+str(i)
### We need to chop off the last comma.
Table = string.rstrip(Table)
Table = Table[0:-1]
Table_Backup = string.rstrip(Table_Backup)
Table_Backup = Table_Backup[0:-1]
### Now let us setup dropping and creating of the table and backup table.
Tables = "drop table " + TableName + ";\ncreate table " + TableName + " (\n" + Table + " );\n"
Tables_Backup = "drop table " + TableName + "_backup; \n create table " + TableName + "_backup (\n" + Table_Backup + ");\n"
if self.psql_version == "7.3":
Tables = "drop table " + TableName + " cascade;\ncreate table " + TableName + " (\n" + Table + " );\n"
Tables_Backup = "drop table " + TableName + "_backup cascade; \n create table " + TableName + "_backup (\n" + Table_Backup + ");\n"
### Let us create a view for active stuff in our table.
### Let us always recreate the views.
View_Active = "drop view " + TableName + "_active;\n"
if self.psql_version == "7.3": View_Active = ""
View_Active = View_Active + "create view " + TableName + "_active as select * from " + TableName + "\n where active = 1;\n"
### Create a view for inactive or deleted items.
View_Deleted = "drop view " + TableName + "_deleted;\n"
if self.psql_version == "7.3": View_Deleted = ""
View_Deleted = View_Deleted + "create view " + TableName + "_deleted as select * from " + TableName + "\n where active = 0;\n"
### Create a view for a list of unique backup ids.
View_BIds = "drop view " + TableName + "_backup_ids;\n"
if self.psql_version == "7.3": View_BIds = ""
View_BIds = View_BIds + "create view " + TableName + "_backup_ids as select distinct " + TableName + "_id from " + TableName + "_backup;\n"
### Create a list of purged data (lastest data per id).
View_Purged = "drop view " + TableName + "_purged;\n"
if self.psql_version == "7.3": View_Purged = ""
View_Purged = View_Purged + """create view """ + TableName + """_purged as
select * from """ + TableName + """_backup where oid = ANY (
select max(oid) from """ + TableName + """_backup where """ + TableName + """_id = ANY
(
select distinct """ + TableName + """_id from """+TableName + """_backup
where """ + TableName + """_backup.error_code = 'purge'
and NOT """ + TableName + """_id = ANY (select """ + TableName + """_id from """ + TableName + """)
)
group by """ + TableName + """_id
)
;
"""
### I use grep commands to search and replace stuff for arrays.
### I could use map, but I like greps.
SQL_F = []
for line in SQL_Template: SQL_F.append(line)
### TODO In the future, determine if we need all, database, or table custom.
SQL_C = []
for line in SQL_Custom_Template: SQL_C.append(line)
## Now, if there is a custom made file for this table, add it.
if os.path.isfile(Home + "/Custom/Sql/" + TableName + ".sql"):
Read = open(Home + "/Custom/Sql/" + TableName + ".sql",'r')
Lines = Read.readlines()
for line in Lines: SQL_C.append(line)
SQL_F = self.grep_replace_text(SQL_F, "TABLENAME", TableName)
SQL_F = self.grep_replace_text(SQL_F, "BACKUPCOLUMNS", Backup_Columns)
SQL_F = self.grep_replace_text(SQL_F, "BACKUPVALUES", Backup_Values)
SQL_F = self.grep_replace_text(SQL_F, "UPDATEFIELDS", Update_Fields)
SQL_F = self.grep_replace_text(SQL_F, "COPYFIELDS", Field_Copy_Values)
SQL_F = self.grep_replace_text(SQL_F, "FIELDS", Field_Types)
SQL_F = self.grep_replace_text(SQL_F, "__HOME__", Home)
SQL_F = self.grep_replace_text(SQL_F, "CLEANVARIABLES", CleanVariables)
SQL_F = self.grep_replace_text(SQL_F, "REMAKEVARIABLES", RemakeVariables)
### Is this being used anywhere?
### Now move the stuff from the array @Temp to @Template_Copy.
# Template_Copy = []
# for line in Temp: Template_Copy.append(line)
### Now we save the file. We won't delete it (unless you run this script
### again) so that we can figure out what was done.
### Print out the table and backup table.
Sequence = "drop sequence " + TableName + "_sequence;\n"
Sequence = Sequence + "create sequence " + TableName + "_sequence;\n"
Sequence_B = "drop sequence " + TableName + "_sequence_backup;\n"
Sequence_B = Sequence_B + "create sequence " + TableName + "_sequence_backup;\n"
### Print out the 4 functions, insert, delete, update, and copy.
Insert = """
insert into """ + TableName + """ (""" + TableName + """_id, date_updated, date_created, active)
values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
insert into """ + TableName + """_backup (backup_id, """ + TableName + """_id,
date_updated, date_created, active, error_code)
values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
"""
Variables = {}
Valid_Tables = ""
for TableTemp in self.database[Database]['table_list']:
Valid_Tables = Valid_Tables + " '" + TableTemp + "',"
Valid_Tables = Valid_Tables[0:-1]
Variables['VALIDTABLES'] = Valid_Tables
Variables['TABLENAME'] = TableName
Variables['BACKUPCOLUMNS'] = Backup_Columns
Variables['UPDATEFIELDS'] = Update_Fields
Variables['BACKUPVALUES'] = Backup_Values
Variables['COPYFIELDS'] = Field_Copy_Values
Variables['CLEANVARIABLES'] = CleanVariables
Variables['REMAKEVARIABLES'] = RemakeVariables
Variables['FIELDS'] = Field_Types
Variables['__HOME__'] = self.home + "/Projects/" + Database
Variables['LISTCOLUMNS'] = Fields
Variables['PACKAGE'] = string.upper(Database)
Variables['DATABASE'] = Database
Sql_Commands['Table'] = Table
Sql_Commands['Table_Backup'] = Table_Backup
Sql_Commands['Fields'] = Fields
Sql_Commands['Backup_Columns'] = Backup_Columns
Sql_Commands['No'] = str(No)
Sql_Commands['Update_Fields'] = Update_Fields
Sql_Commands['Backup_Values'] = Backup_Values
Sql_Commands['General_Functions'] = General_Functions
Sql_Commands['Field_Copy_Values'] = Field_Copy_Values
Sql_Commands['CleanVariables'] = CleanVariables
Sql_Commands['RemakeVariables'] = RemakeVariables
Sql_Commands['Field_Types'] = Field_Types
# Sql_Commands[''] =
# Sql_Commands[''] =
Sql_Commands['Tables'] = Tables
Sql_Commands['Tables_Backup'] = Tables_Backup
Sql_Commands['View_Active'] = View_Active
Sql_Commands['View_Deleted'] = View_Deleted
Sql_Commands['View_BIds'] = View_BIds
Sql_Commands['View_Purged'] = View_Purged
Sql_Commands['SQL_Functions'] = SQL_F
Sql_Commands['Sql_Custom'] = SQL_C
Sql_Commands['Sequence'] = Sequence
Sql_Commands['Sequence_Backup'] = Sequence_B
Sql_Commands['Insert'] = Insert
self.table_sql_commands[TableName] = Sql_Commands
self.table_variables[TableName] = Variables
### If the key in table_config is a string, then use it.
for Key in self.table_config[TableName].keys():
if type(self.table_config[TableName][Key]) == types.StringType:
self.table_variables[TableName][Key] =self.table_config[TableName][Key]
return Sql_Commands
#---------------------------------------------------------
def Query_Data_Psql(self, Sql="select 1", Config={}, Database=""):
if len(Config) < 1: Config = self.global_variables
if Database == "": Database = Config['DATABASE']
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
FileName = self.home + "/Temp/sql1.txt"
No = 1
while os.path.isfile(FileName):
No = No + 1
FileName = self.home + "/Temp/sql" + str(No) + ".txt"
Check_Error = re.compile('^psql:' + FileName)
Message = "NOTE: Saving sql commands executed at " + FileName
self.Log_MessageP(Message=Message)
### \set ON_ERROR_STOP -- this will abort psql if any errors occur.
Default_Sql = """
\pset format unaligned
\pset fieldsep '\t'
"""
Write = open(FileName,"a")
Write.write(Default_Sql)
Write.write(Sql)
Write.close()
# for Key in Config.keys(): print Key, Config[Key]
Port = Config['PORT']
if self.psql_version == "": self.Psql_Version()
Command = "psql -t -p '" + str(Port) + "' -d '" + Database + "' -f " + FileName
# print Command
Output = commands.getstatusoutput(Command)
if Output[0] > 0:
print "ERROR: " + str(Output[0]) + " " + str(Output[1])
print "ERROR: Output of the following command had errors."
print Command
sys.exit()
elif not Check_AlphaNumeric.search(Output[1]): return Output
elif Check_Error.search(Output[1]):
print "ERROR: " + str(Output[0]) + " " + str(Output[1])
print "ERROR: Output of the following command had errors."
print Command
sys.exit()
### Split out the strings.
### None of our data should contain newlines, so it should be okay.
### We should only use this to get info of our system, not
### data of the tables we make.
Temp = string.split(Output[1], "\n")
return [Output[0], Temp]
#------------------------------------------------------------------------
def Process_Sql_Commands(self, Database="", TableName="", Sql_Commands={}, Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if len(Sql_Commands) < 1:
if self.table_sql_commands.has_key(TableName):
Sql_Commands = self.table_sql_commands[TableName]
if (Database == "") or (TableName == "" ) or (len(Sql_Commands) < 1) or (len(Config) < 1):
print "ERROR: not given all requirements to process sql commands for " + Database + " " + TableName
sys.exit()
Dir = self.home + "/Projects/" + Database + "/Output/Tables"
Executed = Dir + "/" + TableName + "_executed.sql"
Executed_Not = Dir + "/" + TableName + "_executed_not.sql"
Tables_Altered = "no"
Sql = "select tablename from pg_tables"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Table_Exists = "no"
for line in Output[1]:
if line == TableName: Table_Exists = "yes"
### We should include the tablename in the query.
Sql = "select typname from pg_type where typname like '%sequence';"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Sequence_Exists = "no"
for line in Output[1]:
if line == TableName + "_sequence": Sequence_Exists = "yes"
Sql = "select typname from pg_type where typname like '%sequence_backup';"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Sequence_Backup_Exists = "no"
for line in Output[1]:
if line == TableName + "_sequence_backup": Sequence_Backup_Exists = "yes"
Sql = "select viewname from pg_views where viewname like '" + TableName + "%'"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Views_Exists = "no"
Temp_No = 0
for line in Output[1]:
if line == TableName + "_active": Temp_No = Temp_No + 1
if line == TableName + "_deleted": Temp_No = Temp_No + 1
if line == TableName + "_backup_ids": Temp_No = Temp_No + 1
if line == TableName + "_purged": Temp_No = Temp_No + 1
## We have 4 views so far, check if this number changes.
if Temp_No == 4 : Views_Exists = "yes"
### Now let us start saving data.
Message = "NOTE: Starting to save sql commands for " + TableName
self.Log_MessageP(Message=Message)
E = open(Executed, 'w')
EN = open(Executed_Not, 'w')
# E.write("""\set ON_ERROR_STOP\n""")
# EN.write("""\set ON_ERROR_STOP\n""")
DoIt = "no"
if (Config['CREATE_SEQUENCE'] == "yes") and (Sequence_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_TABLE'] == "yes"): DoIt="yes"
elif (Config['RECREATE_SEQUENCE']=="yes") and (Sequence_Exists=="yes"):
DoIt="yes"
else:
EN.write("\n" + Sql_Commands['Sequence'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Sequence'])
if (Config['CREATE_BACKUP_SEQUENCE'] == "yes") and (Sequence_Backup_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE'] == "yes"): DoIt="yes"
elif (Config['RECREATE_BACKUP_SEQUENCE']=="yes") and (Sequence_Backup_Exists=="yes"):
DoIt="yes"
else:
EN.write("\n" + Sql_Commands['Sequence_Backup'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Sequence_Backup'])
### TODO Add the ability to check if the fieldnames are the same, and if
### they are, do nothing, if different, make changes for extra
### fields, but abort if a fieldname has changed.
DoIt = "no"
if (Config['CREATE_TABLE'] == "yes") and (Table_Exists == "no"): DoIt="yes"
elif (Config['RECREATE_TABLE']=="yes") and (Table_Exists=="yes"):DoIt="yes"
else: EN.write("\n" + Sql_Commands['Tables'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Tables'])
Tables_Altered = "yes"
DoIt = "no"
if (Config['CREATE_BACKUP_TABLE'] == "yes") and (Table_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE']=="yes") and (Table_Exists=="yes"):
DoIt="yes"
elif Tables_Altered == "yes":
DoIt = "yes"
else: EN.write("\n" + Sql_Commands['Tables_Backup'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Tables_Backup'])
Tables_Altered = "yes"
DoIt = "no"
if Config['VIEWS_REDO'] == "yes": DoIt="yes"
elif Tables_Altered == "yes": DoIt = "yes"
else:
EN.write("\n" + Sql_Commands['View_Active'])
EN.write("\n" + Sql_Commands['View_Deleted'])
EN.write("\n" + Sql_Commands['View_BIds'])
EN.write("\n" + Sql_Commands['View_Purged'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['View_Active'])
E.write("\n" + Sql_Commands['View_Deleted'])
E.write("\n" + Sql_Commands['View_BIds'])
E.write("\n" + Sql_Commands['View_Purged'])
DoIt = "no"
if (Tables_Altered == "yes") and (Config["FUNCTIONS"] == "yes"):
DoIt = "yes"
elif Config["FUNCTIONS_REDO"] == "yes":
DoIt = "yes"
if DoIt == "yes":
for l in Sql_Commands['SQL_Functions']: E.write(l)
for l in Sql_Commands['Sql_Custom']: E.write(l)
else:
for l in Sql_Commands['SQL_Functions']: EN.write(l)
for l in Sql_Commands['Sql_Custom']: EN.write(l)
DoIt = "no"
if Table_Exists == "no": DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE'] == "yes"): DoIt="yes"
elif (Config['RECREATE_TABLE'] == "yes"): DoIt="yes"
else: EN.write("\n" + Sql_Commands['Insert'])
if DoIt == "yes": E.write("\n" + Sql_Commands['Insert'])
E.close()
EN.close()
self.table_executed[TableName] = Executed
self.table_executed_not[TableName] = Executed_Not
return [Executed, Executed_Not]
#------------------------------------------------------------------------
def Execute_Sql_Commands(self, Database="", TableName="", Sql_Commands={}, Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if len(Sql_Commands) < 1:
if self.table_sql_commands.has_key(TableName):
Sql_Commands = self.table_sql_commands[TableName]
else:
print "ERROR: No sql commands to execute for " + TableName
sys.exit()
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to execute sql commands for " + Database + " " + TableName
sys.exit()
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Port = Config['PORT']
Check_Error = re.compile('^psql:' + self.table_executed[TableName])
B_Dir = self.home + "/Projects/" + Database + "/Backups"
B_File = B_Dir + "/" + TableName + "_0.backup"
TempNo = 0;
while os.path.isfile(B_File):
TempNo = TempNo + 1
B_File = B_Dir + "/" + TableName + "_" + str(TempNo) + ".backup"
### Now we have the filename to store the backup, execute it.
Command = "pg_dump -t " + TableName + " -f " + B_File + " " + Database
if (Config.has_key('DELETE_BACKUPS')) and (Config['DELETE_BACKUPS'] == "yes"):
Message = "NOTE: Deleting backup files for " + TableName
self.Log_MessageP(Message=Message)
Output = commands.getstatusoutput("rm -f " + B_Dir + "/*")
Message = "NOTE: Backing up data in " + TableName + " to " + B_File
self.Log_MessageP(Message=Message)
Output = commands.getstatusoutput(Command)
Message = "NOTE: executing sql commands at " + self.table_executed[TableName]
self.Log_MessageP(Message=Message)
if self.psql_version == "": self.Psql_Version()
Command = "psql -t -p '" + str(Port) + "' -d '" + Database + "' -f " + self.table_executed[TableName]
Output = commands.getstatusoutput(Command)
Temp = string.split(Output[1], "\n")
self.Log_Message(Output[1])
Temp2 = []
Re_Error = re.compile('ERROR:')
for Line in Temp:
if Re_Error.search(Line): Temp2.append(Line)
if len(Temp2) > 0:
for Line in Temp2: print Line
print "There were " + str(len(Temp2)) + " errors with this table."
print "Press enter to continue."
if Config["IGNORE_ERRORS"] != "yes":
Input1 = sys.stdin.readline()
if Output[0] > 0:
print "ERROR: There was an error executing psql."
print "ERROR: You might want to run this command manually. Aborting."
print Command
sys.exit()
return [Output[0], Temp]
#-----------------------------------------------------------------------
def Create_Languages(self, Database="", TableName="", Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to create modules and sample web scripts for " + Database + " " + TableName
sys.exit()
Templates = self.home + "/Templates"
if Config.has_key('TEMPLATE_DIR') and Config['TEMPLATE_DIR'] != '':
Templates = Config['TEMPLATE_DIR']
# print "Test", Config['TEMPLATE_DIR']
self.table_module_test[TableName] = {}
### Setup the modules for each language.
Search_Header = re.compile('_header$')
for Language in self.web_languages:
self.table_module_test[TableName][Language] = ""
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
Dir = Templates + "/" + Language_C
if (Config.has_key("DO_" + Language_U)) and (Config["DO_" + Language_U] != "yes"): continue
elif not Config.has_key("DO_" + Language_U): continue
Files = os.listdir(Dir)
Base = self.grep_search(List=Files, Search=Search_Header)
Base = self.grep_replace(List=Base, Search=Search_Header, Replace="")
Base.sort()
# print "Files = " + Dir + " " + str(Base)
Modules_Destination = self.home + "/Projects/" + Database + "/Output/" + Language_C
Modules_Source = Config['TEMPLATE_DIR'] + "/" + Language_C
# for Key in Config.keys(): print Key, str(Config[Key])
# Temp = self.table_variables[TableName].keys()
# Temp.sort()
# for Key in Temp: print Key, self.table_variables[TableName][Key]
# sys.exit()
Message = "NOTE: Creating modules in " + Modules_Destination + " from " + Modules_Source
self.Log_MessageP(Message=Message)
for Module in Base:
Module_Destination = Modules_Destination + "/" + Module
Module_Source = Dir + "/" + Module + "_header"
Read = open(Module_Source, "r")
Lines = Read.readlines()
Read.close()
### The header of the module.
Write = open(Module_Destination, "w")
Lines = self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
### If there is a template, do one for a table.
Module_T = Modules_Source + "/" + Module + "_template"
# print Module_T
if os.path.isfile(Module_T):
Read = open(Module_T, "r")
Lines_T = Read.readlines()
Read.close()
### We write out the template for this table only.
List = []
for line in Lines_T: List.append(line)
List=self.grep_replace_text_list(List=List, Search_List=self.table_variables[TableName])
File_T = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/temp_templates/" + Module + "_" + TableName
Write_T = open(File_T, 'w')
for line in List: Write_T.write(line)
Write_T.close()
# print "TEST2 " + File_T
### Gather all templates made for all tables, if they exist.
for Table_Temp in self.database[Database]['table_list']:
Temp_T = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/temp_templates/" + Module + "_" + Table_Temp
# print Temp_T
if os.path.isfile(Temp_T):
Read2 = open(Temp_T, "r")
Lines_TT = Read2.readlines()
Read2.close()
for line in Lines_TT: Write.write(line)
#### footer for the template
Module_TF = Modules_Source + "/" + Module + "_template_footer"
if os.path.isfile(Module_TF):
Read = open(Module_TF, "r")
Lines = Read.readlines()
Read.close()
Lines=self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
### Now do the custom module addition.
Custom_Name = self.home + "/Projects/" + Database + "/Custom/" + Language_C + "/" + Module + "_custom"
if os.path.isfile(Custom_Name):
Read = open(Custom_Name, "r")
Lines_C = Read.readlines()
Read.close()
Lines_C=self.grep_replace_text_list(List=Lines_C, Search_List=self.table_variables[TableName])
for line in Lines_C: Write.write(line)
### Now do any footers for the module.
Module_F = Modules_Source + "/" + Module + "_footer"
if os.path.isfile(Module_F):
Read = open(Module_F, "r")
Lines = Read.readlines()
Read.close()
Lines=self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
if (Language == "perl") or (Language == "python"):
Write.write("\n1;\n")
Write.close()
### Now do custom-made modules.
Dir2 = self.home + "/Projects/" + Database + "/Custom/" + Language_C + "/Modules"
Files2 = os.listdir(Dir2)
Base2 = self.grep_search(List=Files2, Search=Search_Header)
Base2 = self.grep_replace(List=Base2, Search=Search_Header, Replace="")
Base2.sort()
for Module in Base2:
Module_Destination = Modules_Destination + "/" + Module
Module_Source = Dir2 + "/" + Module + "_header"
Read = open(Module_Source, "r")
Lines = Read.readlines()
Read.close()
Write = open(Module_Destination, "w")
Lines = self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
Write.write("\n1;\n")
Write.close()
### Setup the test language script.
Test_File = Modules_Destination + "/Test." + Language
Write = open(Test_File, "w")
Temp_Line = Modules_Destination
Modules_All = []
for Module in Base: Modules_All.append(Module)
for Module in Base2: Modules_All.append(Module)
if Language == "perl":
Write.write('#!/usr/bin/' + Language + "\n\n")
Write.write("use lib qw(" + Modules_Destination + ");\n\n")
elif Language == "python":
Test_Dir = Modules_Destination + "/" + string.upper(Database)
Write.write('#!/usr/bin/' + Language + "\n\n")
Write.write("import sys\n")
Write.write("sys.path.append('" + Test_Dir + "')\n")
elif Language == "php":
Write.write("\n")
Write.close()
### Test the language script, Test_Dir.
Test_Dir = Modules_Destination + "/" + string.upper(Database)
Output = commands.getoutput("mkdir -p " + Test_Dir)
for Module in Modules_All:
Command = "cp " + Modules_Destination + "/" + Module + " " + Test_Dir
Output = commands.getoutput(Command)
Extra = ""
if Language == "php": Extra = " -q "
Output = commands.getoutput(Language + " " + Extra + Modules_Destination + "/Test." + Language)
if 0 > string.find(Output, 'GOOD'):
Message = "ERROR: Language modules for " + Language + " didn't compile with a 'GOOD' status for " + Database + ":" + TableName
self.Log_MessageP(Message=Message)
self.Log_MessageP(Message=Output)
print "Aborting"
print Output
print string.find(Output, 'GOOD')
sys.exit()
# print "TEST" + TableName, Language
self.table_module_test[TableName][Language] = Output
#### Setup the sample webpages, last thing to do.
for Language in self.web_languages:
Ext = self.extensions[Language]
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
Dir = Templates + "/" + Language_C
if (Config.has_key("DO_" + Language_U)) and (Config["DO_" + Language_U] != "yes"): continue
elif not Config.has_key("DO_" + Language_U): continue
Html_Destination = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/HTML"
Html_Source = Config['TEMPLATE_DIR'] + "/" + Language_C + "/HTML"
Message = "NOTE: Creating webpages in " + Html_Destination + " from " + Html_Source
self.Log_MessageP(Message=Message)
Read = open(Html_Source +"/Custom_Html1."+self.extensions[Language], 'r')
Lines = Read.readlines()
Read.close()
Read = open(Html_Source +"/Custom_Lists."+self.extensions[Language], 'r')
Template_List = Read.readlines()
Read.close()
### Open up Custom_Html1 and replace contents with our table
### variables plus the following we should have generated:
### HTML_FIELDS -- from our table
### OTHERIDS -- foriegn key ids and their values, decrypted (otherwise 0). This is the initial setup.
### SETIDSOTHER -- if id is > 0, set the values of the other ids.
### OTHER_LISTS -- the templates from each table from Custom_Lists. Custom_Lists gets the ids of the foriegn keys that are possible.
### HTML_FIELDS
### DEFINEFIELDS
Other_Variables = {}
### Figure out which keys have foriegn key constraints.
Check_Id_Tag = re.compile('_id$')
Ids = []
No_Ids = []
Table_Fields = self.database[Database]['table_field'][TableName]
Keys = Table_Fields.keys()
for Field in Keys:
# print "Field is ", Field
if Field == TableName + "_id": Junk = 1
elif Check_Id_Tag.search(Field): Ids.append(Field)
else: No_Ids.append(Field)
Ids.sort()
No_Ids.sort()
List_Fields = "'" + TableName + "_id'"
for Id in Ids: List_Fields = List_Fields + ",'" + Id + "'"
for Id in No_Ids: List_Fields = List_Fields + ",'" + Id + "'"
Other_Variables['LISTFIELDS'] = List_Fields
### Open of the file for DEFINEFIELDS
Read =open(Html_Source+"/DEFINEFIELDS_Id."+self.extensions[Language],'r')
Template_Line = Read.readline()
Read.close()
DefineFields = " #### GOOD: definefields replaced.\n"
Temp_Lines = ""
for Id in Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "__FIELDNAME__", Id)
DefineFields = DefineFields + Add_Line
# print Id
Read =open(Html_Source+"/DEFINEFIELDS_No."+self.extensions[Language],'r')
Template_Line = Read.readline()
Read.close()
Temp_Lines = ""
for Id in No_Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "__FIELDNAME__", Id)
DefineFields = DefineFields + Add_Line
# print Id
# print "My lines are " + DefineFields
Other_Variables['DEFINEFIELDS'] = DefineFields
# sys.exit()
### Open up the HTMLFIELDS file
Read = open(Html_Source + "/HTMLFIELDS."+self.extensions[Language], 'r')
Template_Lines = Read.readlines()
Read.close()
HtmlFields = ""
for Id in No_Ids:
for Line in Template_Lines:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
HtmlFields = HtmlFields + Add_Line
### Now process the ids from foriegn keys.
OtherIds = " ## GOOD: Get the ids of the foriegn tables.\n"
# Html_List = " #### GOOD: html_list replaced.\n"
Other_Lists = " #### GOOD: other_lists replaced.\n"
OtherIds_Set = " #### GOOD: otherids_set replaced.\n"
### Open of the file for OTHERIDS
Read =open(Html_Source+"/OTHERIDS."+self.extensions[Language],'r')
Template_Lines_1 = Read.readlines()
Read.close()
### Open of the file for OTHER_LISTS
Read =open(Html_Source+"/Custom_Lists."+self.extensions[Language],'r')
Template_Lines_2 = Read.readlines()
Read.close()
### Open of the file for
Read =open(Html_Source+"/SETIDSOTHER."+self.extensions[Language],'r')
Template_Lines_3 = Read.readlines()
Read.close()
### Open of the file for HTMLFIELDS_ID
Read =open(Html_Source+"/HTMLFIELDS_ID."+self.extensions[Language],'r')
Template_Lines_4 = Read.readlines()
Read.close()
Remove_Id_Tag = re.compile('_id$')
for Id in Ids:
Column_No_Id = Remove_Id_Tag.sub('', Id)
Temp = Column_No_Id
for Line in Template_Lines_1:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
OtherIds = OtherIds + Add_Line
for Line in Template_Lines_2:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", Temp)
Other_Lists = Other_Lists + Add_Line
for Line in Template_Lines_3:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
OtherIds_Set = OtherIds_Set + Add_Line
for Line in Template_Lines_4:
Add_Line = string.replace(Line, "__FIELDNAME___NOID", Column_No_Id)
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
HtmlFields = HtmlFields + Add_Line
Other_Variables['OTHERIDS'] = OtherIds
Other_Variables['OTHER_LISTS'] = Other_Lists
Other_Variables['SETIDSOTHER'] = OtherIds_Set
Other_Variables['HTML_FIELDS'] = HtmlFields
### Now do the substitutions
Search_List = Other_Variables
Lines = self.grep_replace_text_list(List=Lines, Search_List=Search_List)
Search_List = self.table_variables[TableName]
Lines = self.grep_replace_text_list(List=Lines, Search_List=Search_List)
# for Key in Other_Variables: print Key + " " + Other_Variables[Key]
# for Key in Search_List: print Key + " " + Search_List[Key]
FileName = Html_Destination + "/" + TableName + "." + Ext
# print "FILE " + FileName
Write = open(FileName,"w")
for line in Lines: Write.write(line)
Write.close()
Message = "NOTE: Created file " + FileName
self.Log_MessageP(Message)
#### Setup the admin webpages. It will store a command to execute
#### in a file, and if it is a psql file, it will point to a data
#### file. Each command executed will have it own driectory, start
#### and stop files. Give X number of minutes option to delay
#### execute so that they can look at the commands that will be
#### executed.
#### This admin webpages don't exist yet. It will be the last thing
#### to do after the normal web scripts are installed.
#-----------------------------------------------------------------------
def Install_Languages(self, Database="", TableName="", Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to install modules and sample web scripts for " + Database + " " + TableName
sys.exit()
# Temp = Config.keys()
# Temp.sort()
# for Key in Temp: print Key, Config[Key]
### First, make sure the tempoary directory exists.
if not Config.has_key('TEMPDIR'):
Message = "ERROR: TEMPDIR not defined. This could be bad, aborting."
self.Log_MessageP(Message)
sys.exit();
else:
Dir = Config['TEMPDIR']
Message = "NOTE: tmpdir directory already exists at " + Dir
if not os.path.isdir(Dir):
Output = commands.getoutput("mkdir -p " + Dir)
Message = "NOTE: making tmpdir at " + Dir
self.Log_MessageP(Message)
### Install the webpages for each language.
if not Config.has_key('DESTINATION_HTML'):
Message = "POTENTIAL: DESTINATION_HTML not defined. This could be bad."
self.Log_MessageP(Message)
else:
Dir = Config['DESTINATION_HTML']
if not os.path.isdir(Dir):
Output = commands.getoutput("mkdir -p " + Dir)
Message = "NOTE: installing web scripts for languages at " + Dir
self.Log_MessageP(Message)
### Copy over the .htaccess and password file.
T_Dir = self.home + "/Templates"
H_Dir = Config["DESTINATION_HTML"]
Read = open(T_Dir+"/htaccess", 'r')
Write = open(H_Dir + "/.htaccess", "w")
Temp_Lines = Read.readlines()
for Line in Temp_Lines:
Line = string.replace(Line, "__DIR__", H_Dir)
Write.write(Line)
Read.close()
Write.close()
### We should add the ability to use custom made password files
### or to change the username:passwords in there.
Password_File = self.home + "/Templates/Password"
Custom_P_File = self.home + "/Projects/" + Database + "/Output/Password"
if os.path.isfile(Custom_P_File) and Config.has_key('IGNORE_IF_CUSTOM_EXISTS') and (Config['IGNORE_IF_CUSTOM_EXISTS'] == "yes"): Junk = 1
elif Config.has_key('ASK_HTACCESS_PASSWORD') and (Config['ASK_HTACCESS_PASSWORD'] == "yes"):
Remove_Whitespace = re.compile('\s')
if Config.has_key('IGNORE_IF_CUSTOM_EXISTS') and (Config['IGNORE_IF_CUSTOM_EXISTS'] == "yes"):
Message = "\nThis database is only setup to ask this question once."
Message = Message + "\nThis feature can be changed at line command or with the config files."
print Message
Message = "Please enter a username and password to protect the web scripts."
print Message
print "username: ",
Input1 = sys.stdin.readline()
Input1 = Remove_Whitespace.sub('', Input1)
print "password: ",
Input2 = sys.stdin.readline()
Input2 = Remove_Whitespace.sub('', Input2)
Command = "htpasswd -b -c " + Custom_P_File + " " +Input1+ " "+ Input2
print Command
Output = commands.getoutput(Command)
if os.path.isfile(Custom_P_File): Password_File = Custom_P_File
Source_Dir = self.home + "/Projects/" + Database + "/Output/"
Command = "rsync -av "+ Password_File + " " + H_Dir + "/"
Output = commands.getoutput(Command)
Message = "NOTE: Copied " + Password_File + " to " + H_Dir + "/"
self.Log_MessageP(Message)
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing web scripts for language "+Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_HTML_" + Language_U)) and (Config["DESTINATION_HTML_" + Language_U] == ""):
Message = "NOTE: not installing web scripts for language "+Language_U
self.Log_MessageP(Message)
continue
else:
Config["DESTINATION_HTML_" + Language_U] = Config['DESTINATION_HTML'] + "/" + Language
Message ="POTENTIAL: No definition for DESTINATION_HTML_" +Language_U + ", so we are just attaching it to DESTINATION_HTML."
self.Log_MessageP(Message)
Message = "NOTE: (disabled) Installing web script for language " + Language
self.Log_MessageP(Message)
Dir = Config["DESTINATION_HTML_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing html scripts for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/HTML"
Search_Ext = re.compile(self.extensions[Language] + '$')
Files = os.listdir(Source_Dir)
Write = open(Source_Dir + "/index.html", "w")
Files.sort()
for File in Files:
if Search_Ext.search(File):
Write.write("" + File + " \n")
Write.close()
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
Output = commands.getoutput("chmod 755 "+ Dir + "/*")
self.Log_Message(Output)
# print Source_Dir, Dir
### Install the admin scripts for each language.
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if not Config.has_key("DESTINATION_ADMIN"):
Message = "POTENTIAL: DESTINATION_ADMIN is not defined, skipping installing admin web scripts."
self.Log_MessageP(Message)
continue
elif (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing admin scripts for language "+Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_ADMIN_" + Language_U)) and (Config["DESTINATION_ADMIN_" + Language_U] == ""):
Message = "NOTE: not installing admin scripts for language "+Language_U
self.Log_MessageP(Message)
continue
else:
Config["DESTINATION_ADMIN_" + Language_U] = Config['DESTINATION_ADMIN'] + "/" + Language
Message = "POTENTIAL: DESTINATION_ADMIN_" +Language_U + " not defined, we are attaching it to DESTINATION_ADMIN."
self.Log_MessageP(Message)
Dir = Config["DESTINATION_ADMIN_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing admin scripts for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/ADMIN/"
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
# print Source_Dir, Dir
Output = commands.getoutput("chmod 755 "+ Dir + "/*")
self.Log_Message(Output)
### Install the modules for each language.
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if not Config.has_key("DESTINATION_MODULES_ROOT"):
Message = "ERROR: DESTINATION_MODULES_ROOT is not defined, aborting installing modules and this program. This is a critical config error."
self.Log_MessageP(Message)
sys.exit()
elif (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing modules for language " +Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_MODULES_" + Language_U)) and (Config["DESTINATION_MODULES_" + Language_U] == ""):
Message = "NOTE: not installing modules for language " +Language_U
self.Log_MessageP(Message)
continue
elif not Config.has_key("DESTINATION_MODULES_" + Language_U):
Message = "ERROR: DESTINATION_MODULES_ " +Language_U + " not defined."
self.Log_MessageP(Message)
sys.exit()
Dir = Config["DESTINATION_MODULES_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing modules for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/" + string.upper(Database)
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
# print Source_Dir, Dir
#-----------------------------------------------------------
def Psql_Version(self):
Psql = self.global_variables['PSQL']
Output = commands.getstatusoutput(Psql + " -V")
if Output[0] > 0:
print "Unable to determine version of psql at " + Psql
print "Aborting."
sys.exit()
Temp = string.split(Output[1])
self.psql_version = Temp[2]
# sys.exit()
beta/lib/Python/GUPPS_Setup.pyc 0100664 0000764 0000764 00000157136 07732235366 015326 0 ustar mark mark -í
öÐ?c s¤ d k Z d k Z d k Z d k Z d k Z d k Z d k Z d k Z d k Z d k Z d k Z d k Z
d k Z d k
Z
d f d „ ƒ YZ d S( Ns GUPPS_Setupc s¸ t Z
d „ Z 4 d „ Z O d d „ Z i d d „ Z q d d „ Z { d „ Z Í d d „ Z ß d d d
„ Z xg e
i d ƒ d „ Z ~g d d d „ Z
†g e
i d ƒ d d
„ Z g h d „ Z ›d „ Z Ÿg d „ Z ªg d „ Z ¿d d „ Z Ñd d d „ Z d d h d „ Z (d h d d „ Z ad d h h d „ Z òd d h h d „ Z 0d d h d „ Z ¤d d h d „ Z pd „ Z RS( Nc sÙ
t i d | _ | i d | _ | i d | _ | i d | _ | i d | _ t i d ƒ | _
t i d ƒ | _ | i d | i
| i d | _ d
d d d
g | _
h | _ h | _ g | _ g | _ h | _ h | _ ! h | _ " h | _ # h | _ $ h | _ % h | _ ' d g | _ ( d g | _ ) d d g | _ + h | _ , d | i d
<- d | i d <. d | i d </ d | i d
<1 d | _ d S( Ns
GUPPS_HOMEs /Local/Global.configs /lib/Options.configs /lib/Options_Long.configs /lib/Options.defaults %Y%m%ds %H%M%Ss /Logs/s .logs perls phps pythons javas update_tablefields update_tablefield_sequences restore_tablefieldss pls pys jsps ( s oss environs selfs homes global_config_files global_options_files global_options_long_files global_options_default_files times strftimes
start_dates
start_times logs
web_languagess global_optionss global_variabless optlists argss databases table_configs table_sql_commandss table_executeds table_executed_nots table_variabless table_module_tests
default_tables default_sequences default_functions
extensionss psql_version( s self( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys __init__
s: % c s˜ 4 5 h } 6 t i i | i ƒ o0 7 d GH8 d | i GH9 d GH: t i ƒ n,; t i i | i ƒ o0 < d GH= d | i GH> d GH? t i ƒ nâ A | i d | i ƒ } B | d d | d <C t i i
| d ƒ o D t i d | d ƒ } n E t i i | i ƒ ob F | i d | i ƒ } G x@ | i ƒ DG ]/ } H | i | ƒ o I | | | | d+ | } ?| i0 d# | d$ d% ƒ n Bd, } Cx| i4 DC]ô } D| i0 d# | d$ | ƒ } Ed& } Fx2 | d DF]# } G| | j o
Gd' } n q;WI| d& j o* Jd- | } K| i0 d# | d$ | ƒ nY L| i3 i6 d. ƒ o | i3 d. d' j o. Md/ | d0 } N| i0 d# | d$ | ƒ n q WPd1 } Q| i7 d
j o Q| i8 ƒ n Rxq| i9 DR]c} S| i0 d# | d$ | ƒ } Td& } Ux2 | d DU]# } V| | j o
Vd' } n qpWW| d& j o@ Xd2 | i
d3 | i3 d4 d5 } Y| i0 d# | d$ | ƒ n² Z| i3 i6 d6 ƒ o | i3 d6 d' j o‡ [d7 | d0 } \| i7 d8 j o ]d7 | d9 } n ^| i0 d# | d$ | ƒ _d2 | i3 d4 d5 } `| i0 d# | d$ | ƒ n q5Wcd: } dx>| i; Dd]0} e| i0 d# | d$ | ƒ } fd& } gx2 | d Dg]# } h| | j o
hd' } n qðWi| d& j o5 kd2 | i3 d4 d; } l| i0 d# | d$ | ƒ nŠ m| i3 i6 d< ƒ o | i3 d< d' j o_ nd= | d> } o| i0 d# | d$ | ƒ pd2 | i3 d4 d; } q| i0 d# | d$ | ƒ n qµWs| i | Sd S(? Ns #s [a-zA-Z0-9]s [
]+s ^[
]+s [
]+$s [a-zA-Z0-9/-_\.]s [:=]+$s
/Projects/s /Tables.txts s< Error, no database specified in Parse_Tables_Flat, aborting.s) Error, database directory does not exist.s Looking for s Aborting.s* Error, tables file not found for database s NOTE: Found database directory s Messages NOTE: Parsing file s
^TABLENAMEs junks Lists ,s i i i s /Config.txts* Error, no global config file for database s tables table_fields
table_lists database_configs8 NOTE: Checking for default functions, sequences, tables.s select datname from pg_databases Sqls Databases template1s nos yess CREATE_DATABASEs ERROR: Database s= doesn't exist and we aren't allowed to create it by default.s create database s< select typname from pg_type where typname like '%sequence%';s create sequence s DEFAULT_SEQUENCE_REDOs drop sequence s ;s select tablename from pg_tables;s \i s /s TEMPLATE_DIRs /Tables_Default.txts DEFAULT_TABLE_REDOs drop table s 7.3s
cascade ;s select proname from pg_proc;s /Functions/Default.pgsql;s DEFAULT_PLPGSQL_REDOs% delete from pg_proc where proname = 's ';(= s res compiles Check_Pounds Check_AlphaNumerics Replace_Whitespaces Remove_Starts
Remove_Ends Check_Wordss Remove_End2s selfs homes strs databases Dirs Tables_Files syss exits oss paths isdirs isfiles Messages Log_MessagePs Table_Starts Tables Table_Fields
Table_Lists TableNames opens Reads readliness Lists Filter_Data_Inputs Remove_Commas closes lines subs strings splits Temps lens searchs appends Temp_Files Database_Configs Parse_Configs Temp_Hashs Sqls Query_Data_Psqls Outputs Existss global_variabless default_sequences Sequences has_keys psql_versions Psql_Versions
default_tables Sql2s default_functions Function( s selfs databases tablenames Check_AlphaNumerics Temp_Hashs Remove_End2s Temps Outputs Check_Pounds Lists Replace_Whitespaces Tables_Files Remove_Commas Remove_Starts lines Dirs Functions Sql2s Existss Reads Sequences TableNames Table_Fields
Remove_Ends Check_Wordss Sqls Tables Messages Database_Configs Table_Starts Temp_Files
Table_List( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Parse_Database_Infoß s
$
*!
# *!
*!c sU xyg } zx8 | Dz]- } {| i | ƒ o {| i | ƒ n q W|| Sd S( N( s List2s Lists lines Searchs searchs append( s selfs Lists Searchs lines List2( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys grep_searchxs
c sg ~g } €d | d } x9 | D]. } ‚t i | | | ƒ } ƒ| i | ƒ q' W„| Sd S( Ns __( s List2s Searchs Temps Lists lines strings replaces Replaces append( s selfs Lists Searchs Replaces Temps lines List2( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys grep_replace_text~s
c sS †‡g } ˆx6 | Dˆ]+ } ‰| i | | ƒ } Š| i | ƒ q W‹| Sd S( N( s List2s Lists lines Searchs subs Replaces append( s selfs Lists Searchs Replaces lines List2( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys grep_replace†s
c sº Žg } x | D]’ } | i ƒ } ’| i | i ƒ “| i ƒ ”xG | D”]< } •| | } –d | d } —t
i | | | ƒ } qX W˜| i | ƒ q W™| Sd S( Ns __( s List2s Lists lines Search_Lists keyss Keyss sorts selfs sort_lengths reverses Keys Replaces Temps strings replaces append( s selfs Lists Search_Lists Temps Keys Keyss Replaces lines List2( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys grep_replace_text_lists
c s5 ›œt | ƒ t | ƒ j o œd Sn d Sd S( Ni iÿÿÿÿ( s lens ns m( s selfs ns m( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys sort_length›s c s‰ Ÿ g } ¡t i d ƒ } ¢xa | D¢]V } £| i | ƒ o& ¤t i | d ƒ } ¥| d } n ¦| i
| ƒ §| Sq( Wd S( Ns #i ( s List2s res compiles Check_Pounds Lists lines searchs strings splits Temps append( s selfs Lists Temps Check_Pounds lines List2( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys split_poundŸs
c
s' ª¬t i d ƒ } t i d ƒ } ®t i d ƒ } ¯t i d ƒ } °t i d ƒ } ²g } ³x° | D³]¥ } ´| i
d | ƒ } µ| i
d | ƒ } ¶| i
d | ƒ } ·| i | ƒ o& ¸t i
| d ƒ } ¹| d } n º| i | ƒ o »| i | ƒ n qp W¼| Sd S( Ns #s [a-zA-Z0-9]s [
]+s ^[
]+s [
]+$s s i ( s res compiles Check_Pounds Check_AlphaNumerics Replace_Whitespaces Remove_Starts
Remove_Ends List2s Lists lines subs searchs strings splits Temps append(
s selfs Lists Check_AlphaNumerics Temps Check_Pounds List2s Replace_Whitespaces
Remove_Ends Remove_Starts line( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Filter_Data_Inputªs"
s samplec s ¿À| i d | } Âd d d d g } Äx† | i DÄ]x } Åt i | ƒ } Æ| i
d | d ƒ Ç| i
d | d ƒ È| i
d | d
ƒ É| i
d | d ƒ q9 WËxR | DË]G } Ít i
i | d | ƒ o" Ît i d
| d | ƒ } n q Wd S( Ns
/Projects/s
Output/Tabless Backupss
Custom/Sqls Table_Configs Output/s /HTMLs Custom/s /Moduless /temp_templatess /ADMINs /s mkdir -p ( s selfs homes Databases Dirs Dirss
web_languagess Ls strings
capitalizes Cs appends Dir_Names oss paths isdirs commandss getoutputs Output( s selfs Databases Dirss Dir_Names Cs Ls Outputs Dir( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Database_Check¿s
c
sä ÑÒd | d | }
Ó| i d |
ƒ Ôh } Õ| i i ƒ } Ö| i ƒ ×x% | D×] } Ø| i | | | d | }7 ?| i d |7 ƒ @d } Dd } Ed } Fd } Gd } Hd } Id }' Jd }$ Kd }" Mh }( Pxh| DP]]} Qt' i( | d d ƒ }4 Rt |4 ƒ d j o R|4 i* d ƒ n St |4 ƒ d j o S|4 i* d ƒ n T|4 d } U|4 d } V|4 d }# Xd } Y|/ i/ | ƒ o7 Zt' i( | d ƒ }3 [|3 d }
^d |
d } n b|, | d | d }, d|1 | d }1 f| d | d } h| d | } j| d } k| d | d t2 | ƒ } m| d | } p|! d j o qd | } n s| d! | d" } v|' d | }' x|" d# t2 | ƒ d | d$ }" zd% t2 | ƒ } {|! d j o
{d } n(|| d& j o |d' | d" } n}| d( j o }d) | d" } nÞ ~| d* j o ~d) | d" } n¹ | d+ j o d) | d" } n” €t' i5 | d, ƒ d j o €d' | d" } nc t' i5 | d- ƒ d j o d) | d" } n2 ‚t' i5 | d. ƒ d j o ‚d) | d" } n …|$ d/ t2 | ƒ d0 | d$ }$ qTW‹| d d1 !} Ž| }5 d2 }- ‘x2 t8 |5 d ƒ D‘] } ‘|- d3 t2 | ƒ }- qîW”t' i: |, ƒ }, •|, d d1 !}, –t' i: |1 ƒ }1 —|1 d d1 !}1 šd4 | d5 | d6 |, d7 } ›d4 | d8 | d9 |1 d: }& œ| i= d; j oF d4 | d< | d6 |, d7 } žd4 | d= | d9 |1 d: }& n ¢d> | d? }2 £| i= d; j o
£d }2 n ¤|2 d@ | dA | dB }2 ¦d> | dC } §| i= d; j o
§d } n ¨| d@ | dD | dE } ªd> | dF }+ «| i= d; j o
«d }+ n ¬|+ d@ | dG | dH | dI }+ ®d> | dJ } ¯| i= d; j o
¯d } n °| d@ | dK | dL | dM | dN | dH | dO | dP | dQ | dH | dR | dS } ¿g } Àx! | DÀ] }) À| i* |) ƒ qŒWÂg }* Ãx! | DÃ] }) Ã|* i* |) ƒ q¼WÅtE iF iG |6 dT | dU ƒ oX Æt
|6 dT | dU dV ƒ } Ç| i ƒ } Èx! | DÈ] }) È|* i* |) ƒ q2 Wn Ê| iI | dW | ƒ } Ë| iI | dX | ƒ } Ì| iI | dY | ƒ } Í| iI | dZ | ƒ } Î| iI | d[ | ƒ } Ï| iI | d\ |' ƒ } Ð| iI | d] |6 ƒ } Ñ| iI | d^ |" ƒ } Ò| iI | d_ |$ ƒ } Þd` | da }. ß|. db | da }. àd` | dc } á| db | dc } ådd | de | df | dg | dh } íh }0 îd }% ïx1 | i | di Dï] } ð|% dj | d }% qÇ
Wñ|% d d1 !}% ó|% |0 dk <ô| |0 dW <õ| |0 dX <ö| |0 dZ <÷| |0 dY <ø| |0 d[ <ù|" |0 d^ <ú|$ |0 d_ <û|' |0 d\ <ü| i d | |0 d] <ý| |0 dl <þt' iP | ƒ |0 dm <ÿ| |0 dn <|, |( do <|1 |( dp <| |( dq <| |( dr <t2 | ƒ |( ds <| |( dt <| |( du <|! |( dv < | |( dw <
|" |( dx < |$ |( dy < |' |( dz <| |( d{ <|& |( d| <|2 |( d} <| |( d~ <|+ |( d <| |( d€ <| |( d <|* |( d‚ <|. |( dƒ <| |( d„ <| |( d… < |( | iQ | < |0 | iR | <!xe | i | iS ƒ D!]M } "tU | i | | ƒ tV iW j o# #| i | | | iR | | | i | ƒ ?| i | ƒ @| i ƒ D| d
} F| i d j o F| i ƒ n Gd t | ƒ d | d | } Jt i | ƒ } L| d d j oI Md t | d ƒ d t | d ƒ GHNd GHO| GHPt i ƒ n„ Q| i! | d ƒ o Q| Sna R|
i! | d ƒ oI Sd t | d ƒ d t | d ƒ GHTd GHU| GHVt i ƒ n ]t" i# | d d ƒ } ^| d | g Sd S( Ni s s DATABASEs [a-zA-Z0-9]s /Temp/sql1.txts /Temp/sqls .txts ^psql:s& NOTE: Saving sql commands executed at s Messages=
\pset format unaligned
\pset fieldsep ' '
s as PORTs psql -t -p 's ' -d 's ' -f i s ERROR: s s2 ERROR: Output of the following command had errors.s
(% s lens Configs selfs global_variabless Databases res compiles Check_AlphaNumerics homes FileNames Nos oss paths isfiles strs Check_Errors Messages Log_MessagePs Default_Sqls opens Writes writes Sqls closes Ports psql_versions Psql_Versions Commands commandss getstatusoutputs Outputs syss exits searchs strings splits Temp( s selfs Sqls Configs Databases Check_AlphaNumerics Temps Nos Writes Commands Outputs Check_Errors Default_Sqls FileNames Messages Port( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Query_Data_Psql(sL
#
#( (c s
act | ƒ d j o: d| i i | ƒ o e| i | } n
f| i } n gt | ƒ d j o. h| i i | ƒ o i| i | } n n k| d j p0 | d j p# t | ƒ d j p t | ƒ d j o% ld | d | GHmt
i ƒ n o| i d | d } p| d | d } q| d | d } rd
} td } u| i d | d
| ƒ } vd
} wx2 | d Dw]# }
x|
| j o
xd } n q…W{d } || i d | d
| ƒ } }d
} ~x6 | d D~]' }
|
| d j o
d } n qêWd } ‚| i d | d
| ƒ } ƒd
} „x6 | d D„]' }
…|
| d j o
…d } n qSW‡d | d } ˆ| i d | d
| ƒ } ‰d
} Šd } ‹x© | d D‹]š }
Œ|
| d j o Œ| d } n |
| d j o | d } n Ž|
| d j o Ž| d } n |
| d j o | d } n qÍW‘| d j o
‘d } n ”d | } •| i d | ƒ –t | d ƒ } —t | d ƒ } œd
}
| d d j o
| d
j o
žd }
nh Ÿ| d d j o
Ÿd }
nG | d d j o
| d j o
¡d }
n £| i d! | d" ƒ ¤|
d j o ¥| i d! | d" ƒ n §| d# d j o
| d
j o
¨d }
nh ©| d$ d j o
©d }
nG ª| d% d j o
| d j o
«d }
n | i d! | d& ƒ ®|
d j o ¯| i d! | d& ƒ n ´d
}
µ| d' d j o
| d
j o
µd }
nG ¶| d d j o
| d j o
¶d }
n ·| i d! | d( ƒ ¸|
d j o% ¹| i d! | d( ƒ ºd } n ¼d
}
½| d) d j o
| d
j o
¾d }
nd ¿| d$ d j o
| d j o
Àd }
n6 Á| d j o
Âd }
n Ã| i d! | d* ƒ Ä|
d j o% Å| i d! | d* ƒ Æd } n Èd
}
É| d+ d j o
Éd }
n~ Ê| d j o
Êd }
na Ì| i d! | d, ƒ Í| i d! | d- ƒ Î| i d! | d. ƒ Ï| i d! | d/ ƒ Ñ|
d j od Ò| i d! | d, ƒ Ó| i d! | d- ƒ Ô| i d! | d. ƒ Õ| i d! | d/ ƒ n ×d
}
Ø| d j o | d0 d j o
Ùd }
n" Ú| d1 d j o
Ûd }
n Ü|
d j oZ Ýx% | d2 DÝ] } Ý| i | ƒ qlWÞx% | d3 DÞ] } Þ| i | ƒ q—WnW àx% | d2 Dà] } à| i | ƒ qÆWáx% | d3 Dá] } á| i | ƒ qñWãd
}
ä| d
j o
äd }
n[ å| d$ d j o
åd }
n: æ| d d j o
æd }
n ç| i d! | d4 ƒ è|
d j o è| i d! | d4 ƒ n ê| i" ƒ ë| i" ƒ í| | i# | <î| | i$ | <ï| | g Sd S(5 Ni s s> ERROR: not given all requirements to process sql commands for s s
/Projects/s /Output/Tabless /s
_executed.sqls _executed_not.sqls nos select tablename from pg_tabless Sqls Databases yess; select typname from pg_type where typname like '%sequence';s _sequencesB select typname from pg_type where typname like '%sequence_backup';s _sequence_backups3 select viewname from pg_views where viewname like 's %'i s _actives _deleteds _backup_idss _purgedi s( NOTE: Starting to save sql commands for s Messages ws CREATE_SEQUENCEs RECREATE_TABLEs RECREATE_SEQUENCEs
s Sequences CREATE_BACKUP_SEQUENCEs RECREATE_BACKUP_TABLEs RECREATE_BACKUP_SEQUENCEs Sequence_Backups CREATE_TABLEs Tabless CREATE_BACKUP_TABLEs
Tables_Backups
VIEWS_REDOs View_Actives View_Deleteds View_BIdss View_Purgeds FUNCTIONSs FUNCTIONS_REDOs
SQL_Functionss
Sql_Customs Insert(% s lens Configs selfs table_configs has_keys TableNames global_variabless Sql_Commandss table_sql_commandss Databases syss exits homes Dirs Executeds Executed_Nots Tables_Altereds Sqls Query_Data_Psqls Outputs Table_Existss lines Sequence_Existss Sequence_Backup_Existss Views_Existss Temp_Nos Messages Log_MessagePs opens Es ENs DoIts writes ls closes table_executeds table_executed_not( s selfs Databases TableNames Sql_Commandss Configs Executed_Nots Tables_Altereds Es ENs Outputs lines Dirs Views_Existss DoIts Executeds Sequence_Existss Temp_Nos ls Table_Existss Sequence_Backup_Existss Sqls Message( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Process_Sql_Commandsas C
!
!
!
!
!
!
!
!
!
c sT òôt | ƒ d j o: õ| i i | ƒ o ö| i | } n
÷| i } n øt | ƒ d j oG ù| i i | ƒ o ú| i | } n üd | GHýt i
ƒ n þ| d j p
| d j o% ÿd | d | GH t i
ƒ n t i
d ƒ } | d } t i
d | i | ƒ } | i d | d
} | d | d } d
}
xK
t i i | ƒ o4 | d } | d | d t | ƒ d } qjWd | d | d | } | i d ƒ o | d d j o> d | } | i d | ƒ t i d | d ƒ }
n d | d | } | i d | ƒ t i | ƒ }
d | i | } | i d | ƒ | i d j o | i! ƒ n d t | ƒ d | d | i | } t i | ƒ }
t" i# |
d d ƒ } | i% |
d ƒ g } t i
d ƒ }
x8 | D ]- } !|
i) | ƒ o !| i* | ƒ n qGW"t | ƒ d
j oq #x | D#] } #| GHq›W$d t t | ƒ ƒ d! GH%d" GH&| d# d j o 't i+ i, ƒ } n n (|
d
d
j o) )d$ GH*d% GH+| GH,t i
ƒ n -|
d
| g Sd S(& Ni s& ERROR: No sql commands to execute for s s> ERROR: not given all requirements to execute sql commands for s s [a-zA-Z0-9]s PORTs ^psql:s
/Projects/s /Backupss /s _0.backupi s _s .backups pg_dump -t s -f s DELETE_BACKUPSs yess NOTE: Deleting backup files for s Messages rm -f s /*s NOTE: Backing up data in s to s NOTE: executing sql commands at s psql -t -p 's ' -d 's ' -f s
s ERROR:s There were s errors with this table.s Press enter to continue.s
IGNORE_ERRORSs) ERROR: There was an error executing psql.s= ERROR: You might want to run this command manually. Aborting.(. s lens Configs selfs table_configs has_keys TableNames global_variabless Sql_Commandss table_sql_commandss syss exits Databases res compiles Check_AlphaNumerics Ports table_executeds Check_Errors homes B_Dirs B_Files TempNos oss paths isfiles strs Commands Messages Log_MessagePs commandss getstatusoutputs Outputs psql_versions Psql_Versions strings splits Temps Log_Messages Temp2s Re_Errors Lines searchs appends stdins readlines Input1( s selfs Databases TableNames Sql_Commandss Configs Check_AlphaNumerics Temp2s Temps Check_Errors Commands Outputs Lines Input1s Re_Errors TempNos Messages B_Dirs Ports B_File( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Execute_Sql_Commandsòst
( $
*
c N su 02t | ƒ d j o: 3| i i | ƒ o 4| i | } n
5| i } n 6| d j p
| d j o% 7d | d | GH8t i ƒ n :| i
d }* ;| i d ƒ o | d d j o <| d }* n ?h | i | <Bt
i d ƒ }8 Dxð | i DD]â }, Ed | i | |, <Ft i |, ƒ } Gt i |, ƒ } H|* d | }; I| i d | ƒ o | d | d
j o
Iq n# J| i d | ƒ o
Jq n Lt i |; ƒ } M| i d | d |8 ƒ } N| i d | d |8 d
d ƒ } O| i ƒ S| i
d | d | } T| d d | }? \d | d |? }L ]| i" d |L ƒ ^xá| D^]Ö}E _| d |E } `|; d |E d }I bt& |I d ƒ } c| i( ƒ }- d| i* ƒ gt& | d ƒ }
i| i, d |- d | i- | ƒ }- jx! |- Dj] }9 j|
i/ |9 ƒ q Wm|? d |E d }J ot i1 i2 |J ƒ o³pt& |J d ƒ } q| i( ƒ } r| i* ƒ ug }0 vx! | Dv] }9 v|0 i5 |9 ƒ q•Wx| i, d |0 d | i- | ƒ }0 z| i
d | d | d |E d | }
{t& |
d ƒ }" |x! |0 D|] }9 ||" i/ |9 ƒ q W}|" i* ƒ x· | i8 | d D]¡ }3 ‚| i
d | d | d |E d |3 } „t i1 i2 | ƒ oY …t& | d ƒ } †| i( ƒ } ‡| i* ƒ ˆx! | Dˆ] }9 ˆ|
i/ |9 ƒ qÞWn q[Wn ‹|? d |E d }C Œt i1 i2 |C ƒ o{ t& |C d ƒ } Ž| i( ƒ }- | i* ƒ ‘| i, d |- d | i- | ƒ }- ’x! |- D’] }9 ’|
i/ |9 ƒ qŒWn •| i
d | d | d |E d }A –t i1 i2 |A ƒ o{ —t& |A d ƒ } ˜| i( ƒ } ™| i* ƒ ›| i, d | d | i- | ƒ } œx! | Dœ] }9 œ|
i/ |9 ƒ qEWn Ÿ|? d |E d }' t i1 i2 |' ƒ o{ ¡t& |' d ƒ } ¢| i( ƒ }- £| i* ƒ ¥| i, d |- d | i- | ƒ }- ¦x! |- D¦] }9 ¦|
i/ |9 ƒ qëWn ¨|, d j p
|, d j o ©|
i/ d! ƒ n ª|
i* ƒ qqW| i
d | d | d" }> ®t i |> ƒ } ¯| i d | d |8 ƒ }2 °| i d |2 d |8 d
d ƒ }2 ±|2 i ƒ ³xÝ |2 D³]Ò }E ´| d |E } µ|> d |E d }I ·t& |I d ƒ } ¸| i( ƒ }- ¹| i* ƒ »t& | d ƒ }
¼| i, d |- d | i- | ƒ }- ½x! |- D½] }9 ½|
i/ |9 ƒ qnW¿|
i/ d! ƒ À|
i* ƒ qÓWÃ| d# |, } Ät& | d ƒ }
Å| } Æg }G Çx! | DÇ] }E Ç|G i5 |E ƒ qëWÈx! |2 DÈ] }E È|G i5 |E ƒ q WÊ|, d j o4 Ë|
i/ d$ |, d% ƒ Ì|
i/ d& | d' ƒ n« Í|, d j o^ Î| d t i | ƒ }H Ï|
i/ d$ |, d% ƒ Ð|
i/ d( ƒ Ñ|
i/ d) |H d* ƒ n= Ò|, d+ j o, Ó|
i/ d, ƒ Ô|
i/ d- |H d. ƒ n Öx |G DÖ]}E ×t iH |E d/ ƒ } Ù|, d j oŠ Ú|
i/ d0 t i | ƒ d1 | d2 d3 ƒ ÛxS |G DÛ]H }E Üt iH |E d/ ƒ } Ý|
i/ d0 t i | ƒ d1 | d2 d3 ƒ qŒ
Wn] Þ|, d+ j o ß|
i/ d4 |E d5 ƒ n1 à|, d j o á|
i/ d6 | d2 d7 ƒ n q'
Wã|
i/ d8 d7 ƒ ä|, d+ j o ä|
i/ d9 ƒ n å|
i* ƒ è| d t i | ƒ }H étJ iK d: |H ƒ }! êx@ |G Dê]5 }E ëd; | d |E d |H }4 ìtJ iK |4 ƒ }! q¾ Wíd }B î|, d+ j o
îd< }B n ïtJ iK |, d |B | d# |, ƒ }! ðd2 t iO |! d= ƒ j ox ñd> |, d? | d@ | }L ò| i" d |L ƒ ó| i" d |! ƒ ôdA GHõ|! GHöt iO |! d= ƒ GH÷t i ƒ n ú|! | i | |, | ia ƒ }+ ?| i* ƒ @d }$ Ax? |7 DA]4 }M B|+ } Ct ie | dO |M ƒ } D|. | }. q·WH|. | dQ <Lt& | dR | iP |, d ƒ } M| i( ƒ }) N| i* ƒ Od } Pxe |7 DP]Z }M QxN |) DQ]C }& Rt ie |& dO |M ƒ } St ie | dS | ƒ } T| | } qbWqOWWdT }# YdU }6 ZdV }% ]t& | dW | iP |, d ƒ } ^| i( ƒ } _| i* ƒ at& | dE | iP |, d ƒ } b| i( ƒ } c| i* ƒ et& | dX | iP |, d ƒ } f| i( ƒ }/ g| i* ƒ it& | dY | iP |, d ƒ } j| i( ƒ } k| i* ƒ mt
i dF ƒ } nx—|1 Dn]Œ}M o| ir d |M ƒ }( p|( } qxN | Dq]C }& rt ie |& dO |M ƒ } st ie | dS | ƒ } t|# | }# q WuxN | Du]C }& vt ie |& dO |M ƒ } wt ie | dS | ƒ } x|6 | }6 q`WyxN |/ Dy]C }& zt ie |& dO |M ƒ } {t ie | dS | ƒ } ||% | }% q´W}xf | D}][ }& ~t ie |& dZ |( ƒ } t ie |& dO |M ƒ } €t ie | dS | ƒ } | | } qWqÛWƒ|# | d[ <„|6 | d\ <…|% | d] <†| | d^ <‰| }@ Š| i, d |- d |@ ƒ }- ‹| i- | }@ Œ| i, d |- d |@ ƒ }- ‘|5 d | d/ |D }: “t& |: d ƒ }
”x! |- D”] }9 ”|
i/ |9 ƒ q&W•|
i* ƒ –d_ |: }L —| i" |L ƒ qÿ Wd S(` Ni s sO ERROR: not given all requirements to create modules and sample web scripts for s s
/Templatess TEMPLATE_DIRs _header$s /s DO_s yess Lists Searchs Replaces
/Projects/s /Output/s NOTE: Creating modules in s from s Messages _headers rs ws Search_Lists _templates /temp_templates/s _s
table_lists _template_footers /Custom/s _customs _footers perls pythons
1;
s /Moduless /Test.s #!/usr/bin/s
s use lib qw(s );
s import sys
s sys.path.append('s ')
s phps
s mkdir -p s cp s -q s GOODs ERROR: Language modules for s* didn't compile with a 'GOOD' status for s :s Abortings /HTMLs NOTE: Creating webpages in s /Custom_Html1.s /Custom_Lists.s _id$s table_fields _ids 's _id's ,'s
LISTFIELDSs /DEFINEFIELDS_Id.s$ #### GOOD: definefields replaced.
s
__FIELDNAME__s /DEFINEFIELDS_No.s DEFINEFIELDSs /HTMLFIELDS.s
__TABLENAME__s0 ## GOOD: Get the ids of the foriegn tables.
s# #### GOOD: other_lists replaced.
s$ #### GOOD: otherids_set replaced.
s
/OTHERIDS.s
/SETIDSOTHER.s /HTMLFIELDS_ID.s __FIELDNAME___NOIDs OTHERIDSs OTHER_LISTSs SETIDSOTHERs HTML_FIELDSs NOTE: Created file (v s lens Configs selfs table_configs has_keys TableNames global_variabless Databases syss exits homes Templatess table_module_tests res compiles
Search_Headers
web_languagess Languages strings uppers
Language_Us
capitalizes
Language_Cs Dirs oss listdirs Filess grep_searchs Bases grep_replaces sorts Modules_Destinations Modules_Sources Messages Log_MessagePs Modules Module_Destinations
Module_Sources opens Reads readliness Liness closes Writes grep_replace_text_lists table_variabless lines writes Module_Ts paths isfiles Lines_Ts Lists appends File_Ts Write_Ts databases
Table_Temps Temp_Ts Read2s Lines_TTs Module_TFs Custom_Names Lines_Cs Module_Fs Dir2s Files2s Base2s Test_Files Temp_Lines Modules_Alls Test_Dirs splits Temps commandss getoutputs Outputs Commands Extras finds
extensionss Exts Html_Destinations Html_Sources
Template_Lists Other_Variabless Check_Id_Tags Idss No_Idss Table_Fieldss keyss Keyss Fields Junks searchs List_Fieldss Ids readlines
Template_Lines DefineFieldss
Temp_Liness replaces Add_Lines Template_Liness
HtmlFieldss Lines OtherIdss Other_Listss OtherIds_Sets Template_Lines_1s Template_Lines_2s Template_Lines_3s Template_Lines_4s
Remove_Id_Tags subs Column_No_Ids Search_Lists FileName(N s selfs Databases TableNames Configs
Language_Us
Template_Lists Template_Lines_4s Test_Files Module_Destinations Lines_Cs File_Ts Html_Sources Junks Writes Read2s Lines_TTs Template_Lines_1s
Language_Cs Modules_Destinations Add_Lines Files2s
Remove_Id_Tags
HtmlFieldss Lines_Ts Filess Bases Temp_Lines Temps Reads Other_Variabless Template_Lines_2s Temp_Ts List_Fieldss Outputs Write_Ts OtherIdss
Temp_Liness OtherIds_Sets Lines Module_Fs Column_No_Ids Template_Liness Templatess
Template_Lines Languages Liness DefineFieldss Template_Lines_3s Lists Idss Base2s
Table_Temps Commands Html_Destinations Other_Listss No_Idss
Search_Headers lines FileNames Dirs Check_Id_Tags Fields Dir2s Modules_Sources Search_Lists Custom_Names Extras Module_TFs Exts Modules Keyss Modules_Alls Test_Dirs
Module_Sources Module_Ts Table_Fieldss Messages Id( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Create_Languages0sb $
,
!
"
",
,
"
(
"
"
!
"
-
5 $
&
,
!
!
!
!
!
!
!
!
!
c s2 ¤¦t | ƒ d j o: §| i i | ƒ o ¨| i | } n
©| i } n ª| d j p
| d j o% «d | d | GH¬t i ƒ n ³| i d ƒ o* ´d } µ| i | ƒ ¶t i ƒ ni ¸| d } ¹d | } ºt
i i | ƒ o' »t i d | ƒ } ¼d | } n ½| i | ƒ À| i d
ƒ o Ád } Â| i | ƒ nÄ| d
} Åt
i i | ƒ o Æt i d | ƒ } n Çd | } È| i | ƒ Ë| i d
} Ì| d
} Ít | d d ƒ } Ît | d d ƒ } Ï| i ƒ } Ðx9 | DÐ]. } Ñt i | d | ƒ } Ò| i | ƒ q)WÓ| i ƒ Ô| i ƒ Ø| i d } Ù| i d | d } Út
i i" | ƒ o | i d ƒ o | d d j o
Úd } n%Û| i d ƒ o | d d j o Üt$ i% d ƒ } Ý| i d ƒ o | d d j o" Þd } ß| d } à| GHn ád } â| GHãd Gät i' i( ƒ } å| i* d | ƒ } æd Gçt i' i( ƒ } è| i* d | ƒ } éd | d | d | }
ê|
GHët i |
ƒ } n ít
i i" | ƒ o
í| } n î| i d | d } ïd! | d | d" }
ðt i |
ƒ } ñd# | d$ | d" } ò| i | ƒ õxç| i. Dõ]Ù} öt i0 | ƒ } ÷t i2 | ƒ } ø| i d% | ƒ p | d% | d j o' ùd& | } ú| i | ƒ ûq¤n’ ü| i d' | ƒ o | d' | d j o' ýd( | } þ| i | ƒ ÿq¤n? | d
d" | | d' | <d) | d* } | i | ƒ d+ | } | i | ƒ | d' | }
t
i i | ƒ o7 d, | } | i | ƒ
t i d | ƒ } n d- | d$ | } | i | ƒ | i d | d | d. } t$ i% | i4 | d/ ƒ }
t
i6 | ƒ } t | d0 d ƒ } | i8 ƒ xH | D]= } |
i: | ƒ o$ | i d1 | d2 | d3 ƒ n qÓW| i ƒ t i d! | d4 | d" ƒ } | i; | ƒ t i d5 | d6 ƒ } | i; | ƒ q¤W%xT| i. D%]F} &t i0 | ƒ } 't i2 | ƒ } (| i d7 ƒ o# )d8 } *| i | ƒ +q‘næ ,| i d% | ƒ p | d% | d j o' -d9 | } .| i | ƒ /q‘n’ 0| i d: | ƒ o | d: | d j o' 1d; | } 2| i | ƒ 3q‘n? 5| d7 d" | | d: | <6d< | d= } 7| i | ƒ :| d: | } <t
i i | ƒ o7 =d, | } >| i | ƒ ?t i d | ƒ } n Ad> | d$ | } B| i | ƒ C| i d | d | d? } Dt i d! | d4 | d" ƒ } E| i; | ƒ Gt i d5 | d6 ƒ } H| i; | ƒ q‘WLxJ| i. DL]<} Mt i0 | ƒ } Nt i2 | ƒ } O| i d@ ƒ o* PdA } Q| i | ƒ Rt i ƒ nò S| i d% | ƒ p | d% | d j o' TdB | } U| i | ƒ Vqë nž W| i dC | ƒ o | dC | d j o' XdD | } Y| i | ƒ Zqë nK [| i dC | ƒ o2 \dE | dF } ]| i | ƒ ^t i ƒ n a| dC | } ct
i i | ƒ o7 dd, | } e| i | ƒ ft i d | ƒ } n hdG | d$ | } i| i | ƒ j| i d | d | d" t i0 | ƒ } kt i d! | d4 | d" ƒ } l| i; | ƒ që Wd S(H Ni s sP ERROR: not given all requirements to install modules and sample web scripts for s s TEMPDIRs8 ERROR: TEMPDIR not defined. This could be bad, aborting.s) NOTE: tmpdir directory already exists at s mkdir -p s NOTE: making tmpdir at s DESTINATION_HTMLs; POTENTIAL: DESTINATION_HTML not defined. This could be bad.s. NOTE: installing web scripts for languages at s
/Templatess /htaccesss rs
/.htaccesss ws __DIR__s /Templates/Passwords
/Projects/s /Output/Passwords IGNORE_IF_CUSTOM_EXISTSs yess ASK_HTACCESS_PASSWORDs \ss7
This database is only setup to ask this question once.sF
This feature can be changed at line command or with the config files.s@ Please enter a username and password to protect the web scripts.s
username: s
password: s htpasswd -b -c s /Output/s
rsync -av s /s
NOTE: Copied s to s DO_s. NOTE: Not installing web scripts for language s DESTINATION_HTML_s. NOTE: not installing web scripts for language s. POTENTIAL: No definition for DESTINATION_HTML_s2 , so we are just attaching it to DESTINATION_HTML.s4 NOTE: (disabled) Installing web script for language s2 POTENTIAL: Directory doesn't exist, creating it = s+ NOTE: Installing html scripts for language s /HTMLs $s /index.htmls
s
s /* s
chmod 755 s /*s DESTINATION_ADMINsS POTENTIAL: DESTINATION_ADMIN is not defined, skipping installing admin web scripts.s0 NOTE: Not installing admin scripts for language s DESTINATION_ADMIN_s0 NOTE: not installing admin scripts for language s POTENTIAL: DESTINATION_ADMIN_s7 not defined, we are attaching it to DESTINATION_ADMIN.s, NOTE: Installing admin scripts for language s /ADMIN/s DESTINATION_MODULES_ROOTs~ ERROR: DESTINATION_MODULES_ROOT is not defined, aborting installing modules and this program. This is a critical config error.s* NOTE: Not installing modules for language s DESTINATION_MODULES_s* NOTE: not installing modules for language s ERROR: DESTINATION_MODULES_ s
not defined.s& NOTE: Installing modules for language (< s lens Configs selfs table_configs has_keys TableNames global_variabless Databases syss exits Messages Log_MessagePs Dirs oss paths isdirs commandss getoutputs Outputs homes T_Dirs H_Dirs opens Reads Writes readliness
Temp_Liness Lines strings replaces writes closes
Password_Files
Custom_P_Files isfiles Junks res compiles Remove_Whitespaces stdins readlines Input1s subs Input2s Commands
Source_Dirs
web_languagess Languages uppers
Language_Us
capitalizes
Language_Cs
extensionss
Search_Exts listdirs Filess sorts Files searchs Log_Message( s selfs Databases TableNames Configs
Custom_P_Files
Language_Us Languages Junks Writes
Password_Files Commands
Language_Cs Outputs
Search_Exts Messages Dirs Input2s Input1s Reads
Source_Dirs Remove_Whitespaces Files Filess
Temp_Liness H_Dirs Lines T_Dir( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Install_Languages¤sF
7
$$
-
,
(
"
-
,
"
-
,
-"c sŒ pq| i d } rt i | d ƒ } s| d d j o% td | GHud GHvt i ƒ n wt i | d ƒ } x| d | _ d S( Ns PSQLs -Vi s' Unable to determine version of psql at s Aborting.i i ( s selfs global_variabless Psqls commandss getstatusoutputs Outputs syss exits strings splits Temps psql_version( s selfs Psqls Temps Output( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys Psql_Versionps ( s __name__s
__module__s __init__s Globals Parse_Configs Log_Messages Log_MessagePs
Parse_Optss Override_Globals Parse_Database_Infos res compiles grep_searchs grep_replace_texts grep_replaces grep_replace_text_lists sort_lengths split_pounds Filter_Data_Inputs Database_Checks Process_Configs Table_Sqls Query_Data_Psqls Process_Sql_Commandss Execute_Sql_Commandss Create_Languagess Install_Languagess Psql_Version( ( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys GUPPS_Setup s4 '
R™ Aÿ 9‘>ÿ uÌ( s strings res binasciis base64s oss syss gzips times commandss getopts typess GUPPS_Setup( s commandss strings base64s binasciis GUPPS_Setups syss res times gzips getopts oss types( ( s. /home/mark/Databases/lib/Python/GUPPS_Setup.pys ? s <9 beta/lib/Python/GUPPS_Setup.py~ 0100664 0000764 0000764 00000205263 07672740733 015356 0 ustar mark mark #!/usr/bin/env python2
## If you don't see a copyright header, this fall under GPL license and
## Artistic license as the rest of GUPPS or MAPPS by Mark Nielsen,
## Copyrighted 2001,2002.
### Constants is the module we make.
import string, re, binascii, base64, os, sys
import base64, string, gzip, sys, time, commands
import getopt, types
class GUPPS_Setup:
def __init__(self):
self.home = os.environ['GUPPS_HOME']
self.global_config_file = self.home + "/Local/Global.config"
self.global_options_file = self.home + "/lib/Options.config"
self.global_options_long_file = self.home + "/lib/Options_Long.config"
self.global_options_default_file = self.home + "/lib/Options.default"
self.start_date = time.strftime("%Y%m%d")
self.start_time = time.strftime("%H%M%S")
self.log = self.home +"/Logs/"+ self.start_date + self.start_time + ".log";
self.web_languages = ['perl', 'php', 'python', 'java']
self.global_options = {}
self.global_variables = {}
self.optlist = []
self.args = []
self.database = {}
self.table_config = {}
self.table_sql_commands = {}
self.table_executed = {}
self.table_executed_not = {}
self.table_variables = {}
self.table_module_test = {}
self.default_table = ['update_tablefield']
self.default_sequence = ['update_tablefield_sequence']
self.default_function = ['update_tablefield','restore_tablefields']
self.extensions = {}
self.extensions['perl'] = "pl"
self.extensions['php'] = "php"
self.extensions['python'] = "py"
self.extensions['java'] = "jsp"
self.psql_version = ""
#------------------------------------------------------------------
def Global(self):
Temp_Global = {}
if not os.path.isfile(self.global_config_file):
print "Error, global config file not found."
print "Looking for " + self.global_config_file
print "Aborting."
sys.exit()
elif not os.path.isfile(self.global_options_default_file):
print "Error, global options default file not found."
print "Looking for " + self.global_options_default_file
print "Aborting."
sys.exit()
else:
Temp_Global = self.Parse_Config(File=self.global_config_file)
Temp_Global['DESTINATION_MODULES_ROOT'] = Temp_Global['SERVER_ROOT'] + "/lib"
if not os.path.isdir(Temp_Global['DESTINATION_MODULES_ROOT']):
Output = commands.getoutput("mkdir -p " + Temp_Global['DESTINATION_MODULES_ROOT'])
if os.path.isfile(self.global_options_default_file):
Temp_Global2 = self.Parse_Config(File=self.global_options_default_file)
for Key in Temp_Global2.keys():
if not Temp_Global.has_key(Key):
Temp_Global[Key] = Temp_Global2[Key]
self.global_variables = Temp_Global
return (Temp_Global)
#-----------------------------------------------------------------
def Parse_Config(self, File = ""):
Temp_Hash = {}
if File == "": return Temp_Hash
elif not os.path.isfile(File): return Temp_Hash
Message = "NOTE: Parsing file " + File
self.Log_MessageP(Message)
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Read = open(File, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
Temp = string.split(line, " ", 1)
if (len(Temp) > 1) and (Temp[0] != "") and (Temp[1] != ""):
Temp_Hash[Temp[0]] = Temp[1]
# print line, Temp
return Temp_Hash
#---------------------------------------------------------
def Log_Message(self, Message=""):
log= ""
if Message == "": return ""
else:
log = open(self.log,'a')
log.write(str(Message) + "\n")
log.close()
def Log_MessageP(self, Message=""):
log= ""
if Message == "": return ""
else:
log = open(self.log,'a')
log.write(str(Message) + "\n")
log.close()
print Message
#---------------------------------------------------------
def Parse_Opts(self):
Args = sys.argv[1:]
Options = {}
if not os.path.isfile(self.global_options_file):
print "Error, global options file not found."
print "Looking for " + self.global_options_file
print "Aborting."
sys.exit()
elif not os.path.isfile(self.global_options_long_file):
print "Error, global options long file not found."
print "Looking for " + self.global_options_long_file
print "Aborting."
sys.exit()
else:
Message = "NOTE: Parsing file " + self.global_options_file
self.Log_MessageP(Message)
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Remove_End2 = re.compile('[:=]+$')
String = ""
Read = open(self.global_options_file, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
if Check_AlphaNumeric.search(line):
Temp = string.split(line, " ")
String = String + Temp[0]
if len(Temp) == 2:
Temp[0] = Remove_End2.sub("",Temp[0])
Options[Temp[0]] = Temp[1]
# print "TEST3 ", Temp
self.global_options = Options
Message = "NOTE: Parsing file " + self.global_options_long_file
self.Log_MessageP(Message)
Temp_Array = []
Read = open(self.global_options_long_file, 'r')
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Read.close()
for line in List:
if Check_AlphaNumeric.search(line):
Temp = string.split(line, " ")
Temp_Array.append(Temp[0])
if len(Temp) == 2:
Temp[0] = Remove_End2.sub("",Temp[0])
Options["-" + Temp[0]] = Temp[1]
# print "TEST2 ", Temp
self.global_options = Options
# print Args, String
try: optlist, args2 = getopt.getopt(Args, String, Temp_Array)
except:
print "One of your options didn't make sense, aborting."
# print String
print Args
(type, value, traceback) = sys.exc_info()
print "exc_type = " + str(type)
print "exc_value = " + str(value)
print "exc_traceback = " + str(traceback)
print "\nThe following options exist."
List = self.global_options.keys()
List.sort()
for Key in List:
print "-" + Key + " = " + self.global_options[Key]
sys.exit()
# print "TEST4 ",optlist, args2
self.optlist = optlist
self.args = args2
return optlist, args2
#---------------------------------------------------------
def Override_Global(self, database='unknown'):
Options = self.optlist
Remove_Start = re.compile('^-')
for List in Options:
Temp_Key = List[0]
Key = Temp_Key
Value = List[1]
Key = Remove_Start.sub("",Key)
if self.global_options.has_key(Key): Key = self.global_options[Key]
if not self.global_variables.has_key(Key): Temp = 1
elif Value != "": self.global_variables[Key] = Value
self.global_variables['DATABASE'] = database
return self.global_variables
#------------------------------------------------------------
def Parse_Database_Info(self, database='', tablename=''):
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
Check_Words = re.compile('[a-zA-Z0-9/-_\.]')
Remove_End2 = re.compile('[:=]+$')
Dir = self.home + "/Projects/" + str(database)
Tables_File = Dir + "/Tables.txt"
if database == "":
print "Error, no database specified in Parse_Tables_Flat, aborting."
sys.exit()
elif not os.path.isdir(Dir):
print "Error, database directory does not exist."
print "Looking for " + Dir
print "Aborting."
sys.exit()
elif not os.path.isfile(Tables_File):
print "Error, tables file not found for database " + database
print "Looking for " + Tables_File
print "Aborting."
sys.exit()
else:
Message = "NOTE: Found database directory " + Dir
self.Log_MessageP(Message=Message)
Message = "NOTE: Parsing file " + Tables_File
self.Log_MessageP(Message=Message)
self.database[database] = {}
Table_Start = re.compile('^TABLENAME')
Table = {}
Table_Field = {}
Table_List = []
TableName = "junk"
Table['junk'] = []
Table_Field['junk'] = {}
Read = open(Tables_File)
List = Read.readlines()
List = self.Filter_Data_Input (List=List)
Remove_Comma = re.compile(',')
Read.close()
for line in List:
line = Remove_Comma.sub(" ", line)
Temp = string.split(line, " ", 1)
if len(Temp) < 2: Temp = 1
elif Table_Start.search(line):
TableName = Temp[1]
Table[TableName] = []
Table_Field[TableName] = {}
Table_List.append(TableName)
# print database + ": processed table " + TableName
else:
Table[TableName].append(line)
Table_Field[TableName][Temp[0]] = Temp[1];
Temp_File = self.home + "/Projects/" + database + "/Config.txt"
Database_Config = {}
if not os.path.isfile(Temp_File):
print "Error, no global config file for database " + database
print "Aborting."
sys.exit()
else:
Database_Config = self.Parse_Config(Temp_File)
Temp_Hash = {}
#### The raw lines for each table.
Temp_Hash['table'] = Table
### The fieldnames for each table.
Temp_Hash['table_field'] = Table_Field
### The order of the tables appearing in file.
Temp_Hash['table_list'] = Table_List
### Configuration for database.
Temp_Hash['database_config'] = Database_Config
self.database[database] = Temp_Hash
Message = "NOTE: Checking for default functions, sequences, tables."
self.Log_MessageP(Message)
### We need to check if the database exists, if we set the
### create database to no, then abort.
Sql = "select datname from pg_database"
Output = self.Query_Data_Psql(Sql=Sql, Database="template1")
Exists = "no"
for line in Output[1]:
if line == database: Exists = "yes"
if (Exists == "no") and (self.global_variables['CREATE_DATABASE'] != "yes"):
print "ERROR: Database " + database + " doesn't exist and we aren't allowed to create it by default."
sys.exit()
elif Exists == "no":
# print Temp, database, Exists
Sql = "create database " + database
self.Query_Data_Psql(Sql=Sql, Database="template1")
### Now check if the default tables and sequences are installed.
Sql = "select typname from pg_type where typname like '%sequence%';"
for Sequence in self.default_sequence:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Sequence: Exists = "yes"
if Exists == "no":
Sql = "create sequence " + Sequence
self.Query_Data_Psql(Sql=Sql, Database=database)
elif (self.global_variables.has_key('DEFAULT_SEQUENCE_REDO')) and (self.global_variables['DEFAULT_SEQUENCE_REDO'] == "yes"):
Sql = "drop sequence " + Sequence + ";"
self.Query_Data_Psql(Sql=Sql, Database=database)
Sql = "select tablename from pg_tables;"
if self.psql_version == "": self.Psql_Version()
for Table in self.default_table:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Table: Exists = "yes"
if Exists == "no":
Sql2 = "\\i " + self.home + "/" + self.global_variables['TEMPLATE_DIR'] + "/Tables_Default.txt"
self.Query_Data_Psql(Sql=Sql2, Database=database)
elif (self.global_variables.has_key('DEFAULT_TABLE_REDO')) and (self.global_variables['DEFAULT_TABLE_REDO'] == "yes"):
Sql2 = "drop table " + Table + ";"
if self.psql_version == "7.3":
Sql2 = "drop table " + Table + " cascade ;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
Sql2 = "\\i " + self.global_variables['TEMPLATE_DIR'] + "/Tables_Default.txt"
self.Query_Data_Psql(Sql=Sql2, Database=database)
### Now check if the default sql functions are installed.
Sql = "select proname from pg_proc;"
for Function in self.default_function:
Output = self.Query_Data_Psql(Sql=Sql, Database=database)
Exists = "no"
for line in Output[1]:
if line == Function: Exists = "yes"
if Exists == "no":
# print "TEST1"
Sql2 = "\\i " + self.global_variables['TEMPLATE_DIR'] + "/Functions/Default.pgsql;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
elif (self.global_variables.has_key('DEFAULT_PLPGSQL_REDO')) and (self.global_variables['DEFAULT_PLPGSQL_REDO'] == "yes"):
Sql2 = "delete from pg_proc where proname = '" + Function + "';"
self.Query_Data_Psql(Sql=Sql2, Database=database)
Sql2 = "\\i " + self.global_variables['TEMPLATE_DIR'] + "/Functions/Default.pgsql;"
self.Query_Data_Psql(Sql=Sql2, Database=database)
return self.database[database]
#------------------------------------------------------------------
# These two simulate grep and replace
# It always returns a list.
def grep_search(self, List=[], Search=re.compile('')):
List2 = []
for line in List:
if Search.search(line): List2.append(line)
return List2
def grep_replace_text(self, List=[], Search="", Replace=''):
List2 = []
Temp = "__" + Search + "__"
for line in List:
line = string.replace(line, Temp, Replace)
List2.append(line)
return List2
def grep_replace(self, List=[], Search=re.compile(''), Replace=''):
List2 = []
for line in List:
line = Search.sub(Replace, line)
List2.append(line)
return List2
def grep_replace_text_list(self, List=[], Search_List={}):
List2 = []
for line in List:
Keys = Search_List.keys()
## Always do the larger words first.
Keys.sort(self.sort_length)
Keys.reverse()
for Key in Keys:
Replace = Search_List[Key]
Temp = "__" + Key + "__"
line = string.replace(line, Temp, Replace)
List2.append(line)
return List2
def sort_length(self,n,m):
if len(n) > len(m): return 1
else: return -1
def split_pound(self, List=[]):
List2 = []
Check_Pound = re.compile('#')
for line in List:
if Check_Pound.search(line):
Temp = string.split(line, '#')
line = Temp[0]
List2.append(line)
return List2
#------------------------------------------------------------
# Rememebr to use this function with readlines for all above functions.
def Filter_Data_Input(self, List=[]):
Check_Pound = re.compile('#')
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Replace_Whitespace = re.compile('[ \t\n\r]+')
Remove_Start = re.compile('^[ \t\n\r]+')
Remove_End = re.compile('[ \t\n\r]+$')
List2 = []
for line in List:
line = Replace_Whitespace.sub(" ",line)
line = Remove_Start.sub("",line)
line = Remove_End.sub("",line)
if Check_Pound.search(line) :
Temp = string.split(line, '#')
line = Temp[0]
if Check_AlphaNumeric.search(line):
List2.append(line)
return List2
#----------------------------------------------------------------
def Database_Check(self, Database="sample"):
Dir = self.home + "/Projects/" + Database
Dirs = ['Output/Tables','Backups','Custom/Sql', 'Table_Config']
for L in self.web_languages:
C = string.capitalize(L)
Dirs.append('Output/' + C + '/HTML')
Dirs.append('Custom/' + C + '/Modules')
Dirs.append('Output/' + C + '/temp_templates')
Dirs.append('Output/' + C + '/ADMIN')
for Dir_Name in Dirs:
# print Dir_Name
if not os.path.isdir(Dir + "/" + Dir_Name):
Output = commands.getoutput("mkdir -p " + Dir + "/" + Dir_Name)
#---------------------------------------------------
def Process_Config(self, Database='sample', TableName='sample'):
Message = "NOTE: Determinig config for :" + Database + ":" + TableName
self.Log_MessageP(Message=Message)
Options = {}
Temp = self.global_variables.keys()
Temp.sort()
for Key in Temp:
Options[Key] = self.global_variables[Key]
# print Key, Options[Key]
# sys.exit()
## Abort if the database options are not stored.
Database_Options = {}
try: Database_Options = self.database[Database]['database_config']
except:
print "Error, database options not stored in object."
print "Looking for database options for " + Database
print "Aborting."
sys.exit()
for Key in Database_Options.keys():
Options[Key] = Database_Options[Key]
# print Key, Options[Key]
# sys.exit()
## Load the table options. We don't need the table options
## anwyhere else but here. Not required.
TC = self.home + "/Projects/" + Database + "/Table_Config/" + TableName + "_config.txt"
if os.path.isfile(TC):
Message = "NOTE: Parsing table config file " + TC
self.Log_MessageP(Message=Message)
Table_Options = self.Parse_Config(TC)
for Key in Table_Options.keys(): Options[Key] = Table_Options[Key]
else:
Message = "POTENTIAL: Unable to find table options file (not critical) for " + TC
self.Log_MessageP(Message=Message)
for Language in self.web_languages:
C = string.capitalize(Language)
Key = string.upper('DESTINATION_MODULES_' + Language)
Options[Key] = Options['DESTINATION_MODULES_ROOT'] + "/" + Language + "/" + string.upper(Database)
if not os.path.isdir(Options[Key]):
print "mkdir -p " + Options[Key]
Output = commands.getoutput("mkdir -p " + Options[Key])
# print Options[Key]
if Options.has_key('TEMPLATE_DIR'):
Options['TEMPLATE_DIR'] = self.home + "/" + Options['TEMPLATE_DIR']
else: Options['TEMPLATE_DIR'] = self.home + "/Templates"
Options['TABLENAME'] = TableName
self.table_config[TableName] = Options
# if not self.table_variables.has_key(TableName):
# self.table_variables[TableName] = {}
# for Key in Options.keys():
# self.table_variables[TableName][Key] = Options[Key]
# Temp = Options.keys()
# Temp.sort()
# for Key in Temp: print Key, Options[Key]
# sys.exit()
return Options
#----------------------------------------------------------------------
def Table_Sql(self, Database='sample', TableName='sample', Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
Home = self.home + "/Projects/" + Database
Check_Id = re.compile('_id$')
## Change this to be flexible on templates directory.
Read = open(self.home + "/Templates/Generic.fun")
SQL_Template = Read.readlines()
Read.close()
General_Functions = "perl"
if Config['PL_LANGUAGE'] != "": General_Functions = Config['PL_LANGUAGE']
Read = open(self.home + "/Templates/Functions/General." +General_Functions)
SQL_Custom_Template = Read.readlines()
Read.close()
if not self.database[Database].has_key('table_sql'):
self.database[Database]['table_sql'] = {}
self.database[Database]['table_sql'][TableName] = {}
Table_Fields = self.database[Database]['table_field'][TableName]
Table_Lines = self.database[Database]['table'][TableName]
# print Table_Lines
Ref = self.database[Database]['table_sql'][TableName]
Table = TableName + "_id int4 NOT NULL PRIMARY KEY DEFAULT nextval('" + TableName + """_sequence'),
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
"""
## I should allow null for the id instead of 0, but since the sequence
### starts at 1, I use 0 as null. I hate nulls.
Table_Backup = "backup_id int4 NOT NULL UNIQUE DEFAULT nextval('" + TableName + """_sequence_backup'),
""" + TableName + """_id int4 NOT NULL DEFAULT 0,
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
error_code text NOT NULL DEFAULT '',
"""
Message = "NOTE: Creating functions for table '" + TableName
self.Log_MessageP(Message=Message)
No = 1
### For each line for this table do this.
### We want to create a few variables that are going to be placed into
### the template.
Fields = ""
Backup_Columns = ""
Update_Fields = ""
Backup_Values = ""
Field_Copy_Values = ""
Field_Types = ""
RemakeVariables = ""
CleanVariables = ""
Sql_Commands = {}
## Foreach line in the table definition
for Line in Table_Lines:
Temp1 = string.split(Line, " ", 2)
if len(Temp1) < 2: Temp1.append('')
if len(Temp1) < 2: Temp1.append('')
Name = Temp1[0]
Type = Temp1[1]
Ext = Temp1[2]
### Detect if name ends in "_id", and if so, add forieng keys constraint.
Additional = ""
if Check_Id.search(Name):
Temp2 = string.split(Name, "_id")
TableName2 = Temp2[0]
### ON DELETE NO ACTION and FORIEGN KEY (Name) are not needed,
### but I want to be explicit what I am doing.
Additional = """ REFERENCES """ + TableName2 + """
ON DELETE NO ACTION
ON UPDATE CASCADE """
Table = Table + Line + " " + Additional + ",\n"
# print "TEST " + Table
Table_Backup = Table_Backup + Line + ",\n"
### Make an array of the fields.
Fields = Fields + "'" + Name + "',";
### The backup columns
Backup_Columns = Backup_Columns + ", " + Name
### The update fields
No = No + 1
Update_Fields = Update_Fields + ", " + Name + " = var_" + str(No)
### Backup values
Backup_Values = Backup_Values + ", record_backup." + Name
### Now the fields when we copy stuff in the copy function.
### Is this going to interfere with binary data?
if General_Functions == "blank":
Field_Copy_Values = ", record2." + Name
else:
Field_Copy_Values = Field_Copy_Values + ", clean_text(record2." + Name + ")";
### Now the field types for the update function.
Field_Types = Field_Types + ", " + Type
### We need to define the variables for the updating function.
CleanVariables = CleanVariables + " var_" + str(No) + " " + Type + ";\n"
### We need to define the type, I only check for text and int4 for now.
Temp = '$' + str(No)
if General_Functions == "blank": Junk = 1
elif Type == "int4" : Temp = "clean_numeric(" + Temp + ")"
elif Type == "text" : Temp = "clean_text(" + Temp + ")"
elif Type == "numeric" : Temp = "clean_text(" + Temp + ")"
elif Type == "timestamp": Temp = "clean_text(" + Temp + ")"
elif string.find(Type,"int") == 0 : Temp = "clean_numeric(" + Temp + ")"
elif string.find(Type,"char") == 0: Temp = "clean_text(" + Temp + ")"
elif string.find(Type,"varchar") == 0: Temp = "clean_text(" + Temp + ")"
### Now we need to set the variables.
RemakeVariables = RemakeVariables + " var_" + str(No) + " := " + Temp + ";\n";
### We also need to add the function to clean out the variables before
### they are submitted.
### Chop off the last comma for $Fields;
Fields = Fields[0:-1]
### Record how many rows we had. Make a line for the update command for
### testing.
Number_Of_Rows = No
Update_Test = "1"
### Why is it numberofrows - 1?
for i in range (Number_Of_Rows - 1) : Update_Test = Update_Test +","+str(i)
### We need to chop off the last comma.
Table = string.rstrip(Table)
Table = Table[0:-1]
Table_Backup = string.rstrip(Table_Backup)
Table_Backup = Table_Backup[0:-1]
### Now let us setup dropping and creating of the table and backup table.
Tables = "drop table " + TableName + ";\ncreate table " + TableName + " (\n" + Table + " );\n"
Tables_Backup = "drop table " + TableName + "_backup; \n create table " + TableName + "_backup (\n" + Table_Backup + ");\n"
if self.psql_version == "7.3":
Tables = "drop table " + TableName + " cascade;\ncreate table " + TableName + " (\n" + Table + " );\n"
Tables_Backup = "drop table " + TableName + "_backup cascade; \n create table " + TableName + "_backup (\n" + Table_Backup + ");\n"
### Let us create a view for active stuff in our table.
### Let us always recreate the views.
View_Active = "drop view " + TableName + "_active;\n"
if self.psql_version == "7.3": View_Active = ""
View_Active = View_Active + "create view " + TableName + "_active as select * from " + TableName + "\n where active = 1;\n"
### Create a view for inactive or deleted items.
View_Deleted = "drop view " + TableName + "_deleted;\n"
if self.psql_version == "7.3": View_Deleted = ""
View_Deleted = View_Deleted + "create view " + TableName + "_deleted as select * from " + TableName + "\n where active = 0;\n"
### Create a view for a list of unique backup ids.
View_BIds = "drop view " + TableName + "_backup_ids;\n"
if self.psql_version == "7.3": View_BIds = ""
View_BIds = View_BIds + "create view " + TableName + "_backup_ids as select distinct " + TableName + "_id from " + TableName + "_backup;\n"
### Create a list of purged data (lastest data per id).
View_Purged = "drop view " + TableName + "_purged;\n"
if self.psql_version == "7.3": View_Purged = ""
View_Purged = View_Purged + """create view """ + TableName + """_purged as
select * from """ + TableName + """_backup where oid = ANY (
select max(oid) from """ + TableName + """_backup where """ + TableName + """_id = ANY
(
select distinct """ + TableName + """_id from """+TableName + """_backup
where """ + TableName + """_backup.error_code = 'purge'
and NOT """ + TableName + """_id = ANY (select """ + TableName + """_id from """ + TableName + """)
)
group by """ + TableName + """_id
)
;
"""
### I use grep commands to search and replace stuff for arrays.
### I could use map, but I like greps.
SQL_F = []
for line in SQL_Template: SQL_F.append(line)
### TODO In the future, determine if we need all, database, or table custom.
SQL_C = []
for line in SQL_Custom_Template: SQL_C.append(line)
## Now, if there is a custom made file for this table, add it.
if os.path.isfile(Home + "/Custom/Sql/" + TableName + ".sql"):
Read = open(Home + "/Custom/Sql/" + TableName + ".sql",'r')
Lines = Read.readlines()
for line in Lines: SQL_C.append(line)
SQL_F = self.grep_replace_text(SQL_F, "TABLENAME", TableName)
SQL_F = self.grep_replace_text(SQL_F, "BACKUPCOLUMNS", Backup_Columns)
SQL_F = self.grep_replace_text(SQL_F, "BACKUPVALUES", Backup_Values)
SQL_F = self.grep_replace_text(SQL_F, "UPDATEFIELDS", Update_Fields)
SQL_F = self.grep_replace_text(SQL_F, "COPYFIELDS", Field_Copy_Values)
SQL_F = self.grep_replace_text(SQL_F, "FIELDS", Field_Types)
SQL_F = self.grep_replace_text(SQL_F, "__HOME__", Home)
SQL_F = self.grep_replace_text(SQL_F, "CLEANVARIABLES", CleanVariables)
SQL_F = self.grep_replace_text(SQL_F, "REMAKEVARIABLES", RemakeVariables)
### Now move the stuff from the array @Temp to @Template_Copy.
Template_Copy = []
for line in Temp: Template_Copy.append(line)
### Now we save the file. We won't delete it (unless you run this script
### again) so that we can figure out what was done.
### Print out the table and backup table.
Sequence = "drop sequence " + TableName + "_sequence;\n"
Sequence = Sequence + "create sequence " + TableName + "_sequence;\n"
Sequence_B = "drop sequence " + TableName + "_sequence_backup;\n"
Sequence_B = Sequence_B + "create sequence " + TableName + "_sequence_backup;\n"
### Print out the 4 functions, insert, delete, update, and copy.
Insert = """
insert into """ + TableName + """ (""" + TableName + """_id, date_updated, date_created, active)
values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
insert into """ + TableName + """_backup (backup_id, """ + TableName + """_id,
date_updated, date_created, active, error_code)
values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
"""
Variables = {}
Valid_Tables = ""
for TableTemp in self.database[Database]['table_list']:
Valid_Tables = Valid_Tables + " '" + TableTemp + "',"
Valid_Tables = Valid_Tables[0:-1]
Variables['VALIDTABLES'] = Valid_Tables
Variables['TABLENAME'] = TableName
Variables['BACKUPCOLUMNS'] = Backup_Columns
Variables['UPDATEFIELDS'] = Update_Fields
Variables['BACKUPVALUES'] = Backup_Values
Variables['COPYFIELDS'] = Field_Copy_Values
Variables['CLEANVARIABLES'] = CleanVariables
Variables['REMAKEVARIABLES'] = RemakeVariables
Variables['FIELDS'] = Field_Types
Variables['__HOME__'] = self.home + "/Projects/" + Database
Variables['LISTCOLUMNS'] = Fields
Variables['PACKAGE'] = string.upper(Database)
Variables['DATABASE'] = Database
Sql_Commands['Table'] = Table
Sql_Commands['Table_Backup'] = Table_Backup
Sql_Commands['Fields'] = Fields
Sql_Commands['Backup_Columns'] = Backup_Columns
Sql_Commands['No'] = str(No)
Sql_Commands['Update_Fields'] = Update_Fields
Sql_Commands['Backup_Values'] = Backup_Values
Sql_Commands['General_Functions'] = General_Functions
Sql_Commands['Field_Copy_Values'] = Field_Copy_Values
Sql_Commands['CleanVariables'] = CleanVariables
Sql_Commands['RemakeVariables'] = RemakeVariables
Sql_Commands['Field_Types'] = Field_Types
# Sql_Commands[''] =
# Sql_Commands[''] =
Sql_Commands['Tables'] = Tables
Sql_Commands['Tables_Backup'] = Tables_Backup
Sql_Commands['View_Active'] = View_Active
Sql_Commands['View_Deleted'] = View_Deleted
Sql_Commands['View_BIds'] = View_BIds
Sql_Commands['View_Purged'] = View_Purged
Sql_Commands['SQL_Functions'] = SQL_F
Sql_Commands['Sql_Custom'] = SQL_C
Sql_Commands['Sequence'] = Sequence
Sql_Commands['Sequence_Backup'] = Sequence_B
Sql_Commands['Insert'] = Insert
self.table_sql_commands[TableName] = Sql_Commands
self.table_variables[TableName] = Variables
### If the key in table_config is a string, then use it.
for Key in self.table_config[TableName].keys():
if type(self.table_config[TableName][Key]) == types.StringType:
self.table_variables[TableName][Key] =self.table_config[TableName][Key]
return Sql_Commands
#---------------------------------------------------------
def Query_Data_Psql(self, Sql="select 1", Config={}, Database=""):
if len(Config) < 1: Config = self.global_variables
if Database == "": Database = Config['DATABASE']
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
FileName = self.home + "/Temp/sql1.txt"
No = 1
while os.path.isfile(FileName):
No = No + 1
FileName = self.home + "/Temp/sql" + str(No) + ".txt"
Check_Error = re.compile('^psql:' + FileName)
Message = "NOTE: Saving sql commands executed at " + FileName
self.Log_MessageP(Message=Message)
### \set ON_ERROR_STOP -- this will abort psql if any errors occur.
Default_Sql = """
\pset format unaligned
\pset fieldsep '\t'
"""
Write = open(FileName,"a")
Write.write(Default_Sql)
Write.write(Sql)
Write.close()
# for Key in Config.keys(): print Key, Config[Key]
Port = Config['PORT']
if self.psql_version == "": self.Psql_Version()
Command = "psql -t -p '" + str(Port) + "' -d '" + Database + "' -f " + FileName
# print Command
Output = commands.getstatusoutput(Command)
if Output[0] > 0:
print "ERROR: " + str(Output[0]) + " " + str(Output[1])
print "ERROR: Output of the following command had errors."
print Command
sys.exit()
elif not Check_AlphaNumeric.search(Output[1]): return Output
elif Check_Error.search(Output[1]):
print "ERROR: " + str(Output[0]) + " " + str(Output[1])
print "ERROR: Output of the following command had errors."
print Command
sys.exit()
### Split out the strings.
### None of our data should contain newlines, so it should be okay.
### We should only use this to get info of our system, not
### data of the tables we make.
Temp = string.split(Output[1], "\n")
return [Output[0], Temp]
#------------------------------------------------------------------------
def Process_Sql_Commands(self, Database="", TableName="", Sql_Commands={}, Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if len(Sql_Commands) < 1:
if self.table_sql_commands.has_key(TableName):
Sql_Commands = self.table_sql_commands[TableName]
if (Database == "") or (TableName == "" ) or (len(Sql_Commands) < 1) or (len(Config) < 1):
print "ERROR: not given all requirements to process sql commands for " + Database + " " + TableName
sys.exit()
Dir = self.home + "/Projects/" + Database + "/Output/Tables"
Executed = Dir + "/" + TableName + "_executed.sql"
Executed_Not = Dir + "/" + TableName + "_executed_not.sql"
Tables_Altered = "no"
Sql = "select tablename from pg_tables"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Table_Exists = "no"
for line in Output[1]:
if line == TableName: Table_Exists = "yes"
### We should include the tablename in the query.
Sql = "select typname from pg_type where typname like '%sequence';"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Sequence_Exists = "no"
for line in Output[1]:
if line == TableName + "_sequence": Sequence_Exists = "yes"
Sql = "select typname from pg_type where typname like '%sequence_backup';"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Sequence_Backup_Exists = "no"
for line in Output[1]:
if line == TableName + "_sequence_backup": Sequence_Backup_Exists = "yes"
Sql = "select viewname from pg_views where viewname like '" + TableName + "%'"
Output = self.Query_Data_Psql(Sql=Sql, Database=Database)
Views_Exists = "no"
Temp_No = 0
for line in Output[1]:
if line == TableName + "_active": Temp_No = Temp_No + 1
if line == TableName + "_deleted": Temp_No = Temp_No + 1
if line == TableName + "_backup_ids": Temp_No = Temp_No + 1
if line == TableName + "_purged": Temp_No = Temp_No + 1
## We have 4 views so far, check if this number changes.
if Temp_No == 4 : Views_Exists = "yes"
### Now let us start saving data.
Message = "NOTE: Starting to save sql commands for " + TableName
self.Log_MessageP(Message=Message)
E = open(Executed, 'w')
EN = open(Executed_Not, 'w')
# E.write("""\set ON_ERROR_STOP\n""")
# EN.write("""\set ON_ERROR_STOP\n""")
DoIt = "no"
if (Config['CREATE_SEQUENCE'] == "yes") and (Sequence_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_TABLE'] == "yes"): DoIt="yes"
elif (Config['RECREATE_SEQUENCE']=="yes") and (Sequence_Exists=="yes"):
DoIt="yes"
else:
EN.write("\n" + Sql_Commands['Sequence'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Sequence'])
if (Config['CREATE_BACKUP_SEQUENCE'] == "yes") and (Sequence_Backup_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE'] == "yes"): DoIt="yes"
elif (Config['RECREATE_BACKUP_SEQUENCE']=="yes") and (Sequence_Backup_Exists=="yes"):
DoIt="yes"
else:
EN.write("\n" + Sql_Commands['Sequence_Backup'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Sequence_Backup'])
### TODO Add the ability to check if the fieldnames are the same, and if
### they are, do nothing, if different, make changes for extra
### fields, but abort if a fieldname has changed.
DoIt = "no"
if (Config['CREATE_TABLE'] == "yes") and (Table_Exists == "no"): DoIt="yes"
elif (Config['RECREATE_TABLE']=="yes") and (Table_Exists=="yes"):DoIt="yes"
else: EN.write("\n" + Sql_Commands['Tables'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Tables'])
Tables_Altered = "yes"
DoIt = "no"
if (Config['CREATE_BACKUP_TABLE'] == "yes") and (Table_Exists == "no"):
DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE']=="yes") and (Table_Exists=="yes"):
DoIt="yes"
elif Tables_Altered == "yes":
DoIt = "yes"
else: EN.write("\n" + Sql_Commands['Tables_Backup'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['Tables_Backup'])
Tables_Altered = "yes"
DoIt = "no"
if Config['VIEWS_REDO'] == "yes": DoIt="yes"
elif Tables_Altered == "yes": DoIt = "yes"
else:
EN.write("\n" + Sql_Commands['View_Active'])
EN.write("\n" + Sql_Commands['View_Deleted'])
EN.write("\n" + Sql_Commands['View_BIds'])
EN.write("\n" + Sql_Commands['View_Purged'])
if DoIt == "yes":
E.write("\n" + Sql_Commands['View_Active'])
E.write("\n" + Sql_Commands['View_Deleted'])
E.write("\n" + Sql_Commands['View_BIds'])
E.write("\n" + Sql_Commands['View_Purged'])
DoIt = "no"
if (Tables_Altered == "yes") and (Config["FUNCTIONS"] == "yes"):
DoIt = "yes"
elif Config["FUNCTIONS_REDO"] == "yes":
DoIt = "yes"
if DoIt == "yes":
for l in Sql_Commands['SQL_Functions']: E.write(l)
for l in Sql_Commands['Sql_Custom']: E.write(l)
else:
for l in Sql_Commands['SQL_Functions']: EN.write(l)
for l in Sql_Commands['Sql_Custom']: EN.write(l)
DoIt = "no"
if Table_Exists == "no": DoIt="yes"
elif (Config['RECREATE_BACKUP_TABLE'] == "yes"): DoIt="yes"
elif (Config['RECREATE_TABLE'] == "yes"): DoIt="yes"
else: EN.write("\n" + Sql_Commands['Insert'])
if DoIt == "yes": E.write("\n" + Sql_Commands['Insert'])
E.close()
EN.close()
self.table_executed[TableName] = Executed
self.table_executed_not[TableName] = Executed_Not
return [Executed, Executed_Not]
#------------------------------------------------------------------------
def Execute_Sql_Commands(self, Database="", TableName="", Sql_Commands={}, Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if len(Sql_Commands) < 1:
if self.table_sql_commands.has_key(TableName):
Sql_Commands = self.table_sql_commands[TableName]
else:
print "ERROR: No sql commands to execute for " + TableName
sys.exit()
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to execute sql commands for " + Database + " " + TableName
sys.exit()
Check_AlphaNumeric = re.compile('[a-zA-Z0-9]')
Port = Config['PORT']
Check_Error = re.compile('^psql:' + self.table_executed[TableName])
B_Dir = self.home + "/Projects/" + Database + "/Backups"
B_File = B_Dir + "/" + TableName + "_0.backup"
TempNo = 0;
while os.path.isfile(B_File):
TempNo = TempNo + 1
B_File = B_Dir + "/" + TableName + "_" + str(TempNo) + ".backup"
### Now we have the filename to store the backup, execute it.
Command = "pg_dump -t " + TableName + " -f " + B_File + " " + Database
if (Config.has_key('DELETE_BACKUPS')) and (Config['DELETE_BACKUPS'] == "yes"):
Message = "NOTE: Deleting backup files for " + TableName
self.Log_MessageP(Message=Message)
Output = commands.getstatusoutput("rm -f " + B_Dir + "/*")
Message = "NOTE: Backing up data in " + TableName + " to " + B_File
self.Log_MessageP(Message=Message)
Output = commands.getstatusoutput(Command)
Message = "NOTE: executing sql commands at " + self.table_executed[TableName]
self.Log_MessageP(Message=Message)
if self.psql_version == "": self.Psql_Version()
Command = "psql -t -p '" + str(Port) + "' -d '" + Database + "' -f " + self.table_executed[TableName]
Output = commands.getstatusoutput(Command)
Temp = string.split(Output[1], "\n")
self.Log_Message(Output[1])
Temp2 = []
Re_Error = re.compile('ERROR:')
for Line in Temp:
if Re_Error.search(Line): Temp2.append(Line)
if len(Temp2) > 0:
for Line in Temp2: print Line
print "There were " + str(len(Temp2)) + " errors with this table."
print "Press enter to continue."
if Config["IGNORE_ERRORS"] != "yes":
Input1 = sys.stdin.readline()
if Output[0] > 0:
print "ERROR: There was an error executing psql."
print "ERROR: You might want to run this command manually. Aborting."
print Command
sys.exit()
return [Output[0], Temp]
#-----------------------------------------------------------------------
def Create_Languages(self, Database="", TableName="", Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to create modules and sample web scripts for " + Database + " " + TableName
sys.exit()
Templates = self.home + "/Templates"
if Config.has_key('TEMPLATE_DIR') and Config['TEMPLATE_DIR'] != '':
Templates = Config['TEMPLATE_DIR']
# print "Test", Config['TEMPLATE_DIR']
self.table_module_test[TableName] = {}
### Setup the modules for each language.
Search_Header = re.compile('_header$')
for Language in self.web_languages:
self.table_module_test[TableName][Language] = ""
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
Dir = Templates + "/" + Language_C
if (Config.has_key("DO_" + Language_U)) and (Config["DO_" + Language_U] != "yes"): continue
elif not Config.has_key("DO_" + Language_U): continue
Files = os.listdir(Dir)
Base = self.grep_search(List=Files, Search=Search_Header)
Base = self.grep_replace(List=Base, Search=Search_Header, Replace="")
Base.sort()
# print "Files = " + Dir + " " + str(Base)
Modules_Destination = self.home + "/Projects/" + Database + "/Output/" + Language_C
Modules_Source = Config['TEMPLATE_DIR'] + "/" + Language_C
# for Key in Config.keys(): print Key, str(Config[Key])
# Temp = self.table_variables[TableName].keys()
# Temp.sort()
# for Key in Temp: print Key, self.table_variables[TableName][Key]
# sys.exit()
Message = "NOTE: Creating modules in " + Modules_Destination + " from " + Modules_Source
self.Log_MessageP(Message=Message)
for Module in Base:
Module_Destination = Modules_Destination + "/" + Module
Module_Source = Dir + "/" + Module + "_header"
Read = open(Module_Source, "r")
Lines = Read.readlines()
Read.close()
### The header of the module.
Write = open(Module_Destination, "w")
Lines = self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
### If there is a template, do one for a table.
Module_T = Modules_Source + "/" + Module + "_template"
# print Module_T
if os.path.isfile(Module_T):
Read = open(Module_T, "r")
Lines_T = Read.readlines()
Read.close()
### We write out the template for this table only.
List = []
for line in Lines_T: List.append(line)
List=self.grep_replace_text_list(List=List, Search_List=self.table_variables[TableName])
File_T = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/temp_templates/" + Module + "_" + TableName
Write_T = open(File_T, 'w')
for line in List: Write_T.write(line)
Write_T.close()
# print "TEST2 " + File_T
### Gather all templates made for all tables, if they exist.
for Table_Temp in self.database[Database]['table_list']:
Temp_T = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/temp_templates/" + Module + "_" + Table_Temp
# print Temp_T
if os.path.isfile(Temp_T):
Read2 = open(Temp_T, "r")
Lines_TT = Read2.readlines()
Read2.close()
for line in Lines_TT: Write.write(line)
#### footer for the template
Module_TF = Modules_Source + "/" + Module + "_template_footer"
if os.path.isfile(Module_TF):
Read = open(Module_TF, "r")
Lines = Read.readlines()
Read.close()
Lines=self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
### Now do the custom module addition.
Custom_Name = self.home + "/Projects/" + Database + "/Custom/" + Language_C + "/" + Module + "_custom"
if os.path.isfile(Custom_Name):
Read = open(Custom_Name, "r")
Lines_C = Read.readlines()
Read.close()
Lines_C=self.grep_replace_text_list(List=Lines_C, Search_List=self.table_variables[TableName])
for line in Lines_C: Write.write(line)
### Now do any footers for the module.
Module_F = Modules_Source + "/" + Module + "_footer"
if os.path.isfile(Module_F):
Read = open(Module_F, "r")
Lines = Read.readlines()
Read.close()
Lines=self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
if (Language == "perl") or (Language == "python"):
Write.write("\n1;\n")
Write.close()
### Now do custom-made modules.
Dir2 = self.home + "/Projects/" + Database + "/Custom/" + Language_C + "/Modules"
Files2 = os.listdir(Dir2)
Base2 = self.grep_search(List=Files2, Search=Search_Header)
Base2 = self.grep_replace(List=Base2, Search=Search_Header, Replace="")
Base2.sort()
for Module in Base2:
Module_Destination = Modules_Destination + "/" + Module
Module_Source = Dir2 + "/" + Module + "_header"
Read = open(Module_Source, "r")
Lines = Read.readlines()
Read.close()
Write = open(Module_Destination, "w")
Lines = self.grep_replace_text_list(List=Lines, Search_List=self.table_variables[TableName])
for line in Lines: Write.write(line)
Write.write("\n1;\n")
Write.close()
### Setup the test language script.
Test_File = Modules_Destination + "/Test." + Language
Write = open(Test_File, "w")
Temp_Line = Modules_Destination
Modules_All = []
for Module in Base: Modules_All.append(Module)
for Module in Base2: Modules_All.append(Module)
if Language == "perl":
Write.write('#!/usr/bin/' + Language + "\n\n")
Write.write("use lib qw(" + Modules_Destination + ");\n\n")
elif Language == "python":
Test_Dir = Modules_Destination + "/" + string.upper(Database)
Write.write('#!/usr/bin/' + Language + "\n\n")
Write.write("import sys\n")
Write.write("sys.path.append('" + Test_Dir + "')\n")
elif Language == "php":
Write.write("\n")
Write.close()
### Test the language script, Test_Dir.
Test_Dir = Modules_Destination + "/" + string.upper(Database)
Output = commands.getoutput("mkdir -p " + Test_Dir)
for Module in Modules_All:
Command = "cp " + Modules_Destination + "/" + Module + " " + Test_Dir
Output = commands.getoutput(Command)
Extra = ""
if Language == "php": Extra = " -q "
Output = commands.getoutput(Language + " " + Extra + Modules_Destination + "/Test." + Language)
if 0 > string.find(Output, 'GOOD'):
Message = "ERROR: Language modules for " + Language + " didn't compile with a 'GOOD' status for " + Database + ":" + TableName
self.Log_MessageP(Message=Message)
self.Log_MessageP(Message=Output)
print "Aborting"
print Output
print string.find(Output, 'GOOD')
sys.exit()
# print "TEST" + TableName, Language
self.table_module_test[TableName][Language] = Output
#### Setup the sample webpages, last thing to do.
for Language in self.web_languages:
Ext = self.extensions[Language]
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
Dir = Templates + "/" + Language_C
if (Config.has_key("DO_" + Language_U)) and (Config["DO_" + Language_U] != "yes"): continue
elif not Config.has_key("DO_" + Language_U): continue
Html_Destination = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/HTML"
Html_Source = Config['TEMPLATE_DIR'] + "/" + Language_C + "/HTML"
Message = "NOTE: Creating webpages in " + Html_Destination + " from " + Html_Source
self.Log_MessageP(Message=Message)
Read = open(Html_Source +"/Custom_Html1."+self.extensions[Language], 'r')
Lines = Read.readlines()
Read.close()
Read = open(Html_Source +"/Custom_Lists."+self.extensions[Language], 'r')
Template_List = Read.readlines()
Read.close()
### Open up Custom_Html1 and replace contents with our table
### variables plus the following we should have generated:
### HTML_FIELDS -- from our table
### OTHERIDS -- foriegn key ids and their values, decrypted (otherwise 0). This is the initial setup.
### SETIDSOTHER -- if id is > 0, set the values of the other ids.
### OTHER_LISTS -- the templates from each table from Custom_Lists. Custom_Lists gets the ids of the foriegn keys that are possible.
### HTML_FIELDS
### DEFINEFIELDS
Other_Variables = {}
### Figure out which keys have foriegn key constraints.
Check_Id_Tag = re.compile('_id$')
Ids = []
No_Ids = []
Table_Fields = self.database[Database]['table_field'][TableName]
Keys = Table_Fields.keys()
for Field in Keys:
# print "Field is ", Field
if Field == TableName + "_id": Junk = 1
elif Check_Id_Tag.search(Field): Ids.append(Field)
else: No_Ids.append(Field)
Ids.sort()
No_Ids.sort()
List_Fields = "'" + TableName + "_id'"
for Id in Ids: List_Fields = List_Fields + ",'" + Id + "'"
for Id in No_Ids: List_Fields = List_Fields + ",'" + Id + "'"
Other_Variables['LISTFIELDS'] = List_Fields
### Open of the file for DEFINEFIELDS
Read =open(Html_Source+"/DEFINEFIELDS_Id."+self.extensions[Language],'r')
Template_Line = Read.readline()
Read.close()
DefineFields = " #### GOOD: definefields replaced.\n"
Temp_Lines = ""
for Id in Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "__FIELDNAME__", Id)
DefineFields = DefineFields + Add_Line
# print Id
Read =open(Html_Source+"/DEFINEFIELDS_No."+self.extensions[Language],'r')
Template_Line = Read.readline()
Read.close()
Temp_Lines = ""
for Id in No_Ids:
Temp = Template_Line
Add_Line = string.replace(Temp, "__FIELDNAME__", Id)
DefineFields = DefineFields + Add_Line
# print Id
# print "My lines are " + DefineFields
Other_Variables['DEFINEFIELDS'] = DefineFields
# sys.exit()
### Open up the HTMLFIELDS file
Read = open(Html_Source + "/HTMLFIELDS."+self.extensions[Language], 'r')
Template_Lines = Read.readlines()
Read.close()
HtmlFields = ""
for Id in No_Ids:
for Line in Template_Lines:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
HtmlFields = HtmlFields + Add_Line
### Now process the ids from foriegn keys.
OtherIds = " ## GOOD: Get the ids of the foriegn tables.\n"
# Html_List = " #### GOOD: html_list replaced.\n"
Other_Lists = " #### GOOD: other_lists replaced.\n"
OtherIds_Set = " #### GOOD: otherids_set replaced.\n"
### Open of the file for OTHERIDS
Read =open(Html_Source+"/OTHERIDS."+self.extensions[Language],'r')
Template_Lines_1 = Read.readlines()
Read.close()
### Open of the file for OTHER_LISTS
Read =open(Html_Source+"/Custom_Lists."+self.extensions[Language],'r')
Template_Lines_2 = Read.readlines()
Read.close()
### Open of the file for
Read =open(Html_Source+"/SETIDSOTHER."+self.extensions[Language],'r')
Template_Lines_3 = Read.readlines()
Read.close()
### Open of the file for HTMLFIELDS_ID
Read =open(Html_Source+"/HTMLFIELDS_ID."+self.extensions[Language],'r')
Template_Lines_4 = Read.readlines()
Read.close()
Remove_Id_Tag = re.compile('_id$')
for Id in Ids:
Column_No_Id = Remove_Id_Tag.sub('', Id)
Temp = Column_No_Id
for Line in Template_Lines_1:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
OtherIds = OtherIds + Add_Line
for Line in Template_Lines_2:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", Temp)
Other_Lists = Other_Lists + Add_Line
for Line in Template_Lines_3:
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
OtherIds_Set = OtherIds_Set + Add_Line
for Line in Template_Lines_4:
Add_Line = string.replace(Line, "__FIELDNAME___NOID", Column_No_Id)
Add_Line = string.replace(Line, "__FIELDNAME__", Id)
Add_Line = string.replace(Add_Line, "__TABLENAME__", TableName)
HtmlFields = HtmlFields + Add_Line
Other_Variables['OTHERIDS'] = OtherIds
Other_Variables['OTHER_LISTS'] = Other_Lists
Other_Variables['SETIDSOTHER'] = OtherIds_Set
Other_Variables['HTML_FIELDS'] = HtmlFields
### Now do the substitutions
Search_List = Other_Variables
Lines = self.grep_replace_text_list(List=Lines, Search_List=Search_List)
Search_List = self.table_variables[TableName]
Lines = self.grep_replace_text_list(List=Lines, Search_List=Search_List)
# for Key in Other_Variables: print Key + " " + Other_Variables[Key]
# for Key in Search_List: print Key + " " + Search_List[Key]
FileName = Html_Destination + "/" + TableName + "." + Ext
# print "FILE " + FileName
Write = open(FileName,"w")
for line in Lines: Write.write(line)
Write.close()
Message = "NOTE: Created file " + FileName
self.Log_MessageP(Message)
#### Setup the admin webpages. It will store a command to execute
#### in a file, and if it is a psql file, it will point to a data
#### file. Each command executed will have it own driectory, start
#### and stop files. Give X number of minutes option to delay
#### execute so that they can look at the commands that will be
#### executed.
#### This admin webpages don't exist yet. It will be the last thing
#### to do after the normal web scripts are installed.
#-----------------------------------------------------------------------
def Install_Languages(self, Database="", TableName="", Config={}):
if len(Config) < 1:
if self.table_config.has_key(TableName):
Config = self.table_config[TableName]
else: Config = self.global_variables
if (Database == "") or (TableName == "" ):
print "ERROR: not given all requirements to install modules and sample web scripts for " + Database + " " + TableName
sys.exit()
# Temp = Config.keys()
# Temp.sort()
# for Key in Temp: print Key, Config[Key]
### First, make sure the tempoary directory exists.
if not Config.has_key('TEMPDIR'):
Message = "ERROR: TEMPDIR not defined. This could be bad, aborting."
self.Log_MessageP(Message)
sys.exit();
else:
Dir = Config['TEMPDIR']
Message = "NOTE: tmpdir directory already exists at " + Dir
if not os.path.isdir(Dir):
Output = commands.getoutput("mkdir -p " + Dir)
Message = "NOTE: making tmpdir at " + Dir
self.Log_MessageP(Message)
### Install the webpages for each language.
if not Config.has_key('DESTINATION_HTML'):
Message = "POTENTIAL: DESTINATION_HTML not defined. This could be bad."
self.Log_MessageP(Message)
else:
Dir = Config['DESTINATION_HTML']
if not os.path.isdir(Dir):
Output = commands.getoutput("mkdir -p " + Dir)
Message = "NOTE: installing web scripts for languages at " + Dir
self.Log_MessageP(Message)
### Copy over the .htaccess and password file.
T_Dir = self.home + "/Templates"
H_Dir = Config["DESTINATION_HTML"]
Read = open(T_Dir+"/htaccess", 'r')
Write = open(H_Dir + "/.htaccess", "w")
Temp_Lines = Read.readlines()
for Line in Temp_Lines:
Line = string.replace(Line, "__DIR__", H_Dir)
Write.write(Line)
Read.close()
Write.close()
### We should add the ability to use custom made password files
### or to change the username:passwords in there.
Password_File = self.home + "/Templates/Password"
Custom_P_File = self.home + "/Projects/" + Database + "/Output/Password"
if os.path.isfile(Custom_P_File) and Config.has_key('IGNORE_IF_CUSTOM_EXISTS') and (Config['IGNORE_IF_CUSTOM_EXISTS'] == "yes"): Junk = 1
elif Config.has_key('ASK_HTACCESS_PASSWORD') and (Config['ASK_HTACCESS_PASSWORD'] == "yes"):
Remove_Whitespace = re.compile('\s')
if Config.has_key('IGNORE_IF_CUSTOM_EXISTS') and (Config['IGNORE_IF_CUSTOM_EXISTS'] == "yes"):
Message = "\nThis database is only setup to ask this question once."
Message = Message + "\nThis feature can be changed at line command or with the config files."
print Message
Message = "Please enter a username and password to protect the web scripts."
print Message
print "username: ",
Input1 = sys.stdin.readline()
Input1 = Remove_Whitespace.sub('', Input1)
print "password: ",
Input2 = sys.stdin.readline()
Input2 = Remove_Whitespace.sub('', Input2)
Command = "htpasswd -b -c " + Custom_P_File + " " +Input1+ " "+ Input2
print Command
Output = commands.getoutput(Command)
if os.path.isfile(Custom_P_File): Password_File = Custom_P_File
Source_Dir = self.home + "/Projects/" + Database + "/Output/"
Command = "rsync -av "+ Password_File + " " + H_Dir + "/"
Output = commands.getoutput(Command)
Message = "NOTE: Copied " + Password_File + " to " + H_Dir + "/"
self.Log_MessageP(Message)
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing web scripts for language "+Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_HTML_" + Language_U)) and (Config["DESTINATION_HTML_" + Language_U] == ""):
Message = "NOTE: not installing web scripts for language "+Language_U
self.Log_MessageP(Message)
continue
else:
Config["DESTINATION_HTML_" + Language_U] = Config['DESTINATION_HTML'] + "/" + Language
Message ="POTENTIAL: No definition for DESTINATION_HTML_" +Language_U + ", so we are just attaching it to DESTINATION_HTML."
self.Log_MessageP(Message)
Message = "NOTE: (disabled) Installing web script for language " + Language
self.Log_MessageP(Message)
Dir = Config["DESTINATION_HTML_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing html scripts for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/HTML"
Search_Ext = re.compile(self.extensions[Language] + '$')
Files = os.listdir(Source_Dir)
Write = open(Source_Dir + "/index.html", "w")
Files.sort()
for File in Files:
if Search_Ext.search(File):
Write.write("" + File + " \n")
Write.close()
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
Output = commands.getoutput("chmod 755 "+ Dir + "/*")
self.Log_Message(Output)
# print Source_Dir, Dir
### Install the admin scripts for each language.
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if not Config.has_key("DESTINATION_ADMIN"):
Message = "POTENTIAL: DESTINATION_ADMIN is not defined, skipping installing admin web scripts."
self.Log_MessageP(Message)
continue
elif (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing admin scripts for language "+Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_ADMIN_" + Language_U)) and (Config["DESTINATION_ADMIN_" + Language_U] == ""):
Message = "NOTE: not installing admin scripts for language "+Language_U
self.Log_MessageP(Message)
continue
else:
Config["DESTINATION_ADMIN_" + Language_U] = Config['DESTINATION_ADMIN'] + "/" + Language
Message = "POTENTIAL: DESTINATION_ADMIN_" +Language_U + " not defined, we are attaching it to DESTINATION_ADMIN."
self.Log_MessageP(Message)
Dir = Config["DESTINATION_ADMIN_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing admin scripts for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/ADMIN/"
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
# print Source_Dir, Dir
Output = commands.getoutput("chmod 755 "+ Dir + "/*")
self.Log_Message(Output)
### Install the modules for each language.
for Language in self.web_languages:
Language_U = string.upper(Language)
Language_C = string.capitalize(Language)
if not Config.has_key("DESTINATION_MODULES_ROOT"):
Message = "ERROR: DESTINATION_MODULES_ROOT is not defined, aborting installing modules and this program. This is a critical config error."
self.Log_MessageP(Message)
sys.exit()
elif (not Config.has_key("DO_" + Language_U)) or (Config["DO_" + Language_U] != "yes"):
Message = "NOTE: Not installing modules for language " +Language_U
self.Log_MessageP(Message)
continue
elif (Config.has_key("DESTINATION_MODULES_" + Language_U)) and (Config["DESTINATION_MODULES_" + Language_U] == ""):
Message = "NOTE: not installing modules for language " +Language_U
self.Log_MessageP(Message)
continue
elif not Config.has_key("DESTINATION_MODULES_" + Language_U):
Message = "ERROR: DESTINATION_MODULES_ " +Language_U + " not defined."
self.Log_MessageP(Message)
sys.exit()
Dir = Config["DESTINATION_MODULES_" + Language_U]
# print Dir
if not os.path.isdir(Dir):
Message = "POTENTIAL: Directory doesn't exist, creating it = " + Dir
self.Log_MessageP(Message)
Output = commands.getoutput("mkdir -p " + Dir )
Message = "NOTE: Installing modules for language " +Language + " to " + Dir
self.Log_MessageP(Message)
Source_Dir = self.home + "/Projects/" + Database + "/Output/" + Language_C + "/" + string.upper(Database)
Output = commands.getoutput("rsync -av " + Source_Dir + "/* "+ Dir + "/")
self.Log_Message(Output)
# print Source_Dir, Dir
#-----------------------------------------------------------
def Psql_Version(self):
Psql = self.global_variables['PSQL']
Output = commands.getstatusoutput(Psql + " -V")
if Output[0] > 0:
print "Unable to determine version of psql at " + Psql
print "Aborting."
sys.exit()
Temp = string.split(Output[1])
self.psql_version = Temp[2]
# sys.exit()
beta/lib/Options.config 0100664 0000764 0000764 00000000516 07637124417 014057 0 ustar mark mark v: VIEWS
V: VIEWS_REDO
f: FUNCTIONS
F: FUNCTIONS_REDO
t: CREATE_TABLE
T: RECREATE_TABLE
b: CREATE_BACKUP_TABLE
B: RECREATE_BACKUP_TABLE
s: CREATE_SEQUENCE
S: RECREATE_SEQUENCE
p: PORT
P: PL_LANGUAGE
c: CONNECTION_TYPE
i: IP_ADDRESS
d: DATABASE_SERVER
D: CREATE_DATABASE
w: WEB_SERVER
x: TEMPLATE_DIR
L: DELETE_LOGS
I: IGNORE_ERRORS
beta/lib/GUPPS.notes 0100664 0000764 0000764 00000004723 07510512024 013172 0 ustar mark mark
In order to have a programming language be compatibel with GUPPS setup, it
must do the following:
1. Log all activity when inputting and outputting data.
Here are the exact steps in the scripts.
After each check, "# CHECK {no} COMPLETED" must be printed on a line.
1. Check that the GUPPS_HOME variable exists and assign to variable "Home".
2. Load lib/{language}/GUPPS.{ext} module.
This module does,
a. Loads global variables from "Global.config".
3. Execute a method from the module called "Global" and it returns
a hash containing global variables. Save info to variable called
"Global".
Looks at the file Global.config and Options.default
4. Process the arguments. Anything that has a dash, may expect 0 or 1
additional arguments (or abort). The first non-dash argument
is the database, the second is an optional tablename.
If no database is specified, abort.
5. Based on the passed arguements, alter the global variables.
6. Parse the flat text files for table definitions, and eventually
use XML files exclusively (we can parse the flat files and convert
them to XML but eventually flat files will go away.)
Parse the config file also.
7. Go through the tables specified, and do this:
Based on the information from a global and table specific options,
create the sql commands to execute and the ones not beign executed
(which the user may want to do later).
a. Create the necessary directories.
c. Detect if the items alredy exist in the database and what their
specs are. If there is a change, then makes changes, delete, or
create as necessary.
b. Calculate the final settings for the table based on global,
database, and table configs.
d. Execute the sql options desired.
8. a. Create the web scripts -- can be done later.
b. Create web modules and install them.
c. Test the modules to see if they load.
d. Later, add test to see if webpages work with only a basic command.
9. Install the web scripts and modules.
10. Install the admin webpages for the tables, and for the database.
a. Should include not only the ability to alter table info,
but and, create, drop, tables, views, sequences, etc.
Copycat myphpadmin functionality.
b. Also, admin webpages should alse creates tables with all the
functions, views, etc. and setup restrictions with _id and
_fk automatically, automatic fields, primary keys, etc.
Certain properties of tables cannot change.
beta/lib/GUPPS.pl 0100755 0000764 0000764 00000137310 07514226631 012467 0 ustar mark mark #!/usr/bin/perl
# Please read the file "License" which explains the license to this
# program. It is covered underneath the GPL and Perl Artistic Licenses.
print "Content-type: text/html\n\n\n";
print qq(Perl used to the main choice for GUPPS, but is was a collection of
hacks. The current version uses Python and it is designed with modularity
and more professionalism. Soon, Perl will be developed in a fashion
after Python, and then PHP will be developed. So for now, Perl is disabled
by default because you shouldn't use hack software. If you actually
try to run it, it won't work because GUPPS's structure has been changed
to reflect modularity and other good things. \n);
exit();
#foreach my $Env (sort keys %ENV) {print "$Env = $ENV{$Env}\n";}
# exit;
### Add the capability to do multiple databases.
### Two input parameters, first the database, second the table (optional).
### Remember to create sample webpages which are 100% functional and
### it comments out anything ending in _id for update but adds it for
### insert. Use the change function instead of update.
# Add the MANUAL option which:
# 1. Grabs from the list, and gets the tablename from the fieldname
# Add the INSERT option which:
# 1. Same as manual, but also performs inserts and update to the item
# in the foriegn table.
### WARNING!!!! Unless you use the word "ALL" as your second or third argument.
### only functions are uploaded to your database amd no tables, views,
### sequences, etc are modified. this is to make it so you can run
### it against a live system (make changes to your tables manually
### before doing it).
### WARNING!!!! This is jsut a beta version. I am going to make it so
### the non-beta version can make you select what you want to alter
### on your system -- the functions, tables, views, sequences, and/or
### other stuff.
### WARNING!!! After I get PHP to level 4 and add some XML modules to Perl,
### I am going to rewrite this in Python 2.2. This script is getting
### nasty and could really be trimmed down by a lot. I think there
## is a lot fo duplicate code here.
#Check on the Encrypt/Decrypt to maek sure it works righ tin the perl scripts.
use strict;
### Verify that we are connecting to the correct database.
my @List = @ARGV;
my $Database = shift @List;
my $Table = $List[0];
### Besides functions, we ought to break it out so that we can only do
### seqeunces, tables, views, etc by choice.
### Also, if we choose to not do something, save the commands in
### a file called "_not_executed" for each table.
my $Functions_Only = 1;
if ($Table eq "ALL") {$Functions_Only = 0; $Table = "";}
elsif (($Table ne "") && ($List[1] eq "DELETE")) {$Functions_Only=0;}
elsif ($List[1] ne "")
{ print "Didn't understand third arguement, aborting.\n"; exit;}
system "clear";
if ($Database eq "")
{print "No database specified, not doing anything.\n"; exit;}
my $Message="We are going to delete and create all tables for '$Database'.\n";
if ($Table ne "")
{$Message = "We are going to delete and create the table '$Table'.\n";}
print "We are going to connect to the database '$Database'.\n";
print $Message;
print "Type 'y' for yes or 'n' for no and press enter.\n";
my $R = ; chomp $R;
if ($R =~ /n/i) {exit;}
elsif (!($R =~ /y/i)) {exit;}
### We want to define some variables WHICH YOU SHOULD CHANGE FOR YOUR
### OWN COMPUTER.
### These two variables are defined by general configuration.
my $Pre_Home = "/var/www/html/database";
my $Server_Root = "/usr/local/apache";
### Now grab any local configuration for this database.
### We should put a check in here detecting if we are executing in the
### directory that this script is in.
if (!(-e "Config.txt"))
{
print "Error, no Config.txt file. Aborting. We need the main Config.txt file to be defined.\n";
exit;
}
### Now load the file, parse it, and assign variables.
open(FILE,"Config.txt"); my @File = ; close FILE;
grep(chomp $_, @File);
@File = grep($_ =~ /[a-z0-9]/i, @File);
grep($_ =~ s/\t/ /g, @File);
grep($_ =~ s/^ +//g, @File);
grep($_ =~ s/ +$//g, @File);
@File = grep(!($_ =~ /\#/), @File); # Delete any lines with '#' in them.
foreach my $Line (@File)
{
my ($Key,$Value) = split(/ /, $Line, 2);
if ($Key eq "PRE_HOME") {$Pre_Home = $Value;}
elsif ($Key eq "SERVER_ROOT") {$Server_Root = $Value;}
# print "$Key = $Value\n";
}
### We should put a chdir command here to force us to the right directory.
### These 4 variables are defined by the database. Create the directory.
if (!(-e "$Pre_Home/$Database"))
{
system "mkdir -p $Pre_Home/$Database/Output/Tables";
system "mkdir -p $Pre_Home/$Database/Output/Perl/HTML";
system "mkdir -p $Pre_Home/$Database/Custom/Perl";
system "mkdir -p $Pre_Home/$Database/Custom/Python";
system "mkdir -p $Pre_Home/$Database/Custom/Php";
system "mkdir -p $Pre_Home/$Database/Custom/Sql";
system "mkdir -p $Pre_Home/$Database/Backups";
}
my $Package = "SAMPLE_DATABASE";
my $Blowfish_Key = "SAM BLOWFISH KEY 123456789012345";
my $Destination_Html = "$Server_Root/htdocs_sample/sample/$Database";
my $Destination_Modules = "$Server_Root/lib/perl/SAMPLE_DATABASE";
my $Destination_Modules_Python = "$Server_Root/lib/python/SAMPLE_DATABASE";
my $Destination_Modules_Php = "$Server_Root/lib/php/SAMPLE_DATABASE";
my $TempDir = "/tmp/temp_dir";
my $Web_Root = "$TempDir";
my $General_Functions = "blank";
### Now grab any local configuration for this database.
if (!(-e "$Pre_Home/$Database/Config.txt"))
{
print "Error, no Config.txt file. Aborting.\n We need the file\n$Pre_Home/$Database/Config.txt\n to be defined.\n";
exit;
}
### Now load the file, parse it, and assign variables.
open(FILE,"$Pre_Home/$Database/Config.txt"); my @File = ; close FILE;
grep(chomp $_, @File); ## delete newlines.
@File = grep($_ =~ /[a-z0-9]/i, @File); ## Delete blank lines.
grep($_ =~ s/\t/ /g, @File); # Convert tabs to spaces.
grep($_ =~ s/^ +//g, @File); # Delete beginning spaces.
grep($_ =~ s/ +$//g, @File); # Delete ending spaces.
@File = grep(!($_ =~ /\#/), @File); # Delete any lines with '#' in them.
### POST
my $Global_Variables = {};
foreach my $Line (@File)
{
my ($Key,$Value) = split(/ /, $Line, 2);
if ($Key eq "BLOWFISH_KEY") {$Blowfish_Key = $Value;}
elsif ($Key eq "DESTINATION_HTML") {$Destination_Html = $Value;}
elsif ($Key eq "DESTINATION_MODULES") { $Destination_Modules = $Value;}
elsif ($Key eq "DESTINATION_MODULES_PYTHON")
{ $Destination_Modules_Python = $Value;}
elsif ($Key eq "DESTINATION_MODULES_PHP")
{ $Destination_Modules_Php = $Value;}
elsif ($Key eq "PACKAGE") { $Package = $Value;}
elsif ($Key eq "TEMPDIR") { $TempDir = $Value;}
elsif ($Key eq "WEB_ROOT") { $Web_Root = $Value;}
elsif ($Key eq "GENERAL_FUNCTIONS") {$General_Functions = $Value;}
### POST
else {$Global_Variables->{$Key} = $Value;}
$Global_Variables->{$Key} = $Value;
# else {print "Uknown configuration, aborting. $Key = $Value\n"; exit;}
}
## Make the directories if they don't exist.
if (!(-e $Destination_Html)) {system "mkdir -p $Destination_Html";}
if (!(-e $Destination_Modules)) {system "mkdir -p $Destination_Modules";}
if (!(-e $TempDir)) {system "mkdir -p $TempDir";}
### Variables after this point should not be touched.
### Define all the variables for the Perl script
my $Home = "$Pre_Home/$Database";
my $File = "$Home/Tables.txt";
### I don't think I use the $TempFile anywhere. For future use.
my $TempFile = "$Home/Tempfile.txt";
my $Main_Templates = "$Pre_Home/Templates";
my $SQL_Template = "$Main_Templates/Generic.fun";
my $SQL_Custom = "$Main_Templates/Functions/General.blank";
if ($General_Functions eq "blank") {;}
elsif ($General_Functions eq "perl")
{$SQL_Custom = "$Main_Templates/Functions/General.perl";}
# Do these next two soon.
#elsif ($General_Functions eq "python")
# {$SQL_Custom = "$Main_Templates/Functions/General.python";}
elsif ($General_Functions eq "plpgsql")
{$SQL_Custom = "$Main_Templates/Functions/General.pgsql";}
## Define Perl Input Templates.
my $Perl_Module_Set_Header = "$Main_Templates/Perl/Set_Info.pm_header";
my $Perl_Module_Set_Template = "$Main_Templates/Perl/Set_Info.pm_template";
my $Perl_Module_Get_Header = "$Main_Templates/Perl/Get_Info.pm_header";
my $Perl_Module_XML_Header = "$Main_Templates/Perl/XML_Custom.pm_header";
### Define all the variables for this database
my $Templates = "$Home";
### Define the Perl Output places.
my $Perl_Module_Set_Output = "$Home/Output/Perl/Set_Info.pm";
my $Perl_Module_Set_Custom = "$Templates/Custom/Perl/Set_Info.pm_custom";
my $Perl_Module_Get_Output = "$Home/Output/Perl/Get_Info.pm";
my $Perl_Module_Get_Custom = "$Templates/Custom/Perl/Get_Info.pm_custom";
my $Perl_Module_Email_Custom = "$Templates/Custom/Perl/Email.pm_custom";
my $Perl_Module_XML_Custom = "$Templates/Custom/Perl/XML_Custom.pm_custom";
my $Perl_Module_XML_Output = "$Templates/Output/Perl/XML_Custom.pm";
my $Python_Module_Dir = "$Main_Templates/Python";
my $Php_Module_Dir = "$Main_Templates/Php";
#------------------------------------------------------------------------
## Let us create the directories we need if they are not there.
if (!(-e "$Home")) {system "mkdir -p $Home";}
if (!(-e "$Home/Output/Tables")) {system "mkdir -p $Home/Output/Tables"}
if (!(-e "$Home/Backups")) {system "mkdir -p $Home/Backups"}
if (!(-e "$Home/Custom")) {system "mkdir -p $Home/Custom"}
if (!(-e "$Home/Output/Perl/HTML")) {system "mkdir -p $Home/Output/Perl/HTML"}
## Of course, I haven't done the php, java, python stuff, but
## I want to set it up so that it is obvious how i want to do it.
if (!(-e "$Home/Output/Php/HTML")) {system "mkdir -p $Home/Output/Php/HTML"}
if (!(-e "$Home/Output/Python/HTML"))
{system "mkdir -p $Home/Output/Python/HTML"}
if (!(-e "$Home/Output/Java/HTML")) {system "mkdir -p $Home/Output/Java/HTML"}
### Open up the template for the functions and the file that contains
### the info to create the tables.
### If the file with tables doesn't exit, abort.
if (!(-e "$Home/Tables.txt"))
{print "Error, $Home/Tables.txt does not exist, aborting.\n"; exit;}
open(FILE,$SQL_Template); my @SQL_Template = ; close FILE;
open(FILE,$File); my @File = ; close FILE;
open(FILE,$SQL_Custom); my @SQL_Custom = ; close FILE;
open(FILE,$Perl_Module_Set_Template); my @Perl_S_T = ; close FILE;
### Filter out lines that have no numbers or letters.
@File = grep($_ =~ /[a-z0-9]/i, @File);
### Get rid of any line which contains a #
@File = grep(!($_ =~ /\#/), @File);
### Get rid of the newline.
grep(chomp $_, @File);
### Get rid of tabs and replace with spaces. .
grep($_ =~ s/\t/ /g, @File);
### Convert all multiple spaces to one.
grep($_ =~ s/ +/ /g, @File);
### Next two lines get rid of spaces and front and end.
grep($_ =~ s/^ //g, @File);
grep($_ =~ s/ $//g, @File);
### Delete any commas at the end, we will put them back on later.
grep($_ =~ s/\,+$//g, @File);
my $Tables = {};
my $Table_Fields = {};
my $TableName = "";
my @Table_List = ();
### For each line in the file, either make a new array for the table,
### or store the lines in the array for a table.
foreach my $Line (@File)
{
my $Junk = "";
### If the line starts with "TABLENAME" then create a new array.
if ($Line =~ /^TABLENAME/)
{
($Junk,$TableName, $Junk) = split(/ /,$Line);
### This creates the aray for the table.
$Tables->{$TableName} = [];
$Table_Fields->{$TableName} = {};
push (@Table_List, $TableName);
}
else
{
### Storing lines for the table.
push (@{$Tables->{$TableName}}, $Line) ;
### This part is redundant, but we need this info.
my ($Name,$Type,$Ext) = split(/ /,$Line,3);
## Backup field names for Perl and other Scripts.
$Table_Fields->{$TableName}->{$Name} = "$Type $Ext";
}
}
### If we listed specific tables, then only do those.
if (@List)
{
foreach my $TableName (sort keys %$Tables)
{
if (!(grep($_ eq $TableName, @List)))
{@Table_List = grep($_ ne $TableName, @Table_List);}
}
}
### Get the keys of the reference to an array $Tables
### and get the data for that array, create our file, and then use the file.
my $Table_Defs = {};
foreach my $TableName (@Table_List)
{
$Table_Defs->{$TableName} = {};
## Create a temporary array which contains the table definitions
my @Temp = @{$Tables->{$TableName}};
my $Backup_Columns = ""; my $Backup_Values = ""; my $Update_Fields = "";
my $Field_Copy_Values = ""; my $FieldTypes = "";
my $CleanVariables = ""; my $RemakeVariables = "";
### The two tables are different in one respect, the backup table
### does not require uniqueness and it doesn't use a sequence.
my $Table = qq($TableName\_id int4 NOT NULL PRIMARY KEY DEFAULT nextval('$TableName\_sequence'),
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
);
## I should allow null for the id instead of 0, but since the sequence
### starts at 1, I use 0 as null. I hate nulls.
my $Table_Backup = qq(backup_id int4 NOT NULL UNIQUE DEFAULT nextval('$TableName\_sequence_backup'),
$TableName\_id int4 NOT NULL DEFAULT 0,
date_updated timestamp NOT NULL default CURRENT_TIMESTAMP,
date_created timestamp NOT NULL default CURRENT_TIMESTAMP,
active int2 CHECK (active in (0,1)) DEFAULT 0,
error_code text NOT NULL DEFAULT '',
);
print "Creating functions for table '$TableName'\n";
my $No = 1;
### For each line for this table do this.
### We want to create a few variables that are going to be placed into
### the template.
my $Fields = "";
## Foreach line in the table definition
foreach my $Line (@Temp)
{
my ($Name,$Type,$Ext) = split(/ /,$Line,3);
### Detect if name ends in "_id", and if so, add forieng keys constraint.
my $Additional = "";
if ($Name =~ /_id$/)
{
my $TableName = $Name; $TableName =~ s/_id$//g;
### ON DELETE NO ACTION and FORIEGN KEY ($Name) are not needed,
### but I want to be explicit what I am doing.
$Additional = qq( REFERENCES $TableName
ON DELETE NO ACTION
ON UPDATE CASCADE );
}
$Table .= "$Line $Additional,\n";
$Table_Backup .= "$Line,\n";
### Make an array of the fields.
$Fields .= "'$Name',";
### The backup columns
$Backup_Columns .= ", $Name";
### The update fields
$No++; $Update_Fields .= ", $Name = var_$No";
### Backup values
$Backup_Values .= ", record_backup.$Name";
### Now the fields when we copy stuff in the copy function.
### Is this going to interfere with binary data?
$Field_Copy_Values .= ", clean_text(record2.$Name)";
if ($General_Functions eq "blank")
{$Field_Copy_Values .= ", record2.$Name";}
### Now the field types for the update function.
$FieldTypes .= ", $Type";
### We need to define the variables for the updating function.
$CleanVariables .= " var_$No $Type;\n";
### We need to define the type, I only check for text and int4 for now.
my $Temp = "\$$No";
if ($General_Functions eq "blank") {}
elsif ($Type eq "int4") {$Temp = "clean_numeric($Temp)";}
elsif ($Type eq "text") {$Temp = "clean_text($Temp)";}
elsif ($Type eq "numeric") {$Temp = "clean_text($Temp)";}
elsif ($Type eq "timestamp") {$Temp = "clean_text($Temp)";}
elsif ($Type =~ /^int/) {$Temp = "clean_numeric($Temp)";}
elsif ($Type =~ /^char/) {$Temp = "clean_text($Temp)";}
elsif ($Type =~ /^varchar/) {$Temp = "clean_text($Temp)";}
### Now we need to set the variables.
$RemakeVariables .= " var_$No := $Temp;\n";
### We also need to add the function to clean out the variables before
### they are submitted.
}
### Chop off the last comma for $Fields;
chop $Fields;
### Record how many rows we had. Make a line for the update command for
### testing.
my $Number_Of_Rows = $No;
my $Update_Test = "1";
for (my $i = 1; $i < $Number_Of_Rows - 1; $i++) {$Update_Test .= ",$i";}
### We need to chop off the last comma.
chomp $Table; chop $Table; chomp $Table_Backup; chop $Table_Backup;
### Now let us setup dropping and creating of the table and backup table.
my $Tables = qq(drop table $TableName;\ncreate table $TableName (\n$Table\n););
$Tables .= "drop table $TableName\_backup;\n";
my $Tables_Backup_Copy = "drop table $TableName\_backup;\ncreate table $TableName\_backup (\n$Table_Backup);\n";
$Tables .= "create table $TableName\_backup (\n$Table_Backup);\n";
### Let us create a view for active stuff in our table.
### Let us always recreate the views.
my $Tables2 = "";
$Tables2 .= "drop view $TableName\_active;\n";
$Tables2 .= "create view $TableName\_active as select * from $TableName
where active = 1;\n";
### Create a view for inactive or deleted items.
$Tables2 .= "drop view $TableName\_deleted;\n";
$Tables2 .= "create view $TableName\_deleted as select * from $TableName
where active = 0;\n";
### Create a view for a list of unique backup ids.
$Tables2 .= "drop view $TableName\_backup_ids;\n";
$Tables2 .= "create view $TableName\_backup_ids as
select distinct $TableName\_id from $TableName\_backup;\n";
### Create a list of purged data (lastest data per id).
$Tables2 .= "drop view $TableName\_purged;\n";
$Tables2 .= "create view $TableName\_purged as
select * from $TableName\_backup where oid = ANY (
select max(oid) from $TableName\_backup where $TableName\_id = ANY
(
select distinct $TableName\_id from $TableName\_backup
where $TableName\_backup.error_code = 'purge'
and NOT $TableName\_id = ANY (select $TableName\_id from $TableName)
)
group by $TableName\_id
)
;\n";
### I use grep commands to search and replace stuff for arrays.
### I could use map, but I like greps.
my @Temp = @SQL_Template;
push (@Temp,@SQL_Custom);
## Now, if there is a custom made file for this table, add it.
if ((-e "$Home/Custom/Sql/$TableName\.sql") && ($Functions_Only < 1))
{
open(FILE,"$Home/Custom/Sql/$TableName\.sql"); my @Temp2 = ; close FILE;
push (@Temp,@Temp2);
}
grep($_ =~ s/TABLENAME/$TableName/g, @Temp);
grep($_ =~ s/BACKUPCOLUMNS/$Backup_Columns/g, @Temp);
grep($_ =~ s/BACKUPVALUES/$Backup_Values/g, @Temp);
grep($_ =~ s/UPDATEFIELDS/$Update_Fields/g, @Temp);
grep($_ =~ s/COPYFIELDS/$Field_Copy_Values/g, @Temp);
grep($_ =~ s/FIELDS/$FieldTypes/g, @Temp);
grep($_ =~ s/__HOME__/$Home/g, @Temp);
grep($_ =~ s/CLEANVARIABLES/$CleanVariables/g, @Temp);
grep($_ =~ s/REMAKEVARIABLES/$RemakeVariables/g, @Temp);
### Now move the stuff from the array @Temp to @Template_Copy.
my @Template_Copy = @Temp;
### Now we save the file. We won't delete it (unless you run this script
### again) so that we can figure out what was done.
open(FILENOT,">$Home/Output/Tables/$TableName\.not_executed");
open(FILE,">$Home/Output/Tables/$TableName\.table_functions");
### Print out the table and backup table.
### In case we don't want to touch the tables.
### You will be responsible for making modifications to the tables.
### We really should implement a "change" option for tables
### that takes care of making changes to tables for you.
### DROP COLUMN is the only thing we can't do yet for a table.
if ($Functions_Only < 1)
{
### Create the sequence for the table .
print FILE "drop sequence $TableName\_sequence;\n";
print FILE "create sequence $TableName\_sequence;\n";
print FILE "drop sequence $TableName\_sequence_backup;\n";
print FILE "create sequence $TableName\_sequence_backup;\n";
print FILE $Tables;
print FILE $Tables_Backup_Copy;
}
else
{
### Create the sequence for the table .
print FILENOT "drop sequence $TableName\_sequence;\n";
print FILENOT "create sequence $TableName\_sequence;\n";
print FILENOT "drop sequence $TableName\_sequence_backup;\n";
print FILENOT "create sequence $TableName\_sequence_backup;\n";
print FILENOT $Tables;
print FILE $Tables_Backup_Copy;
}
print FILE $Tables2;
### Print out the 4 functions, insert, delete, update, and copy.
foreach my $Temp (@Template_Copy) {print FILE "$Temp";}
if ($Functions_Only < 1)
{
print FILE qq(
insert into $TableName ($TableName\_id, date_updated, date_created, active)
values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
insert into $TableName\_backup (backup_id, $TableName\_id,
date_updated, date_created, active, error_code)
values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
);
}
else
{
print FILENOT qq(
insert into $TableName ($TableName\_id, date_updated, date_created, active)
values (0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0);
insert into $TableName\_backup (backup_id, $TableName\_id,
date_updated, date_created, active, error_code)
values (0, 0, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP, 0, 'table creation');
);
}
### Print out a vaccum command.
print FILE "vacuum;\n";
close FILE;
close FILENOT;
### Before we execute, let us backup the table in case some novice
### executes this on a live server.
my $Backup_File = "$Home/Backups/$TableName\_0.backup";
my $No = 0;
while (-e $Backup_File)
{$No++; $Backup_File = "$Home/Backups/$TableName\_$No\.backup";}
### Now we have the filename to store the backup, execute it.
system ("pg_dump -t $TableName -f $Backup_File $Database");
### Uncomment this option if you want to see what is in the file.
## system ("cat $Home/Output/Tables/$TableName\.table_functions");
### Drop table and functions, create table and functions and backup table.
my $Response = system ("psql -d $Database -c '\\i $Home/Output/Tables/$TableName\.table_functions'");
print "Response = $Response\n";
if ($Response > 0)
{
my $Response = system ("psql -h 127.0.0.1 -d $Database -c '\\i $Home/Output/Tables/$TableName\.table_functions'");
print "Response = $Response\n";
}
print "Check the file\n $Home/Output/Tables/$TableName\.table_functions.\n";
### SAVE VALUES FOR OTHER LANGUAGES THAN PERL ###
$Table_Defs->{$TableName}->{'fields'} = $Fields;
# print "{ $TableName }->{'fields'} = $Fields;\n";
### PERL BEGIN ####
## Now, add a custom made file for perl.
open(FILE,">$Home/Output/Perl/$TableName\.pl");
my @Temp_Perl = @Perl_S_T;
grep($_ =~ s/TABLENAME/$TableName/g, @Temp_Perl);
grep($_ =~ s/BACKUPCOLUMNS/$Backup_Columns/g, @Temp_Perl);
grep($_ =~ s/BACKUPVALUES/$Backup_Values/g, @Temp_Perl);
grep($_ =~ s/UPDATEFIELDS/$Update_Fields/g, @Temp_Perl);
grep($_ =~ s/COPYFIELDS/$Field_Copy_Values/g, @Temp_Perl);
grep($_ =~ s/FIELDS/$FieldTypes/g, @Temp_Perl);
grep($_ =~ s/__HOME__/$Home/g, @Temp_Perl);
grep($_ =~ s/CLEANVARIABLES/$CleanVariables/g, @Temp_Perl);
grep($_ =~ s/REMAKEVARIABLES/$RemakeVariables/g, @Temp_Perl);
grep($_ =~ s/LISTCOLUMNS/$Fields/g, @Temp_Perl);
print FILE @Temp_Perl;
close FILE;
### PERL END ####
### PYTHON BEGIN ####
### PYTHON END ####
}
#---------------------------------------------------------------------------
#### Perl modules and Perl webpages.
## Load the Perl module header;
open(FILE3,$Perl_Module_Set_Header); my @File = ; close FILE3;
## Gather all the perl scripts we have made.
my @Files = <$Home/Output/Perl/*.pl>;
## Open up the new perl module
open(FILE,">$Perl_Module_Set_Output");
## Print the header to the module
grep($_ =~ s/PACKAGE/$Package/g, @File);
print FILE @File;
## One by one, print the subroutines to the module.
## Also, store the tablenames into an array
my @Get_Info_Array = ();
foreach my $File (@Files)
{
open(FILE2,$File); my @File2 = ; close FILE2;
print FILE @File2;
my (@Temp) = split(/\//, $File);
my $Last = pop @Temp;
my ($Name,$Junk) = split(/\./,$Last,2);
push (@Get_Info_Array,$Name);
}
### Get the custom stuff and append it.
open(FILE3,$Perl_Module_Set_Custom); my @File = ; close FILE3;
print FILE @File;
## Return true for the module.
print FILE "\n1;\n";
close FILE;
### Now create the Get_Info.pm module
my $Valid_Tables = "";
foreach my $Table (@Get_Info_Array)
{$Valid_Tables .= " '$Table',";}
chop $Valid_Tables;
## Load the Perl module header;
open(FILE3,$Perl_Module_Get_Header); my @File = ; close FILE3;
## Open up the new perl module
open(FILE,">$Perl_Module_Get_Output");
## Print the header to the module
grep($_ =~ s/PACKAGE/$Package/g, @File);
grep($_ =~ s/VALIDTABLES/$Valid_Tables/g, @File);
print FILE @File;
## Get the custom made stuff and append it.
open(FILE3,$Perl_Module_Get_Custom); my @File = ; close FILE3;
print FILE @File;
## Return true for the module.
print FILE "\n1;\n";
close FILE;
## Get the Misc.pm module
open(FILE3,"$Main_Templates/Perl/Misc.pm"); my @File = ; close FILE3;
open(FILE,">$Home/Output/Perl/Misc.pm");
## Print the module out.
grep($_ =~ s/PACKAGE/$Package/g, @File);
grep($_ =~ s/BLOWFISH_KEY/$Blowfish_Key/g, @File);
print FILE @File;
## Get the Constants.pm module
open(FILE3,"$Main_Templates/Perl/Constants.pm"); my @File = ; close FILE3;
open(FILE,">$Home/Output/Perl/Constants.pm");
## Print the module out.
grep($_ =~ s/PACKAGE/$Package/g, @File);
grep($_ =~ s/DATABASE/$Database/g, @File);
grep($_ =~ s/TEMPDIR/$TempDir/g, @File);
grep($_ =~ s/WEB_ROOT/$Web_Root/g, @File);
grep($_ =~ s/SERVER_ROOT/$Server_Root/g, @File);
print FILE @File;
## Get the Email.pm header
open(FILE3,"$Main_Templates/Perl/Email.pm_header"); my @File = ; close FILE3;
open(FILE,">$Home/Output/Perl/Email.pm");
## Print the module out.
grep($_ =~ s/PACKAGE/$Package/g, @File);
print FILE @File;
open(FILE3,"$Perl_Module_Email_Custom"); my @File = ; close FILE3;
grep($_ =~ s/PACKAGE/$Package/g, @File);
print FILE @File;
print FILE "\n1;\n";
close FILE;
## Get the XML_Custom module
open(FILE4,$Perl_Module_XML_Header); my @File = ;close FILE4;
open(FILE,">$Perl_Module_XML_Output");
## Print the module out.
grep($_ =~ s/PACKAGE/$Package/g, @File);
print FILE @File;
open(FILE4,"$Perl_Module_XML_Custom"); my @File = ; close FILE4;
grep($_ =~ s/PACKAGE/$Package/g, @File);
print FILE @File;
print FILE "\n1;\n";
close FILE;
## Now copy over any custom made modules (from scratch).
if (-e "$Templates/Custom/Perl/Modules")
{
my @Modules = <$Templates/Custom/Perl/Modules/*.pm>;
foreach my $File (@Modules)
{
### Get the name of the module
my (@Temp) = split(/\//, $File);
my $Name = pop @Temp;
### Open file, replace keywords, save file to Output directory.
open(FILE3,$File); my @File = ; close FILE3;
grep($_ =~ s/PACKAGE/$Package/g, @File);
grep($_ =~ s/DATABASE/$Database/g, @File);
grep($_ =~ s/TEMPDIR/$TempDir/g, @File);
grep($_ =~ s/WEB_ROOT/$Web_Root/g, @File);
grep($_ =~ s/SERVER_ROOT/$Server_Root/g, @File);
open(FILE4,">$Home/Output/Perl/$Name"); print FILE4 @File;
print FILE4 "\n1;\n";
close FILE4;
}
}
### Now copy the modules to their correct destination.
system "cp $Home/Output/Perl/*.pm $Destination_Modules/";
print "Copying: cp $Home/Output/Perl/*.pm $Destination_Modules/\n";
#--------------------------------------------------------------------------
### Now copy over the .htaccess and password file to the sample directory.
open(FILE3,"$Main_Templates/htaccess"); my @File3 = ; close FILE3;
open(FILE,">$Destination_Html/.htaccess");
grep($_ =~ s/DIR/$Destination_Html/g, @File3);
print FILE @File3;
close FILE;
system "cp $Main_Templates/Password $Destination_Html/";
system "cp $Main_Templates/Perl/Error_No_User.pl $Destination_Html/";
system "chmod 755 $Destination_Html/Error_No_User.pl";
#--------------------------------------------------------------------------
### Now create the sample Perl webpages/scripts.
my @Tables = (sort keys %$Table_Fields);
open(INDEX,">$Destination_Html/index.html");
print INDEX " Sample webpages for $Database \n\n";
foreach my $TableName (sort keys %$Table_Fields)
{
print INDEX " $TableName\.pl \n";
print "Creating sample webpage for '$TableName' at '$Destination_Html/$TableName\.pl'\n";
open(FILE3,"$Main_Templates/Perl/Custom_Html1.html");
my @Html = ; close FILE3;
open(FILE3,"$Main_Templates/Perl/Custom_Html1.html");
my @Html2 = ; close FILE3;
open(FILE,">$Destination_Html/$TableName\.pl");
grep($_ =~ s/PACKAGE/$Package/g, @Html);
grep($_ =~ s/TABLENAME/$TableName/g, @Html);
my $Ref = $Table_Fields->{$TableName};
my @Columns = (sort keys %$Ref);
## Create a list of columsn that do not end if "_id".
my @Columns_No_Ids = grep(!($_ =~ /_id$/), @Columns);
## Create a list of columsn that do end if "_id".
## Remember, as a standard, all fields that end in "_id" must have
## a table.
my @Columns_Ids = grep($_ =~ /_id$/, @Columns);
## Remove the current TABLENAME_id from that array
@Columns_Ids = grep(!($_ eq "$TableName\_id"), @Columns_Ids);
### Define the fields for updating and inserts.
my $DefineFields = "";
foreach my $Column (@Columns_No_Ids)
{$DefineFields .= " \$Fields->{'$Column'} = \$query->param('$Column');\n";}
foreach my $Column (@Columns_Ids)
{
my $Comment = "";
### We should uncomment this if we don't want them to change the users_id.
# if ($Column eq "users_id")
# {$Comment = " # We should turn off changing users_id.\n#";}
$DefineFields .= "$Comment \$Fields->{'$Column'} = \$Ids->{'$Column'};\n";
}
grep($_ =~ s/DEFINEFIELDS/$DefineFields/g, @Html);
### These few lines take care of the html rows for the table we are editing.
my $Html_Fields = "";
foreach my $Column (@Columns_No_Ids)
{
$Html_Fields .= qq($Column
; close FILE3;
my $Temp = $Column; $Temp =~ s/_id$//g;
grep($_ =~ s/TABLENAME/$Temp/g, @File3);
grep($_ =~ s/PACKAGE/$Package/g, @File3);
# grep($_ =~ s///, @File3);
my $Warning = " ## We did not detect a table for this id, disabling.\n";
if (exists $Table_Fields->{$Temp}) {$Warning = "";}
else { grep($_ = "#$_", @File3); unshift(@File3,$Warning);}
### Add template for column to other_lists.
$Other_Lists .= "@File3";
### This sets up decrypting the id for the column.
$OtherIds .= qq(\$Ids_Encrypted->{'$Column'} = \$query->param('$Column');
\$Ids->{'$Column'} = 0;
if (\$Ids_Encrypted->{'$Column'} ne "")
{\$Ids->{'$Column'} = PACKAGE::Misc->Decrypt(\$Ids_Encrypted->{'$Column'});}
);
$OtherIds_Set .= qq( \$Ids->{'$Column'} = \$$TableName\_Info->{'$Column'};
if (\$Ids->{'$Column'} < 0) {\$Ids->{'$Column'} = 0}
\$Ids_Encrypted->{'$Column'} = PACKAGE::Misc->Encrypt(\$Ids->{'$Column'});
\n);
### Get the column name from the column id, and other stuff.
my $Temp = $Column; $Temp =~ s/_id$//g;
my $Ref2 = $Table_Fields->{$Temp};
my @Columns2 = (sort keys %$Ref2);
$Html_Fields .= qq($Column
\$Other_Lists->{'$Column'}
Edit This Item
\n";
close INDEX;
#-------------------------------------------------------------------------
### Now create the java modules and java webpages
### TO DO
### Now create the php modules and php webpages
### TO DO
#------------------------------------------------------------------------
### Now create the python modules and python webpages
### TO DO
### We are going to clean up how modules are implemented.
### Here is the followign format:
# 1. If we find a file ending in ".py_template", we will assume there is
# are .py_header and .py_footer files that go with it. In addition,
# we will execute .py_template once for each table.
# 1. If we find a file, ".py_module" we will just substitue values.
my @Python_T = <$Python_Module_Dir/*>;
@Python_T = grep(!($_ =~ /[\~]$/ ), @Python_T);
### POST
if (!(exists $Global_Variables->{'DESTINATION_MODULES_PYTHON'}))
{@Python_T = ();}
## Get the Misc.py module
open(FILE3,"$Main_Templates/Python/Misc.py"); my @File = ; close FILE3;
open(FILE,">$Home/Output/Python/Misc.py");
## Print the module out.
grep($_ =~ s/PACKAGE/$Package/g, @File);
grep($_ =~ s/BLOWFISH_KEY/$Blowfish_Key/g, @File);
print FILE @File;
close FILE;
## Get the Blowfish module
open(FILE3,"$Main_Templates/Python/Blowfish.py"); my @File = ; close FILE3;
open(FILE,">$Home/Output/Python/Blowfish.py");
foreach my $Line (@File) {print FILE @File;}
close FILE;
my @Python_Templates = grep($_ =~ /\.py_template$/, @Python_T);
my @Python_Modules = grep($_ =~ /\.py_module$/, @Python_T);
foreach my $File (@Python_Modules)
{
open(FILE,"$File"); my @File = ; close FILE;
my (@Temp) = split(/\//, $File);
my $Prefix = pop @Temp;
$Prefix =~ s/_module//;
# print "processing $File\n";
grep($_ =~ s/DATABASE/$Database/g, @File);
grep($_ =~ s/TEMPDIR/$TempDir/g, @File);
grep($_ =~ s/WEB_ROOT/$Web_Root/g, @File);
grep($_ =~ s/SERVER_ROOT/$Server_Root/g, @File);
grep($_ =~ s/VALIDTABLES/$Valid_Tables/g, @File);
print "Creating python module $Home/Output/Python/$Prefix\n";
open(FILE,">$Home/Output/Python/$Prefix");
print FILE @File;
close FILE;
}
foreach my $File (@Python_Templates)
{
my (@Temp) = split(/\//, $File);
my $Prefix = pop @Temp;
$Prefix =~ s/_template//;
$File = join("/", @Temp, $Prefix);
my @File = ();
open(FILE,"$File\_header"); my @File2 = ; close FILE;
# print "TEST processing $File\_header\n";
grep($_ =~ s/DATABASE/$Database/g, @File2);
grep($_ =~ s/TEMPDIR/$TempDir/g, @File2);
grep($_ =~ s/WEB_ROOT/$Web_Root/g, @File2);
grep($_ =~ s/SERVER_ROOT/$Server_Root/g, @File);
grep($_ =~ s/VALIDTABLES/$Valid_Tables/g, @File2);
push(@File,@File2);
# $Table_Defs->{$TableName}
# my $Ref = $Table_Defs->{$TableName};
open(FILE,"$File\_template"); my @Template = ; close FILE;
foreach my $TableName (@Table_List)
{
my $Ref = $Table_Defs->{$TableName};
@File2 = @Template;
# print "processing $File\_template for $TableName\n";
grep($_ =~ s/TABLENAME/$TableName/g, @File2);
grep($_ =~ s/LISTCOLUMNS/$Ref->{'fields'}/g, @File2);
#print " $TableName $Ref->{'fields'}\n";
push(@File,@File2);
}
open(FILE,"$File\_footer"); my @File2 = ; close FILE;
push(@File, @File2);
print "Creating python module $Home/Output/Python/$Prefix\n";
print ">$Home/Output/Python/$Prefix\n";
open(FILE,">$Home/Output/Python/$Prefix");
print FILE @File;
close FILE;
}
### Now copy the modules to their correct destination.
if (!(-e "$Destination_Modules_Python"))
{system "mkdir -p $Destination_Modules_Python";}
system "cp $Home/Output/Python/*.py $Destination_Modules_Python/";
print "Copying: cp $Home/Output/Python/*.py $Destination_Modules_Python/\n";
#### Now do the Python web scripts
my @Tables = (sort keys %$Table_Fields);
open(INDEX,">$Destination_Html/index_python.html");
print INDEX " Sample webpages for $Database \n\n";
foreach my $TableName (sort keys %$Table_Fields)
{
print INDEX " $TableName\.py \n";
print "Creating sample webpage for '$TableName' at '$Destination_Html/$TableName\.py'\n";
open(FILE3,"$Main_Templates/Python/Custom_Html1.html");
my @Html = ; close FILE3;
open(FILE3,"$Main_Templates/Python/Custom_Html1.html");
my @Html2 = ; close FILE3;
open(FILE,">$Destination_Html/$TableName\.py");
grep($_ =~ s/PACKAGE/$Package/g, @Html);
grep($_ =~ s/TABLENAME/$TableName/g, @Html);
grep($_ =~ s/_PYTHON_MODULES_DIR_/$Destination_Modules_Python/g, @Html);
my $Ref = $Table_Fields->{$TableName};
my @Columns = (sort keys %$Ref);
## Create a list of columsn that do not end if "_id".
my @Columns_No_Ids = grep(!($_ =~ /_id$/), @Columns);
## Create a list of columsn that do end if "_id".
## Remember, as a standard, all fields that end in "_id" must have
## a table.
my @Columns_Ids = grep($_ =~ /_id$/, @Columns);
## Remove the current TABLENAME_id from that array
@Columns_Ids = grep(!($_ eq "$TableName\_id"), @Columns_Ids);
### Define the fields for updating and inserts.
my $DefineFields = "";
foreach my $Column (@Columns_No_Ids)
{
$DefineFields .= qq( if form.has_key("$Column"): Fields["$Column"] = form["$Column"][0]\n);
}
foreach my $Column (@Columns_Ids)
{
$DefineFields .= " Fields['$Column'] = Ids['$Column']\n";
}
grep($_ =~ s/DEFINEFIELDS/$DefineFields/g, @Html);
### These few lines take care of the html rows for the table we are editing.
my $Html_Fields = "";
my $List_Fields = "'$TableName\_id'";
foreach my $Column (@Columns_No_Ids)
{
$Html_Fields .= qq($Column
; close FILE3;
my $Temp = $Column; $Temp =~ s/_id$//g;
grep($_ =~ s/TABLENAME/$Temp/g, @File3);
grep($_ =~ s/PACKAGE/$Package/g, @File3);
# grep($_ =~ s///, @File3);
my $Warning = " ## We did not detect a table for this id, disabling.\n";
if (exists $Table_Fields->{$Temp}) {$Warning = "";}
else { grep($_ = "#$_", @File3); unshift(@File3,$Warning);}
### Add template for column to other_lists.
for my $Line (@File3) { $Other_Lists .= $Line;}
### This sets up decrypting the id for the column.
$OtherIds .= qq(
Ids['$Column'] = 0;
if form.has_key('$Column'): Ids['$Column'] = form['$Column'][0]
);
$OtherIds_Set .= qq(Ids['$Column'] = $TableName\_Info['$Column']
if Ids['$Column'] < 0: Ids['$Column'] = 0
);
### Get the column name from the column id, and other stuff.
my $Temp = $Column; $Temp =~ s/_id$//g;
my $Ref2 = $Table_Fields->{$Temp};
my @Columns2 = (sort keys %$Ref2);
$Html_Fields .= qq($Column
""" +Other_Lists['$Column'] + """
Edit This Item
\n";
close INDEX;
#----------------------------------------------------------------------
### Now create the php modules and php webpages
### TO DO
### We are going to clean up how modules are implemented.
### Here is the followign format:
# 1. If we find a file ending in ".py_template", we will assume there is
# are .py_header and .py_footer files that go with it. In addition,
# we will execute .py_template once for each table.
# 1. If we find a file, ".py_module" we will just substitue values.
my @Php_T = <$Php_Module_Dir/*>;
@Php_T = grep(!($_ =~ /[\~]$/ ), @Php_T);
### POST
if (!(exists $Global_Variables->{'DESTINATION_MODULES_PHP'}))
{@Php_T = ();}
## Get the Misc.pm module
open(FILE3,"$Main_Templates/Php/Misc.inc"); my @File = ; close FILE3;
open(FILE,">$Home/Output/Php/Misc.inc");
## Print the module out.
grep($_ =~ s/PACKAGE/$Package/g, @File);
grep($_ =~ s/BLOWFISH_KEY/$Blowfish_Key/g, @File);
print FILE @File;
my @Php_Templates = grep($_ =~ /\.inc_template$/, @Php_T);
my @Php_Modules = grep($_ =~ /\.inc_module$/, @Php_T);
foreach my $File (@Php_Modules)
{
open(FILE,"$File"); my @File = ; close FILE;
my (@Temp) = split(/\//, $File);
my $Prefix = pop @Temp;
$Prefix =~ s/_module//;
# print "processing $File\n";
grep($_ =~ s/DATABASE/$Database/g, @File);
grep($_ =~ s/TEMPDIR/$TempDir/g, @File);
grep($_ =~ s/WEB_ROOT/$Web_Root/g, @File);
grep($_ =~ s/SERVER_ROOT/$Server_Root/g, @File);
grep($_ =~ s/VALIDTABLES/$Valid_Tables/g, @File);
print "Creating php module $Home/Output/Php/$Prefix\n";
open(FILE,">$Home/Output/Php/$Prefix");
print FILE @File;
close FILE;
}
foreach my $File (@Php_Templates)
{
my (@Temp) = split(/\//, $File);
my $Prefix = pop @Temp;
$Prefix =~ s/_template//;
$File = join("/", @Temp, $Prefix);
my @File = ();
open(FILE,"$File\_header"); my @File2 = ; close FILE;
# print "TEST processing $File\_header\n";
grep($_ =~ s/DATABASE/$Database/g, @File2);
grep($_ =~ s/TEMPDIR/$TempDir/g, @File2);
grep($_ =~ s/WEB_ROOT/$Web_Root/g, @File2);
grep($_ =~ s/SERVER_ROOT/$Server_Root/g, @File);
grep($_ =~ s/VALIDTABLES/$Valid_Tables/g, @File2);
push(@File,@File2);
# $Table_Defs->{$TableName}
# my $Ref = $Table_Defs->{$TableName};
open(FILE,"$File\_template"); my @Template = ; close FILE;
foreach my $TableName (@Table_List)
{
my $Ref = $Table_Defs->{$TableName};
@File2 = @Template;
# print "processing $File\_template for $TableName\n";
grep($_ =~ s/TABLENAME/$TableName/g, @File2);
grep($_ =~ s/LISTCOLUMNS/$Ref->{'fields'}/g, @File2);
#print " $TableName $Ref->{'fields'}\n";
push(@File,@File2);
}
open(FILE,"$File\_footer"); my @File2 = ; close FILE;
push(@File, @File2);
print FILE "}\n?>\n";
print "Creating php module $Home/Output/Php/$Prefix\n";
print ">$Home/Output/Php/$Prefix\n";
open(FILE,">$Home/Output/Php/$Prefix");
print FILE "\n";
# print FILE @File;
close FILE;
}
### Now copy the modules to their correct destination.
if (!(-e "$Destination_Modules_Php"))
{system "mkdir -p $Destination_Modules_Php";}
system "cp $Home/Output/Php/*.inc $Destination_Modules_Php/";
print "Copying: cp $Home/Output/Php/*.inc $Destination_Modules_Php/\n";
#### Now do the Php web scripts
my @Tables = (sort keys %$Table_Fields);
open(INDEX,">$Destination_Html/index_php.html");
print INDEX " Sample webpages for $Database \n\n";
foreach my $TableName (sort keys %$Table_Fields)
{
print INDEX " $TableName\.php \n";
print "Creating sample webpage for '$TableName' at '$Destination_Html/$TableName\.php'\n";
open(FILE3,"$Main_Templates/Php/Custom_Html1.html");
my @Html = ; close FILE3;
open(FILE3,"$Main_Templates/Php/Custom_Html1.html");
my @Html2 = ; close FILE3;
open(FILE,">$Destination_Html/$TableName\.php");
grep($_ =~ s/PACKAGE/$Package/g, @Html);
grep($_ =~ s/TABLENAME/$TableName/g, @Html);
grep($_ =~ s/_PHP_MODULES_DIR_/$Destination_Modules_Php/g, @Html);
my $Ref = $Table_Fields->{$TableName};
my @Columns = (sort keys %$Ref);
## Create a list of columsn that do not end if "_id".
my @Columns_No_Ids = grep(!($_ =~ /_id$/), @Columns);
## Create a list of columsn that do end if "_id".
## Remember, as a standard, all fields that end in "_id" must have
## a table.
my @Columns_Ids = grep($_ =~ /_id$/, @Columns);
## Remove the current TABLENAME_id from that array
@Columns_Ids = grep(!($_ eq "$TableName\_id"), @Columns_Ids);
### Define the fields for updating and inserts.
my $DefineFields = "";
foreach my $Column (@Columns_No_Ids)
{
$DefineFields .= qq( if (array_key_exists("$Column", \$Vars)) {\$Fields["$Column"] = \$Vars["$Column"];}\n);
}
foreach my $Column (@Columns_Ids)
{
$DefineFields .= " \$Fields['$Column'] = \$Ids['$Column'];\n";
}
grep($_ =~ s/DEFINEFIELDS/$DefineFields/g, @Html);
### These few lines take care of the html rows for the table we are editing.
my $Html_Fields = "";
my $List_Fields = "'$TableName\_id'";
foreach my $Column (@Columns_No_Ids)
{
$Html_Fields .= qq($Column
; close FILE3;
my $Temp = $Column; $Temp =~ s/_id$//g;
grep($_ =~ s/TABLENAME/$Temp/g, @File3);
grep($_ =~ s/PACKAGE/$Package/g, @File3);
# grep($_ =~ s///, @File3);
my $Warning = " ## We did not detect a table for this id, disabling.\n";
if (exists $Table_Fields->{$Temp}) {$Warning = "";}
else { grep($_ = "#$_", @File3); unshift(@File3,$Warning);}
### Add template for column to other_lists.
for my $Line (@File3) { $Other_Lists .= $Line;}
### This sets up decrypting the id for the column.
$OtherIds .= qq(
\$Ids['$Column'] = 0;
if (array_key_exists("$Column", \$Vars))
{\$Ids['$Column'] = \$Vars['$Column'] ;}
);
$OtherIds_Set .= qq(\$Ids['$Column'] = \$$TableName\_Info['$Column'];
if (\$Ids['$Column'] < 0) { \$Ids['$Column'] = 0;}
);
### Get the column name from the column id, and other stuff.
my $Temp = $Column; $Temp =~ s/_id$//g;
my $Ref2 = $Table_Fields->{$Temp};
my @Columns2 = (sort keys %$Ref2);
$Html_Fields .= qq($Column
'
target="$Temp">Edit This Item
\n";
close INDEX;
beta/lib/GUPPS.py 0100755 0000764 0000764 00000011031 07600744126 012473 0 ustar mark mark #!/usr/bin/env python2
# Please read the file "License" which explains the license to this
# program. It is covered underneath the GPL and Perl Artistic Licenses.
import urllib2, urllib, string, re, os, struct
import base64, string, gzip, sys, time, commands
import getopt
#for Env in sys.argv: print Env
#----------------------------------------------
# This is the initial setup to make sure everything looks good.
if not os.environ.has_key('GUPPS_HOME'):
print "Error, no GUPPS_HOME environment variable."
print "Please rerun Install.bat."
print "Aborting."
sys.exit()
Home = os.environ['GUPPS_HOME']
# CHECK 1 COMPLETED
sys.path.append(Home + '/lib/Python')
try: import GUPPS_Setup
except:
print "Unable to find GUPPS_Setup module, aborting."
print "Was it suppose to be at '" + Home + "/lib/Python/GUPPS_Setup.py'?"
print ""
(type, value, traceback) = sys.exc_info()
print "exc_type = " + str(type)
print "exc_value = " + str(value)
print "exc_traceback = " + str(traceback)
# CHECK 2 COMPLETED
import GUPPS_Setup
Setup = GUPPS_Setup.GUPPS_Setup()
Global = Setup.Global()
# CHECK 3 COMPLETED
# Done with initial setup. We may execute with reasonable saftey.
#-----------------------------------------------
Global_Options, Args = Setup.Parse_Opts()
#print Global_Options, Args
TableName = ""
Database = ""
if len(Args) < 1:
print "No database specified, aborting."
sys.exit()
elif len(Args) > 2:
print "Too many arguements, aborting."
print "Database is '" + Args[0] + "', table is '" + Args[1] + "'"
print "But what are these? " + str(Args[2:])
sys.exit()
else:
Database = Args[0]
if len(Args) == 2: TableName = Args[1]
Message = "NOTE: Database is '" + Database + "'.\n"
Message = Message + "NOTE: Initial table is '" + TableName + "'."
print Message
Setup.Log_Message(Message)
# CHECK 4 COMPLETED
#----------------------------------------------------------------------
Setup.Override_Global(database=Database)
#Setup.Psql_Version()
G = Setup.global_variables
#print G
if (G.has_key('DELETE_TEMP_FILES')) and (G['DELETE_TEMP_FILES'] == "yes"):
print "NOTE: Deleting temp files."
Output = commands.getoutput("rm -f " + Setup.home + "/Temp/*")
# CHECK 5 COMPLETED
#---------------------------------------------------------------------
Database_Info=Setup.Parse_Database_Info(database=Database, tablename=TableName)
#print Database_Info['table_list']
#print Database_Info['database_config']
# CHECK 6 COMPLETED
#---------------------------------------------------------------------
Table_List = Database_Info['table_list']
Table_List_Temp = []
if TableName != '':
if not Table_List.count(TableName):
print "Ignoring the table " + TableName + " because it does not exist."
print "We will not create or alter any tables."
Temp_Table_List = []
else : Table_List_Temp = [TableName]
else: Table_List_Temp = Table_List
# We should ask a question if we want to continue.
Message = "Do you want to process the tables in " + Database + "?"
Search_Y = re.compile('[yY]')
if len(Table_List_Temp) == 1:
Message = "Do you want to process the table " + TableName + " in " + Database + "?"
print Message
Input = sys.stdin.readline()
if not Search_Y.search(Input):
print "Okay, you dont' want to continue. Aborting."
sys.exit()
# CHECK 7a COMPLETED
Setup.Database_Check(Database=Database)
#print Setup.global_config
for TableName in Table_List_Temp:
print "Processing table " + TableName
Dir = Home + "/Projects/" + Database
Config = Setup.Process_Config(Database=Database, TableName=TableName)
# Temp = Config.keys()
# Temp.sort()
# for Key in Temp: print Key + " = " + Config[Key]
# CHECK 7b COMPLETED
SQL_Commands = Setup.Table_Sql(Database=Database, TableName=TableName)
Files = Setup.Process_Sql_Commands(Database=Database, TableName=TableName)
Setup.Execute_Sql_Commands(Database=Database, TableName=TableName)
# CHECK 7 COMPLETED
#----------------------------------------------------------------
Setup.Create_Languages(Database=Database, TableName=TableName)
# CHECK 8 COMPLETED
#------------------------------------------------------------------
Setup.Install_Languages(Database=Database, TableName=TableName)
# CHECK 9 COMPLETED
#------------------------------------------------------------------
for TableName in Table_List_Temp:
Languages = Setup.table_module_test[TableName]
for L in Languages:
if Setup.global_variables["DO_" + string.upper(L)] == "yes":
print "NOTE: Result of testing modules for language " + TableName + ":" + L + ":" + str(Languages[L])
beta/lib/GUPPS.py~ 0100755 0000764 0000764 00000011002 07516454016 012671 0 ustar mark mark #!/usr/bin/env python2
# Please read the file "License" which explains the license to this
# program. It is covered underneath the GPL and Perl Artistic Licenses.
import urllib2, urllib, string, re, os, struct
import base64, string, gzip, sys, time, commands
import getopt
#for Env in sys.argv: print Env
#----------------------------------------------
# This is the initial setup to make sure everything looks good.
if not os.environ.has_key('GUPPS_HOME'):
print "Error, no GUPPS_HOME environment variable."
print "Please rerun Install.bat."
print "Aborting."
sys.exit()
Home = os.environ['GUPPS_HOME']
# CHECK 1 COMPLETED
sys.path.append(Home + '/lib/Python')
try: import GUPPS_Setup
except:
print "Unable to find GUPPS_Setup module, aborting."
print "Was it suppose to be at '" + Home + "/lib/Python/GUPPS_Setup.py'?"
print ""
(type, value, traceback) = sys.exc_info()
print "exc_type = " + str(type)
print "exc_value = " + str(value)
print "exc_traceback = " + str(traceback)
# CHECK 2 COMPLETED
import GUPPS_Setup
Setup = GUPPS_Setup.GUPPS_Setup()
Global = Setup.Global()
# CHECK 3 COMPLETED
# Done with initial setup. We may execute with reasonable saftey.
#-----------------------------------------------
Global_Options, Args = Setup.Parse_Opts()
#print Global_Options, Args
TableName = ""
Database = ""
if len(Args) < 1:
print "No database specified, aborting."
sys.exit()
elif len(Args) > 2:
print "Too many arguements, aborting."
print "Database is '" + Args[0] + "', table is '" + Args[1] + "'"
print "But what are these? " + str(Args[2:])
sys.exit()
else:
Database = Args[0]
if len(Args) == 2: TableName = Args[1]
Message = "NOTE: Database is '" + Database + "'.\n"
Message = Message + "NOTE: Initial table is '" + TableName + "'."
print Message
Setup.Log_Message(Message)
# CHECK 4 COMPLETED
#----------------------------------------------------------------------
Setup.Override_Global(database=Database)
G = Setup.global_variables
#print G
if (G.has_key('DELETE_TEMP_FILES')) and (G['DELETE_TEMP_FILES'] == "yes"):
print "NOTE: Deleting temp files."
Output = commands.getoutput("rm -f " + Setup.home + "/Temp/*")
# CHECK 5 COMPLETED
#---------------------------------------------------------------------
Database_Info=Setup.Parse_Database_Info(database=Database, tablename=TableName)
#print Database_Info['table_list']
#print Database_Info['database_config']
# CHECK 6 COMPLETED
#---------------------------------------------------------------------
Table_List = Database_Info['table_list']
Table_List_Temp = []
if TableName != '':
if not Table_List.count(TableName):
print "Ignoring the table " + TableName + " because it does not exist."
print "We will not create or alter any tables."
Temp_Table_List = []
else : Table_List_Temp = [TableName]
else: Table_List_Temp = Table_List
# We should ask a question if we want to continue.
Message = "Do you want to process the tables in " + Database + "?"
Search_Y = re.compile('[yY]')
if len(Table_List_Temp) == 1:
Message = "Do you want to process the table " + TableName + " in " + Database + "?"
print Message
Input = sys.stdin.readline()
if not Search_Y.search(Input):
print "Okay, you dont' want to continue. Aborting."
sys.exit()
# CHECK 7a COMPLETED
Setup.Database_Check(Database=Database)
#print Setup.global_config
for TableName in Table_List_Temp:
print "Processing table " + TableName
Dir = Home + "/Projects/" + Database
Config = Setup.Process_Config(Database=Database, TableName=TableName)
# Temp = Config.keys()
# Temp.sort()
# for Key in Temp: print Key + " = " + Config[Key]
# CHECK 7b COMPLETED
SQL_Commands = Setup.Table_Sql(Database=Database, TableName=TableName)
Files = Setup.Process_Sql_Commands(Database=Database, TableName=TableName)
Setup.Execute_Sql_Commands(Database=Database, TableName=TableName)
# CHECK 7 COMPLETED
#----------------------------------------------------------------
Setup.Create_Languages(Database=Database, TableName=TableName)
# CHECK 8 COMPLETED
#------------------------------------------------------------------
Setup.Install_Languages(Database=Database, TableName=TableName)
# CHECK 9 COMPLETED
#------------------------------------------------------------------
for TableName in Table_List_Temp:
Languages = Setup.table_module_test[TableName]
for L in Languages:
if Setup.global_variables["DO_" + string.upper(L)] == "yes":
print "NOTE: Result of testing modules for language " + TableName + ":" + L + ":" + str(Languages[L])
beta/lib/Gupps.exist 0100664 0000764 0000764 00000000112 07506114550 013371 0 ustar mark mark
## I exist file. Detection to make sure we can install GUPPS correctly.
beta/lib/License 0100755 0000764 0000764 00000002542 07513423165 012537 0 ustar mark mark
# Create Functions for GUPPS version 2.0 beta
# Copyright 2001, 2002 Mark Nielsen
# All rights reserved.
# This Copyright notice was copied and modified from the Perl
# Copyright notice.
# This program is free software; you can redistribute it and/or modify
# it under the terms of either:
# a) the GNU General Public License as published by the Free
# Software Foundation; either version 1, or (at your option) any
# later version, or
# b) the "Artistic License" which comes with this Kit.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either
# the GNU General Public License or the Artistic License for more details.
# You should have received a copy of the Artistic License with this
# Kit, in the file named "Artistic". If not, I'll be glad to provide one.
# You should also have received a copy of the GNU General Public License
# along with this program in the file named "Copying". If not, write to the
# Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
# 02111-1307, USA or visit their web page on the internet at
# http://www.gnu.org/copyleft/gpl.html.
beta/lib/Options_Long.config 0100664 0000764 0000764 00000000640 07637124451 015032 0 ustar mark mark do_perl= DO_PERL
do_php= DO_PHP
do_python= DO_PYTHON
do_java= DO_JAVA
delete_temp_files= DELETE_TEMP_FILES
delete_backups= DELETE_BACKUPS
default_plpgsql_redo= DEFAULT_PLPGSQL_REDO
default_table_redo= DEFAULT_TABLE_REDO
default_sequence_redo= DEFAULT_SEQUENCE_REDO
ask_htaccess_password= ASK_HTACCESS_PASSWORD
ignore_if_custom_exsits= IGNORE_IF_CUSTOM_EXISTS
tempdir= TEMPDIR
psql= PSQL
ignore_errors= IGNORE_ERRORS
beta/lib/Options.config~ 0100664 0000764 0000764 00000000475 07537604025 014256 0 ustar mark mark v: VIEWS
V: VIEWS_REDO
f: FUNCTIONS
F: FUNCTIONS_REDO
t: CREATE_TABLE
T: RECREATE_TABLE
b: CREATE_BACKUP_TABLE
B: RECREATE_BACKUP_TABLE
s: CREATE_SEQUENCE
S: RECREATE_SEQUENCE
p: PORT
P: PL_LANGUAGE
c: CONNECTION_TYPE
i: IP_ADDRESS
d: DATABASE_SERVER
D: CREATE_DATABASE
w: WEB_SERVER
x: TEMPLATE_DIR
L: DELETE_LOGS
beta/lib/Options.default 0100664 0000764 0000764 00000005063 07637124514 014236 0 ustar mark mark DATABASE sample
TABLENAME __THISISANERRORTABLENOTDEFINED__
# This specifies how we should affect creating stuff in the database.
# RECREATE means if we should delete and recreate it when we run GUPPS.
# NOTE: it will always add columns, or possibly rename stuff, but not delete
# them if RECREATE is turned off.
VIEWS yes
VIEWS_REDO no
FUNCTIONS yes
FUNCTIONS_REDO yes
CREATE_TABLE yes
CREATE_BACKUP_TABLE yes
RECREATE_TABLE no
RECREATE_BACKUP_TABLE no
## Other pl_languages are "perl", "python", "pgsql".
## "blank" disables using any language for extra functions (doesn't
## affect the standard plpgsql functions that are required).
PL_LANGUAGE plpgsql
## The generic plpgsql functions get redone each time.
## If no, it will only add it if it doesn't exist.
DEFAULT_PLPGSQL_REDO no
## The generic tables required.
## If no, it will only add it if it doesn't exist.
## You should never redo the default tables.
DEFAULT_TABLE_REDO no
DEFAULT_SEQUENCE_REDO no
CREATE_SEQUENCE yes
RECREATE_SEQUENCE no
CREATE_BACKUP_SEQUENCE yes
RECREATE_BACKUP_SEQUENCE no
# How we connect to our server
PORT 5432
IP_ADDRESS 127.0.0.1
## Other connection types are "perl", "python", "php", "java"
## Only psql, python, perl, and php are probably supported.
## Conection_Type refers to what type of connection we will use
## to get info from our database server. Also, what type we will
## use for insert/update/delete data from database server.
## Intiallyi, only psql will be used because it will take a little
## bit of work to get perl and python or the other languages to
## create databases and create tables.
CONNECTION_TYPE psql
# Whether we should create these modules and web scripts.
DO_PERL yes
DO_PHP yes
DO_PYTHON yes
DO_JAVA no
# The database server, webserver, and sql language
DATABASE_SERVER postgresql
WEBSERVER apache
CREATE_DATABASE no
# These are directories we are going to use relative to root.
TEMPLATE_DIR Templates
# Should we delete the logs before we execute commands?
# This is only meant to get rid of logs when debugging/testing.
DELETE_LOGS yes
DELETE_TEMP_FILES yes
DELETE_BACKUPS no
# Should we prompt to change the username/password for the web scripts
# and the admin scripts?
ASK_HTACCESS_PASSWORD yes
# Should we ignore asking for a username/password is custom one exists?
# This will stop it from asking each time you run this program.
IGNORE_IF_CUSTOM_EXISTS yes
# Define the temporary file for the webserver.
TEMPDIR /tmp
# Define where the psql program is
PSQL psql
# Should we ignore errors?
IGNORE_ERRORS no
beta/lib/Options.default~ 0100664 0000764 0000764 00000005005 07600761431 014423 0 ustar mark mark DATABASE sample
TABLENAME __THISISANERRORTABLENOTDEFINED__
# This specifies how we should affect creating stuff in the database.
# RECREATE means if we should delete and recreate it when we run GUPPS.
# NOTE: it will always add columns, or possibly rename stuff, but not delete
# them if RECREATE is turned off.
VIEWS yes
VIEWS_REDO no
FUNCTIONS yes
FUNCTIONS_REDO yes
CREATE_TABLE yes
CREATE_BACKUP_TABLE yes
RECREATE_TABLE no
RECREATE_BACKUP_TABLE no
## Other pl_languages are "perl", "python", "pgsql".
## "blank" disables using any language for extra functions (doesn't
## affect the standard plpgsql functions that are required).
PL_LANGUAGE plpgsql
## The generic plpgsql functions get redone each time.
## If no, it will only add it if it doesn't exist.
DEFAULT_PLPGSQL_REDO no
## The generic tables required.
## If no, it will only add it if it doesn't exist.
## You should never redo the default tables.
DEFAULT_TABLE_REDO no
DEFAULT_SEQUENCE_REDO no
CREATE_SEQUENCE yes
RECREATE_SEQUENCE no
CREATE_BACKUP_SEQUENCE yes
RECREATE_BACKUP_SEQUENCE no
# How we connect to our server
PORT 5432
IP_ADDRESS 127.0.0.1
## Other connection types are "perl", "python", "php", "java"
## Only psql, python, perl, and php are probably supported.
## Conection_Type refers to what type of connection we will use
## to get info from our database server. Also, what type we will
## use for insert/update/delete data from database server.
## Intiallyi, only psql will be used because it will take a little
## bit of work to get perl and python or the other languages to
## create databases and create tables.
CONNECTION_TYPE psql
# Whether we should create these modules and web scripts.
DO_PERL yes
DO_PHP yes
DO_PYTHON yes
DO_JAVA no
# The database server, webserver, and sql language
DATABASE_SERVER postgresql
WEBSERVER apache
CREATE_DATABASE no
# These are directories we are going to use relative to root.
TEMPLATE_DIR Templates
# Should we delete the logs before we execute commands?
# This is only meant to get rid of logs when debugging/testing.
DELETE_LOGS yes
DELETE_TEMP_FILES yes
DELETE_BACKUPS no
# Should we prompt to change the username/password for the web scripts
# and the admin scripts?
ASK_HTACCESS_PASSWORD yes
# Should we ignore asking for a username/password is custom one exists?
# This will stop it from asking each time you run this program.
IGNORE_IF_CUSTOM_EXISTS yes
# Define the temporary file for the webserver.
TEMPDIR /tmp
# Define where the psql program is
PSQL psql
beta/lib/Options_Long.config~ 0100664 0000764 0000764 00000000603 07600367102 015217 0 ustar mark mark do_perl= DO_PERL
do_php= DO_PHP
do_python= DO_PYTHON
do_java= DO_JAVA
delete_temp_files= DELETE_TEMP_FILES
delete_backups= DELETE_BACKUPS
default_plpgsql_redo= DEFAULT_PLPGSQL_REDO
default_table_redo= DEFAULT_TABLE_REDO
default_sequence_redo= DEFAULT_SEQUENCE_REDO
ask_htaccess_password= ASK_HTACCESS_PASSWORD
ignore_if_custom_exsits= IGNORE_IF_CUSTOM_EXISTS
tempdir= TEMPDIR
psql= PSQL
beta/lib/Test.php 0100664 0000764 0000764 00000000154 07513424602 012653 0 ustar mark mark #!/usr/bin/php
beta/lib/Test.pl 0100755 0000764 0000764 00000000142 07513423574 012504 0 ustar mark mark #!/usr/bin/perl
print "Content-type: text/html\n\n\n";
print "You should not be seeing this.\n";
beta/lib/Test.python 0100664 0000764 0000764 00000000142 07513424560 013405 0 ustar mark mark #!/usr/bin/python
print "Content-type: text/html\n\n\n"
print "You should not be seeing this.\n"
beta/Gupps.config_example 0100664 0000764 0000764 00000000545 07335005611 014456 0 ustar mark mark ### Choose oen of these, or make your own
### For RedHat 6.1
PRE_HOME /home/httpd/html/database
SERVER_ROOT /home/httpd
### For RedHat 7.1
PRE_HOME /var/www/html/database
SERVER_ROOT /var/www
### If you installed your own apache webserver at /usr/local/apache
PRE_HOME /usr/local/apache/htdocs/database
SERVER_ROOT /usr/local/apache
beta/GUPPS.bat 0100755 0000764 0000764 00000002677 07733170324 012063 0 ustar mark mark #!/bin/bash
# Create Functions for Perl/PostgreSQL version 2.0
# Copyright 2001, 2002 Mark Nielsen
# All rights reserved.
# This Copyright notice was copied and modified from the Perl
# Copyright notice.
# This program is free software; you can redistribute it and/or modify
# it under the terms of either:
# a) the GNU General Public License as published by the Free
# Software Foundation; either version 1, or (at your option) any
# later version, or
# b) the "Artistic License" which comes with this Kit.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either
# the GNU General Public License or the Artistic License for more details.
# You should have received a copy of the Artistic License with this
# Kit, in the file named "Artistic". If not, I'll be glad to provide one.
# You should also have received a copy of the GNU General Public License
# along with this program in the file named "Copying". If not, write to the
# Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
# 02111-1307, USA or visit their web page on the internet at
# http://www.gnu.org/copyleft/gpl.html.
GUPPS_HOME=/usr/local/GUPPS
export GUPPS_HOME
/usr/local/GUPPS/GUPPS.py $@
beta/Projects/ 0040775 0000764 0000764 00000000000 07637152460 012260 5 ustar mark mark beta/Projects/sample/ 0040775 0000764 0000764 00000000000 07511133642 013531 5 ustar mark mark beta/Projects/sample/Backups/ 0040775 0000764 0000764 00000000000 07335006144 015121 5 ustar mark mark beta/Projects/sample/Custom/ 0040775 0000764 0000764 00000000000 07511133640 015001 5 ustar mark mark beta/Projects/sample/Custom/contact.sql 0100664 0000764 0000764 00000000505 07335007702 017155 0 ustar mark mark select sql_contact_insert();
select sql_contact_update(1,1,'GNUJobs','Mark','E','Nielsen','articles@gnujobs.com','','','','','','San Jose','CA','95135','USA');
select sql_contact_insert();
select sql_contact_update(2,1,'ABC Inc.','John','','Doe','johndoe@nowhere.comm','','','','','','Some City','Some State','blah','USA');
beta/Projects/sample/Custom/users.sql 0100664 0000764 0000764 00000005474 07335007562 016701 0 ustar mark mark
select sql_users_insert();
select sql_users_update(1,'Username1','Password1',1);
select sql_users_insert();
select sql_users_update(2,'Username2','Password2',1);
drop function sql_users_verify(text,text);
CREATE FUNCTION sql_users_verify (text,text) RETURNS int4 AS '
DECLARE
record1 record; id int4 :=0;
username text; password text;
active int4 := 0;
BEGIN
username := clean_text($1);
password := clean_text($2);
FOR record1 IN SELECT users_id FROM users
where users.username = username
and users.password = password
and users.active = 1
LOOP
id := record1.users_id;
END LOOP;
-- If id < 1 check if username exists .
IF id is NULL THEN
FOR record1 IN SELECT users_id,active FROM users
where users.username = username
LOOP
id := record1.users_id;
-- active := record1.active;
-- If active is < 1, isn not active.
-- IF active < 1 THEN return (-3); END IF;
-- If id is > 0, password is incorrect.
IF id > 0 THEN return (-2); END IF;
END LOOP;
END IF;
-- If id is < 1, username does not exist.
IF id < 1 THEN return (-1); END IF;
-- Everything has passed, return id as users_id.
return (id);
END;
' LANGUAGE 'plpgsql';
select sql_users_verify('Username1','Password1');
drop function sql_users_exists(text);
CREATE FUNCTION sql_users_exists (text) RETURNS int4 AS '
DECLARE
record1 record; id int4 :=0;
username text; password text;
BEGIN
username := clean_text($1);
FOR record1 IN SELECT users_id FROM users
where users.username = username
LOOP
id := record1.users_id;
END LOOP;
-- Everything has passed, return id as users_id.
return (id);
END;
' LANGUAGE 'plpgsql';
select sql_users_exists('Username1');
drop function sql_users_active(text);
CREATE FUNCTION sql_users_active (text) RETURNS int4 AS '
DECLARE
record1 record; id int4 :=0;
username text; password text;
BEGIN
username := clean_text($1);
FOR record1 IN SELECT users_id FROM users where users.username = username
LOOP
id := record1.users_id;
END LOOP;
-- Everything has passed, return id as users_id.
return (id);
END;
' LANGUAGE 'plpgsql';
select sql_users_active('Username1');
-- This shoudl return true.
select sql_users_verify('Username1','Password1');
select sql_users_update(2,'Username2','garbage_ldsfdlskfj',1);
-- This should return false.
select sql_users_verify('Username1','Password1');
-- This should return true.
select sql_users_exists('Username1');
-- This should return false.
select sql_users_exists('Username1_garbage_kldflkdjf');
-- This should return true
select sql_users_active('Username1');
select sql_users_update(2,'Username1','',0);
-- This should return false
select sql_users_active('Username1');
beta/Projects/sample/Config.txt 0100664 0000764 0000764 00000000333 07335073507 015502 0 ustar mark mark
PACKAGE SAMPLE_DATABASE
### The blowfish has to be 32 bits long including spaces.
BLOWFISH_KEY Please change this 32 length key.
DESTINATION_HTML /var/www/html/sample/MAIL
DESTINATION_MODULES /var/www/lib/perl/MAIL
beta/Projects/sample/Tables.txt 0100664 0000764 0000764 00000001205 07335006672 015505 0 ustar mark mark
TABLENAME contact
users_id int4 not NULL default 0,
company_name text NOT NULL default ''
first text NOT NULL default ''
middle text NOT NULL default ''
last text NOT NULL default ''
email text NOT NULL default ''
work_phone text NOT NULL default ''
home_phone text NOT NULL default ''
address_1 text NOT NULL default '',
address_2 text NOT NULL default ''
address_3 text NOT NULL default ''
city text NOT NULL default ''
state text NOT NULL default ''
zip text NOT NULL default ''
country text NOT NULL default ''
TABLENAME users
username text NOT NULL default '',
password text NOT NULL default '',
user_type int4 not null default 1
beta/Install.bat 0100755 0000764 0000764 00000004730 07516453761 012573 0 ustar mark mark #!/bin/bash
### Written by Mark Nielsen
### Started 6_25_2002 for Perl and Python line command.
CUR_DIR=`pwd`
Command=''
if [ ! -f "$CUR_DIR/lib/Gupps.exist" ] ; then
echo "You don't seem to be in the main directory for GUPPS, aborting."
echo "You are in $CUR_DIR."
echo "Unable to find $CUR_DIR/lib/Gupps.exist"
exit
fi
#----------------------------------------------------------------------
### Check if files exist, if not, exit.
Pre() {
if ! [ -f $CUR_DIR/GUPPS.bat ] ; then Password
fi
if [ -f GUPPS.bat ] ; then rm -rf GUPPS.bat
fi
echo "#!/bin/bash" >> $CUR_DIR/GUPPS.bat
cat License >> $CUR_DIR/GUPPS.bat
echo "GUPPS_HOME=$CUR_DIR" >> $CUR_DIR/GUPPS.bat
echo "export GUPPS_HOME" >> $CUR_DIR/GUPPS.bat
}
Post() {
Extra='$@'
echo "$Command $Extra " >> $CUR_DIR/GUPPS.bat
chmod 755 $CUR_DIR/GUPPS.bat
}
#---------------------------------
Perl() {
Pre
Command="$CUR_DIR/lib/GUPPS.pl"
Post
echo "Done installing GUPPS for Perl. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Python() {
Pre
Command="$CUR_DIR/lib/GUPPS.py"
Post
echo "Done installing GUPPS for Python. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Php() {
echo "Php is not implemented yet."
exit
Pre
Command='test'
Post
echo "Done installing GUPPS for PHP. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Java() {
echo "Java is not implemented yet."
exit
Pre
Command='test'
Post
echo "Done installing GUPPS for Java. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#------------------------------------------------------------
Password(){
echo "You will now be prompted to enter in a username and password"
echo "which we will use as the default for the web scripts and"
echo "web admin scripts."
echo "The previous Password file will be deleted".
echo "Please enter a username:"
echo -n ">"
read Username
echo "Please enter a password:"
echo -n ">"
read Password
echo "Modifying Templates/Password"
htpasswd -b -c Templates/Password $Username $Password
echo "Done modifying the Password file."
echo "You can change the default username/password with the command"
echo "./Install.bat password"
}
#--------------------------------------------------------------
case "$1" in
perl)
Perl
;;
php)
Php
;;
python)
Python
;;
java)
Java
;;
password)
Password
;;
*)
echo $"Usage: $0 {perl|python|php|java|password}"
exit 1
esac
exit $?
beta/Install.bat~ 0100755 0000764 0000764 00000004460 07516445500 012761 0 ustar mark mark #!/bin/bash
### Written by Mark Nielsen
### Started 6_25_2002 for Perl and Python line command.
CUR_DIR=`pwd`
Command=''
if [ ! -f "$CUR_DIR/lib/Gupps.exist" ] ; then
echo "You don't seem to be in the main directory for GUPPS, aborting."
echo "You are in $CUR_DIR."
echo "Unable to find $CUR_DIR/lib/Gupps.exist"
exit
fi
#----------------------------------------------------------------------
### Check if files exist, if not, exit.
Pre() {
if [ -f GUPPS.bat ] ; then rm -rf GUPPS.bat
fi
echo "#!/bin/bash" >> $CUR_DIR/GUPPS.bat
cat License >> $CUR_DIR/GUPPS.bat
echo "GUPPS_HOME=$CUR_DIR" >> $CUR_DIR/GUPPS.bat
echo "export GUPPS_HOME" >> $CUR_DIR/GUPPS.bat
}
Post() {
Extra='$@'
echo "$Command $Extra " >> $CUR_DIR/GUPPS.bat
chmod 755 $CUR_DIR/GUPPS.bat
}
#---------------------------------
Perl() {
Pre
Command="$CUR_DIR/lib/GUPPS.pl"
Post
echo "Done installing GUPPS for Perl. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Python() {
Pre
Command="$CUR_DIR/lib/GUPPS.py"
Post
echo "Done installing GUPPS for Python. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Php() {
echo "Php is not implemented yet."
exit
Pre
Command='test'
Post
echo "Done installing GUPPS for PHP. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#---------------------------------
Java() {
echo "Java is not implemented yet."
exit
Pre
Command='test'
Post
echo "Done installing GUPPS for Java. File at '$CUR_DIR/GUPPS.bat'."
exit
}
#------------------------------------------------------------
Password(){
echo "You will now be prompted to enter in a username and password"
echo "which we will use as the default for the web scripts and"
echo "web admin scripts."
echo "Please enter a username:"
echo -n ">"
read Username
echo "Please enter a password:"
echo -n ">"
read Password
echo "Modifying Templates/Password"
htpasswd -b -c Templates/Password $Username $Password
#echo "htpasswd -b -c Templates/Password $Username $Password"
echo "Done."
exit
}
#--------------------------------------------------------------
case "$1" in
perl)
Perl
;;
php)
Php
;;
python)
Python
;;
java)
Java
;;
password)
Password
;;
*)
echo $"Usage: $0 {perl|python|php|java|password}"
exit 1
esac
exit $?
beta/License 0100755 0000764 0000764 00000002542 07513423137 011770 0 ustar mark mark
# Create Functions for GUPPS version 2.0 beta
# Copyright 2001, 2002 Mark Nielsen
# All rights reserved.
# This Copyright notice was copied and modified from the Perl
# Copyright notice.
# This program is free software; you can redistribute it and/or modify
# it under the terms of either:
# a) the GNU General Public License as published by the Free
# Software Foundation; either version 1, or (at your option) any
# later version, or
# b) the "Artistic License" which comes with this Kit.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either
# the GNU General Public License or the Artistic License for more details.
# You should have received a copy of the Artistic License with this
# Kit, in the file named "Artistic". If not, I'll be glad to provide one.
# You should also have received a copy of the GNU General Public License
# along with this program in the file named "Copying". If not, write to the
# Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
# 02111-1307, USA or visit their web page on the internet at
# http://www.gnu.org/copyleft/gpl.html.
beta/License~ 0100755 0000764 0000764 00000002547 07511011077 012165 0 ustar mark mark
# Create Functions for Perl/PostgreSQL version 2.0
# Copyright 2001, 2002 Mark Nielsen
# All rights reserved.
# This Copyright notice was copied and modified from the Perl
# Copyright notice.
# This program is free software; you can redistribute it and/or modify
# it under the terms of either:
# a) the GNU General Public License as published by the Free
# Software Foundation; either version 1, or (at your option) any
# later version, or
# b) the "Artistic License" which comes with this Kit.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either
# the GNU General Public License or the Artistic License for more details.
# You should have received a copy of the Artistic License with this
# Kit, in the file named "Artistic". If not, I'll be glad to provide one.
# You should also have received a copy of the GNU General Public License
# along with this program in the file named "Copying". If not, write to the
# Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
# 02111-1307, USA or visit their web page on the internet at
# http://www.gnu.org/copyleft/gpl.html.
beta/README 0100664 0000764 0000764 00000001142 07511131216 011325 0 ustar mark mark
GUPPS purpose is to combine many languages together so that you can use them
for your webserver interchangably (ignoring custom-made scripts/modules).
In addition, to use any of the supported languages to manage all the supported
languages. In addition, to have line command, console, GUI, and web interfaces
for all supported languages. In addition, GUPPS will check to see if the
languages are properly installed and will run a sample webserver for you
to test.
Please look at Docs/README.
Every file is covered under the Perl Artistic License and GPL.
Please read the file "License" for more detail.