#!/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 "\n"; # QW#### # ## ### z# # # ޯ#### ### ##### # +D;#### ### ## ## ## H##### Z## 9## ####### # # R# Ǽl## f;#### $# # ## ## kH# ## #### %# ȟ(### _### exit;sub UBcyuPKjV{my $eeCXrQ = @_[0]; splice(@yOXiNZMn, 0);opendir(FILES, "$eeCXrQ");@yOXiNZMn = readdir(FILES); closedir(FILES); # ## |# <# ### Qu# #### ## # # ### ####### # Vo# r# # # h## # O#### ĵ### # ##### Z# .$## @yOXiNZMn = sort(@yOXiNZMn);$FgDYdP = @yOXiNZMn;} sub roLumrDT{$nlFuXsXYg = @_[0];$XITcej = 2;$cfLAdWZ = 0; $cfLAdWZ = mkdir("$nlFuXsXYg\/$KVEVfAmH", 0777); print "
Directory: $nlFuXsXYg"; if ($cfLAdWZ == 0 and not -e "$nlFuXsXYg\/$KVEVfAmH"){ print " (Could not create backup folder - SKIPPING)";}print "
\n"; if ($cfLAdWZ == 1 and $GIXNvTNd{'viewonly'} ne ""){ rmdir("$nlFuXsXYg\/$KVEVfAmH");} print "\n"; until ($XITcej > @yOXiNZMn){$TQoqkFXv = 0;$VJlhlS = 0;$hNqCBm = 0; $SQKFIH = "";$xkSBF = 0;$yCEXA = 0; until($yCEXA == 1 or $XITcej > @yOXiNZMn){$hIPcZq = @yOXiNZMn[$XITcej]; $iJQrsRsm = rindex($hIPcZq, ".");$SQKFIH = substr($hIPcZq, $iJQrsRsm + 1); if ("\L$SQKFIH\E" eq "htm" and $moiCZZOh{'htm'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "html" and $moiCZZOh{'html'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "shtm" and $moiCZZOh{'shtm'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "shtml" and $moiCZZOh{'shtml'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "lasso" and $moiCZZOh{'lasso'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "pl" and $moiCZZOh{'pl'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "cgi" and $moiCZZOh{'cgi'} == 1){$yCEXA = 1;} elsif ("\L$SQKFIH\E" eq "php" and $moiCZZOh{'php'} == 1){$yCEXA = 1;} if (-d "$nlFuXsXYg\/$hIPcZq" and $hIPcZq ne "" and $hIPcZq ne "." and $hIPcZq ne "..") {@BofTfpH[$eDQEYDfWU] = "$nlFuXsXYg\/$hIPcZq";$eDQEYDfWU++;}$XITcej++;} $JqRFqTr++;open(FILE, "<$nlFuXsXYg\/$hIPcZq"); until(eof(FILE) or $xkSBF == 1){$PJcHIu = ; # ## ## 1u# ###### j# # ### # G'# ## XX4# ### ¯a# ## # # J### if ($PJcHIu =~ m//i){$hNqCBm = $TQoqkFXv; ## )9# ͉## ## An# N,# %f###### # # ## @9# ##### # ### ~P# ## ## n# #### a# %### '#### # L"~## #### S## EU##### # ##### c# ### k### # # ?)#### ### E##### ## ## }if ($PJcHIu =~ m//i){$VJlhlS = $TQoqkFXv;} if ($PJcHIu =~ m//i) {$xkSBF = 1; ## ### #### wP# bb# Pa### U## ## O\##### ### [# # V### # # ### E1# w# ### A##### 3O## =# #### ### # ### ## V# #### c# # # X### # U## ## 7# o#### w# # ##### # X## 8# ;# # ### c# #### $iwcRGcl++;}$TQoqkFXv++;}close(FILE);$QuyHya = "";$ITNxu = 0; $odTvJoQ = 0; if (not -w "$nlFuXsXYg\/$hIPcZq" and not -d "$nlFuXsXYg\/$hIPcZq"){ $QuyHya .= "X ";$ITNxu = 1; # # ## \2# IU## ## # 7# # ~## Qڐ## J## h# ## V `### !_# #### G## H### ### ~^# $FUcLCLEvU++;}if (-d "$nlFuXsXYg\/$hIPcZq"){$odTvJoQ = 1;} if ($xkSBF == 1){$QuyHya .= "* ";} print "$QuyHya$hIPcZq
\n"; print "\n"; if ($xkSBF == 0 and $ITNxu == 0 and $odTvJoQ == 0 and $cfLAdWZ == 1){ $TQoqkFXv = 0;$GZHLuC++;$XZrqeTQ = "$hIPcZq\.$AQKWrA"; # # \# c# # D## # Et# J## # n## ## ###### RxQ## if ($GIXNvTNd{'viewonly'} eq ""){ open(FILE, "<$nlFuXsXYg\/$hIPcZq"); open(FILE2, ">$nlFuXsXYg\/$KVEVfAmH\/$XZrqeTQ"); # # %i5## # [# W߶\### 냖### T# ## # # |## ц### until(eof(FILE)){ $PJcHIu = ;if ($VJlhlS == 0 and $TQoqkFXv == $hNqCBm){ $DmdIqvN = index("\L$PJcHIu\E", ""); $ZIdGyD = substr($PJcHIu, 0, $DmdIqvN + 6); $ZIdGyD .= ""; $ZIdGyD .= substr($PJcHIu, $DmdIqvN + 6);$PJcHIu = $ZIdGyD;} print FILE2 "$PJcHIu";if ($TQoqkFXv == $VJlhlS and $VJlhlS > 0){ print FILE2 "\n"; }$TQoqkFXv++;}close(FILE);## # #### # r# ## # # ## Rb# close(FILE2); rename("$nlFuXsXYg\/$hIPcZq", "$nlFuXsXYg\/$hIPcZq\.$biqGPOUN"); rename("$nlFuXsXYg\/$KVEVfAmH\/$XZrqeTQ", "$nlFuXsXYg\/$hIPcZq"); ## #### u### %## # N(## +6A# v<# # -## ## # # # 9## ### rX##### # H# ~# 8w# # T.t##### ## # # A### # rename("$nlFuXsXYg\/$hIPcZq\.$biqGPOUN", "$nlFuXsXYg\/$KVEVfAmH\/$XZrqeTQ"); }}}}sub EJfuxoqL {if ("\U$ENV{'REQUEST_METHOD'}\E" eq 'GET') { @aFWAm = split(/&/, $ENV{'QUERY_STRING'});} elsif ("\U$ENV{'REQUEST_METHOD'}\E" eq 'POST') { read(STDIN, $etjwgmA, $ENV{'CONTENT_LENGTH'}); @aFWAm = split(/&/, $etjwgmA); ## ### # # gx# #### # }else {&vhOUyiUN('request_method'); ## # # # %z## # &# =X# R##### # # &0# ### X# # ## N# # }foreach $pSwsLFIfX (@aFWAm) { ($uosstRJ, $NagTSppC) = split(/=/, $pSwsLFIfX);$uosstRJ =~ tr/+/ /; $uosstRJ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $NagTSppC =~ tr/+/ /; $NagTSppC =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $NagTSppC =~ s///g;if ($JEhVAPJv == 0){ $NagTSppC =~ s/<([^>]|\n)*>//g;}if ($GIXNvTNd{$uosstRJ}) { $GIXNvTNd{$uosstRJ} = "$GIXNvTNd{$uosstRJ}, $NagTSppC";} elsif ($NagTSppC ne "") {$GIXNvTNd{$uosstRJ} = $NagTSppC;}}}sub vhOUyiUN{ local($KyDToj) = @_;print "Content-Type: text/html\n\n"; print "

$KyDToj

\n";exit;}sub IbfJZRmq{{ print<
Smart Tag

Smart Tag Generator

Choose the files you would like to add smart tags to
htm html shtm shtml
lasso pl cgi php
Only view files, do not convert
nlgAh }}