#!/usr/bin/perl -w
#
# $Header: /raid/cvsroot/rt/tools/insertdata,v 1.4 2001/12/17 19:58:53 jesse Exp $
# RT is (c) 1996-2000 Jesse Vincent (jesse@fsck.com);



package RT;
use strict;
use vars qw($VERSION $Handle $Nobody $SystemUser $item);


use lib "!!RT_LIB_PATH!!";
use lib "!!RT_ETC_PATH!!";

#This drags in  RT's config.pm
use config;
use Carp;

use RT::Handle;
use RT::User;
use RT::CurrentUser;

#connect to the db
$RT::Handle = new RT::Handle($RT::DatabaseType);
$RT::Handle->Connect();


#Put together a current user object so we can create a User object
my $CurrentUser = new RT::CurrentUser();


print "Creating system user...";
my $RT_System = new RT::User($CurrentUser); 

my ($val, $msg) = $RT_System->_BootstrapCreate(
					       Name => 'RT_System',
					       RealName => 'The RT System itself',
					       Comments =>  'Do not delete or modify this user. It is integral to RT\'s internal database structures',
					       Privileged => '2',
					       Creator => '1');

if ($val) {
    print "done.\n";
}
else {
    print "$msg\n";
    exit(1);
}

#now that we bootstrapped that little bit, we can use the standard RT cli
# helpers  to do what we need

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();


$CurrentUser->LoadByName('RT_System');
# {{{ Users

my @users = ( 
	     { 
	      Name => 'Nobody',
	      RealName => 'Nobody in particular',
	      Comments => 'Do not delete or modify this user. It is integral ' .
	      'to RT\'s internal data structures',
	      Privileged => '2',
	     },
	     
	     { 
	      Name => 'root',
	      Gecos => 'root',
	      RealName => 'Enoch Root',
              Password => 'password',
	      EmailAddress => "root\@localhost",
	      Comments => 'SuperUser',
	      Privileged => '1',
	     }
	    );

# }}}

# {{{ Groups 

my @groups = (
              {
               Name => 'Everyone',
	       Description => 'Pseudogroup for internal use',
	       Pseudo => '1',
              },
	      {
	       Name => 'Owner',
	       Description => 'Pseudogroup for internal use',
	       Pseudo => '1',
	      },
	      {
	       Name => 'Requestor',
	       Description => 'Pseudogroup for internal use',
	       Pseudo => '1',
	      },
	      {
	       Name => 'Cc',
	       Description => 'Pseudogroup for internal use',
	       Pseudo => '1',
	      },
	      {
	       Name => 'AdminCc',
	       Description => 'Pseudogroup for internal use',
	       Pseudo => '1',
	      },
	     );

# }}}

# {{{ ACL
my @acl = (  #TODO: make this actually take the serial # granted to root.
	   { PrincipalId => '1', 
	     PrincipalType => 'User',
	     RightName => 'SuperUser',
	     RightScope => 'System',
	     RightAppliesTo => '0'
	   }, 
           { PrincipalId => '2',
             PrincipalType => 'User',
             RightName => 'SuperUser',
             RightScope => 'System',
             RightAppliesTo => '0'
           },

           { PrincipalId => '3',
             PrincipalType => 'User',
             RightName => 'SuperUser',
             RightScope => 'System',
             RightAppliesTo => '0'
           }


	  );
# }}}

# {{{ Queues

my @queues = ( 
	      { Name => 'general',
		Description => 'The default queue',
		CorrespondAddress => "rt\@localhost",
		CommentAddress => "rt-comment\@localhost"
	      }
	     );

# }}}

# {{{ ScripActions

my @ScripActions = (

		    {
		     Name => 'AutoreplyToRequestors',
		     Description =>       'Always sends a message to the requestors independent of message sender',
		     ExecModule =>        'Autoreply',
		     Argument =>          'Requestor'
		    },
		    {
		     Name => 'NotifyRequestors',
		     Description =>       'Sends a message to the requestors',
		     ExecModule =>        'Notify',
		     Argument =>          'Requestor'
		    },
		    {
		     Name =>	          'NotifyOwnerAsComment',
		     Description =>       'Sends mail to the owner',
		     ExecModule =>        'NotifyAsComment',
		     Argument =>          'Owner'
		    },
		    {
		     Name =>	          'NotifyOwner',
		     Description =>       'Sends mail to the owner',
		     ExecModule =>        'Notify',
		     Argument =>          'Owner'
		    },
		    {
		     Name =>	          'NotifyAdminCcsAsComment',
		     Description =>	  'Sends mail to the administrative Ccs as a comment',
		     ExecModule =>	  'NotifyAsComment',
		     Argument =>        'AdminCc'
		    },
		    {
		     Name =>	          'NotifyAdminCcs',
		     Description =>	  'Sends mail to the administrative Ccs',
		     ExecModule =>	  'Notify',
		     Argument =>        'AdminCc'
		    },
		    
                    {
                     Name =>             'NotifyRequestorsAndCcsAsComment',
                     Description =>      'Send mail to requestors and Ccs as a comment',
                     ExecModule =>       'NotifyAsComment',
                     Argument =>         'Requestor,Cc'
                    },
		    
		    {
		     Name =>             'NotifyRequestorsAndCcs',
		     Description =>      'Send mail to requestors and Ccs',
		     ExecModule =>       'Notify',
		     Argument =>         'Requestor,Cc'
		    },
		    
		    
		    {
		     Name =>	          'NotifyAllWatchersAsComment',
		     Description =>	  'Send mail to all watchers',
		     ExecModule =>	  'NotifyAsComment',
		     Argument =>          'All'
                    },
		    {
		     Name =>	          'NotifyAllWatchers',
		     Description =>	  'Send mail to all watchers',
		     ExecModule =>	  'Notify',
		     Argument =>          'All'
		    },
		    
		    
		   );

# }}}

# {{{ ScripConditions

my @ScripConditions = (
		       {
			Name => 'OnCreate',
			Description =>  'When a ticket is created',
			ApplicableTransTypes =>  'Create',
			ExecModule => 'AnyTransaction',
		       },
		       
		       
		       {
			Name =>			   'OnTransaction',
			Description =>   'When anything happens',
			ApplicableTransTypes => 			   'Any',
			ExecModule =>	'AnyTransaction',
		       },
		       {
			
			Name =>	          'OnCorrespond',
			Description =>	  'Whenever correspondence comes in',
			ApplicableTransTypes => 		  'Correspond',
			ExecModule =>	  'AnyTransaction',
		       },
		       
		       
		       {
			
			Name =>			   'OnComment',
			Description =>			   'Whenever comments come in',
			ApplicableTransTypes => 	   'Comment',
			ExecModule =>			   'AnyTransaction'
		       },
		       {
			
			Name =>		   'OnStatus', 
			Description =>	   'Whenever a ticket\'s status changes',
			ApplicableTransTypes => 		   'Status',
			ExecModule =>	   'AnyTransaction',
			
		       },
		       {
			Name =>		   'OnResolve', 
			Description =>	   'Whenever a ticket is resolved.', 
			ApplicableTransTypes => 		   'Status',
			ExecModule =>	   'StatusChange',
			Argument => 'resolved'

		       },
		       
		      );

# }}}

# {{{ Templates
my @templates = (
{
                Queue   => '0',
                Name => 'Autoreply',
				Description => 'Default Autoresponse Template', 
				Content => 
'Subject: AutoReply: {$Ticket->Subject}


       Greetings,
        This message has been automatically generated in response to the
creation of a trouble ticket regarding:
	"{$Ticket->Subject()}", 
a summary of which appears below.

There is no need to reply to this message right now.  Your ticket has been
assigned an ID of [{$rtname} #{$Ticket->id()}].

Please include the string:

         [{$rtname} #{$Ticket->id}]

in the subject line of all future correspondence about this issue. To do so, 
you may reply to this message.

                        Thank you,
                        {$Ticket->QueueObj->CorrespondAddress()}

-------------------------------------------------------------------------
{$Transaction->Content()}
' },

{
#                  id => 2,
                Queue   => '0',
                Name => 'Transaction', 
                  Description => 'Default transaction template',
                  Content => '


{$Transaction->CreatedAsString}: Request {$Ticket->id} was acted upon.
Transaction: {$Transaction->Description}
       Queue: {$Ticket->QueueObj->Name}
     Subject: {$Transaction->Subject || {$Ticket->Subject} || "(No subject given)"}
       Owner: {$Ticket->OwnerObj->Name}
  Requestors: {$Ticket->Requestors->EmailsAsString()}
      Status: {$Ticket->Status}
 Ticket <URL: {$RT::WebURL}Ticket/Display.html?id={$Ticket->id} >
-------------------------------------------------------------------------
{$Transaction->Content()}'},


{

                  Queue   => '0',
                  Name => 'AdminCorrespondence',
                  Description => 'Default admin correspondence template',
                  Content => '


<URL: {$RT::WebURL}Ticket/Display.html?id={$Ticket->id} >

{$Transaction->Content()}' },


{
                  Queue   => '0',
                  Name => 'Correspondence',
                  Description => 'Default correspondence template',
                  Content =>  '

{$Transaction->Content()}'},


{
                  Queue   => '0',
                  Name => 'AdminComment',
                  Description => 'Default admin comment template',
                  Content =>  'Subject: [Comment] {my $s=($Transaction->Subject||$Ticket->Subject); $s =~ s/\\[Comment\\]//g; $comment =~ s/^Re//i; $s;}


{$RT::WebURL}Ticket/Display.html?id={$Ticket->id}
This is a comment.  It is not sent to the Requestor(s):

{$Transaction->Content()}
'},


{
                  Queue   => '0',
                  Name => 'StatusChange',
                  Description => 'Ticket status changed',
                  Content =>  'Subject: Status Changed to: {$Transaction->NewValue}


{$RT::WebURL}Ticket/Display.html?id={$Ticket->id}

{$Transaction->Content()}
'},

{

                 Queue => '0',
                 Name => 'Resolved',
                  Description => 'Ticket Resolved',
                  Content => 'Subject: Ticket Resolved

According to our records, your request has been resolved. If you have any
further questions or concerns, please respond to this message.
'}
);

# }}}



print "Creating ACL...";
use RT::ACE;
for $item (@acl) {
    my $new_entry = new RT::ACE($CurrentUser);
    #Using an internal function. this should never be used outside of the bootstrap script
    my $return = $new_entry->_BootstrapRight(%$item);
    print $return.".";
}
print "done.\n";

print "Creating users...";
use RT::User;
foreach $item (@users) {
    my $new_entry = new RT::User($CurrentUser);
    my ($return, $msg) = $new_entry->Create(%$item);
    print "(Error: $msg)"   unless ($return);
    print $return.".";
}
print "done.\n";

print "Creating groups...";
use RT::Group;
foreach $item (@groups) {
   my $new_entry = new RT::Group($CurrentUser);
   my $return = $new_entry->Create(%$item);
  print $return.".";
}
print "done.\n";



print "Creating queues...";
use RT::Queue;
for $item (@queues) {
    my $new_entry = new RT::Queue($CurrentUser);
    my ($return, $msg) = $new_entry->Create(%$item);
    print "(Error: $msg)"   unless ($return);
    print $return.".";
}

print "done.\n";
print "Creating ScripActions...";

use RT::ScripAction;
for $item (@ScripActions) {
    my $new_entry = new RT::ScripAction($CurrentUser);
       my $return = $new_entry->Create(%$item);
    print $return.".";
}

print "done.\n";
print "Creating ScripConditions...";

use RT::ScripCondition;
for $item (@ScripConditions) {
    my $new_entry = new RT::ScripCondition($CurrentUser);
    my $return = $new_entry->Create(%$item);
    print $return.".";
}

print "done.\n";


print "Creating templates...";

use RT::Template;
for $item (@templates) {
    my $new_entry = new RT::Template($CurrentUser);
    my $return = $new_entry->Create(%$item);
    print $return.".";
}
print "done.\n";

$RT::Handle->Disconnect();


1;

