Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-confdb
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
intranet-confdb
Commits
f0e2f227
Commit
f0e2f227
authored
Feb 19, 2021
by
Project Open
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
http -> httpd
parent
eefe8c18
Changes
17
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
17 changed files
with
33 additions
and
33 deletions
+33
-33
README.md
README.md
+7
-7
intranet-confdb.info
intranet-confdb.info
+3
-3
related-objects-component.tcl
lib/related-objects-component.tcl
+1
-1
mysql2pgsql.perl
ocs_inventory/mysql2pgsql.perl
+5
-5
ocs2pg.perl
ocs_inventory/ocs2pg.perl
+5
-5
sample_ocs_mysql.sql
ocs_inventory/sample_ocs_mysql.sql
+1
-1
intranet-confdb-procs.tcl
tcl/intranet-confdb-procs.tcl
+1
-1
action.tcl
www/action.tcl
+1
-1
associate-2.tcl
www/associate-2.tcl
+1
-1
associate-conf-item-with-task-2.tcl
www/associate-conf-item-with-task-2.tcl
+1
-1
associate-conf-item-with-task.tcl
www/associate-conf-item-with-task.tcl
+1
-1
associate-delete.tcl
www/associate-delete.tcl
+1
-1
associate-inverse.tcl
www/associate-inverse.tcl
+1
-1
associate.tcl
www/associate.tcl
+1
-1
conf-item-del.tcl
www/conf-item-del.tcl
+1
-1
index.tcl
www/index.tcl
+1
-1
new.tcl
www/new.tcl
+1
-1
No files found.
README.md
View file @
f0e2f227
This diff is collapsed.
Click to expand it.
intranet-confdb.info
View file @
f0e2f227
<?xml version="1.0"?>
<!-- Generated by the OpenACS Package Manager -->
<package
key=
"intranet-confdb"
url=
"http://openacs.org/repository/apm/packages/intranet-confdb"
type=
"apm_application"
>
<package
key=
"intranet-confdb"
url=
"http
s
://openacs.org/repository/apm/packages/intranet-confdb"
type=
"apm_application"
>
<package-name>
]project-open[ Configuration Items
</package-name>
<pretty-plural>
]project-open[ Configuration Items
</pretty-plural>
<initial-install-p>
f
</initial-install-p>
<singleton-p>
t
</singleton-p>
<auto-mount>
intranet-confdb
</auto-mount>
<version
name=
"5.0.4.0.0"
url=
"http://www.project-open.net/download/apm/intranet-confdb-5.0.4.0.0.apm"
>
<version
name=
"5.0.4.0.0"
url=
"http
s
://www.project-open.net/download/apm/intranet-confdb-5.0.4.0.0.apm"
>
<owner
url=
"mailto:frank.bergmann@project-open.com"
>
Frank Bergmann
</owner>
<release-date>
2007-07-28
</release-date>
<vendor
url=
"http://www.project-open.com/"
>
]project-open[
</vendor>
<vendor
url=
"http
s
://www.project-open.com/"
>
]project-open[
</vendor>
<license>
]project-open[ Free License (FL)
</license>
<provides
url=
"intranet-confdb"
version=
"3.4.0.2.0"
/>
...
...
lib/related-objects-component.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (c
)
2003-2008
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
# Shows the list of tickets related to the current ticket
...
...
ocs_inventory/mysql2pgsql.perl
View file @
f0e2f227
...
...
@@ -497,7 +497,7 @@ if ($create_sql ne "") { # we are inside create table statement so lets proces
}
if
(
/^\s*(\w+)\s+.*int.*auto_increment/i
)
{
# example: data_id mediumint(8) unsigned NOT NULL auto_increment,
# int,auto_increment -> serial (same as what is done below)
# for postgres side see http://www.postgresql.org/docs/7.4/interactive/datatype.html#DATATYPE-SERIAL
# for postgres side see http
s
://www.postgresql.org/docs/7.4/interactive/datatype.html#DATATYPE-SERIAL
$seq
=
get_identifier
(
$table
,
$1
,
'seq'
);
$quoted_column
=
quote_and_lc
(
$1
);
$pre_create_sql
.=
"DROP SEQUENCE $seq CASCADE \;\n\n"
;
# cascade will force drop of table, too
...
...
@@ -524,7 +524,7 @@ if ($create_sql ne "") { # we are inside create table statement so lets proces
if
(
m/^(\s*)(\w+)\s+(bigint.*)unsigned/
)
{
$quoted_column
=
quote_and_lc
(
$2
);
# see http://archives.postgresql.org/pgsql-general/2005-07/msg01178.php
# and see http://www.postgresql.org/docs/8.2/interactive/datatype-numeric.html
# and see http
s
://www.postgresql.org/docs/8.2/interactive/datatype-numeric.html
# see http://dev.mysql.com/doc/refman/5.1/en/numeric-types.html max size == 20 digits
s/^(\s*)(\w+)\s+bigint(.*)unsigned/$1 $quoted_column NUMERIC (20,0) CHECK ($quoted_column >= 0)/i
;
...
...
@@ -536,7 +536,7 @@ if ($create_sql ne "") { # we are inside create table statement so lets proces
# MEDIUMINT A medium-sized integer. The signed range is -8388608 to 8388607. The unsigned range is 0 to 16777215.
# INT A normal-size integer. The signed range is -2147483648 to 2147483647. The unsigned range is 0 to 4294967295.
# BIGINT The signed range is -9223372036854775808 to 9223372036854775807. The unsigned range is 0 to 18446744073709551615
# for postgres see http://www.postgresql.org/docs/8.2/static/datatype-numeric.html#DATATYPE-INT
# for postgres see http
s
://www.postgresql.org/docs/8.2/static/datatype-numeric.html#DATATYPE-INT
s/^(\s+"*\w+"*\s+)tinyint/$1 smallint/i
;
s/^(\s+"*\w+"*\s+)mediumint/$1 integer/i
;
...
...
@@ -752,7 +752,7 @@ update_".$table_no_quotes."();\n";
# the tsvector datatype is made for these types of things
# example mysql file:
# what is tsvector datatype?
# http://www.sai.msu.su/~megera/postgres/gist/tsearch/V2/docs/tsearch-V2-intro.html
# http
s
://www.sai.msu.su/~megera/postgres/gist/tsearch/V2/docs/tsearch-V2-intro.html
warn
"dba must do fulltext key transformation for $table\n"
;
next
;
}
...
...
@@ -858,7 +858,7 @@ elsif (/^\s*insert into/i) { # not inside create table and doing insert
$auto_increment_seq
=
""
;
s/'((?:.*?(?:\\')?.*?)*)'([),])/E'$1'$2/g
;
# for the E'' see http://www.postgresql.org/docs/8.2/interactive/release-8-1.html
# for the E'' see http
s
://www.postgresql.org/docs/8.2/interactive/release-8-1.html
# split 'extended' INSERT INTO statements to something PostgreSQL can understand
(
$insert_table
,
$valueString
)
=
$_
=~
m/^INSERT\s+INTO\s+['`"]*(.*?)['`"]*\s+VALUES\s*(.*)/i
;
...
...
ocs_inventory/ocs2pg.perl
View file @
f0e2f227
...
...
@@ -497,7 +497,7 @@ while(<IN>) {
}
if
(
/^\s*(\w+)\s+.*int.*auto_increment/i
)
{
# example: data_id mediumint(8) unsigned NOT NULL auto_increment,
# int,auto_increment -> serial (same as what is done below)
# for postgres side see http://www.postgresql.org/docs/7.4/interactive/datatype.html#DATATYPE-SERIAL
# for postgres side see http
s
://www.postgresql.org/docs/7.4/interactive/datatype.html#DATATYPE-SERIAL
$seq
=
get_identifier
(
$table
,
$1
,
'seq'
);
$quoted_column
=
quote_and_lc
(
$1
);
$pre_create_sql
.=
"DROP SEQUENCE $seq CASCADE \;\n\n"
;
# cascade will force drop of table, too
...
...
@@ -523,7 +523,7 @@ while(<IN>) {
if
(
m/^(\s*)(\w+)\s+(bigint.*)unsigned/
)
{
$quoted_column
=
quote_and_lc
(
$2
);
# see http://archives.postgresql.org/pgsql-general/2005-07/msg01178.php
# and see http://www.postgresql.org/docs/8.2/interactive/datatype-numeric.html
# and see http
s
://www.postgresql.org/docs/8.2/interactive/datatype-numeric.html
# see http://dev.mysql.com/doc/refman/5.1/en/numeric-types.html max size == 20 digits
s/^(\s*)(\w+)\s+bigint(.*)unsigned/$1 $quoted_column NUMERIC (20,0) CHECK ($quoted_column >= 0)/i
;
...
...
@@ -535,7 +535,7 @@ while(<IN>) {
# MEDIUMINT A medium-sized integer. The signed range is -8388608 to 8388607. The unsigned range is 0 to 16777215.
# INT A normal-size integer. The signed range is -2147483648 to 2147483647. The unsigned range is 0 to 4294967295.
# BIGINT The signed range is -9223372036854775808 to 9223372036854775807. The unsigned range is 0 to 18446744073709551615
# for postgres see http://www.postgresql.org/docs/8.2/static/datatype-numeric.html#DATATYPE-INT
# for postgres see http
s
://www.postgresql.org/docs/8.2/static/datatype-numeric.html#DATATYPE-INT
s/^(\s+"*\w+"*\s+)tinyint/$1 smallint/i
;
s/^(\s+"*\w+"*\s+)mediumint/$1 integer/i
;
...
...
@@ -751,7 +751,7 @@ update_".$table_no_quotes."();\n";
# the tsvector datatype is made for these types of things
# example mysql file:
# what is tsvector datatype?
# http://www.sai.msu.su/~megera/postgres/gist/tsearch/V2/docs/tsearch-V2-intro.html
# http
s
://www.sai.msu.su/~megera/postgres/gist/tsearch/V2/docs/tsearch-V2-intro.html
warn
"dba must do fulltext key transformation for $table\n"
;
next
;
}
...
...
@@ -855,7 +855,7 @@ update_".$table_no_quotes."();\n";
$pre_create_sql
=
""
;
# s/'(.*?)'([,)])/E'$1'$2/g;
# for the E'' see http://www.postgresql.org/docs/8.2/interactive/release-8-1.html
# for the E'' see http
s
://www.postgresql.org/docs/8.2/interactive/release-8-1.html
# split 'extended' INSERT INTO statements to something PostgreSQL can understand
(
$insert_table
,
$valueString
)
=
$_
=~
m/^INSERT\s+INTO\s+['`"]*(.*?)['`"]*\s+VALUES\s*(.*)/i
;
...
...
ocs_inventory/sample_ocs_mysql.sql
View file @
f0e2f227
This source diff could not be displayed because it is too large. You can
view the blob
instead.
tcl/intranet-confdb-procs.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2003-2007
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_library
{
@author frank.bergmann@project-open.com
...
...
www/action.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2003-2008
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_page_contract
{
Perform bulk actions on conf_items
...
...
www/associate-2.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2010
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_page_contract
{
Associate the conf_item_ids in
"cid"
with one of the specified objects.
...
...
www/associate-conf-item-with-task-2.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2010
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_page_contract
{
Associate the conf_item_ids in
"cid"
with one of the specified objects.
...
...
www/associate-conf-item-with-task.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2010
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_page_contract
{
Allow the user to associate the current ticket with a new object
...
...
www/associate-delete.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (c
)
2010
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
# ---------------------------------------------------------------
# 1. Page Contract
...
...
www/associate-inverse.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2010
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_page_contract
{
Allow the user to associate the current ticket with a new object
...
...
www/associate.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (C
)
2010
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
ad_page_contract
{
Allow the user to associate the current ticket with a new object
...
...
www/conf-item-del.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (c
)
2003 - 2009
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
# ---------------------------------------------------------------
# 1. Page Contract
...
...
www/index.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (c
)
2003-2007
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
# ---------------------------------------------------------------
# Page Contract
...
...
www/new.tcl
View file @
f0e2f227
...
...
@@ -3,7 +3,7 @@
# Copyright (c
)
2003-2007
]
project-open
[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# http
s
://www.project-open.com/license/ for details.
# ---------------------------------------------------------------
# Page Contract
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment