#!/usr/bin/perl
$|=1;

while (<>) {
        @X = split;
        $url = $X[0];

        open (MYFILE, "status2.txt");
        $a=<MYFILE>;
        print "$a\n";


        if( $a == 0)
                {

                if ($url !~ /^http:\/\/123.1.34.107.8080\/Web/) {
                $_ = $url;
                s/^http:\/\/(.*)\/(.*)/http:\/\/123.1.34.107:8080\/Web/;
                print "301:$_\n";
                }
                 else {
                print "$url\n";
                }

                }

                else {
                print "$url\n";
                }

        }