This commit was manufactured by cvs2svn to create tag 'freeside/rt'.freeside/rt

2 files changed, 0 insertions, 1678 deletions

diff --git a/rt/bin/rt b/rt/bin/rt
deleted file mode 100755
index 41220bb56..000000000
--- a/rt/bin/rt
+++ /dev/null
@@ -1,1391 +0,0 @@
-#!!!PERL!! -w
-#
-# $Header: /home/cvs/cvsroot/freeside/rt/bin/Attic/rt,v 1.1 2002-08-12 06:17:07 ivan Exp $
-# RT is (c) 1996-2001 Jesse Vincent <jesse@bestpractical.com>
-
-use strict;
-use Carp;
-use Getopt::Long;
-
-use lib "!!RT_LIB_PATH!!";
-use lib "!!RT_ETC_PATH!!";
-
-use RT::Interface::CLI  qw(CleanEnv LoadConfig DBConnect 
-			   GetCurrentUser GetMessageContent);
-
-#Clean out all the nasties from the environment
-CleanEnv();
-
-#Load etc/config.pm and drop privs
-LoadConfig();
-
-#Connect to the database and get RT::SystemUser and RT::Nobody loaded
-DBConnect();
-
-#Drop setgid permissions
-RT::DropSetGIDPermissions();
-
-#Get the current user all loaded
-my $CurrentUser = GetCurrentUser();
-
-unless ($CurrentUser->Id) {
-	print "No RT user found. Please consult your RT administrator.\n";
-	exit(1);
-}
-
-
-# {{{ commandline flags 
-
-my ( @id,
-     @limit_queue,
-     @limit_status,
-     @limit_owner,
-     @limit_priority,
-     @limit_final_priority,
-     @limit_requestor,
-     @limit_subject,
-     @limit_body,
-     @limit_created,
-     @limit_resolved,
-     @limit_lastupdated,
-     @limit_dependson,
-     @limit_dependedonby,
-     @limit_memberof,
-     @limit_hasmember,
-     @limit_refersto,
-     @limit_referredtoby,
-     @limit_keyword,
-     
-     @limit_due,
-     @limit_starts,
-     @limit_started,
-     $limit_first,
-     $limit_rows,
-     $history,
-     $summary,
-     $create,
-     @requestors,
-     @cc,
-     @admincc,
-     $status,
-     $subject,
-     $owner,
-     $steal,
-     $queue,
-     $time_left,
-     $priority,
-     $final_priority,
-     $due,
-     $starts,
-     $started,
-     $contacted,
-     $comment,
-     $reply,
-     $source,
-     $edit,
-     @dependson,
-     @memberof, 
-     @refersto,
-     $mergeinto,
-     @keywords,
-     $time_taken,
-     $verbose,
-     $debug,
-   $help,
-   $version);
-
-# }}}
-
-# Set defaults for cli args
-
-$edit = 1; # Assume the user wants to edit replies and comments 
-           # unless they specify --noedit
-
-# {{{    args
-
-my @args =("id=s" => \@id,
-	   "limit-queue=s" => \@limit_queue,
-	   "limit-status=s" => \@limit_status,
-	   "limit-owner=s" => \@limit_owner,
-	   "limit-priority=s" => \@limit_priority,
-	   "limit-final-priority=s" => \@limit_final_priority,
-	   "limit-requestor=s" => \@limit_requestor,
-	   "limit-subject=s" => \@limit_subject,
-	   "limit-body=s",	\@limit_body,
-	   "limit-created=s" => \@limit_created,
-	   "limit-due=s" =>	\@limit_due,
- 	   "limit-last-updated=s" => \@limit_lastupdated,
-	   "limit-keyword=s" => \@limit_keyword,
-
-	   "limit-member-of=s" => \@limit_memberof,
-	   "limit-has-member=s" => \@limit_hasmember,
-	   "limit-depended-on-by=s" => \@limit_dependedonby,
-	   "limit-depends-on=s" => \@limit_dependson,
-	   "limit-referred-to-by=s" => \@limit_referredtoby,
-	   "limit-refers-to=s" => \@limit_refersto,
-
-	   "limit-starts=s" => \@limit_starts,
-	   "limit-started=s" => \@limit_started,
-	   "limit-first=i" => \$limit_first,
-	   "limit-rows=i" => \$limit_rows,
-	   "history|show" => \$history,
-	   "summary:s" => \$summary,
-	   "create" => \$create,
-	   "keywords=s" => \@keywords,
-	   "requestor|requestors=s" => \@requestors,
-	   "cc=s" => \@cc,
-	   "admincc=s" => \@admincc,
-	   "status=s" => \$status,
-	   "subject=s" => \$subject,
-	   "owner=s" => \$owner,
-	   "steal" => \$steal,
-	   "queue=s" => \$queue,
-
-	   
-	   "priority=i" => \$priority,
-	   "final-priority=i" => \$final_priority,
-	   "due=s" => \$due,
-	   "starts=s" => \$starts,
-	   "started=s" => \$started,
-	   "contacted=s" => \$contacted,
-	   "comment", \$comment,
-	   "reply|respond", \$reply,
-	   "source=s" => \$source,
-	   "edit!" => \$edit,
-	   "depends-on=s" => \@dependson,
-	   "member-of=s" => \@memberof, 
-	   "merge-into=s" => \$mergeinto, 
-	   "refers-to=s" => \@refersto,
-	   "time-left=i" => \$time_left,
-	   "time-taken=i" => \$time_taken,
-	   "verbose+" => \$verbose,
-	   "debug" => \$debug,
-	   "version" => \$version,
-	   "help|h|usage" => \$help
-	  );
-
-# }}}
-
-
-
-GetOptions(@args);
-
-print join(':',@keywords);
-# {{{ If they want it, print a usage message and get out
-
-if ($help) {
-
-
-print <<EOUSAGE;
-
-Limit the set of records returned:
-
---id=[first][-][last]
-  Specify a single ticket, a range, or to start with (n-) or end with (-n)
-a specific ticket.
-  
-  --limit-queue=<queue>
-	  --limit-status=[!](new|open|stalled|resolved)
-
-	  --limit-owner=[!]<userid>
-	  --limit-priority=[starts][-][ends]
-	  --limit-final-priority=[starts][-][ends]
-	    starts is less than ends
-	  --limit-requestor=[!]<userid>|<email>
-	  --limit-subject=[!]<text>
-	  --limit-body=[!]<text>
-	  --limit-keyword=[!]<select>/<keyword>
-        
-       Links
-          --limit-member-of=<ticketid>
-          --limit-has-member=<ticketid>
-          --limit-refers-to=<ticketid>
-          --limit-referred-to-by=<ticketid>
-          --limit-depends-on=<ticketid>
-          --limit-depended-on-by=<ticketid>
-
-
-       Dates
-	  --limit-created=[starts][-][ends]
-	  --limit-due=[starts][-][ends]
-	  --limit-starts=[starts][-][ends]
-	  --limit-started=[starts][-][ends]
-          --limit-resolved=[starts][-][ends]
-          --limit-last-updated=[starts][-][ends]
-	    starts and ends are dates.  starts can not be less than ends
-
-	  --limit-first=<first row returned>
-	  --limit-rows=<row count>
-
-	  --history | --show
-            show a history of the tickets found
- 
-
-	  --summary [format-string]
-             show a listing-style summary of the tickets found. If format string
-             is ommitted, uses \$RT_SUMMARY_FORMAT or an internal default
-            
-
-             #TODO: doc summary 
-             format: <atom>%<format>
-             atom:   <name><size>
-             size: <integer>
-             name:  (grep for # {{{ attribs for the array of ok values)
-
-
-	  --create
-            create a new ticket. Any attributes that you can modify on an existing ticket
-            can also be used for ticket creation.
-
-
-
-Attributes
-  Basics
-	  --status=<new|open|stalled|resolved|dead>
-           sets status
-	   --subject=<subject>
-           sets subject
-	   --owner=<userid>
-           set owner to 
-           --steal
-           Become the owner, even if someone else owns the ticket
-	   --queue=<queueid>
-           set queue to
-	   
-	   --priority=<int>
-	  
-           --final-priority=<int>
-
-  Watchers
-	  --requestors=[+|-]<userid|email address>
-          add or remove this user as a ticket requestor 
-	  --cc=[+|-]<userid|email address>
-          add or remove this user as a ticket cc
-	  --admincc=[+|-]<userid|email address>
-          add or remove this user as a ticket admincc
-
-	(When creating tickets, just leave off the + or - )
-
-  Keywords
-	  --keywords[+|-]<keyword_select>/<keyword>
-          Add or remove a keyword.
-
-
-
-  Dates
-	   --due=<date>
-	   --starts=<date>
-	   --started=<date>
-	   --contacted=<date>
-
-	   --time-left=<int>
-	     
-	   --time-taken=<int>
-
-
-   Link related manipulation:
-
-	   --depends-on=[+|-]<ticketid>
-	   --member-of=[+|-]<ticketid>
-	   --refers-to=[+|-]<ticketid>
-           --merge-into=<ticketid>
-
-Comments and replies
-
-	   --comment
-	   --reply|respond
-	     --source <path>
-                Specify the path to the source file for this ticket update
-
-	      --noedit
-                Don't invoke \$EDITOR to edit the content of this update
-
-
-
-
-   Condiments
-
-	   --verbose
-	   --debug
-	   --version
-	   --help|h|usage
-             You're reading it.
-
-EOUSAGE
-
-    exit(0);
-}
-
-# Print version, and leave
-if ($version) {
-	print "RT $RT::VERSION for $RT::rtname. Copyright 1996-2001 Jesse Vincent <jesse\@fsck.com>\n";
-	exit(0);
-}
-
-# }}}
-
-# {{{ Validate any options that were passed in. normalize them.
-
-#if a queue was specified
-if ($queue) {
-    # make sure that $queue is a valid queue and load it into $queue_obj
-}
-
-#For each date in: $due, $starts, $started
-
-# load up an RT::Date object and parse it into a normalized form
-# if it can't parse it, log an error and null out the variable
-
-# }}}
-
-# {{{ Check if we're creating, if so, create the ticket and be done
-
-if ($create) {
-    $RT::Logger->debug("Creating a new ticket");
-
-    #Make sure the current user can create tickets in this queue
-    
-    #Make sure that the owner specified can own tickets in this queue
-
-
-	    
-    my $linesref = GetMessageContent( Edit => $edit, Source => $source,
-				      CurrentUser => $CurrentUser
-				    );
-    
-    require MIME::Entity;
-    my $MIMEObj;
-    
-    if ($linesref) {
-	$MIMEObj = MIME::Entity->build(Data => $linesref);
-    }	
-    
-    use RT::Ticket;
-    my $Ticket=new RT::Ticket($CurrentUser);
-    my ($ticket, $trans, $msg) =
-      $Ticket->Create(Queue => $queue,
-		      Owner => $owner,
-		      Status => $status || 'new' ,
-		      Subject => $subject,
-		      Requestor => \@requestors,
-		      Cc => \@cc,
-		      AdminCc => \@admincc,
-		      Due => $due,
-		      Starts => $starts,
-		      Started => $started,
-		      TimeLeft => $time_left,
-		      InitialPriority => $priority,
-		      FinalPriority => $final_priority,
-		      MIMEObj => $MIMEObj
-		     );
-    print $msg . "\n";
-}
-
-# }}}
-
-else {
-    #Apply restrictions
-    use RT::Tickets;
-    my $Tickets = new RT::Tickets($CurrentUser);
-    
-    # {{{ Limit our search
-    my $value;			#to use when iterating through restrictions
-    my $queue_id;		#to use when limiting by keyword
-    
-    # {{{ limit on id
-
-    foreach $value (@id) {
-	if ($value =~ /^(\d+)$/) {
-	    $Tickets->LimitId ( VALUE => $1,
-				OPERATOR => '=');
-	}	
-	elsif ($value =~ /^(\d*)\D?(\d*)$/) {
-	    my $start = $1;
-	    my $end = $2;
-	    $Tickets->LimitId(
-			      VALUE => "$start",
-			      OPERATOR => '>=') if ($start);
-	    $Tickets->LimitId(
-			      VALUE => "$end",
-			      OPERATOR => '<=') if ($end);
-	}	
-    }
-
-
-    # }}}
-    
-    # {{{ limit on status
-
-    foreach $value (@limit_status) {
-	if ($value =~ /^(=|!=|!|)(.*)$/) {
-	    my $op = $1;
-	    my $val = $2;
-	         
-
-	    $op = ParseBooleanOp($op);
-	    $Tickets->LimitStatus(VALUE => "$val",
-				  OPERATOR => "$op");
-	}	
-    }
-
-    # }}}
-
-
-
-    # {{{ limit on queue
-    foreach $value (@limit_queue) {
-	if ($value =~ /^(\W?)(.*?)$/i) {
-	    my $op = $1;
-	    my $val = $2;
-		
-	    $op = ParseBooleanOp($op);
-
-	    my $queue_obj = new RT::Queue($RT::SystemUser);
-		
-	    unless ($queue_obj->Load($val)) {
-		$RT::Logger->debug("Queue '$val' not found");
-		print STDERR "Queue '$val' not found\n";	
-		exit(-1);
-	    }
-	    $RT::Logger->debug ("Limiting queue to $op ".$queue_obj->Name);
-	    $Tickets->LimitQueue(VALUE => $queue_obj->Name,
-				 OPERATOR => $op);
-	    $queue_id=$queue_obj->id;
-	}	
-    }	
-
-    # {{{ limit on keyword
-    foreach $value (@limit_keyword) {
-	if ($value =~ /^(\W?)(.*?)\/(.*)$/i) {
-	    my $op = $1;
-	    my $select = $2;
-	    my $keyword = $3;
-
-	    $op = ParseBooleanOp($op);
-
-	    # load the keyword select
-	    my $keyselect = RT::KeywordSelect->new($RT::SystemUser);
-	    unless ($keyselect->LoadByName(Name=>$select, Queue=>$queue_id)) {
-		$RT::Logger->debug("KeywordSelect '$select' not found");
-		print STDERR "KeywordSelect '$select' not fount\n";
-		exit(-1);
-	    }
-
-	    # load the keyword
-	    my $k = RT::Keyword->new($RT::SystemUser);
-	    unless ($k->LoadByNameAndParentId($keyword, $keyselect->Keyword)) {
-		$RT::Logger->debug("Keyword '$keyword' not found");
-		print STDERR "Keyword '$keyword' not found\n";
-		exit(-1);
-	    }
-	    $Tickets->LimitKeyword(OPERATOR => $op,
-	                           KEYWORDSELECT => $keyselect->id,
-				   KEYWORD => $k->id);
-	    $RT::Logger->debug ("Limiting keyword to $op ".$k->Path);
-	}
-    }
-    # }}}
-    # {{{ limit on owner
-    foreach $value (@limit_owner) {
-	if ($value =~ /^(\W?)(.*?)$/i) {
-	    my $op = $1;
-	    my $val = $2;
-		
-	    $op = ParseBooleanOp($op);
-
-	    my $user_obj = new RT::User($RT::SystemUser);
-		
-	    unless ($user_obj->Load($val)) {
-		$RT::Logger->debug("User '$val' not found");
-		print STDERR "User '$val' not found\n";	
-		exit(-1);
-	    }
-	    $val = $user_obj->id();
-		
-	    $RT::Logger->debug ("Limiting owner to $op $val");
-	    $Tickets->LimitOwner(VALUE => "$val",
-				 OPERATOR => "$op");
-	}	
-    }	
-    # }}}
-    # {{{ limt on priority
-
-    foreach $value (@limit_priority) {
-	my ($start, $end) = ParseRange($value);
-	if ($start == $end) {
-	    $Tickets->LimitPriority( VALUE => $start,
-				     OPERATOR => '=');
-	} elsif ($start) {
-	    $Tickets->LimitPriority( VALUE => $start,
-				     OPERATOR => '>=');
-	} elsif ($end) {
-	    $Tickets->LimitPriority( VALUE => $end,
-				     OPERATOR => '<=');
-	}	
-	    
-    }
-    foreach $value (@limit_final_priority) {
-	my ($start, $end) = ParseRange($value);
-	if ($start == $end) {
-	    $Tickets->LimitFinalPriority( VALUE => $start,
-					  OPERATOR => '=');
-	} elsif ($start) {
-	    $Tickets->LimitFinalPriority( VALUE => $start,
-					  OPERATOR => '>=');
-	} elsif ($end) {
-	    $Tickets->LimitFinalPriority( VALUE => $end,
-					  OPERATOR => '<=');
-	}	
-    }
-    # }}}
-
-    foreach $value (@limit_requestor) {
-	if ($value =~ /^(\W?)(.*?)$/i) {
-	    my $op = $1;
-	    my $val = $2;
-		
-	    $op = ParseBooleanOp($op);
-	    $Tickets->LimitRequestor(VALUE => $val,
-				     OPERATOR => $op );
-	}
-	    
-    }
-    foreach $value (@limit_subject) {
-	
-	if ($value =~ /^(\W?)(.*?)$/i) {
-	    my $op = $1;
-	    my $val = $2;
-	    
-	    $op = ParseLikeOp($op);
-	    
-	    $Tickets->LimitSubject(VALUE => $val,
-				   OPERATOR => $op );
-	    }
-    }
-    
-    foreach $value (@limit_body) {
-	if ($value =~ /^(\W?)(.*?)$/i) {
-	    my $op = $1;
-	    my $val = $2;
-	    
-	    $op = ParseLikeOp($op);
-	    
-		$Tickets->LimitBody(VALUE => $val,
-				    OPERATOR => $op );
-	}	
-	
-    }
-    
-    
-    
-    # Dates
-    foreach my $date (@limit_created) {
-	my ($start, $end) = ParseDateRange($date);
-	$Tickets->LimitCreated ( VALUE => $start,
-				 OPERATOR => '>=' ) if ($start);
-	$Tickets->LimitCreated ( VALUE => $end,
-				 OPERATOR => '<=' ) if ($end);
-    }
-
-    foreach my $date (@limit_due) {
-	my ($start, $end) = ParseDateRange($date);
-	$Tickets->LimitDue ( VALUE => $start,
-				 OPERATOR => '>=' ) if ($start);
-	$Tickets->LimitDue ( VALUE => $end,
-				 OPERATOR => '<=' ) if ($end);
-    }
-
-    foreach my $date (@limit_starts) {
-	my ($start, $end) = ParseDateRange($date);
-	$Tickets->LimitStarts ( VALUE => $start,
-				 OPERATOR => '>=' ) if ($start);
-	$Tickets->LimitStarts ( VALUE => $end,
-				 OPERATOR => '<=' ) if ($end);
-    }
-
-    foreach my $date (@limit_started) {
-	my ($start, $end) = ParseDateRange($date);
-	$Tickets->LimitStarted ( VALUE => $start,
-				 OPERATOR => '>=' ) if ($start);
-	$Tickets->LimitStarted ( VALUE => $end,
-				 OPERATOR => '<=' ) if ($end);
-    }
-
-    foreach my $date (@limit_resolved) {
-	my ($start, $end) = ParseDateRange($date);
-	$Tickets->LimitResolved ( VALUE => $start,
-				 OPERATOR => '>=' ) if ($start);
-	$Tickets->LimitResolved ( VALUE => $end,
-				 OPERATOR => '<=' ) if ($end);
-    }
-
-    foreach my $date (@limit_lastupdated) {
-	my ($start, $end) = ParseDateRange($date);
-	$Tickets->LimitLastUpdated( VALUE => $start,
-				 OPERATOR => '>=' ) if ($start);
-	$Tickets->LimitLastUpdated ( VALUE => $end,
-				 OPERATOR => '<=' ) if ($end);
-    }
-
-    foreach my $link (@limit_memberof) {
-	$Tickets->LimitMemberOf($link);
-    }	
-
-    foreach my $link (@limit_hasmember) {
-	$Tickets->LimitHasMember($link);
-    }	
-
-    foreach my $link (@limit_dependson) {
-	$Tickets->LimitDependsOn($link);
-    }	
-
-    foreach my $link (@limit_dependedonby) {
-	$Tickets->LimitDependedOnBy($link);
-    }
-    foreach my $link (@limit_refersto) {
-	$Tickets->LimitRefersTo($link);
-    }	
-    
-    foreach my $link (@limit_referredtoby) {
-	$Tickets->LimitReferredToBy($link);
-    }	
-
-    
-    if ($limit_first){
-    }
-    if ($limit_rows){
-    }
-
-# }}}
-    
-    # {{{ Iterate through all tickets we found
-
-
-    my ($format, $titles, $code);
-    
-    #Set up the summary format if we need to
-    if (defined $summary) {
-	my $format_string = $summary || $ENV{'RT_SUMMARY_FORMAT'} || "%id4%status4%queue7%subject40%requestor16";
-
-	($format, $titles, $code) = BuildListingFormat($format_string);
-        printf "$format\n", eval "$titles";
-   }	
-
- 
-
-    while (my $Ticket = $Tickets->Next()) {
-	$RT::Logger->debug ("Now working on ticket ". $Ticket->id);
-    
-	#Run through all the ticket modifications we might want to do
-	#TODO: these are all insufficiently lazy and should be replaced with some 
-	# nice foreaches.
-
-
-	# {{{ deal with watchers
-	
-	# add / delete requestors
-	foreach $value (@requestors) {
-	    if ($value =~ /^(\W?)(.*)$/) {
-		my $op = $1;
-		my $addr = $2;
-		
-		$Ticket->AddRequestor(Email => $addr) if ($op eq '+');
-		$Ticket->DeleteRequestor( $addr) if ($op eq '-');
-	    }	
-	}
-	
-	# add / delete ccs
-	foreach $value (@cc) {
-	    if ($value =~ /^(\W?)(.*)$/) {
-		my $op = $1;
-		my $addr = $2;
-		$Ticket->AddCc(Email => $addr) if ($op eq '+');
-		$Ticket->DeleteCc($addr) if ($op eq '-');
-	    }	
-	}	
-	
-	# add / delete adminccs
-        $RT::Logger->debug("Looking at admin ccs");
-	foreach $value (@admincc) {
-	    if ($value =~ /^(\W?)(.*)$/) {
-		my $op = $1;
-		my $addr = $2;
-		$Ticket->AddAdminCc(Email => $addr) if ($op eq '+');
-		$Ticket->DeleteAdminCc($addr) if ($op eq '-');
-	    }	
-	}	
-
-	# }}}
-	
-	# {{{ Deal with ticket keywords
-
-	my $KeywordSelects = $Ticket->QueueObj->KeywordSelects();
-        $RT::Logger->debug ("Looking at keywords");
-	foreach $value (@keywords) {
-           $RT::Logger->debug("Looking at --keyword=$value");
-	    if ($value =~ /^(\W?)(.*?)\/(.*)$/) {
-		my $op = $1;
-		my $select = $2;
-		my $keyword = $3;
-		
-		$RT::Logger->debug("Going to $op Keyword $select / $keyword");	
-		while (my $ks = $KeywordSelects->Next) {
-                    $RT::Logger->debug("$select is select ".$ks->Name." is found");
-		    next unless ($ks->Name =~ /$select/i);
-		    $RT::Logger->debug ("Found a match for $select\n"); 
-		    my $kids = $ks->KeywordObj->Descendents;
-    
-                    my ($kid);
-		    foreach $kid (keys %{$kids}) {
-                        $RT::Logger->debug("Now comparing $keyword with ".$kids->{$kid}. "\n");
-			next unless ($kids->{$kid} =~ /^$keyword$/i);
-		        $RT::Logger->debug("Going to $op $select / $keyword (".$kids->{$kid} .")");	
-			$Ticket->DeleteKeyword(KeywordSelect => $ks->id,
-					    Keyword => $kid) if ($op eq '-');
-			
-			$Ticket->AddKeyword(KeywordSelect => $ks->id,
-					    Keyword => $kid) if ($op eq '+');
-		    }
-		    
-		}
-	    }
-	}
-	# }}}
-	
-	# {{{ deal with links
-
-	# Deal with merging {
-	if ($mergeinto) {
-		my ($trans, $msg) =$Ticket->MergeInto($mergeinto);
-		print $msg."\n";
-	}	
-	# add /delete depends-ons
-
-	foreach my $value (@dependson) {
-	    if ($value =~ /^(\W?)(.*)$/) {
-		my $op = $1;
-		my $ticket = $2;
-		if (!$op or ($op eq '+')) {
-		    my ($trans, $msg) =
-		      $Ticket->AddLink(Type => 'DependsOn', Target => $ticket);
-		    print $msg."\n";
-		}
-		elsif ($op eq '-') {
-		    my ($trans, $msg) = 
-		      $Ticket->DeleteLink(Type => 'DependsOn', Target => $ticket);
-		    print $msg."\n";
-		}
-
-	    }
-	}
-	# add /delete member-of
-	foreach my $value (@memberof) {
-	    if ($value =~ /^(\W?)(.*)$/) {
-		my $op = $1;
-		my $ticket = $2;
-		if ($op eq '+') {
-		    my ($trans, $msg) =
-		      $Ticket->AddLink(Type => 'MemberOf', Target => $ticket);
-		    print $msg;
-		}
-		elsif ($op eq '-') {
-		    my ($trans, $msg) = 
-		      $Ticket->DeleteLink(Type => 'MemberOf', Target => $ticket);
-		    print $msg;
-		}
-
-	    }
-	}	
-	# add / delete refers-to
-		foreach my $value (@refersto) {
-	    if ($value =~ /^(\W?)(.*)$/) {
-		my $op = $1;
-		my $ticket = $2;
-		if ($op eq '+') {
-		    my ($trans, $msg) =
-		      $Ticket->AddLink(Type => 'RefersTo', Target => $ticket);
-		    print $msg;
-		}
-		elsif ($op eq '-') {
-		    my ($trans, $msg) = 
-		      $Ticket->DeleteLink(Type => 'RefersTo', Target => $ticket);
-		    print $msg;
-		}
-
-	    }
-	}
-
-	# }}}
-	
-	# {{{ deal with dates
-	
-	#set due 
-	if ($due) {
-	    my $iso = ParseDateToISO($due);
-	    if ($iso) {
-		$RT::Logger->debug("Setting due date to $iso ($due)");
-		my ($trans, $msg) = 
-		  $Ticket->SetDue($iso);
-		print $msg;
-	    }
-	    else {
-		print "Due date '$due' could not be parsed";
-	    }
-	}
-
-	#set starts
-	if ($starts) {
-	    my $iso = ParseDateToISO($due);
-	    if ($iso) {
-		my ($trans, $msg) = 
-		  $Ticket->SetStarts($iso);
-		print $msg."\n";
-	    }
-	    else {
-		print "Starts date '$starts' could not be parsed";
-	    }
-	}
-	#set started
-		if ($started) {
-	    my $iso = ParseDateToISO($started);
-	    if ($iso) {
-		my ($trans, $msg) = 
-		  $Ticket->SetStarted($iso);
-		print $msg."\n";
-	    }
-	    else {
-		print "Started date '$started' could not be parsed";
-	    }
-	}
-	#set contacted
-		if ($contacted) {
-	    my $iso = ParseDateToISO($contacted);
-	    if ($iso) {
-		my ($trans, $msg) = 
-		  $Ticket->SetContacted($iso);
-		print $msg."\n";
-	    }
-	    else {
-		print "Contacted date '$contacted' could not be parsed";
-	    }
-	}
-
-    # }}}
-	
-	# {{{ set other attributes
-
-	#Set subject
-	if ($subject) {
-	    my ($trans, $msg) = $Ticket->SetSubject($subject);
-	    print $msg."\n";
-	}
-	
-	#Set priority
-	if ($priority) {
-	    my ($trans, $msg) = 
-	      $Ticket->SetPriority($priority);
-	    print $msg."\n";
-	}
-	
-	#Set final priority
-	if ($final_priority) {
-	    my ($trans, $msg) =
-	      $Ticket->SetFinalPriority($final_priority);
-	    print $msg."\n";
-	}
-
-	#Set status
-	if ($status) {
-	    my ($trans, $msg) = 
-	      $Ticket->SetStatus($status);
-	    print $msg."\n";
-	}
-	
-	#Set time left
-	if ($time_left) {
-	    my ($trans, $msg) = 
-	      $Ticket->SetTimeLeft($time_left);
-	    print $msg."\n";
-	}
-
-	#Set time_taken 
-	if ($time_taken) {
-	    my ($trans, $msg) = 
-	      $Ticket->SetTimeTaken($time_taken);
-	    print $msg."\n";
-	}
-	
-	#Set owner
-	if ($owner) {
-	    my ($trans, $msg) =
-	      $Ticket->SetOwner($owner);
-	    print $msg."\n";
-	}
-
-        # Steal
-        if ($steal) {
-                my ($trans, $msg) =
-                 $Ticket->Steal();
-                 print $msg . "\n";
-        }
-	#Set queue 
-	if ($queue) {
-	    my ($trans, $msg) = 
-	      $Ticket->SetQueue($queue);
-	    print $msg."\n";
-	}
-
-    # }}}
-	
-
-
-	# {{{ Perform ticket comments/replies
-	if ($reply) {
-	    $RT::Logger->debug("Replying to ticket ".$Ticket->Id);
-	    
-	    my $linesref = GetMessageContent( Edit => $edit, Source => $source,
-					     CurrentUser => $CurrentUser
-					   );
-	    
-	    #TODO build this entity
-	    require MIME::Entity;
-	    my $MIMEObj = MIME::Entity->build(Data => $linesref);
-	    
-	    $Ticket->Correspond( MIMEObj => $MIMEObj ,
-				 TimeTaken => $time_taken);
-	}	
-	
-	elsif ($comment) {
-	    $RT::Logger->debug("Commenting on ticket ".$Ticket->Id);
-	
-	    my $linesref =GetMessageContent(Edit => $edit, Source => $source,
-					    CurrentUser => $CurrentUser);
-	    #TODO build this entity
-	    require MIME::Entity;
-	    my $MIMEObj = MIME::Entity->build(Data => $linesref);
-	    
-	    $Ticket->Comment( MIMEObj => $MIMEObj,
-			      TimeTaken => $time_taken);
-	}
-
-    # }}}
-	
-	# {{{ Display whatever we need to display
-
-	# {{{ Display a full ticket listing and history
-	if ($history) {
-	    #Display the history
-	    $RT::Logger->debug("Show history for ".$Ticket->id);
-	    
-	    if ($Ticket->CurrentUserHasRight("ShowTicket")) {
-		&ShowSummary($Ticket);
-		print "\n";
-		&ShowHistory($Ticket);
-	    }
-	    else {
-		print "You don't have permission to view that ticket.\n";
-	    }
-	}	
-
-	# }}}
-	
-	# {{{ Display a summary if we need to
-	if (defined $summary) {
-	    $RT::Logger->debug ("Show ticket summary with format $format");
-	    
-	    printf $format."\n", eval $code;
-	    
-	}	
-	# }}}
-
-	# }}}
-	
-    }
-
-    # }}}
-    
-}
-
-
-$RT::Handle->Disconnect();
-
-
-
-
-
-
-
-# {{{ sub ParseBooleanOp
-
-=head2 ParseBooleanOp
-
-  Takes an option modifier. returns the apropriate SQL operator.
-  If it's handed ! or -, returns !=.  Otherwise returns =.
-
-=cut
-
-sub ParseBooleanOp {
-    
-    my $op = shift;
-    
-    #so that !new limits to not new, etc
-    if ($op =~ /^(\!|-)/) {
-	$op = "!=";
-    }
-    else {
-	$op = "=";
-    }
-    
-    return($op);
-}
-
-# }}}
-
-# {{{ sub ParseLikeOp
-=head2 ParseLikeOp
-
-  Takes an option modifier. returns the apropriate SQL operator.
-  If it's handed ! or -, returns NOT  LIKE.  Otherwise returns LIKE
-
-=cut
-
-sub ParseLikeOp {
-    
-    my $op = shift;
-    
-    #so that !new limits to not new, etc
-    if ($op =~ /^(\!|-)/) {
-	$op = "NOT LIKE";
-    }
-    else {
-	$op = "LIKE";
-    }
-    
-    return($op);
-}
-# }}}
-
-# {{{ sub ParseDateToISO
-
-=head2 ParseDateToISO
-
-Takes a date in an arbitrary format.
-Returns an ISO date and time in GMT
-
-=cut
-
-sub ParseDateToISO {
-    my $date = shift;
-
-	my $date_obj = new RT::Date($CurrentUser);
-	$date_obj->Set( Format => 'unknown',
-			Value => $date
-		      );
-	return ($date_obj->ISO);
-}
-
-# }}}
-
-# {{{ sub ParseDateRange
-
-=head2 ParseDateRange [RANGE]
-
-Takes a range of dates of the form [<date>][-][<date>] and returns 
-starting and ending dates (as ISOs) If a date is specified as neither a starting nor ending 
-date, we parse it it as "midnight tonight to midnight tomorrow"
-
-=cut
-
-sub ParseDateRange {
-    my $in = shift;
-    my ($start, $end);
-    
-    
-    use RT::Date;
-    my $start_obj = new RT::Date($CurrentUser);
-    my $end_obj = new RT::Date($CurrentUser);
-    
-    if ($in =~ /^(.*?)-(.*?)$/) {
-	$start = $1;
-	$end = $2;
-
-	if ($start) {
-	    $start_obj->Set(Format => 'unknown', 
-			    Value => $start);
-	}
-	if ($end) {
-	    $end_obj->Set(Format => 'unknown', 
-			  Value => $end);
-	}
-    }
-    else {
-	$start = $in;
-	$end = $in;
-
-	$start_obj->Set(Format => 'unknown', 
-			Value => $start);
-	
-	$end_obj->Set(Format => 'unknown', 
-		      Value => $end);
-	
-	$start_obj->SetToMidnight();
-	$end_obj->SetToMidnight();
-	$end_obj->AddDay();
-    }	
-    
-    if ($start) {
-	$start = $start_obj->ISO;
-    }
-    if ($end) {
-	$end = $end_obj->ISO;
-    }
-
-    return ($start, $end);
-}
-
-# }}}
-
-# {{{ ParseRange
-=head2 ParseRange [RANGE]
-
-Takes a range of the form [<int>][-][<int>] and returns 
-a first and a last value. If the - is omitted, both $start and $end are the same.
-=cut
-
-sub ParseRange {
-    my $in = shift;
-    my ($start, $end);
-    
-    if ($in =~ /(.*?)-(.*?)/) {
-	$start = $1;
-	$end = $2;
-    }
-    else {
-	$start = $in;
-	$end = $in;
-    }	
-    
-    return ($start, $end);
-    
-
-    
-}
-
-# }}}
-	  
-# {{{ sub ShowSummary 
-
-sub ShowSummary  {
-    my $Ticket = shift;
-
-
-    print <<EOFORM;
-Serial Number: @{[$Ticket->Id]}   Status:@{[$Ticket->Status]} Worked: @{[$Ticket->TimeWorked]} minutes  Queue:@{[$Ticket->QueueObj->Name]}
-      Subject: @{[$Ticket->Subject]}
-   Requestors: @{[$Ticket->RequestorsAsString]}
-           Cc: @{[$Ticket->CcAsString]}
-     Admin Cc: @{[$Ticket->AdminCcAsString]}
-        Owner: @{[$Ticket->OwnerObj->Name]}
-     Priority: @{[$Ticket->Priority]} / @{[$Ticket->FinalPriority]}
-          Due: @{[$Ticket->DueAsString]}
-      Created: @{[$Ticket->CreatedAsString]} (@{[$Ticket->AgeAsString]})
- Last Contact: @{[$Ticket->ToldAsString]} (@{[$Ticket->LongSinceToldAsString]})
-  Last Update: @{[$Ticket->LastUpdatedAsString]} by @{[$Ticket->LastUpdatedByObj->Name]}
-	         
-EOFORM
-
-my $selects = $Ticket->QueueObj->KeywordSelects();
-    #get the keyword selects
-    print "Keywords:\n";
-    while (my $select = $selects->Next) {
-	print "\t" .$select->Name .": ";
-	my $keys = $Ticket->KeywordsObj($select->id);	
-	while (my $key = $keys->Next) {
-	    print $key->KeywordObj->RelativePath($select->KeywordObj) . "  ";
-	    
-	}	
-	print "\n";
-    }
-    
-#iterate through the keyword selects.
-#print the keyword select and all the related keywords
-
-
-
-#TODO: finish link  descriptions
-print "Dependencies: \n";
-   while (my $l=$Ticket->DependedOnBy->Next) {
-       print $l->BaseObj->id," (",$l->BaseObj->Subject,") ",$l->Type," this ticket\n";
-   }
-   while (my $l=$Ticket->DependsOn->Next) {
-       print "This ticket ",$l->Type," ",$l->TargetObj->Id," (",$l->TargetObj->Subject,")\n";
-   }
-}
-
-# }}}
-
-# {{{ sub ShowHistory 
-sub ShowHistory  {
-    my $Ticket = shift;
-    my $Transaction;    
-    my $Transactions = $Ticket->Transactions;
-
-    while ($Transaction = $Transactions->Next) {
-      &ShowTransaction($Transaction);
-    }   
-  }
-# }}}
-
-# {{{ sub ShowTransaction 
-sub ShowTransaction  {
-  my $transaction = shift;
-  
-print <<EOFORM;
-==========================================================================
-Date: @{[$transaction->CreatedAsString]} (@{[$transaction->TimeTaken]} minutes)
-@{[$transaction->Description]}
-EOFORM
-    ;
-  my $attachments=$transaction->Attachments();
-  while (my $message=$attachments->Next) {
-    print <<EOFORM;
---------------------------------------------------------------------------
-@{[$message->Headers]}
-EOFORM
-
-    if ($message->ContentType =~ m{^(text/plain|message|text$)}) {
-	print $message->Content;
-    } else {
-	print $message->ContentType, " not shown";
-    }
-  }
-  print "\n";
-  return();
-}
-# }}}
-
-
-# {{{ sub BuildListingFormat
-
-sub BuildListingFormat {
-    my $format_string = shift;
-
-    my ($id, @format, @code, @titles);
-    my ($field,$titles,$length, $format);
-
-    my $code = "";
-
-    # {{{ attribs
-    my $attribs = { id => { chars => '4',
-			    justify => 'r',
-			    title => 'id',
-			    value => '$Ticket->id',
-			  },
-		    
-		    queue => { chars => '8',
-			       justify => 'l',
-			       title => 'Queue',
-			       value => '$Ticket->QueueObj->Name' 
-			     },
-		    subject => { chars => '30',
-				 justify => 'l',
-				 title => 'Subject',
-				 value => '$Ticket->Subject',
-			       },
-		    priority => { chars => '2',
-				  justify => 'r',
-				  title => 'Pri',
-				  value => '$Ticket->Priority',
-				},
-		    final_priority => {  chars => '2',
-					 justify => 'r',
-					 title => 'Fin',
-					 value => '$Ticket->FinalPriority',
-				      },
-		    time_worked => { chars => '6',
-				     justify => 'r',
-				     title => 'Worked',
-				     value => '$Ticket->TimeWorked',
-				   },
-		    time_left => { chars => '5',
-				   justify => 'r',
-				   title => 'Left',
-				   value => '$Ticket->TimeLeft',
-			       
-				 },
-		
-		    status => {  chars => '6',
-				 justify => 'r',
-				 title => 'Status',
-				 value => '$Ticket->Status',
-			      },
-		    owner => {  chars => '10',
-				justify => 'r',
-				title => 'Owner',
-				value => '$Ticket->OwnerObj->Name'
-			     },
-		    requestor => {  chars => '10',
-				    justify => 'r',
-				    title => 'Requestor',
-				    value => '$Ticket->RequestorsAsString'
-				 },
-		    created => {  chars => '12',
-				  justify => 'r',
-				  title => 'Created',
-				  value => '$Ticket->CreatedAsString'
-			       },
-		    updated => {  chars => '12',
-				  justify => 'r',
-				  title => 'Updated',
-				  value => '$Ticket->LastUpdatedAsString'
-			       },
-		    due => {  chars => '12',
-			      justify => 'r',
-			      title => 'Due',
-			      value => '$Ticket->DueAsString'
-			   },
-		    told => {  chars => '12',
-			       justify => 'r',
-			       title => 'Told',
-			       value => '$Ticket->ToldAsString'
-			    },
-		
-		
-		
-		  };
-
-    # }}}
-    
-
-    foreach $field (split ('%',$format_string)) {
-	
-	if ($field =~ /^(\D*?)(\d*?)$/) {
-	    $id = $1;
-	    $length = $2;
-	}
-	else {	
-	    $RT::Logger->debug ("Error parsing $field\n");
-	}
-	if ($length) {
-	    push (@format, "%".$length.".".$length."s ");
-	    
-	    push (@code,  $attribs->{"$id"}->{'value'});
-		  
-	    push (@titles, "'". $attribs->{"$id"}->{title}. "'");
-	}
-	
-	
-    }
-     $code = join (',', @code);
-     $format = join (" ", @format);
-     $titles = join (', ', @titles);
-    
-  
-    return ($format, $titles, $code);
-}
-
-# }}}
-
-
-
-1;
diff --git a/rt/etc/schema.Oracle b/rt/etc/schema.Oracle
deleted file mode 100644
index 0c14cb39d..000000000
--- a/rt/etc/schema.Oracle
+++ /dev/null
@@ -1,287 +0,0 @@
-CREATE SEQUENCE KEYWORDSELECTS_seq;
-CREATE TABLE KeywordSelects (
-	id		NUMBER(11, 0) PRIMARY KEY,
-	Name		VARCHAR2(255),
-	Keyword		NUMBER(11, 0),
-	Single		NUMBER(11, 0),
-	Depth		NUMBER(11, 0) DEFAULT 0,
-	ObjectType	VARCHAR2(32) NOT NULL,
-	ObjectField	VARCHAR2(32),
-	ObjectValue	VARCHAR2(255),
-	Disabled		NUMBER(11, 0) DEFAULT 0
-);
-
-CREATE INDEX KeywordSelects1 ON KeywordSelects (Keyword);
-CREATE INDEX KeywordSelects2 ON 
-	KeywordSelects(ObjectType, ObjectField, ObjectValue);
-
-
-CREATE SEQUENCE ATTACHMENTS_seq;
-CREATE TABLE Attachments (
-  	id 		NUMBER(11,0) PRIMARY KEY,
-  	TransactionId	NUMBER(11,0) NOT NULL,
-  	Parent 		NUMBER(11,0), 		
-  	MessageId 	VARCHAR2(160),
-  	Subject 	VARCHAR2(255),
-  	Filename 	VARCHAR2(255),
-  	ContentType 	VARCHAR2(80),
-  	ContentEncoding 	VARCHAR2(80),
-  	Content 	CLOB,
-  	Headers 	CLOB,
-  	Creator 	NUMBER(11,0),
-  	Created 	DATE,
-  	Disabled 	NUMBER(11,0) DEFAULT 0
-);
-
-CREATE SEQUENCE QUEUES_seq;
-CREATE TABLE Queues (
- 	id 			NUMBER(11, 0) PRIMARY KEY,
-	Name 			VARCHAR2(40) NOT NULL UNIQUE,
-	Description 		VARCHAR2(120),
- 	CorrespondAddress 	VARCHAR2(40),
- 	CommentAddress 		VARCHAR2(40),
- 	InitialPriority 	NUMBER(11, 0),		
- 	FinalPriority 		NUMBER(11, 0),
- 	DefaultDueIn 		NUMBER(11, 0),
-  	Creator 		NUMBER(11, 0),
-  	Created 		DATE,
-  	LastUpdatedBy 		NUMBER(11, 0),
-  	LastUpdated		DATE,
-  	Disabled 		NUMBER(11,0) DEFAULT 0
-);
-
-CREATE SEQUENCE LINKS_seq;
-CREATE TABLE Links (
-  	id 		NUMBER(11,0) PRIMARY KEY,
-  	Base 		VARCHAR2(255),
-  	Target 		VARCHAR2(255),
-  	Type 		VARCHAR2(20) NOT NULL,
-	LocalTarget	NUMBER(11,0),
-	LocalBase	NUMBER(11,0),
-  	LastUpdatedBy 	NUMBER(11,0),
-  	LastUpdated 	DATE,
-  	Creator 	NUMBER(11,0),
-  	Created 	DATE
-);
-
-CREATE UNIQUE INDEX Links1 ON Links (Base, Target, Type);
-
-
-
-CREATE SEQUENCE GROUPS_seq;
-CREATE TABLE Groups (
-	id 		NUMBER(11,0) PRIMARY KEY,
-	Name 		VARCHAR2(16) UNIQUE,
-	Description 	VARCHAR(64),
-	Pseudo		NUMBER(11,0) DEFAULT 0
-);
-
-CREATE SEQUENCE WATCHERS_seq;
-CREATE TABLE Watchers (
-   	id 		NUMBER(11,0) PRIMARY KEY,
-   	Type 		VARCHAR2(16), 	
-   	Scope 		VARCHAR2(16),	
-   	Value 		NUMBER(11,0),	
-   	Email 		VARCHAR2(255),  
-   	Quiet 		NUMBER(11,0),	
-   	Owner 		NUMBER(11,0),	
-   	Creator 	NUMBER(11,0),
-   	Created 	DATE,
-   	LastUpdatedBy 	NUMBER(11,0),
-   	LastUpdated 	DATE
-);
-
-
-
-CREATE SEQUENCE SCRIPCONDITIONS_seq;
-CREATE TABLE ScripConditions (
- 	id 			NUMBER(11, 0) PRIMARY KEY,
-	Name 			VARCHAR2(255),
-	Description 		VARCHAR2(255),
-	ExecModule		VARCHAR2(60),
-	Argument		VARCHAR2(255),
-	ApplicableTransTypes	VARCHAR2(60),
-  	Creator 		NUMBER(11, 0),
-  	Created 		DATE,
-  	LastUpdatedBy 		NUMBER(11, 0),
-  	LastUpdated		DATE
-);
-
-
-CREATE SEQUENCE TRANSACTIONS_seq;
-CREATE TABLE Transactions (
-  	id 			NUMBER(11,0) PRIMARY KEY,
-  	EffectiveTicket 	NUMBER(11,0),
-  	Ticket 			NUMBER(11,0),
-  	TimeTaken 		NUMBER(11,0),
-  	Type 			VARCHAR2(20),
-  	Field 			VARCHAR2(40),
-  	OldValue 		VARCHAR2(255),
-  	NewValue 		VARCHAR2(255),
-  	Data 			VARCHAR2(100),
-  	Creator 		NUMBER(11,0),
-  	Created 		DATE,
-  	Disabled 		NUMBER(11,0) DEFAULT 0
-);
-
-CREATE SEQUENCE SCRIPS_seq;
-CREATE TABLE Scrips (
-  	id 		NUMBER(11,0) PRIMARY KEY,	
-	ScripCondition 	NUMBER(11,0),
-	ScripAction	NUMBER(11,0),
-	Stage		VARCHAR2(32),
-	Queue		NUMBER(11,0),
-	Template	NUMBER(11,0),
-  	Creator 	NUMBER(11,0),
-  	Created 	DATE,
-  	LastUpdatedBy 	NUMBER(11,0),
-  	LastUpdated 	DATE  
-);
-
-
-
-
-CREATE SEQUENCE ACL_seq;
-CREATE TABLE ACL (
-	id 		NUMBER(11,0) PRIMARY KEY,
-	PrincipalId 	NUMBER(11,0),
-	PrincipalType 	VARCHAR2(25),
-	RightName	VARCHAR2(25),
-	RightScope	VARCHAR2(25),
-	RightAppliesTo  NUMBER(11,0)
-);
-
-CREATE SEQUENCE GROUPMEMBERS_seq;
-CREATE TABLE GroupMembers (
-	id 		NUMBER(11,0) PRIMARY KEY,
-	GroupId 	NUMBER(11,0),
-	UserId 		NUMBER(11,0) 
-);
-
-CREATE UNIQUE INDEX GroupMembers1 ON GroupMembers (GroupId, UserId);
-
-
-CREATE SEQUENCE OBJECTKEYWORDS_seq;
-CREATE TABLE ObjectKeywords (
-  id 		NUMBER(11,0)  PRIMARY KEY,
-  Keyword	NUMBER(11,0) NOT NULL,
-  KeywordSelect NUMBER(11,0)  NOT NULL,
-  ObjectType	VARCHAR2(32) NOT NULL,
-  ObjectId	NUMBER(11,0) NOT NULL
-);
-
-CREATE UNIQUE INDEX ObjectKeywords1 ON ObjectKeywords
-	(ObjectId, ObjectType, KeywordSelect, Keyword);
-CREATE INDEX ObjectKeywords3 ON ObjectKeywords (Keyword);
-
-CREATE SEQUENCE KEYWORDS_seq;
-CREATE TABLE Keywords (
-	id		NUMBER(11, 0) PRIMARY KEY,
-	Name		VARCHAR2(255) NOT NULL,
-	Description	VARCHAR2(255),
-	Parent		NUMBER(11, 0),
-	Disabled		NUMBER(11, 0) DEFAULT 0
-);
-
-CREATE UNIQUE INDEX Keywords1 ON Keywords (Name, Parent);
-CREATE INDEX Keywords3 ON Keywords (Parent);
-
-CREATE SEQUENCE USERS_seq;
-CREATE TABLE Users (
-  	id 			NUMBER(11,0) PRIMARY KEY,
-  	Name 			VARCHAR2(120) NOT NULL UNIQUE,
-  	Password 		VARCHAR2(40),
-  	Comments 		CLOB,
-  	Signature 		CLOB,
-  	EmailAddress 		VARCHAR2(120),
-  	FreeFormContactInfo 	CLOB,
-	Organization		VARCHAR2(200),
-	Privileged		NUMBER(11,0),
-  	RealName 		VARCHAR2(120),
-  	NickName 		VARCHAR2(16),
-  	Lang 			VARCHAR2(16),
-	EmailEncoding		VARCHAR2(16),
-	WebEncoding		VARCHAR2(16),
-	ExternalContactInfoId	VARCHAR2(100),
-	ContactInfoSystem	VARCHAR2(30),
-	ExternalAuthId 		VARCHAR2(100),
-	AuthSystem		VARCHAR2(30),
-	Gecos			VARCHAR2(16),
-  	HomePhone 		VARCHAR2(30),
-  	WorkPhone 		VARCHAR2(30),
-  	MobilePhone 		VARCHAR2(30),
-  	PagerPhone 		VARCHAR2(30),
-  	Address1	 	VARCHAR2(200),
-  	Address2 		VARCHAR2(200),
-  	City 			VARCHAR2(100),
-  	State 			VARCHAR2(100),
-  	Zip 			VARCHAR2(16),
-  	Country 		VARCHAR2(50),
-  	Creator 		NUMBER(11,0),
-  	Created 		DATE,
-  	LastUpdatedBy 		NUMBER(11,0),
-  	LastUpdated 		DATE,
-	Disabled			NUMBER(11,0) DEFAULT 0
-);
-
-
-
-
-CREATE SEQUENCE TICKETS_seq;
-CREATE TABLE Tickets (
-  	id			NUMBER(11, 0) PRIMARY KEY,
-  	EffectiveId		NUMBER(11, 0),
-  	Queue 			NUMBER(11,0),
-  	Type 			VARCHAR2(16), 		
-  	IssueStatement 		NUMBER(11,0), 	
-  	Resolution 		NUMBER(11,0),		
-  	Owner 			NUMBER(11,0),		
-  	Subject			VARCHAR2(200) DEFAULT '', 
-  	InitialPriority 	NUMBER(11,0) DEFAULT 0,
-  	FinalPriority 		NUMBER(11,0) DEFAULT 0,
-  	Priority 		NUMBER(11,0) DEFAULT 0,
-  	Status 			VARCHAR2(10), 		
-  	TimeWorked 		NUMBER(11,0) DEFAULT 0,
-	TimeLeft 		NUMBER(11,0) DEFAULT 0,
-  	Told 			DATE,
-	Starts			DATE,
-	Started			DATE,
-  	Due 			DATE,
-	Resolved		DATE,
-  	LastUpdatedBy 		NUMBER(11,0),
-  	LastUpdated 		DATE,
-	Creator 		NUMBER(11,0),
-  	Created 		DATE,
-  	Disabled 		NUMBER(11,0) DEFAULT 0
-);
-
-CREATE SEQUENCE SCRIPACTIONS_seq;
-CREATE TABLE ScripActions (
-  id		NUMBER(11,0) PRIMARY KEY,
-  Name		VARCHAR2(255),
-  Description	VARCHAR2(255),
-  ExecModule	VARCHAR2(60),
-  Argument	VARCHAR2(255),
-  Creator	NUMBER(11,0),
-  Created	DATE,
-  LastUpdatedBy	NUMBER(11,0),
-  LastUpdated	DATE
-);
-
-
-CREATE SEQUENCE TEMPLATES_seq;
-CREATE TABLE Templates (
-  	id 		NUMBER(11,0) PRIMARY KEY,
-	Queue 		NUMBER(11,0) DEFAULT 0 NOT NULL,
-	Name		VARCHAR2(40) NOT NULL UNIQUE,
-	Description	VARCHAR2(120),
-	Type		VARCHAR2(16),
-  	Language 	VARCHAR2(16), 
-  	TranslationOf 	NUMBER(11,0),
-  	Content 	CLOB,
-  	LastUpdated 	DATE,
-  	LastUpdatedBy 	NUMBER(11,0),
-  	Creator 	NUMBER(11,0),
-  	Created 	DATE
-);
-