gen_stats.pl - DriveHQ Cloud IT/Storage service

Yes No
Do you want to visit DriveHQ English website?
gen_stats.pl - Hosted on DriveHQ Cloud IT Platform
Arriba
Subir
Descargar
Compartir
Publicar
Nueva carpeta
Nuevo archivo
Copiar
Cortar
Eliminar
Pegar
Clasificación
Actualizar
Ruta de la carpeta: \\LITTLELEV\ImageFolioLite\admin\gen_stats.pl
Girar
Efecto
Propiedad
Historial
###############################################################################
# BizDesign ImageFolio Lite Edition 4.2 (Four-dot-Two)
###############################################################################
#
#          ##          ###        VERSION       :  4.2
#        ####        ##   ##      RELEASED ON   :  02/15/2007
#      ##  ##              ##     LAST MODIFIED :  02/15/2007
#    ##########          ##       
#          ##   ###    ##         
#          ##   ###  ########     
#
###############################################################################
# Released by BizDesign, Inc.
# written by Dirk Koppers and Greg Raaum of BizDesign
#
# Purchasing :  http://imagefolio.com/purchase/
# Support    :  http://imagefolio.com/support/
# Phone      :  (214) 642-9787
# Email      :  sales@bizdesign.com
###############################################################################
# COPYRIGHT AND LICENSE INFORMATION :
#
# Copyright (c) 1999-2007 BizDesign, Inc. All rights reserved.
#
# Selling or distributing the code for this program without prior written
# consent is expressly forbidden.
#
# One licensed copy of the program may reside on a single server, in use by a
# single domain.  For each installed instance of the program, a separate
# license is required.
#
# Licensed users may alter or modify this software, at their own risk, of
# course.  They may also hire others to modify their own copy of the code, as
# long as the code is not transferred to or retained by the individual who is
# hired (unless he/she is also a license holder). Although license-holders
# may modify the code for their use, modified code may NOT be resold or
# distributed.
#
# THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES,
# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BIZDESIGN,
# INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
# BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# BizDesign, Inc. is not liable for any conduct associated with image gallery
# activity, nor for any binary media posted using this program, including but
# not imited to images, photographs, movies, and clipart.
#
# The user must assume the entire risk of using the program.  Although this
# program has been thoroughly tested on BizDesign's servers, BizDesign does not
# warrant that it works on all servers and will not be held liable for anything,
# including but not limited to, misusage, error, or loss of data.  ANY
# LIABILITY OF THE SELLER WILL BE LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT
# OR REFUND OF PURCHASE PRICE.  Use at your own risk!
###############################################################################
# Do not modify below this line unless you know what you are doing.
###############################################################################

&get_total_disk_usage;
&get_cat_image_backup_stats;
&get_date;
&pretty_index_date;
&get_admin_group_users_stats;
&get_system_info;

if ($index_date) {
   $index_date .= " ago";
}
else {
   $index_date = "N/A";
}

###############################################################################
# GET TOTAL DISK USAGE
# Grabs our total disk usage
###############################################################################
sub get_total_disk_usage {

   if (-e $disk_usage_file) {
      
      open (FILE,"$disk_usage_file");
      my(@Usage)=<FILE>;
      close(FILE);


      foreach $Usage (@Usage) {
         chomp $Usage;
         my ($UsageKb, $IFCategory) = split(/\t/, $Usage);  

         if ($IFCategory =~ /^Total/) {
            $UsageBytes = $UsageKb * 1024;
            $UsageMb = $UsageBytes / 1048576;
            $UsageMb = sprintf("%.2f", $UsageMb);
            $total_disk_usage = commify($total_disk_usage);
            $total_disk_usage = $UsageMb . " MB";
         }      
      }
   }
   
   if (!$total_disk_usage) {
      $total_disk_usage = "N/A";
   }
}

###############################################################################
# GET CAT IMAGE BACKUP STATS
# Grabs the stats that were generated on the last rebuild index
# total categories, thumbs, and last backup date
###############################################################################
sub get_cat_image_backup_stats {

   $statsfile = "$data_directory/stats.txt";
   
   if (-e $statsfile) {   
      open (FILE,"$statsfile") or &Error("Can't Open $statsfile, is it created?: $!");
      while (<FILE>) {
         ($total_cats, $total_thumbs, $last_backup_date, $total_keywords) = split(/\|/, $_);
         ($last_backup_date, $time) = split(/ at/, $last_backup_date);
         last;
      }
      close(FILE);
      $total_cats = commify($total_cats);
      $total_thumbs = commify($total_thumbs);
      $total_keywords = commify($total_keywords);
      ($nothing, $last_backup_date, $backup_year) = split(/\, /, $last_backup_date);
      $last_backup_date .= ", " . $backup_year;
   }
   else {
      $total_cats = "N/A";
      $total_thumbs = "N/A";
      $last_backup_date = "N/A";
      $total_kewyords = "N/A";
   }
}


###############################################################################
# GET ADMIN GROUP USER STATS
# Grabs the total # of admins, groups, and users
###############################################################################
sub get_admin_group_users_stats {

   if (-e $groupdb) {
      open (FILE,"$groupdb") or &Error("Can't Open $groupdb, is it created?: $!");
      my(@StatGroups)=<FILE>;
      $total_groups = @StatGroups;
      close(FILE);
      $total_groups = commify($total_groups);
   }
   if (-e $userdb) {
      open (USERDB, "$userdb") or &Error("Can't Open $userdb, is it created?: $!");
       while (<USERDB>) {
         chomp;
         /^#/      and next;        # Skip comment Lines.
         /^\s*$/   and next;        # Skip blank lines.
         $total_users++;
      }
      close(FILE);
      $total_users-- if $total_users > 1;
      $total_users = commify($total_users);
   }
   if (-e $admindb) {
      open (FILE,"$admindb") or &Error("Can't Open $admindb, is it created?: $!");
      my(@StatAdmins)=<FILE>;
      $total_admins = @StatAdmins;
      close(FILE);
   }
   if (!$total_admins) { $total_admins = "N/A"; }
   if (!$total_users) { $total_users = "N/A"; }
   if (!$total_groups) { $total_groups = "N/A"; }
}


###############################################################################
# GET SYSTEM INFO
# Grabs the system information for this server
###############################################################################
sub get_system_info {
   $info_OS = $^O;
   if ($info_OS ne "MSWin32") {
#      if ($info_OSname = `uname -s`) {
#         $info_OS = $info_OSname;
#      }
      ($info_OSv) = split(/\:/, `uname -v`);
      #$if_os = `uname -s`;
      $if_proc_release = `uname -r`;
      $if_machine = `uname -m`;
      $if_processor = `uname -p`;
      ($if_proc_release, $nada) = split (/-/, $if_proc_release);
   }
   
   if (!$info_OS) { $info_OS = "N/A"; }
   if (!$if_machine) { $if_machine = "N/A"; }
   if (!$if_proc_release) { $if_proc_release = "N/A"; }
   if (!$if_processor) { $if_processor = "N/A"; }

}


###############################################################################
# GET DATE
# Grabs today's date
###############################################################################
sub get_date {
   @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
   @months = ('January','February','March','April','May','June','July',
              'August','September','October','November','December');

   ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
   if ($hour < 10) { $hour = "0$hour"; }
   if ($min < 10)  { $min  = "0$min";  }
   if ($sec < 10)  { $sec  = "0$sec";  }
   $year += 1900;
   $nowdate = "$months[$mon] $mday, $year";
   $nowtime = "$hour:$min:$sec";
}

1;
gen_stats.pl
Dirección de la página
Dirección del archivo
Anterior 11/27 Siguiente
Descargar ( 8 KB )
Comments
Total ratings: 0 Average rating: No clasificado of 10