www.webdeveloper.com
Results 1 to 2 of 2

Thread: Can anyone tell me what this does and how to call it?

  1. #1
    Join Date
    Mar 2006
    Posts
    540

    Can anyone tell me what this does and how to call it?

    Hi, I know this adds links to pages but I don't know if it sticks them in each category as well or is just a link submission. Hoping someone who understand perl could tell me. I found it free online and the writer has no email address. Thank you very much!


    #!/usr/bin/perl
    #########################################
    #@2004-Directory Of Links(FREEVERSION) #
    # #
    #Donations Appreciated. Send to: #
    #William Sherow #
    #134F Cook Road, PO Box 507 #
    #Preston Hollow, NY 12469 #
    # #
    #########################################
    print "Content-type: text/html\n\n";
    ####Name of your directory#####
    $indexname = "Internet Link Archive";
    $path = "/var/www/html/dir";
    $domain = "http://www.mrnicepages.com/dir";


    $countfile = "counts.txt";
    $buffer = $ENV{'QUERY_STRING'};
    $count =0;
    $count = $count + 1;

    open(WERE,"$countfile");
    @lines = <WERE>;
    close(WERE);
    foreach $lines (@lines){
    chomp($lines);
    ($plus,$sum)=split(/\|/,$lines);
    }

    if ($buffer eq 'add'){
    &addnew();
    }
    sub addnew{
    print <<ENDHTML;
    Add your link to our directory.<br>
    <form action=direct.cgi?addnew method=post>
    Title: <input type="text" name="title"><br>
    Description: <input type="text" name="description"><br>
    Url: <input type="text" name="http" value="http://"><br>
    Category:<select name=cat>
    <option value=Advertising>Advertising
    <option value=Art>Art
    <option value=Business>Business
    <option value=Computer>Computer Related
    <option value=programmers>Programmers
    <option value=freehosting>Free Hosting Providers
    <option value=paidhosting>Paid Hosting Providers
    <option value=searchengines>Search Engines/Free Links
    <option value=marketing>Internet Marketing
    <option value=freeware>FreeWare
    <option value=shareware>Shareware
    </select><br>
    <input type=submit value=Submit><input type=reset value=Reset></form>
    ENDHTML
    ;
    exit;
    }
    if ($buffer eq 'addnew'){
    &addnewlink();
    }
    sub addnewlink{
    if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    } else {
    $buffer = $ENV{'QUERY_STRING'};
    }
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
    }
    if ($FORM{cat} eq 'Advertising'){
    open(AD,">>$path/advertising.html");
    print AD "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(AD);
    }
    if ($FORM{cat} eq 'Art'){
    open(ART,">>$path/art.html");
    print ART "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(ART);
    }
    if ($FORM{cat} eq 'Business'){
    open(BU,">>$path/business.html");
    print BU "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(BU);
    }
    if ($FORM{cat} eq 'Computer'){
    open(CO,">>$path/computer.html");
    print CO "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(CO);
    }
    if ($FORM{cat} eq 'programmers'){
    open(PRO,">>$path/programmers.html");
    print PRO "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(PRO);
    }
    if ($FORM{cat} eq 'freehosting'){
    open(FREE,">>$path/freehosting.html");
    print FREE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(FREE);
    }
    if ($FORM{cat} eq 'paidhosting'){
    open(PA,">>$path/paidhosting.html");
    print PA "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(PA);
    }
    if ($FORM{cat} eq 'searchengines'){
    open(SE,">>$path/searchengines.html");
    print SE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(SE);
    }
    if ($FORM{cat} eq 'marketing'){
    open(MA,">>$path/marketing.html");
    print MA "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(MA);
    }
    if ($FORM{cat} eq 'freeware'){
    open(FREEWARE,">>$path/freeware.html");
    print FREEWARE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(FREEWARE);
    }
    if ($FORM{cat} eq 'shareware'){
    open(SHARE,">>$path/shareware.html");
    print SHARE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
    close(SHARE);
    }
    print "Your link has been successfully added!";
    exit;
    }
    $counter = $count + $plus;
    if (-e$countfile){
    open(TY,">$countfile");
    print TY "$counter|0";
    close(TY);
    }else{
    open(UY,">$countfile");
    print UY "0|0";
    close(UY);
    }
    print <<ENDHTML;
    <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <meta name="GENERATOR" content="Mozilla/4.7 [en] (Win95; U) [Netscape]">
    <title>$indexname</title>
    </head>
    <body>

    <center><b><font size=+4>$indexname</font></b>
    <br>
    <hr SIZE=3 NOSHADE WIDTH="100%"></center>

    <br>&nbsp;
    <center><table BORDER COLS=1 WIDTH="50%" BGCOLOR="#000000" >
    <tr>
    <td>
    <center>&nbsp;<b><a href="direct.cgi?add">Add Your Link</a>&nbsp;</b></center>
    </td>
    </tr>
    </table></center>

    <center>
    <p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="$domain/advertising.html">Advertising</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <a href="$domain/searchengines.html">Search Engines</a></b><b></b>
    <p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <a href="$domain/art.html">Art</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <a href="$domain/marketing.html">Internet Marketing</a>&nbsp;</b><b><a href="$domain/business.html"></a></b>
    <p><b><a href="$domain/business.html">Business</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <a href="$domain/freeware.html">Freeware</a></b><b></b>
    <p><b>&nbsp;&nbsp; <a href="$domain/computer.html">Computer Related</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;
    <a href="$domain/shareware.html">Shareware</a></b><b></b>
    <p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="$domain/programmers.html">Programmers</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <a href="$domain/freehosting.html">Free Hosting</a></b><b></b>
    <p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="$domain/paidhosting.html">Paid
    Hosting</a></b></center>

    <br><b></b>&nbsp;<b></b>
    <p><b>Total views to this page: $plus</b>
    <br>&nbsp;
    </body>
    </html>


    ENDHTML
    ;
    exit;

  2. #2
    Join Date
    Sep 2006
    Posts
    15

    Lightbulb

    The script does in fact organize the links in categories. Further, links for each category are inserted into separate .html files (for example - advertising category links go to advertising.html).

    Hope this helps!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center

"

"

X vBulletin 4.2.2 Debug Information

  • Page Generation 0.08900 seconds
  • Memory Usage 2,853KB
  • Queries Executed 13 (?)
More Information
Template Usage (32):
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_global_above_footer
  • (1)ad_global_below_navbar
  • (1)ad_global_header1
  • (1)ad_global_header2
  • (1)ad_navbar_below
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (1)ad_thread_first_post_content
  • (1)ad_thread_last_post_content
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (1)headinclude_bottom
  • (2)memberaction_dropdown
  • (1)navbar
  • (4)navbar_link
  • (1)navbar_moderation
  • (1)navbar_noticebit
  • (1)navbar_tabs
  • (2)option
  • (2)postbit
  • (2)postbit_onlinestatus
  • (2)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper 

Phrase Groups Available (6):
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files (26):
  • ./showthread.php
  • ./global.php
  • ./includes/class_bootstrap.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/functions_navigation.php
  • ./includes/class_friendly_url.php
  • ./includes/class_hook.php
  • ./includes/class_bootstrap_framework.php
  • ./vb/vb.php
  • ./vb/phrase.php
  • ./includes/functions_facebook.php
  • ./includes/functions_calendar.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/functions_reputation.php
  • ./includes/functions_notice.php
  • ./packages/vbattach/attach.php
  • ./vb/types.php
  • ./vb/cache.php
  • ./vb/cache/db.php
  • ./vb/cache/observer/db.php
  • ./vb/cache/observer.php 

Hooks Called (70):
  • init_startup
  • friendlyurl_resolve_class
  • init_startup_session_setup_start
  • database_pre_fetch_array
  • database_post_fetch_array
  • init_startup_session_setup_complete
  • global_bootstrap_init_start
  • global_bootstrap_init_complete
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • load_show_variables
  • load_forum_show_variables
  • global_state_check
  • global_bootstrap_complete
  • global_start
  • style_fetch
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • strip_bbcode
  • friendlyurl_clean_fragment
  • friendlyurl_geturl
  • forumjump
  • cache_templates
  • cache_templates_process
  • template_register_var
  • template_render_output
  • fetch_template_start
  • fetch_template_complete
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_noticebit
  • process_templates_complete
  • friendlyurl_redirect_canonical
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • memberaction_dropdown
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • build_navigation_data
  • build_navigation_array
  • check_navigation_permission
  • process_navigation_links_start
  • process_navigation_links_complete
  • set_navigation_menu_element
  • build_navigation_menudata
  • build_navigation_listdata
  • build_navigation_list
  • set_navigation_tab_main
  • set_navigation_tab_fallback
  • navigation_tab_complete
  • fb_like_button
  • showthread_complete
  • page_templates