![](\"https://cs.nyu.edu/~js3104/cgi-bin/unixtool/images/balagista.jpg\")
";
print "$instructions";
print ""; # ADD POPULAR TOPIC DROP-DOWN print "
| "; print ""; print " | "; print "Popular: "; print " | "; print " | Search name: |
";
### print "$instructions";
print "
"; print "
| ";
if ( param("viewedit") eq "view"){ # TOGGLE BETWEEN VIEW AND EDIT
print " View
Edit "; } else{ print " View Edit "; } print " | SEARCH keyword across topics | |
| ";
if ( $topic_n eq "" ){
print " Topic Name: "; } else{ print " Topic Name: "; } print " | "; print " revisions | "; if ($last_search ne ""){ print ""; } print " |
| "; print " "; print " "; print " |
| Recent Edits | "; print " | "; print submit(-NAME=>"action1", -VALUE=>"submit"); print " |
$htmlfooter"; } #-------------------------------------------------------------------------------------------------- sub edit_page { ############# THIS SUBROUTINE DISPLAYS THE "EDIT" PAGE $topic_n=param('recent') || $_[0]; $txt=""; if (param("action1") eq "submit" && $topic_n eq ''){ # CHECK LEGALITY OF TOPIC NAME $error="Topic name not entered"; &home_page(); exit(); } if ($lastform eq "home" || $lastform eq "view"){ $ret= alphanum($topic_n); if (!$ret){ # CHECK IF TOPIC ALPHANUMERIC $error="Topic name is not alphanumeric"; home_page($topic_n); exit(); } # LOCATE TOPIC my $command="/home/js3104/simplestore lookup N15928458/topic/$topic_n"; my @keylist=`$command`; @keylist= sort reverse_numerically @keylist; my $mostrecentkey=$keylist[0]; $command="/home/js3104/simplestore lookup N15928458/topic/$topic_n/$mostrecentkey"; my $foundtext=`$command`; if ( "$?" == 0 ){ ## simplestore FOUND THE TOPIC IN THE DATABASE $txt=$foundtext; } else{ $error="New topic, please type in the text in the white area"; } $topicn=$topic_n; } elsif ($lastform eq "preview" && $page eq "cancel"){ # IF WE CANCELED FROM 'PREVIEW', SHOW BACK THE TOPIC NAME & EDITTED CONTENT if ($_[0] ne ""){ $topicn=$_[0]; $txt=$_[1]; } $error="Back from preview"; } elsif ($page eq "save"){ $topicn=$_[0]; $txt=$_[1]; &check_dup($topicn, $txt);# SAVE ONLY UNIQUE REVISIONS OF A TOPIC. if ($dup == 0){ $topictime=time(); # EPOCH TIME WILL BE THE KEY (IN SECONDS GRANULARITY) # WRITE A NEW VERSION (OR FIRST) OF A TOPIC @args = ("/home/js3104/simplestore", "write", "N15928458/topic/$topicn/$topictime", "$txt"); system(@args); # == 0 or die "system @args failed: $? $!"; # DEBUG PURPOSE if ( "$?" != 0 ){ $error="Cannot update topic at the moment, please try later"; } else{ $error="save successful!"; &add_to_recent($topicn); &mailnotify($topicn, param('emailadd')); } } else { $error="An identical topic content exists. No new Version created."; } } ## WE ARE READY TO DISPLAY THE PAGE NOW $screen="
EDIT
"; print "$type"; print "$htmlheader"; print "$formheader"; print "$screen"; $einstructions= "
| USAGE: | ||
| 1. Type/Edit document | ||
| 2. Click preview to see HTML formatting | ||
| 3. cancel takes you back to the home page | ||
| 4. reset! - erases \"just typed\" text (not after preview) |
Topic Name:
"; print ''; print ""; print '
'; print "
| "; print submit(-NAME =>"action1", -VALUE=>"preview"); print " | "; print submit(-NAME =>"action1", -VALUE=>"cancel"); print " | "; print ""; print " |
PREVIEW
"; $topicn=$_[0]; $text_convert=param("topiccont"); if ( $text_convert eq ""){ $error="No text to preview, please enter some text."; edit_page($_[0]); exit(); } else{ $preview_text=""; # GLOBAL VARIABLE TO KEEP THE HTML FORMATTED TEXT &convert_t_html($text_convert); &create_hyperlinks($text_convert); print "$type"; print "$htmlheader"; print "$formheader"; print "$screen"; print "
Topic Name:
"; print "$preview_text"; # CONVERTED TEXT print ""; print ""; print ''; print '
'; print "
| "; print " | "; print " | "; print "Email to notify: | "; print "save will send E-mail |
VIEW
Last modified: $date_created"; if ( $foundtext eq ""){ $error="Topic does not contain any text."; home_page($topic_n); exit(); } else{ # RECORD ONE MORE VIEWING FOR THIS TOPIC $topicview= $topic_n . "count"; $command="/home/js3104/simplestore increment N15928458/mostviewed/$topicview 1"; $try=`$command`; $preview_text=""; convert_t_html($foundtext); # HTML CONVERSION &create_hyperlinks($foundtext); print "$type"; print "$htmlheader"; print "$formheader"; print "$screen"; print "
Topic Name:
"; print "$preview_text"; # CONVERTED TEXT print ""; print ""; print '';
print submit(-NAME =>"action1", -VALUE=>"home");
print submit(-NAME =>"action1", -VALUE=>"edit");
print p("$error");
print endform;
print end_html;
}
}
}
}
#---------------------------------------------------------------------------------------------------
sub alphanum { # CHECKS IF A STRING IS ALPHANUMERIC
my $val=$_[0];
$val=~ /^[a-zA-Z0-9]+$/;
}
#---------------------------------------------------------------------------------------------------
sub convert_t_html{
my $topic_text=$_[0];
my @lines=split(/\r\n/,$topic_text); # HERE IS THE ORDER OF CONVERSION IN ORDER
foreach $line (@lines) { # TO AVOID INTERFERENCE WITH HTML TAGS:
$line=~ s/&/&/g; # FIRST CONVERT &, SO NO CONFLICT
$line=~ s//>/g; # LATTER TWO
if ($line=~ /^---([\+]{1,3}) (.*$)/){
$p=length($1);
$new_line="
<\/p>/; # EMPTY LINE CONVERT TO
# EMBED IMAGES $new_line=~ s/(.*)img:url:(.*):(.*)/$1<\/p>/g;
push(@newtext,$new_line); # THIS DONE AT THE END.
$line=~ /()()/; # RESET $1, $2 FOR NEXT ITERATION
}
&convert_bullet();
$preview_text=join "\n", @afterbullet;
}
#---------------------------------------------------------------------------------------------------
sub reverse_numerically { $b <=> $a }
#---------------------------------------------------------------------------------------------------
sub numerically { $a <=> $b }
#---------------------------------------------------------------------------------------------------
sub check_dup{ # CHECK IF ANOTHER VERSION IS IDENTICAL TO THE ONE BEING SAVED
#############
$comm="/home/js3104/simplestore lookup N15928458/topic/$_[0]";
@keys=`$comm`;
$dup=0;
$str1=$_[1];
$str1=~ s/\s//g; # TRIM ALL INVISIBLE CHARACTER TO MAKE THE COMPARE MEANINGFUL
foreach(@keys){
$comm1="/home/js3104/simplestore lookup N15928458/topic/$_[0]/$_";
$str2=`$comm1`;
chomp($str2);
$str2=~ s/\s//g;
if ($str1 eq $str2){
$dup=1;
last;
}
}
}
#---------------------------------------------------------------------------------------------------
sub create_hyperlinks{
## CREATING THE PAGE
#print "$type";
#print "$htmlheader";
#print "$formheader";
$original=$_[0]; # Orig text
@lines= split "\n", $preview_text; # THE HTML PREVIOUSLY GENERATED
@olines= split "\r\n", $original;
foreach(@olines){
$temp=$_;
#print "
$temp"; $temp=~ s/[^A-Za-z0-9]/ /g; @words= split /\s+/, $temp; foreach(@words){ # NOW CHECK FOR EVERY WORD IF IT IS A TOPIC $ret= alphanum($_); if ($ret){ my $command="/home/js3104/simplestore lookup N15928458/topic/$_ | wc -l"; my $keys=`$command`; if ($keys > 0 ){ # WORD IS A TOPIC ON THE DB $topic_link{"$_"}=$_; # CREATE A HASH OF TOPICS FOUND IN TEXT } } } } while (($word_link, $value) = each %topic_link ){ # MAKE THOSE TOPICS HYPERLINKS $preview_text=~ s/(.*)($word_link)(.*)/ $1$2<\/a>$3/g; } } #--------------------------------------------------------------------------------------------------- sub revisions_page { ################# DISPLAY PAGE THAT ALLOWS TO SELECT REVISION TO VIEW/EDIT/COMPARE $topicn=param('recent') || $_[0]; $begin_r_list=""; my $rinstructions= "
| USAGE: | ||
| 1. Select one revision to view or 2 revisions to compare | ||
| 2. To select 2 revisions hold the ctrl (apple on Mac) and click revision # | ||
| 3. Hit submit. To go back home, hit cancel | ||
| *** The top revision is always the latest (highest number) *** |
REVISIONS
"; if (param("action1") eq "submit" && $topicn eq ''){ # CHECK LEGALITY OF TOPIC NAME $error="Topic name not entered"; &home_page(); exit(); } $ret=alphanum($topicn); if (!$ret){ $error="Topic name is not alphanumeric"; $topic_n=$topicn; home_page($topic_n); exit(); } else{ ## PASSED ALPHANUMERIC TEST ## ACTIVATE simplestore my $command="/home/js3104/simplestore lookup N15928458/topic/$topicn"; my @keylist=`$command`; if ( "$?" == 0 ){ @keylist= sort numerically @keylist; # ASCENDING SORT (FIRST KEY OLDEST) $revcount=0; $revstring=""; foreach $rev1 (@keylist){ $revision{"$revcount"}="$rev1"; $revstring .="$revision{\"$revcount\"}"."#"."$revcount"."*"; ++$revcount; } $revstring=~ s/\s+//g; } else{ $error="Topic not found on the Database"; home_page($topicn); exit(); } } # PREPARE REVISION LIST $rev_num= keys %revision; $latest=$rev_num-1; $r_list=""; --$latest; while( $latest >= 0){ $r_list .=""; --$latest; } my $table_ver_s= "
| Topic Name: | Revisions: | "; my $table_ver_m=" | |
| "; my $table_ver_e=" |
"; print "$table_ver_s"; print $begin_r_list; print $r_list; print $end_r_list; print $table_ver_m; print submit(-NAME=>"action1", -VALUE=>"submit"); print submit(-NAME=>"action1", -VALUE=>"cancel"); print submit(-NAME=>"action1", -VALUE=>"delete"); print $table_ver_e print ""; print ""; print ""; print ""; if ($error ne ''){ print p("$error"); } print "$formfooter"; print "
$htmlfooter"; } #--------------------------------------------------------------------------------------------------- sub view_rev_page{ $topicn=$_[0]; $key_selected=$_[1]; my $command="/home/js3104/simplestore lookup N15928458/topic/$topicn/$key_selected"; $EPOCH=$key_selected; my $text_convert=`$command`; # RECORD ONE MORE VIEWING FOR THIS TOPIC $topicview= $topicn . "count"; $command="/home/js3104/simplestore increment N15928458/mostviewed/$topicview 1"; $try=`$command`; $preview_text=""; # GLOBAL VARIABLE TO KEEP THE HTML FORMATTED TEXT convert_t_html($text_convert); &create_hyperlinks($text_convert); print "$type"; print "$htmlheader"; print "$formheader"; $date_created=scalar(localtime($EPOCH)); $screen="
REVISION VIEW
Last modified: $date_created"; print "$screen"; print "
Topic Name:
"; print "$preview_text"; # CONVERTED TEXT print ""; print ""; print ''; print submit(-NAME =>"action1", -VALUE=>"cancel"); print p("$error"); print endform; print end_html; } #--------------------------------------------------------------------------------------------------- sub compare_rev_page{ $topicn=$_[0]; $revs[0]=$_[1]; $revs[1]=$_[2]; my $revkeys=param('allrevs'); my @keyrev=split /\*/, $revkeys; foreach $keyrev1 (@keyrev){ @temp=(); @temp=split /#/, $keyrev1; $keys1{"$temp[0]"}=$temp[1]; } @revs=sort numerically @revs; # THE OLDER FILE WILL BE FIRST, THE NEWER SECOND my $command1= "/home/js3104/simplestore lookup N15928458/topic/$topicn/$revs[0]"; my $command2= "/home/js3104/simplestore lookup N15928458/topic/$topicn/$revs[1]"; $file1=`$command1`; $file2=`$command2`; @oldf= split /\n/, $file1; @newf= split /\n/, $file2; chomp(@oldf); chomp(@newf); # CREATE TEMPORARY FILES, IN ORDER TO USE diff COMMAND open (OUT1,">tmp/$revs[0]"); open (OUT2,">tmp/$revs[1]"); print OUT1 $file1; print OUT2 $file2; $comprev=`diff -e tmp/$revs[0] tmp/$revs[1]`; @comparr= split /\n/, $comprev; chomp(@comparr); $screen="
COMPARE
"; print "$type"; print "$htmlheader"; print "$formheader"; print "$screen"; print "
"; print "
Topic Name:
"; print "| OLDER REVISION ($keys1{$revs[0]}) | NEWER REVISION ($keys1{$revs[1]}) |
| ";
foreach (@oldf){
print $_;
print " "; } print " | ";
foreach (@newf){
print $_;
print " "; } print " |
| HERE IS A SET OF INSTRUCTIONS (ed script) TO CHANGE FROM THE OLD TO NEW | |
| ";
foreach (@comparr){
print $_;
print " "; } print " |
- /;
push (@afterbullet,$newtext[$i]);
++$i;
while ($i < $maxlines && ($newtext[$i] !~ /^\/\//)){
$newtext[$i]=~ s/(.*)/
- $1/;
push (@afterbullet,$newtext[$i]);
++$i;
}
push (@afterbullet,"");
if ($newtext[$i]=~ /^\/\//){
++$i;
}
}
}
}
#---------------------------------------------------------------------------------------------------
sub add_to_recent{
my $topic=$_[0];
open (RECEDIT, "
SEARCH RESULTS
"; $keyword=quotemeta($keyword); if ($keyword eq ""){ $error="Please enter a keyword for SEARCH"; &home_page($topicn); } else{ $results=&search($keyword); if ($results ne ""){ ## CREATING THE PAGE print "$type"; print "$htmlheader"; print "$formheader"; print ""; print ""; print "$screen"; print submit(-NAME=>"action1", -VALUE=>"home"); print ""; print "
Searching for $keyword found:
"; print "$results"; $error= "Above are all the search results"; print p("$error"); print endform; print end_html; } else{ $error ="No document found with the requested keyword."; &home_page($topicn, $keyword); exit(); } } } #--------------------------------------------------------------------------------------------------- sub search{ my $keyword=$_[0]; my $command2; my $base = "N15928458/topic"; my $absolutep="/home/js3104/.simplestore/topic"; my $command="/home/js3104/simplestore lookup N15928458/topic"; my @topics=`$command`; foreach (@topics){ chomp($_); $file=$_; $dir=$base."/"."$_"; $command2="/home/js3104/simplestore lookup ". $dir; @top_revisions=`$command2`; foreach $ind_rev (@top_revisions){ chomp($ind_rev); $filerev=$file . ":" . "$ind_rev"; $fullpath="$absolutep"."/"."$file"."/"."$ind_rev"; open FILE, "$fullpath" or die $!; while (){ # SEARCHING THE FILE LINE BY LINE, COLLECTING RESULTS INTO A HASH: %matches if (/.*$keyword.*/io){ s|$keyword|$keyword|gio; push @{$matches{$fullpath}{content}}, $_; $matches{$fullpath}{file}=$filerev; $matches{$fullpath}{num_matches}++; # COUNT HOW MANY TIMES A FILE CONTAINS # THE KEYWORD (USE IT FOR RANKING) } } close FILE; } } # SORT THE FOUND FILE/REV, BY THE NUMBER OF MATCHES (HIGH TO LOW) @sort_path= sort{$matches{$b}{num_matches} <=> $matches{$a}{num_matches} || $a cmp $b} keys %matches; my $file=""; my $num_matches=0; my $link=""; my @file_rev=(); foreach $item (@sort_path){ $file= $matches{$item}{file}; # e.g xm:30 (file:revision) $num_matches= $matches{$item}{num_matches}; @file_rev= split /:/, $file; $link=" TOPIC: $file_rev[0] REVISION: $file_rev[1] "; my $content= join /
/, @{$matches{$item}{content} }; if ($num_matches == 1){ $m_verb="match"; } else{ $m_verb="matches"; } $results .= "$link" . "($num_matches $m_verb)" . "$content
". "
"; } return $results; } #--------------------------------------------------------------------------------------------------- sub search_topic{ my $regex=$_[0]; $screen="SEARCH TOPICS
"; if ($regex eq ""){ $error="Please enter some generic value in Unknow topic"; &home_page(); } else{ my $results=&search_regex($regex); if ($results ne ""){ ## CREATING THE PAGE print "$type"; print "$htmlheader"; print "$formheader"; print ""; print ""; print "$screen"; print submit(-NAME=>"action1", -VALUE=>"home"); print ""; print "
Searching for topic name like: $regex found:
"; print "$results"; $error= "Above are all the topics whose name look like the search argument"; print p("$error"); print endform; print end_html; } else{ $error ="No topic with remotely this name exists."; &home_page($regex); exit(); } } } #--------------------------------------------------------------------------------------------------- sub search_regex{ my $search_str=$_[0]; my $command="/home/js3104/simplestore lookup N15928458/topic"; my @topics=`$command`; my $link=""; my $results=""; foreach (@topics){ if ( $_ =~/$search_str/){ push(@results1, $_); } } foreach $tp (@results1){ $link=" TOPIC: $tp"; $results .= "$link" . "
"; } return $results; } #--------------------------------------------------------------------------------------------------- sub delete_rev{ ############## DELETE ONE REVISION OF A TOPIC, IF THE ONLY ONE, DELETE THE WHOLE TOPIC $topicn=$_[0]; $key_selected=$_[1]; if ($key_selected eq ""){ $error="No revision has been selected for deletion"; &revisions_page($topicn); } my $command="/home/js3104/simplestore delete N15928458/topic/$topicn/$key_selected"; $try=`$command`; if ($try != 0 ){ $error="Could not delete revision"; } else{ $command="/home/js3104/simplestore lookup N15928458/topic/$topicn | wc -l"; $count_rev=`$command`; if ($count_rev == 0){ $command="/home/js3104/simplestore delete N15928458/topic/$topicn"; $try = `$command`; if ($try != 0 ){ $error="could not delete topic"; } else{ $error="Topic: $topicn has been deleted from the database"; &home_page(); } } else{ $error ="one revision has been successfully deleted from this topic"; &revisions_page($topicn); } } } #--------------------------------------------------------------------------------------------------- sub arrange_popular (\@){ ################## THE TECHNIQUE I USED TO IMPLEMENT THE POPULAR TOPIC LIST IS BY DESIGNATING A NEW ################## DIRECTORY IN THE SIMPLESTORE DATA REPOSITORY. EVERY TIME A TOPIC IS VIEWED I USE ################## OUR INCREMENT FUNCTION TO EITHER CREATE A COUNT FOR THE TOPIC CALLED: topiccount ################## OR INCREMENT IT IF IT ALREADY EXISTS. UPON THE DISPLAY OF THE HOME PAGE I USE ################## simplestore AGAIN TO RETRIEVE THE LIST, SORT IT AS A HASH (HERE) AND DISPLAY @new_topics= @_; foreach (@new_topics){ $comm="/home/js3104/simplestore lookup N15928458/mostviewed/$_"; $pop_hash{"$_"}=`$comm`; } @popular_topics = sort { $pop_hash{$b} <=> $pop_hash{$a} } keys %pop_hash; my $i=0; foreach (@popular_topics){ $temp1 = $_; $temp1 =~ s/(.*)count$/$1/; $pop_display[$i]="$temp1" . " " . $pop_hash{$_}; $view_display[$i]="$temp1" . ":" .$pop_hash{$_}; $i++; } } #--------------------------------------------------------------------------------------------------- sub mailnotify { my $top=$_[0]; my $recipient=$_[1]; if ( $recipient ne ""){ open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n"; print MAIL "Reply-to: Do not reply\n"; print MAIL "From: My wiki page\n"; print MAIL "Subject: A topic on your wiki page has been update\n\n"; print MAIL "The following topic has been added or updated:\n\n"; print MAIL "$_[0]\n\n"; print MAIL "------------------------------------------------------\n"; print MAIL "\n"; print MAIL " - $date\n"; print MAIL "------------------------------------------------------\n"; close (MAIL); } } #--------------------------------------------------------------------------------------------------- sub statistics_page{ $screen="STATISTICS
"; my $dirimg="/home/js3104/public_html/cgi-bin/unixtool/images"; my $tot_topics=""; my $command="/home/js3104/simplestore lookup N15928458/topic"; my @topics=`$command`; my $tot_topics=$#topics+1; my $tot_images=`ls -l $dirimg | wc -l`; $tot_images--; my $tot_spaceimg=&dir_size($dirimg); my $command3=""; foreach (@topics){ $command3="/home/js3104/simplestore lookup N15928458/topic/$_"; @arr=`$command3`; $c_revisions=$#arr; $top_rev{$_}=$c_revisions; } @n_topics = sort { $top_rev{$b} <=> $top_rev{$a} } keys %top_rev; my $i=0; my $tot_revs=0; foreach (@n_topics){ # foreach (@topics){ $e_topic[$i]="$_"; $c_rev[$i]=$top_rev{"$_"}; $tot_revs +=$c_rev[$i]; $i++; } # VIEWING LIST my $command2="/home/js3104/simplestore lookup N15928458/mostviewed"; my @view_topics=`$command2`; &arrange_popular(@view_topics); $general_stats="
"; $detail_stats_b="Total number of topics $tot_topics Total images uploaded $tot_images Total Image space (bytes) $tot_spaceimg
"; my $i=0; my $tot_views=0; while ($i < 15 && $view_display[$i] ){ $temp2 = $view_display[$i]; $temp2 =~ s/(.*):.*/$1/; $view_display[$i]=~ /(.*):(\d+)/; $topic_v[$i]=$temp2; $topic_v_c[$i]=$2; $tot_views += $2; $view_display[$i]=~ /()()/; $i++; } $detail_stats_e="Most edited topics Most popular viewings TOPIC EDITS TOPIC VIEWINGS "; $detail_stats_e=" Totals $tot_revs Totals $tot_views Totals $tot_revs Totals $tot_views $e_topic[$i] $c_rev[$i] $topic_v[$i] $topic_v_c[$i] "; $i++; } print $detail_stats_e; print p($error); } #--------------------------------------------------------------------------------------------------- sub dir_size { my $dir = $_[0]; my $dir_size = 0; # ADD THE SIZES OF ALL IMAGES IN THE images directory opendir (DIR, $dir) || die "Unable to open $dir: $!"; @allimages=readdir(DIR); closedir(DIR); foreach $img ( @allimages) { unless ( ($img eq ".") || ($img eq "..") ){ $dir_size += -s "$dir/$img"; } } return $dir_size; } #--------------------------------------------------------------------------------------------------- sub debug_page{ print "$type"; print "$htmlheader"; print "$formheader"; print "$screen"; print ''; print "$_[0]"; print p("$error"); print endform; print end_html; exit(); } #---------------------------------------------------------------------------------------------------