[Acd-checkins] CVS: acd-1/scripts xml-to-sql.pl,1.15,1.16

[Josh L. <ru...@us...>]

Update of /cvsroot/acd/acd-1/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv14498/scripts

Modified Files:
	xml-to-sql.pl 
Log Message:
New checkin of tmd's windows stuff.


Index: xml-to-sql.pl
===================================================================
RCS file: /cvsroot/acd/acd-1/scripts/xml-to-sql.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** xml-to-sql.pl	7 Dec 2002 02:45:29 -0000	1.15
--- xml-to-sql.pl	14 Oct 2003 00:38:50 -0000	1.16
***************
*** 487,491 ****
  sub dprint {
    if($DEBUG==1) {
!     print DEBUGLOG @_;
    }
  }
--- 487,496 ----
  sub dprint {
    if($DEBUG==1) {
!     my $pid=$$;
!     my @args=@_;
!     my @splitted=split(/\n/, @_);
!     @splitted =~ s/$/$pid/g;
!     
!     print DEBUGLOG @splitted;
    }
  }