rman and figuring out the number of channels

# always
use strict;
 
use File::Spec;
use File::Basename;
 
 
##############################################################################
##  get directory structure and include libraries
## 
 
$::gCmd     = File::Spec->rel2abs($0);
$::gCmdDir  = dirname($::gCmd);
$::gCmdName = basename($::gCmd);
($::gCmdName, undef) = split(/\./, $::gCmdName);
$::gIncludeDir = File::Spec->catfile($::gCmdDir,'include');
 
##
# include all library (.ph) files
opendir(I,"$::gIncludeDir") || die "Cannot add libraries: $!\n";
my(@include) = readdir(I);
close(I);
for (@include){
  require File::Spec->catfile($::gIncludeDir,$_) if (m/\.ph$/);
}
 
#######################################
# Usage Information
#######################################
my($tapeusage,$arcusage,$dfpath) = '';
if ( lc($^O) eq 'vms'){
  $arcusage  = '(=disk1[path]%.arc)';
  $dfpath    = 'disk[path]file1.dbs,disk[path]file2.dbs';
 
} else {
  $arcusage  = '[=/path/%.arc]';
  $dfpath    = '/dev/rprod_0128_001,/dev/rprod_0128_002';
}
my($Usage)="
Usage:  rman_backup {sid} {media} {channels} {source} {option}
 
Where:
        sid             - Instance name of target.
        media           - disk or tape(=\"parms override\")
        channels        - channels to allocate (1-12)
        source          - archive, database,tablespace,
                          controlfile, datafile or spfile
        option          - Backup options by source (see below).
 
Options:
        source                       valid options
        ------------                 -------------------------------------
        archive$arcusage   keep (n/all) OR delete
                                     (n = number of archive days - > 0)
        database                     offline, online full, or
                                     online # (# = incremental level 0 - 4)
        datafile                     comma delimited list (no spaces)
                                     example: $dfpath
        tablespace                   comma delimited list (no spaces)
                                     example: d_pm,d_person
        controlfile                  for_standby (optional)
";
 
##############################################################################
##  Verify Command Line Options
 
my($SID,$media,@mediaOpt,$mediaOpt,$channels,$source,$sourceOpt,$option,$optionA
rgs) = '';
 
($SID,$media,$channels,$source,$option,$optionArgs) = @ARGV;
($media,@mediaOpt)   = split /=/,$media;
$mediaOpt = join('=',@mediaOpt);
($source,$sourceOpt) = split /=/,$source;
 
# lower case all non case sensitive args
$media      = lc($media);
$source     = lc($source);
$option     = lc($option);
$optionArgs = lc($optionArgs);
 
if ( $ARGV[0]  eq ""){
  ShowUsage($Usage);exit;
} else {
  $SID    = shift;
  $SID    = uc($SID);
  $::gCmdOpt = $source;
  setEnvironment($SID);
}
 
# uncomment for debug
# print "$SID,$media,$mediaOpt,$channels,$source,$sourceOpt,$option,$optionArgs\
n";
 
 
########################
## check for valid input
########################
 
##
# Eval disk and tape media options
unless (validInput($media,"disk","tape")){
  ShowUsage($Usage);
  print "Invalid media type\n";
  exit;
}
 
# media = disk
if ( $media eq 'disk'){
  $mediaOpt = $::gDBENV{'BACKUPLOC'} if ( $mediaOpt eq '' );
  # print "mediaOpt=$mediaOpt\n";
  unless (validInput($mediaOpt,'-dw')){
    ShowUsage($Usage);
    print "No read/write permissions on:$mediaOpt\n";
    exit; 
  }
}
 
# media = tape
if ( $media eq 'tape'){
  $::gDBENV{'PARMS'} = $mediaOpt if ($mediaOpt ne "");
}
 
## Channel options allow 1->12 channels
unless (validInput($channels,1,2,3,4,5,6,7,8,9,10,11,12)){
  ShowUsage($Usage);
  print "Invalid channel option: $channels\n";
  exit;
}
 
## Evaluate Source Options & Args
unless (validInput($source,'archive', 'database','tablespace','datafile','contro
lfile','spfile')){
  ShowUsage($Usage);
  print "Invalid source option: $source\n";
  exit;
}
if ($source eq "archive"){
  unless (validInput($option,'keep','delete')){
    ShowUsage($Usage);
    print "Invalid option to archive backup: $option\n";
    exit;
  }
} elsif ($source eq "database"){
  unless (validInput($option,'offline','online')){
    ShowUsage($Usage);
    print "Invalid option for $source backup: $option\n";
    exit;
  }
  unless (validInput($optionArgs,'',0,1,2,3,4,'full')){
    ShowUsage($Usage);
    print "Invalid option for $source $option backup: $optionArgs\n";
    exit;
  }
  $optionArgs = 'full' if ($option eq "online" && $optionArgs eq "");
}
 
## 
# restrict standby db backups to online and datafile
if ($::gDBENV{'IS_STBY'} eq "true"){
  unless ( $option eq'online' || $source eq 'datafile'){
    print "Only datafile and online backups can be preformed on the standby.\n";
    exit;
  }
  # check for unrecoverable changes in primary db
  exit unless (checkUnrecoverable());
}
 
################################
# Set %::gForm template tags 
# based on options
################################
my($sid,$tag,$sqlfile,$tagTime,$tagStamp) = '';
$tagTime = fDate('tag');
$sid = uc($::gDBENV{'ORACLE_SID'});
$sqlfile = "backup" . $source;
 
##
# archive backups
if ($source eq  'archive'){
    #--LogOption-- --DeleteOption-- --KeepDays--
    $tag = $sid . '_ARC';
    $::gForm{'IssueLogSwitch'} = "sql 'alter system archive log current';" if ($
::gDBENV{'IS_STBY'} eq "");
    if ($sourceOpt ne ""){
      $::gForm{'LogOption'} = " like '$sourceOpt'";
    } else {
      $::gForm{'LogOption'} = "all";
    }
    if ( $option eq "keep" && $optionArgs ne "" && $optionArgs ne "all"){
      $::gForm{'KeepDays'} = "change archivelog until time 'sysdate-$optionArgs'
 delete;";
    }
    if ( $option eq "delete"){
      $::gForm{'DeleteOption'} = "delete input";
    }
##
# Database backups
} elsif ($source eq  'database') {
  $sqlfile = "backup" . $option;
  if ($option eq 'online'){
    $tag = $sid . '_HOT';
    $::gForm{'IssueLogSwitch'} = "sql 'alter system archive log current';" if ($
::gDBENV{'IS_STBY'} eq "");
    if ($optionArgs =~ /^\d$/){
      $::gForm{'BackupLevel'} = "incremental level = $optionArgs cumulative";
      $tag = $tag.$optionArgs;
    } else {
      $::gForm{'BackupLevel'} = 'full';
    }
  } else {
    $tag = $sid . '_COLD';
  }
##
# Tablespace backups
} elsif ($source eq  'tablespace') {
    $tag = $sid . '_TS';
    # Format multiple tablespaces
    my(@tslist) = split (/\,/,$option);
    for (@tslist){
      my($ts) = $_;
      $ts = "'".uc($ts)."'";
      $::gForm{'TspaceList'} = "$::gForm{'TspaceList'}"."$ts,";
    }
    $::gForm{'TspaceList'} =~ s/\,$//;
##
# Datafile backups
} elsif ($source eq  'datafile') {
    $tag = $sid . '_DF';
    # Format multiple datafiles
    my(@dflist) = split (/\,/,$option);
    for (@dflist){
      my($df) = $_;
      $df = "'".$df."'";
      $::gForm{'DfileList'} = "$::gForm{'DfileList'}"."$df,";
    }
    $::gForm{'DfileList'} =~ s/\,$//;
##
# controlfile backups
} elsif ($source eq  'controlfile') {
    if ($option eq 'for_standby'){
      # perform sanity check b4 standby cf's
      exit unless (checkUnrecoverable());
      $tag = $sid . '_SBCF';
      $::gForm{'StandbyOption'} = 'for standby';
    } else {
      $tag = $sid . '_CF';
    }
##
# spfile backup
} elsif ($source eq  'spfile') {
    $tag = $sid . '_SP';
} else {
  # we should never be here but...
  print __LINE__ . "Error evaluating command!";
  exit;
}
 
 
################################
# Build Device Channels
################################
buildChannels($media,$channels,$tag);
# pad the tag to 15 chars b4 date
while ( length($tag) < 15 ){
  $tag = $tag . '.';
}
 
# 8i archivelog backups cannot have tags
unless($source eq 'archive' && $::gDBENV{'CATVERSION'} == 8){  
  $::gForm{'TAG'} = "TAG='$tag$tagTime'";
}
 
 
 
# run rman script exit with ($?)
my($status) = runRMAN($sqlfile);
if ( $status == 0){
  print "\n\nSuccess - results can be found in:\n$::gLogFile\n";
  exit $status;
} else {
  rename ($::gLogFile,$::gErrorFile);
  print "\n\nERROR - results can be found in:\n$::gErrorFile\n";
  exit $status;
}

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284: