| 1 | 1 | simandl | # |
| 2 | | | # $Id: HotSaNIC.pm,v 1.2 2002/11/24 18:50:06 tinheap Exp $ |
| 3 | | | # |
| 4 | | | |
| 5 | | | package HotSaNIC; |
| 6 | | | |
| 7 | | | use Exporter; |
| 8 | | | |
| 9 | | | # our ($VERSION, @ISA, @EXPORT); |
| 10 | | | |
| 11 | | | ($VERSION = '$Revision: 1.2 $') =~ s/.*(\d+\.\d+).*/$1/; |
| 12 | | | |
| 13 | | | @ISA = qw(Exporter); |
| 14 | | | @EXPORT = qw ( |
| 15 | | | snmp_sysbulk |
| 16 | | | snmp_sysquery |
| 17 | | | get_module_name |
| 18 | | | get_config |
| 19 | | | read_settings |
| 20 | | | check_config |
| 21 | | | strip_unwanted |
| 22 | | | identify_os_type |
| 23 | | | parse_line |
| 24 | | | get_diagram_properties |
| 25 | | | opt2arg |
| 26 | | | arg2opt |
| 27 | | | check_args |
| 28 | | | dupe_control |
| 29 | | | convert_units |
| 30 | | | ); |
| 31 | | | |
| 32 | | | ###################################################################### |
| 33 | | | # |
| 34 | | | # control function to make sure that a module is running only once |
| 35 | | | # |
| 36 | | | # Usage: |
| 37 | | | # dupe_control($what,$module-name,$message); |
| 38 | | | # |
| 39 | | | # $what: |
| 40 | | | # start -> call this method at the head of a module to touch the |
| 41 | | | # dupe-detection checkfile. |
| 42 | | | # stop -> remove checkfile and exit normally. |
| 43 | | | # warn -> print $message as warning and continue execution. |
| 44 | | | # die -> remove checkfile and stop process with error. |
| 45 | | | # |
| 46 | | | # The given message will be preceded with a timestamp (in seconds |
| 47 | | | # since 1970) and the module-name: |
| 48 | | | # |
| 49 | | | # <time> MODULE:message\n |
| 50 | | | # |
| 51 | | | sub dupe_control { |
| 52 | | | my ($what,$mod,$message)=@_; |
| 53 | | | if (!defined $mod) { $mod=get_module_name(); } |
| 54 | | | if (!defined $message) { $message="(unknown reason)"; } |
| 55 | | | if ($what eq "start") { |
| 56 | | | if (-e "running.dat") { |
| 57 | | | open FILE,"running.dat"; |
| 58 | | | $pid=<FILE>; |
| 59 | | | close FILE; |
| 60 | | | chomp $pid; |
| 61 | | | if ((defined $pid) && ($pid ne "") && (-e "/proc/$pid")) { |
| 62 | | | open FILE,"/proc/$pid/stat"; |
| 63 | | | $line=<FILE>; |
| 64 | | | close FILE; |
| 65 | | | if( index($line,"read-data") >= 0) { |
| 66 | | | @fileds=split / /,$line; |
| 67 | | | $starttime=$fileds[21]/100; |
| 68 | | | open FILE,"/proc/uptime"; |
| 69 | | | $line=<FILE>; |
| 70 | | | close FILE; |
| 71 | | | ($uptime)=split / /,$line; |
| 72 | | | $delta=int(($uptime-$starttime)*100)/100; |
| 73 | | | if ( ($uptime-$starttime) > 3600) { |
| 74 | | | print time," ",$mod,": process running >1 hour --> KILLING!\n"; |
| 75 | | | system "kill -9 $pid"; |
| 76 | | | } |
| 77 | | | else { |
| 78 | | | print time," ",$mod,": process already running on PID $pid for $delta seconds.\n"; |
| 79 | | | exit 1; |
| 80 | | | } |
| 81 | | | } |
| 82 | | | } |
| 83 | | | } |
| 84 | | | open FILE,">running.dat"; |
| 85 | | | print FILE $$; |
| 86 | | | close FILE; |
| 87 | | | } |
| 88 | | | elsif ($what eq "stop") { |
| 89 | | | if (-e "running.dat") { unlink "running.dat"; } |
| 90 | | | exit 0; |
| 91 | | | } |
| 92 | | | elsif ($what eq "die") { |
| 93 | | | if (-e "running.dat") { unlink "running.dat"; } |
| 94 | | | die time." ".$mod.": ".$message."\n"; |
| 95 | | | } |
| 96 | | | elsif ($what eq "warn") { |
| 97 | | | print time," ",$mod," warn: ",$message,"\n"; |
| 98 | | | } |
| 99 | | | else { print time," ",$mod," method \"",$what,"\" not supported.\n"; } |
| 100 | | | } |
| 101 | | | |
| 102 | | | ###################################################################### |
| 103 | | | # |
| 104 | | | # checks if all necessary arguments are given in the corosponding |
| 105 | | | # hash. If not, try to reconstruct them or to set defaults. |
| 106 | | | # |
| 107 | | | # Usage: |
| 108 | | | # %arguments=check_args(%arguments); |
| 109 | | | # |
| 110 | | | sub check_args { |
| 111 | | | ($check,%ARGS)=@_; |
| 112 | | | foreach $value (split /,/,$check) { |
| 113 | | | if ( (!defined $ARGS{$value}) || ($ARGS{$value} eq "") || ($ARGS{$value} eq "not configured") ) { |
| 114 | | | if ($value eq "MODNAME") { $ARGS{$value}=get_module_name(); } |
| 115 | | | if ($value eq "DEBUGLEVEL") { $ARGS{$value}=-1; } |
| 116 | | | if ($value eq "OSTYPE") { $ARGS{$value}=identify_os_type(); } |
| 117 | | | if ($value eq "SNMPWALK") { |
| 118 | | | my @found=grep /snmpwalk$/, `locate bin\/snmpwalk`; |
| 119 | | | if (@found) { $found=$found[0];chomp $found; $result=" Found: ".$found; $ARGS{$value}=$found; } else { $ARGS{$value}="echo >/dev/null"; } |
| 120 | | | dupe_control("warn",$ARGS{"MODNAME"},"SNMPWALK not given on commandline! $result"); |
| 121 | | | } |
| 122 | | | if ($value eq "SNMPGET") { |
| 123 | | | my @found=grep /snmpget$/, `locate bin\/snmpget`; |
| 124 | | | if (@found) { $found=$found[0];chomp $found; $result=" Found: ".$found; $ARGS{$value}=$found; } else { $ARGS{$value}="echo >/dev/null"; } |
| 125 | | | dupe_control("warn",$ARGS{"MODNAME"},"SNMPGET not given on commandline! $result"); |
| 126 | | | } |
| 127 | | | } |
| 128 | | | } |
| 129 | | | return %ARGS; |
| 130 | | | } |
| 131 | | | |
| 132 | | | ###################################################################### |
| 133 | | | # |
| 134 | | | # converts an option-hash to cmdline argument string which can be |
| 135 | | | # passed to a module script |
| 136 | | | # |
| 137 | | | # Usage: |
| 138 | | | # $commandline_args=opt2arg(%options); |
| 139 | | | # |
| 140 | | | sub opt2arg { |
| 141 | | | my $line=""; |
| 142 | | | my %opts=@_; |
| 143 | | | foreach $var (keys(%opts)) { |
| 144 | | | if (index("DEBUGLEVEL MODNAME OSTYPE SNMPWALK SNMPGET",$var) >= 0) { |
| 145 | | | $line=$line." ".$var."=\"".$opts{$var}."\""; |
| 146 | | | } |
| 147 | | | } |
| 148 | | | if ($opts{"DEBUGLEVEL"}>=0) { print "CLIENT-LINE: $line\n" }; |
| 149 | | | return $line; |
| 150 | | | } |
| 151 | | | |
| 152 | | | ###################################################################### |
| 153 | | | # |
| 154 | | | # converts cmdline arguments array to an options-hash |
| 155 | | | # |
| 156 | | | # Usage: |
| 157 | | | # %options=arg2opt($commandline_args) |
| 158 | | | # |
| 159 | | | sub arg2opt { |
| 160 | | | my %HASH; |
| 161 | | | foreach $pair (@_) { |
| 162 | | | ($var,$value)=split /=/, $pair; |
| 163 | | | $HASH{$var}=$value; |
| 164 | | | } |
| 165 | | | if (! defined $HASH{"MODNAME"}) { $HASH{"MODNAME"}=get_module_name(); } |
| 166 | | | if (! defined $HASH{"OSTYPE"}) { $HASH{"OSTYPE"}=`uname`; chomp $HASH{"OSTYPE"}; } |
| 167 | | | if (! defined $HASH{"DEBUGLEVEL"}) { $HASH{"DEBUGLEVEL"}=-1; } |
| 168 | | | if ($HASH{"DEBUGLEVEL"} >=6 ) { |
| 169 | | | print "\n"; |
| 170 | | | foreach (keys %HASH) { printf " %-15s %s\n",$_,$HASH{$_}; } |
| 171 | | | } |
| 172 | | | return %HASH; |
| 173 | | | } |
| 174 | | | |
| 175 | | | ###################################################################### |
| 176 | | | # |
| 177 | | | # evaluates some diagram properties from the given range |
| 178 | | | # |
| 179 | | | # Usage: |
| 180 | | | # ($description,$file_description,$build_interval,$diagram_range)=get_diagram_properties($range); |
| 181 | | | # |
| 182 | | | sub get_diagram_properties { |
| 183 | | | my ($range)=@_; |
| 184 | | | my ($descr,$file,$build,$fullrange); |
| 185 | | | if ($range eq "1h") { $descr="hour"; $file=$descr; $build=0; $fullrange=3600; } |
| 186 | | | elsif ($range eq "6h") { $descr="6 hours"; $file="6h"; $build=30; $fullrange=21600; } |
| 187 | | | elsif ($range eq "1day") { $descr="day"; $file=$descr; $build=120; $fullrange=86400; } |
| 188 | | | elsif ($range eq "1week") { $descr="week"; $file=$descr; $build=1000; $fullrange=604800; } |
| 189 | | | elsif ($range eq "1month") { $descr="month"; $file=$descr; $build=4300; $fullrange=2592000; } |
| 190 | | | elsif ($range eq "1year") { $descr="year"; $file=$descr; $build=52500; $fullrange=31536000; } |
| 191 | | | return ($descr,$file,$build,$fullrange); |
| 192 | | | } |
| 193 | | | |
| 194 | | | ###################################################################### |
| 195 | | | # |
| 196 | | | # Query remote host via SNMP and store data in tempfile |
| 197 | | | # GetBulk method |
| 198 | | | # |
| 199 | | | # Usage: |
| 200 | | | # |
| 201 | | | # snmp_sysbulk($path_to_snmpbulkget,$host,$community,$OIDs,$nums); |
| 202 | | | # |
| 203 | | | # syscall: snmpbulkget $host $community with all $OIDs permutated |
| 204 | | | # with all $nums |
| 205 | | | # |
| 206 | | | # $nums refers to the last part of the OIDs. |
| 207 | | | # |
| 208 | | | # $OIDs and $nums have to be given space-separated. |
| 209 | | | # |
| 210 | | | sub snmp_sysbulk { |
| 211 | | | my ($binpath,$host,$community,$OIDs,$nums)=@_; |
| 212 | | | my $query=""; |
| 213 | | | my @OIDs=split / /,$OIDs; |
| 214 | | | my @nums=split / /,$nums; |
| 215 | | | my $OIDcount=(@OIDs); |
| 216 | | | foreach $num (@nums) { |
| 217 | | | foreach $OID (@OIDs) { |
| 218 | | | $query=$query.$OID.".".$num." "; |
| 219 | | | } |
| 220 | | | } |
| 221 | | | my @result=`$binpath $host $community $query`; |
| 222 | | | |
| 223 | | | $num=0; |
| 224 | | | $count=0; |
| 225 | | | foreach (@result) { |
| 226 | | | chomp; |
| 227 | | | s/.* = //; |
| 228 | | | $num++; |
| 229 | | | if ($num==1) { $line=$nums[$count]; $count++ } |
| 230 | | | $line=$line." ".$_; |
| 231 | | | if ($num>=$OIDcount) {$num=0; push @results,$line;} |
| 232 | | | } |
| 233 | | | |
| 234 | | | return @results; |
| 235 | | | } |
| 236 | | | |
| 237 | | | |
| 238 | | | ###################################################################### |
| 239 | | | # |
| 240 | | | # Query remote host via SNMP and store data in tempfile |
| 241 | | | # snmpwalk method |
| 242 | | | # |
| 243 | | | # Usage: |
| 244 | | | # |
| 245 | | | # snmp_sysquery($path_to_snmpwalk,$host,$community,$item,@grep) |
| 246 | | | # |
| 247 | | | # $item: refers to the MIB you want to query ommitting the last part |
| 248 | | | # of the OID |
| 249 | | | # |
| 250 | | | # @grep: an array of the OID's last parts you's like to query. |
| 251 | | | # |
| 252 | | | sub snmp_sysquery { |
| 253 | | | my ($binpath,$host,$community,$item,@grep)=@_; |
| 254 | | | @result=`$binpath $host $community $item`; |
| 255 | | | foreach $contains (@grep) { |
| 256 | | | foreach (grep /$contains/, @result) { |
| 257 | | | chomp; |
| 258 | | | if (/\.([0-9]*) = /, $num=$1) { |
| 259 | | | ($var,$value)=split / = /; |
| 260 | | | if (defined $lines{$num}) { $lines{$num}=$lines{$num}." $value"; } else { $lines{$num}=$value; } |
| 261 | | | } |
| 262 | | | } |
| 263 | | | } |
| 264 | | | |
| 265 | | | foreach $line (keys %lines) { |
| 266 | | | push @results,$line." ".$lines{$line}; |
| 267 | | | } |
| 268 | | | |
| 269 | | | return @results; |
| 270 | | | } |
| 271 | | | |
| 272 | | | ###################################################################### |
| 273 | | | # |
| 274 | | | # evaluate name of module by its subdir |
| 275 | | | # |
| 276 | | | # Usage: |
| 277 | | | # |
| 278 | | | # $modname=get_module_name(); |
| 279 | | | # |
| 280 | | | sub get_module_name { |
| 281 | | | my $pwd=uc `pwd`; |
| 282 | | | chomp $pwd; |
| 283 | | | my (undef,$name)=split /MODULES\//,$pwd; |
| 284 | | | return $name; |
| 285 | | | } |
| 286 | | | |
| 287 | | | |
| 288 | | | ###################################################################### |
| 289 | | | # |
| 290 | | | # strip unwanted chars like " and multiple spaces at end / beginning |
| 291 | | | # of each element and return the processed array. |
| 292 | | | # |
| 293 | | | # Usage: |
| 294 | | | # |
| 295 | | | # $stripped_string=strip_unwanted($raw_string); |
| 296 | | | # |
| 297 | | | sub strip_unwanted { |
| 298 | | | foreach (@_) { |
| 299 | | | $_ =~ s/ *= */=/g; # spaces near a = |
| 300 | | | $_ =~ s/\"//g; # " chars |
| 301 | | | $_ =~ s/ +/ /g; # multiple spaces to single |
| 302 | | | $_ =~ s/^ *//g; # spaces at beginning |
| 303 | | | $_ =~ s/ *$//g; # spaces at end |
| 304 | | | } |
| 305 | | | return @_; |
| 306 | | | } |
| 307 | | | |
| 308 | | | |
| 309 | | | ###################################################################### |
| 310 | | | # |
| 311 | | | # Parse a line, strip all unwanted chars, split it by "=" into |
| 312 | | | # a VAR and a VALUE part and make sure those parts are defined. |
| 313 | | | # |
| 314 | | | # Usage: |
| 315 | | | # |
| 316 | | | # ($var,$value,$comment)=parse_line($settings_line); |
| 317 | | | # |
| 318 | | | sub parse_line { |
| 319 | | | my ($line)=@_; |
| 320 | | | chomp $line; |
| 321 | | | |
| 322 | | | # remove leading spaces |
| 323 | | | $line =~ s/^ *//g; |
| 324 | | | |
| 325 | | | # weed out comments (i.e. everything following a "#" |
| 326 | | | my ($important,$comment)=split /#/,$line,2; |
| 327 | | | if ((! defined $comment) || ( $comment eq "" )) { |
| 328 | | | if (index($line,"#")>=0) { $comment=" "; } |
| 329 | | | else { $comment=""; } |
| 330 | | | } |
| 331 | | | if ((! defined $important) || ($important eq "")) { return ("","",$comment); } |
| 332 | | | |
| 333 | | | # trim the edges ;) |
| 334 | | | ($important)=strip_unwanted($important); |
| 335 | | | |
| 336 | | | # separate the variable name from its assigned value |
| 337 | | | my ($var,$value)=split /=/,$important,2; |
| 338 | | | |
| 339 | | | # avoid undefined variables |
| 340 | | | $var="" if (! defined $var); |
| 341 | | | $value="" if (! defined $value); |
| 342 | | | |
| 343 | | | # force varnames to be upcase |
| 344 | | | $var=uc $var; |
| 345 | | | |
| 346 | | | return ($var,$value,$comment) |
| 347 | | | } |
| 348 | | | |
| 349 | | | |
| 350 | | | ###################################################################### |
| 351 | | | # |
| 352 | | | # evaluate settings file and check config... |
| 353 | | | # |
| 354 | | | # Usage: |
| 355 | | | # |
| 356 | | | # %config=get_config($path_to_settings_file); |
| 357 | | | # |
| 358 | | | sub get_config { |
| 359 | | | my ($location)=@_; |
| 360 | | | my ($var,$value,$BINPATH,$DAEMONDIR,$LOGDIR,$PIDFILE,$DTIME,$CTIME,$STIME,$WEBDIR,$ORDER,$LOGSIZE,$LOGBACKUPS); |
| 361 | | | |
| 362 | | | my @lines=read_settings($location); |
| 363 | | | foreach (@lines) { |
| 364 | | | ($var,$value)=parse_line($_); |
| 365 | | | $config{$var}=$value; |
| 366 | | | } |
| 367 | | | |
| 368 | | | # sanity check for all config variables |
| 369 | | | # |
| 370 | | | $config{"BINPATH"}=check_config_item("BINPATH","path","","","path to \"rrdtool\"",%config); |
| 371 | | | $config{"DAEMONDIR"}=check_config_item("DAEMONDIR","path","","","path to \"HotSaNIC\"",%config); |
| 372 | | | $config{"WEBDIR"}=check_config_item("WEBDIR","path","","","path to HotSaNIC's output directory",%config); |
| 373 | | | $config{"LOGDIR"}=check_config_item("LOGDIR","path","\$DAEMONDIR/log","","path to HotSaNIC's logfiles",%config); |
| 374 | | | $config{"PIDFILE"}=check_config_item("PIDFILE","var","\$DAEMONDIR/log/rrdtimer.pid","","path to HotSaNIC's PID file",%config); |
| 375 | | | $config{"DTIME"}=60*check_config_item("DTIME","var","15","minutes","diagram rebuild time",%config); |
| 376 | | | $config{"CTIME"}=3600*check_config_item("CTIME","var","12","hours","diagram conversion time",%config); |
| 377 | | | $config{"STIME"}=check_config_item("STIME","var","120","seconds","module scan time",%config); |
| 378 | | | $config{"LOGSIZE"}=check_config_item("LOGSIZE","var","500000","bytes","max. logfile size",%config); |
| 379 | | | $config{"LOGBACKUPS"}=check_config_item("LOGBACKUPS","var","4","","logfiles to keep as backups",%config); |
| 380 | | | $config{"IMAGEFORMAT"}=check_config_item("IMAGEFORMAT","var","gif","","format of generated pictures",%config); |
| 381 | | | $config{"ORDER"}=check_config_item("ORDER","var","","","order of modules",%config); |
| 382 | | | $config{"DEBUGLEVEL"}=check_config_item("DEBUGLEVEL","var","-1","","debug level",%config); |
| 383 | | | |
| 384 | | | return %config; |
| 385 | | | } |
| 386 | | | |
| 387 | | | |
| 388 | | | ###################################################################### |
| 389 | | | # |
| 390 | | | # read settings-file and strip comments and empty entries |
| 391 | | | # |
| 392 | | | # Usage: |
| 393 | | | # |
| 394 | | | # @parsed_config=read_settings($path_to_settings_file,$module_name); |
| 395 | | | # |
| 396 | | | # returns just the lines actually containing data - stripped by comments. |
| 397 | | | # |
| 398 | | | sub read_settings { |
| 399 | | | my ($location,$modname)=@_; |
| 400 | | | if (!defined $modname) { |
| 401 | | | $modname="rrdtimer"; |
| 402 | | | $error="Configuration file \"settings\" missing in HotSaNIC's main directory. Probably you have to run setup.pl first.\n"; |
| 403 | | | } |
| 404 | | | else { $error="Configuration file \"settings\" missing in module.\n"; } |
| 405 | | | if ( (! defined $location) || ($location eq "")) { $location="."; } |
| 406 | | | open CONF,"$location/settings" or dupe_control("die",$modname,$error); |
| 407 | | | while (<CONF>) { |
| 408 | | | chomp; |
| 409 | | | next if $_ eq ""; |
| 410 | | | my ($important,$comment)=split /#/; |
| 411 | | | if ((defined $important) && ( index($important,"=") >= 0)) { |
| 412 | | | push @config,$important |
| 413 | | | } |
| 414 | | | } |
| 415 | | | close CONF; |
| 416 | | | |
| 417 | | | return @config; |
| 418 | | | } |
| 419 | | | |
| 420 | | | |
| 421 | | | ###################################################################### |
| 422 | | | # |
| 423 | | | # sanity check config-item |
| 424 | | | # |
| 425 | | | # Usage: |
| 426 | | | # |
| 427 | | | # $value=check_config_item($item_name,$type,$default_value,$unit,$description,%config_hash); |
| 428 | | | # |
| 429 | | | # $type: |
| 430 | | | # "path" -> assume that value is a path -> check its existence. |
| 431 | | | # "var" -> assume that value is a variable -> check if the value is set correctly. |
| 432 | | | # |
| 433 | | | # if a fatal config-error is detected, the program dies with an error. |
| 434 | | | # |
| 435 | | | sub check_config_item { |
| 436 | | | my ($name,$type,$default,$unit,$description,%confhash)=@_; |
| 437 | | | |
| 438 | | | my $DAEMONDIR=$confhash{"DAEMONDIR"}; |
| 439 | | | my $var=$confhash{$name}; |
| 440 | | | |
| 441 | | | if (defined $var) { $var=~ s/\$DAEMONDIR/$DAEMONDIR/g; } |
| 442 | | | |
| 443 | | | if ($type eq "path") { |
| 444 | | | if ((! defined $var) || ($var eq "")) { |
| 445 | | | print $name," (",$description,") not configured.\n"; |
| 446 | | | if ($default eq "") { print "no default value given.\n"; exit 1; } |
| 447 | | | else { print "using default value: ",$default," ",$unit,"\n"; ($var=$default)=~ s/\$DAEMONDIR/$DAEMONDIR/g; } |
| 448 | | | } |
| 449 | | | if ( ! -e $var) { print $name," (",$description,") does not exist.\n"; exit 1; } |
| 450 | | | } |
| 451 | | | |
| 452 | | | if ($type eq "var") { |
| 453 | | | if ((! defined $var) || ($var eq "")) { |
| 454 | | | print $name," (",$description,") not configured.\n"; |
| 455 | | | if ($default eq "") { print "no default value given.\n"; exit 1; } |
| 456 | | | else { print "using default value: ",$default," ",$unit,"\n"; $var=$default; } |
| 457 | | | } |
| 458 | | | } |
| 459 | | | return $var; |
| 460 | | | } |
| 461 | | | |
| 462 | | | |
| 463 | | | ###################################################################### |
| 464 | | | # |
| 465 | | | # identify OS type |
| 466 | | | # |
| 467 | | | # Usage: |
| 468 | | | # |
| 469 | | | # $ostype=identify_os_type(); |
| 470 | | | # |
| 471 | | | sub identify_os_type { |
| 472 | | | my $os=`uname`; |
| 473 | | | chomp $os; |
| 474 | | | return $os; |
| 475 | | | } |
| 476 | | | |
| 477 | | | ###################################################################### |
| 478 | | | # |
| 479 | | | # convert - converts GB/MB/KB into Bytes |
| 480 | | | # |
| 481 | | | # Usage: |
| 482 | | | # |
| 483 | | | # @out=convert_units(@in); |
| 484 | | | # |
| 485 | | | # all values in @in will be checked against existance of a SI-multiplier |
| 486 | | | # (K, M or G) and the value stored in @out are multiplied accordingly. |
| 487 | | | # |
| 488 | | | sub convert_units { |
| 489 | | | my @in = @_; |
| 490 | | | my @out = (); |
| 491 | | | |
| 492 | | | foreach $i (@in) { |
| 493 | | | $i =~ s/(^\d+)K/$1 * 1024/; |
| 494 | | | $i =~ s/(^\d+)M/$1 * 1024 * 1024/; |
| 495 | | | $i =~ s/(^\d+)G/$1 * 1024 * 1024 * 1024/; |
| 496 | | | #print "$i\n"; |
| 497 | | | $bytes = (eval "$i"); |
| 498 | | | #print "$bytes\n"; |
| 499 | | | push @out, $bytes; |
| 500 | | | } |
| 501 | | | return @out; |
| 502 | | | } |
| 503 | | | |
| 504 | | | 1; |
| 505 | | | |
