Carlin Ad-Speak Calculator

#!/usr/local/bin/perl use strict; use CGI qw(param); my $admin_text_file = "$ENV{DOCUMENT_ROOT}/admin/wordlist.lib"; my $admin_graphic_values_file = "$ENV{DOCUMENT_ROOT}/admin/graphic_values.lib"; my $temp_directory = "/tmp"; my $this_script="/"; my $this_cgi_script = "$ENV{SCRIPT_NAME}"; my $this_url = "http://$ENV{HTTP_HOST}"; if (param('adwording') ne "") { &analyze_create_report(); } elsif (param('res') ne "") { &give_results(); } else { &front_page(); } sub front_page() { # clean up old sessions which were not deleted opendir (USER_SESSIONS, "$temp_directory"); my @oldsessions = grep(/\.adspeak/,readdir(USER_SESSIONS)); closedir (USER_SESSIONS); foreach my $oldsess (@oldsessions) { if (-M "$temp_directory/$oldsess" > .5) { unlink("$temp_directory/$oldsess"); } } # clean up old sessions which were not deleted print "Content-type: text/html\n\n"; print qq~ Carlin Ad-Speak Calculator

The Carlin Ad-Speak Calculator - Measure your copy for the overuse of jargon, cliches, corporate-speak and unsubstantiated claims.

~; print qq~

Test Your Ad Copy:

~; } sub analyze_create_report() { my @words = (); my $total_words = 0; my %hit_words = (); my @hit_word_count = (); my $hit_word_count = 0; my $entered_list = param('adwording'); my $cleaned_entered_list = lc($entered_list); my $phrase_count = 0; #$cleaned_entered_list =~ s/\n/ /g; #$cleaned_entered_list =~ s/\r/ /g; $cleaned_entered_list =~ s/[^A-Z,a-z]//g; my $hit_word_count_instances=0; my $entered_list2 = $entered_list; $entered_list2 =~ s/[^A-Za-z0-9\s+]//g; my @enteredwords = split(/\W+/, $entered_list2); foreach my $word (@enteredwords) { $total_words++; } open (FILE, "$admin_text_file"); while () { chomp; my $add_word2 = $_; $add_word2 =~ s/[^A-Z,a-z]//g; my $length = length($add_word2); push @words, lc("$length$_"); } close(FILE); my $word_count = 0; foreach my $words (sort {$b <=> $a} @words) { my $checkword = $words; $checkword =~ s/[^A-Z,a-z]//g; my $count=0; while ($cleaned_entered_list =~ /$checkword/i) { my $words_no_numbers = $words; $words_no_numbers =~ s/^\d+//; if ($hit_words{$words_no_numbers} == 0) { $hit_word_count_instances++; } $hit_words{$words_no_numbers}++; my @wordswords = split(/\W+/, $words_no_numbers); foreach my $word (@wordswords) { $hit_word_count++; } $cleaned_entered_list =~ s/$checkword//i; } } my $add_speak_rate = int(($hit_word_count/$total_words)*100); #if ($add_speak_rate >= 100) { #$hit_word_count = $total_words; #$add_speak_rate = 100; #} print "Content-type: text/html\n\n"; print qq~ Carlin Ad-Speak Calculator

Your Ad-Speak Calculator Results

~; print qq~

Your Ad-Speak Rate: $add_speak_rate\%

We found $hit_word_count_instances instance~; print "s" if ($hit_word_count_instances > 1); print qq~ of ad-speak related keywords or phrases.

Ad-speak calculation performed on $total_words word~; print "s" if ($total_words > 1); print qq~.

~; if ($hit_word_count_instances > 0) { print qq~ We found the following ad-speak keywords or phrases:

~; foreach my $wd (sort (keys %hit_words)) { print qq~$wd
\n~; } print qq~

~; } print qq~

~; if ($add_speak_rate > 10) { print qq~ Extreme

~; } elsif ($add_speak_rate >= 6) { print qq~ High

~; } elsif ($add_speak_rate > 2) { print qq~

~; } else { print qq~ Low

~; } print qq~

Ad-Speak Ratings Explained

Low: 2\% or less
Moderate: 3 - 5\%
High: 6 - 10\%
Extreme: more than 10%

~; #print "Location: $this_url$this_script?re=1\n\n"; } exit; 1;