$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "0.2" ;
- if (is_lesser $version, $target) {
- debug "Adding local data." ;
-
- do "/etc/gforge/local.pl" or die "Cannot read /etc/gforge/local.pl" ;
-
- my $ip_address = qx/host $domain_name | awk '{print \}'/ ;
-
- @reqlist = (
- "INSERT INTO plugin_".$pluginname."_sample_data (domain, ip_address) VALUES ('$domain_name', '$ip_address')",
- ) ;
+
+# $version = &get_db_version ;
+# $target = "0.2" ;
+# if (is_lesser $version, $target) {
+# my @filelist = ( "/usr/share/gforge/plugins/$pluginname/db/20101203-add_type_for_iframe.sql" ) ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
+# foreach my $file (@filelist) {
+# debug "Processing $file" ;
+# @reqlist = @{ &parse_sql_file ($file) } ;
+
+# foreach my $s (@reqlist) {
+# $query = $s ;
+# # debug $query ;
+# $sth = $dbh->prepare ($query) ;
+# $sth->execute () ;
+# $sth->finish () ;
+# }
+# }
+# @reqlist = () ;
- &update_db_version ($target) ;
- debug "Committing." ;
- $dbh->commit () ;
- }
+# &update_db_version ($target) ;
+# debug "Committing." ;
+# $dbh->commit () ;
+# }
debug "It seems your database install/upgrade went well and smoothly. That's cool." ;
debug "Please enjoy using Debian GForge." ;