Chip 2002 February/chip_20022115.iso/amiga/chiputil/aminetrate.lha/AminetRate.rexx

OS/2 REXX Batch file | 2001-12-12 | 15KB | 507 lines

/*
** $VER: AminetRate.rexx 1.5 (12.12.2001)
** Copyright ⌐1999-2001 by Olivier Fabre <[e-mail]>.
**
** A big thank you to Robin Evans for his ARexxGuide !
**
** Requires RexxDOSSupport.library (Copyright (C) 1994-1997 by hartmut Goebel).
**
** Vote for Aminet files made easy.
**
** v1.5 (12.12.2001)
**    ╖ Fixed MOVEREADME bug [Michael Taylor].
** v1.4 (04.12.2001):
**    ╖ Improved SMTP client. Added "HELO" message in the SMTP dialog (the
**      domain is based on the email address). [thanks to Michael Taylor]
**    ╖ Improved a little bit the documentation.
** v1.3 (14.09.2001):
**    ╖ Handles "http://" and "ftp://" so that this script can be integrated
**      as a link context menu in a web browser (AWeb).
**    ╖ Localised (French and English for now).
**    ╖ Now remembers the mark given to a file in the archive.
**    ╖ Minor improvements and/or bug additions since I didn't check
**      everything ;)
**    ╖ Added examples of usage.
** v1.02 (21.05.2000):
**    ╖ When voting a second time for a file, removes the older entry from
**    the marks archive.
**    ╖ Does not open a window with "0" after sending the mail anymore.
**    ╖ Encloses mail addresses between "<" and ">" when sending the mail.
**
** Template: FILE/M,MARK/K/N,MAIL/S,DELFILE/S,DELREADME/S,MOVEFILE/S,MOVEREADME/S
**
**  FILE/M
**     Either a readme or an Aminet file (eg #?.lha). Might start with
**     "http://" or "ftp://". AminetRate will try to find the Aminet directory
**     with these methods:
**     - look in the readme for a "Type:" line (if the file is local)
**     - look if the file is in an Aminet-like directory (eg DOWNLOAD:comm/misc)
**     (- if online, have a look on Aminet) ->TODO ?
**     - ask the user :-)
**
**     You can rate several files at the same time. If you do not provide a
**     MARK value, then you will be asked a mark for each file; otherwise they
**     will all get the same mark.
**
**  MARK/K/N
**     How much you rate this file, from 0 to 10. If not given, and a FILE is
**     given, you will be asked to select a mark in a requester.
**
**  MAIL/S
**     Tells AminetRate to send a mail with all the votes stored so far.
**     This needs the "TCP:" stuff (works at least with Miami 3).
**
**  DELFILE/S, DELREADME/S
**     Tells AminetRate to delete the file/readme once the mark is stored.
**
**  MOVEFILE/S, MOVEREADME/S
**     Tells AminetRate to move the file/readme into another directory once
**     the mark is stored.
**
**
**  EXAMPLES:
**
**    AminetRate.rexx dev/c/vbcc.lha MARK=10
** or AminetRate.rexx dev/c/vbcc.readme MARK=10
**      gives a 10/10 to dev/c/vbcc.lha.
**
**    AminetRate.rexx vbcc.lha MARK=10
**      Same, but might ask you to type the directory if it can't be found
**      in the associated readme or from the file directory.
**
**    AminetRate.rexx ftp://us.aminet.net/pub/aminet/dev/c/vbcc.lha
**      opens a requester to ask your mark for vbcc.
**
**    AminetRate.rexx dev/c/vbcc.lha dev/c/CLib37x.readme MARK=9
**      gives 9/10 to VBCC and CLib37x.
**
**    SPat AminetRate.rexx #?.readme
**      to rate all the Aminet files of the directory.
**
**    AminetRate.rexx MAIL
**      sends a mail with all your votes to the Aminet server.
**
**
**  Please edit the following lines to suit your taste...
*/

replyto          = "@"                    /* Your mail address */
mailserver       = "smtp"                /* Your mail server */
movereadmedir    = "DOWNLOAD:Store"                /* Where to move readme files */
movefiledir      = "DOWNLOAD:Store"                /* Where to move files */
marksfile        = "DOWNLOAD:AminetMarks"        /* Where to store the marks */
marksarchivefile = "DOWNLOAD:AminetMarksArchive"    /* Where to store the name of files you've already voted for */
language         = "english"                /* "english" or "franτais" */
logging          = "no"                        /* Log SMTP dialog into T:AminetRate.smtp.log or not.
                                       If "AminetRate MAIL" doesn't work, send me the log. */

/* The following shouldn't need to be changed, but you can... */

aminetserver     = "[e-mail]"    /* Where to send your votes */
aminetdirs       = "/biz/comm/demo/dev/disk/docs/game/gfx/hard/misc/mods/mus/pix/text/util/"        /* List of all Aminet directories */
maxaminetsubdirlength = 5                    /* for sub-dirs check */
aminetdirsdir    = "T:AminetRate"        /* Temporary directory */
arv              = "AminetRate"            /* Name of the environment variable used for
                                                     getting return values from shell commands */

/* Language catalog */

/* English first, replaced by another language if applicable */
cat.norexxdoss    = "RexxDOSSupport.library is missing."
cat.errarg        = "Error parsing arguments."
cat.twodirs        = "Two different Aminet directories were found ! Choose the good one..."
cat.fromloc        = "from local dir"
cat.fromread    = "from readme"
cat.typedir        = "Please type the Aminet directory of"
cat.selectmark    = "Please select a mark for"
cat.cancel        = "Cancel"
cat.by         = "by"
cat.already        = "You already voted for"
cat.on         = "on"
cat.anyway         = "Vote anyway"
cat.cnxfail        = "Connection to the mail server failed."
cat.abortmail    = "Aborting mail transfer."
cat.errmarks    = "Error opening" marksfile "for reading."
cat.smtperr        = "SMTP error"
cat.mailsent   = "Mail sent !"
cat.nothing        = "Nothing to send."

IF language = "franτais" THEN DO
    cat.norexxdoss    = "RexxDOSSupport.library manquante."
    cat.errarg        = "Erreur lors de l'analyse des arguments."
    cat.twodirs        = "Deux rΘpertoires Aminet diffΘrents ont ΘtΘ trouvΘs ! Choisissez le bon..."
    cat.fromloc        = "rΘp. local"
    cat.fromread    = "readme"
    cat.typedir        = "Tapez le nom du rΘpertoire Aminet de"
    cat.selectmark    = "Choisissez une note pour"
    cat.cancel        = "Annuler"
    cat.by            = "par"
    cat.already        = "Vous avez dΘjα votΘ pour"
    cat.on            = "le"
    cat.anyway        = "Voter quand mΩme"
    cat.cnxfail        = "La connexion au serveur de courrier a ΘchouΘ."
    cat.abortmail    = "Transfert de courrier annulΘ."
    cat.errmarks    = "Erreur α l'ouverture de" marksfile "en lecture."
    cat.smtperr        = "Erreur SMTP"
    cat.mailsent    = "Mail envoyΘ !"
    cat.nothing        = "Rien α envoyer."
END


/********************************/
/* Do not change anything below */
/********************************/

wintitle = "AminetRate 1.5 ⌐1999-2001 by Olivier Fabre"

IF ~SHOW( 'L', "rexxdossupport.library" ) THEN DO
    IF ~ADDLIB( "rexxdossupport.library", 0, -30, 2 ) THEN DO
        Error( cat.norexxdoss, 20 )
    END
END

PARSE ARG args

template = "FILE/M,MARK/K/N,MAIL/S,DELFILE/S,DELREADME/S,MOVEFILE/S,MOVEREADME/S"

IF ~ReadArgs( args, template ) THEN DO
    Error( cat.errarg, 20 )
END

IF file.count=0 & ~mail THEN DO
    SHELL COMMAND "Which >ENV:"arv" AminetRate.rexx"
    IF LENGTH( GetVar(arv) )<=1 THEN SHELL COMMAND "Which >ENV:"arv" AminetRate"
    IF OPEN( f, GetVar(arv), "R" ) THEN DO
        DO WHILE ~EOF( f )
            l = READLN( f )
            IF FIND( l, "Please edit" )>0 THEN DO
                SAY "*" || "/"
                EXIT
            END
            SAY l
        END
    END
    DeleteVar(arv)
END


/* Process each given file */
/* ----------------------- */

IF file.count>0 THEN DO

    IF ~EXISTS( aminetdirsdir ) THEN DO
        MakeDir( aminetdirsdir )
    END

    DO f=0 FOR file.count

        /* Find path, file and readme names */
        /* -------------------------------- */

        /* First check if name starts with http:// or ftp:// */
        distantFile = 0
        IF LEFT( file.f, 7 ) = "http://" | LEFT( file.f, 6 ) = "ftp://" THEN DO
            distantFile = 1
            file.f = SUBSTR( file.f, 7 )
        END

        totalpath = AbsolutePath( file.f )

        path = PathPart( totalpath )

        IF LENGTH( path )=0 THEN DO
            path = PathPart( file.f )
        END

        thisfile = FilePart( file.f )

        IF RIGHT( thisfile, 7 ) = ".readme" THEN DO
            thisfile = LEFT( thisfile, LENGTH( thisfile )-6 )
            /*SHELL COMMAND "List >ENV:"arv AddPart( path, thisfile )"#? LFORMAT=%f%s"*/
            thisfile = thisfile"lha"
        END

        thisreadme = LEFT( thisfile, LASTPOS( ".", thisfile ) )"readme"


        /* Find type according to the local directory */
        /* ------------------------------------------ */

        dir = ""
        subdir = ""

        IF path ~= "" THEN DO
            slashpos = LASTPOS( "/", path )

            IF slashpos>2 THEN DO
                subdir = SUBSTR( path, slashpos+1 )

                IF LENGTH( subdir ) <= maxaminetsubdirlength THEN DO
                    cutpath = LEFT( path, slashpos-1 )
                    slashpos = LASTPOS( "/", cutpath )
                    IF slashpos=0 THEN slashpos = LASTPOS( ":", cutpath )

                    dir = SUBSTR( cutpath, slashpos+1 )

                    IF POS( "/"dir"/", aminetdirs )=0 THEN DO
                        dir = ""    /* acts as a flag */
                    END

                END    /* IF LENGTH( subdir ) <= maxaminetsubdirlength */

            END    /* IF slashpos>0 */

        END    /* IF path~="" */

        IF dir = "" THEN subdir = ""


        /* Find type according to the "Type:" line in the readme */
        /* ----------------------------------------------------- */

        IF ~distantFile & OPEN( readmef, AddPart( path, thisreadme ), "R" ) THEN DO

            DO WHILE ~EOF( readmef )
                line = COMPRESS( READLN( readmef ) )

                IF UPPER( LEFT( line, 5 ) )="TYPE:" THEN DO
                    slashpos = POS( "/", line )

                    IF slashpos > 6 THEN DO
                        newdir = SUBSTR( line, 6, slashpos-6 )
                        newsubdir = SUBSTR( line, slashpos+1 )

                        IF dir ~= "" THEN DO

                            IF newdir ~= dir | newsubdir ~= subdir THEN DO
                                SHELL COMMAND 'RequestChoice >ENV:'arv' "'wintitle'" "'cat.twodirs'" "'dir'/'subdir' ('cat.fromloc')" "'newdir'/'newsubdir' ('cat.fromread')"'

                                IF GetVar( arv )=0 THEN DO
                                    dir = newdir
                                    subdir = newsubdir
                                END

                                DeleteVar( arv )
                            END

                        END    /* IF dir ~= "" */
                        ELSE DO
                            dir = newdir
                            subdir = newsubdir
                        END    /* IF dir = "" */

                    END    /* IF slashpos > 6 */

                    BREAK
                END    /* IF "TYPE:" */

            END    /* WHILE ~EOF( readmef ) */

            CLOSE( readmef )
        END    /* IF ~distantFile & OPEN( readmef ) */


        /* Ask for type if not found */
        /* ------------------------- */

        IF dir = "" THEN DO
            SHELL COMMAND 'RequestFile >ENV:'arv '"'aminetdirsdir'" TITLE="'cat.typedir thisfile'"'
            dir = GetVar( arv )
            IF LENGTH( dir ) > LENGTH( aminetdirsdir )+6 THEN DO
                dir = SUBSTR( dir, LENGTH( aminetdirsdir )+3 )
                dir = LEFT( dir, LENGTH( dir )-1 )
                DeleteVar( arv )
                IF RIGHT( dir, 1 ) = "/" THEN dir = LEFT( dir, LENGTH( dir )-1 )

                slashpos = LASTPOS( "/", dir )

                IF slashpos > 2 THEN DO
                    subdir = SUBSTR( dir, slashpos+1 )

                    IF LENGTH( subdir ) <= maxaminetsubdirlength THEN DO
                        cutdir = LEFT( dir, slashpos-1 )
                        slashpos = LASTPOS( "/", cutdir )
                        IF slashpos = 0 THEN slashpos = LASTPOS( ":", cutdir )

                        dir = SUBSTR( cutdir, slashpos+1 )

                        IF POS( "/"dir"/", aminetdirs ) = 0 THEN DO
                            dir = ""
                        END

                    END    /* IF subdir length */

                END    /* IF slashpos > 2 */

            END    /* IF LENGTH( dir )... */

        END    /* IF dir = "" */

        IF dir = "" THEN subdir = ""


        /* Ask the mark & add it to the mail file */
        /* -------------------------------------- */

        dir = dir"/"subdir

        IF dir = "/" THEN Error( "Aborting", 0 )
        ELSE DO
            aminetfile = dir"/"thisfile

            flag = 1
            IF EXISTS( marksarchivefile ) THEN DO
                SHELL COMMAND "Search >ENV:"arv marksarchivefile aminetfile "NONUM"
                IF GetVar( arv ) ~= "" THEN DO
                    SHELL COMMAND 'RequestChoice >ENV:'arv '"'wintitle'" "'cat.already GetVar( arv )'" "'cat.anyway'" "'cat.cancel'"'
                    flag = GetVar( arv )
                END
            END

            IF flag THEN DO
                IF mark = "MARK" THEN mark = AskMark( aminetfile )

                IF mark >= 0 & mark <= 10 THEN DO

                    SHELL COMMAND "Echo >>"marksfile "rate" aminetfile mark

                    /* Removes any older entry in the marks archive file */
                    /* ------------------------------------------------- */
                    SHELL COMMAND "Copy" marksarchivefile marksarchivefile".tmp QUIET"
                    IF OPEN( maf2, marksarchivefile".tmp", "R" ) THEN DO
                        IF OPEN( maf, marksarchivefile, "W" ) THEN DO
                            DO WHILE ~EOF( maf2 )
                                line = READLN( maf2 )
                                IF line ~= "" & POS( aminetfile, line ) ~= 1 THEN WRITELN( maf, line )
                            END
                            CLOSE( maf )
                        END
                        CLOSE( maf2 )
                    END
                    SHELL COMMAND "Delete" marksarchivefile".tmp QUIET"

                    SHELL COMMAND "Echo >>"marksarchivefile aminetfile cat.on "`Date` ("mark"/10)"

                    /* Moves & | delete files if asked by the user */
                    /* ------------------------------------------- */

                    IF ~distantFile THEN DO

                        IF movefile THEN DO
                            IF ~EXISTS( movefiledir ) THEN MakeDir( movefiledir )
                            Rename( AddPart( path, thisfile ), AddPart( movefiledir, thisfile ) )
                        END
                        ELSE IF delfile THEN DO
                            Delete( AddPart( path, thisfile ) )
                        END

                        IF movereadme THEN DO
                            IF ~EXISTS( movereadmedir ) THEN MakeDir( movereadmedir )
                            Rename( AddPart( path, thisreadme ), AddPart( movereadmedir, thisreadme ) )
                        END
                        ELSE IF delreadme THEN DO
                            Delete( AddPart( path, thisreadme ) )
                        END

                    END    /* IF ~distantFile */

                END    /* IF mark >= 0 & mark <= 10 */

            END    /* IF flag */

        END    /* IF dir ~= "/" */

    END    /* DO f=0 FOR file.count */

END    /* IF file.count > 0 */


/* Send the mail */
/* ------------- */

IF mail & EXISTS( marksfile ) THEN DO
    IF ~OPEN( smtp, "TCP:"mailserver"/smtp", "W" ) THEN DO
        Error( cat.cnxfail cat.abortmail, 10 )
    END
    IF logging="yes" THEN IF ~OPEN( log, "T:AminetRate.smtp.log", "W" ) THEN DO
        Error( "Opening of T:AminetRate.smtp.log failed.", 10 )
    END
    IF ~OPEN( mf, marksfile, "R" ) THEN DO
        Error( cat.errmarks cat.abortmail, 10 )
    END

    l = ReadSMTP()
    IF LEFT( l, 3 ) ~= "220" THEN Error( cat.smtperr ":" l, 10 )

    WriteSMTP( "HELO" SUBSTR( replyto, LASTPOS("@",replyto)+1 ) )
    l = ReadSMTP()
    IF LEFT( l, 3 ) ~= "250" THEN Error( cat.smtperr ":" l, 10 )

    WriteSMTP( "MAIL FROM:" "<"replyto">" )
    l = ReadSMTP()
    IF LEFT( l, 3 ) ~= "250" THEN Error( cat.smtperr ":" l, 10 )

    WriteSMTP( "RCPT TO:" "<"aminetserver">" )
    l = ReadSMTP()
    IF LEFT( l, 3 ) ~= "250" & LEFT( l, 3 ) ~= "251" THEN Error( cat.smtperr ":" l, 10 )

    WriteSMTP( "DATA" )
    l = ReadSMTP()
    IF LEFT( l, 3 ) ~= "354" THEN Error( cat.smtperr ":" l, 10 )

    WriteSMTP( "To:" aminetserver )
    WriteSMTP( "" )

    DO WHILE ~EOF( mf )
        l = READLN( mf )
        WriteSMTP( l )
    END

    WriteSMTP( "." )
    l = ReadSMTP()
    IF LEFT( l, 3 ) ~= "250" THEN Error( cat.smtperr ":" l, 10 )

    WriteSMTP( "quit" )
    ReadSMTP()    /* 221 for succes... should I care ? */

    IF logging="yes" THEN CLOSE( log )
    CLOSE( smtp )
    CLOSE( mf )
    Delete( marksfile )
    Error( cat.mailsent, 0 )
END

IF mail & ~EXISTS( marksfile ) THEN Error( cat.nothing, 0 )

EXIT


/* Fonctions */
/* --------- */

AskMark: PROCEDURE EXPOSE wintitle cat.
    PARSE ARG file
    SHELL COMMAND 'RequestChoice >ENV:'arv' "'wintitle'" "'cat.selectmark file'" 0 1 2 3 4 5 6 7 8 9 10 "'cat.cancel'"'
    askmark = GetVar( arv )
    DeleteVar( arv )
    RETURN askmark-1

Error: PROCEDURE EXPOSE wintitle
    PARSE ARG texte,code
    SHELL COMMAND 'RequestChoice >NIL: "' wintitle '" "'texte'" "Ok"'
    EXIT code

ReadSMTP: PROCEDURE EXPOSE smtp log logging
    DO UNTIL SUBSTR( l, 4, 1 ) ~= "-"
        l = READLN( smtp )
        IF logging="yes" THEN WRITELN( log, l )
    END
    RETURN l

WriteSMTP: PROCEDURE EXPOSE smtp log logging
    PARSE ARG l
    WRITELN( smtp, l )
    IF logging="yes" THEN WRITELN( log, l )
    RETURN 0