Просмотр архива Рип Хостинга


<?php

sub go
{
    use EasyHost::Display;
    use EasyHost::Category;
    use EasyHost::DBI;
    use EasyHost::Directory;
    use EasyHost::Email;
    use EasyHost::File;
    use EasyHost::FileExtension;
    use EasyHost::Format;
    use EasyHost::Log;
    use EasyHost::Login;
    use EasyHost::Package;
    use EasyHost::Search;
    use EasyHost::SearchFile;
    use EasyHost::Service;
    use EasyHost::Socket;
    use EasyHost::Stats;
    use EasyHost::System;
    use EasyHost::User;
    use EasyHost::UserDirectory;
    use EasyHost::UserFile;
    use EasyHost::UserSearchFile;

    EasyHost::Display->delete;

    my $system = EasyHost::System->new(@_);
    my $text = $system->command;

    $text =~ s/t+//sg;
    $text =~ s/n{2,}/n/sg;

    my $content_type = 'text/html';
    my $html = undef;

    eval($text);

    $system->error($@) if ($@);

    print "Content-type: $content_typenn";
    print $html;
    exit;
}

1;

?>