===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
crip-3.9/crip-483-if ($editnames eq "on") {
crip-3.9/crip:484: $out = `which $editor`;
crip-3.9/crip-485- if ($out eq "") {
##############################################
crip-3.9/crip-1613- print $tmptrnum . ": " . $oname[$listnum][$index] . "\n";
crip-3.9/crip:1614: $out=`cat -- $name[$listnum][$index].tag`; print $out, "\n";
crip-3.9/crip-1615-
##############################################
crip-3.9/crip-1761- print "\nORIGINAL CDDB RECORD:\n";
crip-3.9/crip:1762: $out = `cat -- $cddborig`; print $out;
crip-3.9/crip-1763- # Print out the new CDDB submission data
crip-3.9/crip-1764- print "\nYOUR NEW SUBMISSION:\n";
crip-3.9/crip:1765: $out = `cat -- $cddbfile`; print $out;
crip-3.9/crip-1766- print "\nPlease be absolutely sure that the above information is correct\n";
##############################################
crip-3.9/crip-1780- print "\nmailing $cddbfile to $cddbsubmitaddr... ";
crip-3.9/crip:1781: `mail -a "Content-Type: text/plain; charset=\"$charset\"" -a "Content-Transfer-Encoding: 8bit" -s "cddb $cgy $discid" -c $cddbsubmitaddrCc $cddbsubmitaddr < $cddbfile`;
crip-3.9/crip-1782- print "Done.\n\n";
##############################################
crip-3.9/crip-1804- print "Creating empty file: $oname[$listnum][$index].wav\n";
crip-3.9/crip:1805: `cat /dev/null > $name[$listnum][$index].wav`;
crip-3.9/crip-1806- } else {
##############################################
crip-3.9/crip-1863- print "Moving cdda.wav to $name[$listnum][$index].wav\n";
crip-3.9/crip:1864: `mv -- cdda.wav $name[$listnum][$index].wav`;
crip-3.9/crip-1865- } # End if ($skiprip eq "on)
##############################################
crip-3.9/crip-1884- $ejectcmd = "eject " . $cddevice;
crip-3.9/crip:1885: print "Running `$ejectcmd`\n";
crip-3.9/crip:1886: `$ejectcmd`;
crip-3.9/crip-1887- print "\n";
##############################################
crip-3.9/crip-1917- while ($index <= $#{$list[$listnum]}) { # && ($voladjust >= $volthresh)) { # We want to get all the peaks anyway...
crip-3.9/crip:1918: $statout=`sox $name[$listnum][$index].wav -e stat -v 2>&1`;
crip-3.9/crip-1919- chop($statout);
##############################################
crip-3.9/crip-1992- print "Moving $oname[$listnum][$index].wav to $oname[$listnum][$index].orig.wav\n";
crip-3.9/crip:1993: `mv -- $name[$listnum][$index].wav $name[$listnum][$index].orig.wav`;
crip-3.9/crip-1994- print "Running sox command:\n $soxcmd1\n";
crip-3.9/crip:1995: `$soxcmd1`; # Simple enough not to fail if there's no $soxcmd2
crip-3.9/crip-1996- if ($soxcmd2 ne "") {
##############################################
crip-3.9/crip-2003- print "Trying sox command:\n $soxcmd1a\n";
crip-3.9/crip:2004: `$soxcmd1a`;
crip-3.9/crip-2005- print "Moving $name[$listnum][$index].rev.wav to $name[$listnum][$index].sil.wav\n";
crip-3.9/crip:2006: `mv $name[$listnum][$index].rev.wav $name[$listnum][$index].sil.wav`;
crip-3.9/crip-2007- $soxcmd1b = "sox $name[$listnum][$index].sil.wav -t wav $name[$listnum][$index].rev.wav reverse";
crip-3.9/crip-2008- print "Now running sox command:\n $soxcmd1b\n";
crip-3.9/crip:2009: `$soxcmd1b`;
crip-3.9/crip-2010- unless (-e $oname[$listnum][$index] . ".rev.wav") {
##############################################
crip-3.9/crip-2017- print "Running sox command:\n $soxcmd2\n";
crip-3.9/crip:2018: `$soxcmd2`;
crip-3.9/crip-2019- unless (-e $oname[$listnum][$index] . ".wav") {
##############################################
crip-3.9/crip-2025- print "Trying sox command:\n $soxcmd2a\n";
crip-3.9/crip:2026: `$soxcmd2a`;
crip-3.9/crip-2027- print "Moving $name[$listnum][$index].wav to $name[$listnum][$index].sil.wav\n";
crip-3.9/crip:2028: `mv $name[$listnum][$index].wav $name[$listnum][$index].sil.wav`;
crip-3.9/crip-2029- $soxcmd2b = "sox $name[$listnum][$index].sil.wav -t wav $name[$listnum][$index].wav reverse";
crip-3.9/crip-2030- print "Now running sox command:\n $soxcmd2b\n";
crip-3.9/crip:2031: `$soxcmd2b`;
crip-3.9/crip-2032- unless (-e $oname[$listnum][$index] . ".wav") {
##############################################
crip-3.9/crip-2069- print "\nEncoding list $listnum:\n$encodestr $filelist\n\n";
crip-3.9/crip:2070: `$encodestr $filelist`;
crip-3.9/crip-2071- }
##############################################
crip-3.9/crip-2078- print "\nEncoding ", $oname[$listnum][$index], ".wav\n";
crip-3.9/crip:2079: `$encodestr $name[$listnum][$index].wav`;
crip-3.9/crip-2080- }
##############################################
crip-3.9/crip-2119- print "Tagging $oname[$listnum][$index].ogg:\n";
crip-3.9/crip:2120: $out=`cat -- $name[$listnum][$index].tag`; print $out, "\n";
crip-3.9/crip:2121: `vorbiscomment -w -c $name[$listnum][$index].tag $name[$listnum][$index].ogg`;
crip-3.9/crip-2122- } else {
##############################################
crip-3.9/crip-2124- print "Tagging $oname[$listnum][$index].ogg:\n";
crip-3.9/crip:2125: $out=`cat -- $name[$listnum][$index].tag`; print $out, "\n";
crip-3.9/crip-2126- if ($mfver lt "1.1.1") {
##############################################
crip-3.9/crip-2131- print "Executing:\n$mfcmd\n";
crip-3.9/crip:2132: `$mfcmd`;
crip-3.9/crip-2133- } else {
crip-3.9/crip-2134- print "Tagging $oname[$listnum][$index].flac:\n";
crip-3.9/crip:2135: $out=`cat -- $name[$listnum][$index].tag`; print $out, "\n";
crip-3.9/crip-2136- if ($mfver lt "1.1.1") {
##############################################
crip-3.9/crip-2141- print "Executing:\n$mfcmd\n";
crip-3.9/crip:2142: `$mfcmd`;
crip-3.9/crip-2143- }
##############################################
crip-3.9/crip-2149- print "\nDeleting ", $oname[$listnum][$index], ".wav\n";
crip-3.9/crip:2150: `rm -- $name[$listnum][$index].wav`;
crip-3.9/crip-2151- $tmpfilename = $oname[$listnum][$index] . ".orig.wav";
##############################################
crip-3.9/crip-2153- print "Deleting $tmpfilename\n";
crip-3.9/crip:2154: `rm -- $name[$listnum][$index].orig.wav`;
crip-3.9/crip-2155- }
##############################################
crip-3.9/crip-2158- print "Deleting $tmpfilename\n";
crip-3.9/crip:2159: `rm -- $name[$listnum][$index].rev.wav`;
crip-3.9/crip-2160- }
##############################################
crip-3.9/crip-2163- print "Deleting $tmpfilename\n";
crip-3.9/crip:2164: `rm -- $name[$listnum][$index].sil.wav`;
crip-3.9/crip-2165- }
##############################################
crip-3.9/crip-2167- print "Deleting $oname[$listnum][$index].tag\n";
crip-3.9/crip:2168: `rm -- $name[$listnum][$index].tag`;
crip-3.9/crip-2169- if (-e "$oname[$listnum][$index].tag~") {
crip-3.9/crip-2170- print "Deleting $oname[$listnum][$index].tag~\n";
crip-3.9/crip:2171: `rm -- $name[$listnum][$index].tag~`;
crip-3.9/crip-2172- }
##############################################
crip-3.9/crip-2192- print "Running vorbisgain on group ", $listnum, "...\n";
crip-3.9/crip:2193: `vorbisgain -a -- $filelist`;
crip-3.9/crip-2194- } else {
crip-3.9/crip-2195- print "Running vorbisgain on track ", $filelist, "...\n";
crip-3.9/crip:2196: `vorbisgain -- $filelist`;
crip-3.9/crip-2197- }
##############################################
crip-3.9/editfilenames-143-# print "$cmd[$i]\n";
crip-3.9/editfilenames:144: `$cmd[$i]`;
crip-3.9/editfilenames-145- }
##############################################
crip-3.9/debian/patches/30dont_overwrite_files.diff-197-- print "Moving cdda.wav to $name[$listnum][$index].wav\n";
crip-3.9/debian/patches/30dont_overwrite_files.diff:198:- `mv -- cdda.wav $name[$listnum][$index].wav`;
crip-3.9/debian/patches/30dont_overwrite_files.diff-199-+ print "Moving $cdparanoia_outfile to $name[$listnum][$index].wav\n";
crip-3.9/debian/patches/30dont_overwrite_files.diff:200:+ `mv -- $cdparanoia_outfile $name[$listnum][$index].wav`;
crip-3.9/debian/patches/30dont_overwrite_files.diff-201- } # End if ($skiprip eq "on)
##############################################
crip-3.9/debian/patches/30dont_overwrite_files.diff-214-+ print "Deleting $titlefile\n";
crip-3.9/debian/patches/30dont_overwrite_files.diff:215:+ `rm $titlefile`;
crip-3.9/debian/patches/30dont_overwrite_files.diff-216-+
##############################################
crip-3.9/debian/patches/30dont_overwrite_files.diff-222-+# print "Deleting $titlefile~\n";
crip-3.9/debian/patches/30dont_overwrite_files.diff:223:+# `rm $titlefile~`;
crip-3.9/debian/patches/30dont_overwrite_files.diff-224-+# }