#!/usr/bin/perl -w

use strict;
use warnings;

my $file = $ARGV[0];
my $out3 = "egw_cal_user.sql";

print "Migration file $file...\n";

open F, $file;
open G, ">$out3";

my $line;

while ($line=<F>) {

	$line =~ s/^(\d+)\t(\d+)\t(\w)\t(\w)$/$1\t0\t$4\t$2\t$3\t1/
;
	print G $line;
}

close F;
close G;

# Migration de la table phpgw_cal_user vers egw_cal_user
#
# Il faut faire un dump PostgreSQL d'eGW 1.0
# puis separer dans un fichier phpgw_cal_user.sql
# les lignes correspondant à :
# 
# COPY phpgw_cal_user [...]
# [....]
# [....]
# \.

# On peut ensuite lancer le script :
# ./perl-egw-cal-2.pl  phpgw_cal_user.sql
# qui va générer un fichier SQL
# à injecter dans la base PostgreSQL vierge d'eGW 1.2
#
# remplacer la premier ligne avec :
# COPY egw_cal_user (cal_id, cal_recur_date, cal_user_type, cal_user_id, cal_status, cal_quantity) FROM stdin;
#
#
# Remarques sur les changements dans la base :
#
# phpgw_cal_user => egw_cal_user :
# --------------------------------
#
# cal_id => cal_id
# XXXX => cal_recur_date =0
# [*] => cal_user_type 
# cal_login => cal_user_id
# cal_status => cal_status
# cal_type=[*] => XXXX
# XXXX =>  cal_quantity =1
#
#