Roxen.git/ server/ etc/ modules/ Variable.pmod/ module.pmod

2000-08-22

2000-08-22 21:54:20 by Per Hedbor <ph@opera.com>

• f63757c87323e44cc76c00e7d647b4b13d20b71c (47 lines) (+35/-12) ^{[ Show | Annotate ]}
  Branch: 5.2

Solved [Bug 59 (#59)], [Bug 61 (#61)] and [Bug 56 (#56)]

Rev: server/etc/modules/Variable.pmod/module.pmod:1.3

621:       array verify_set( string value )    { +  if( !strlen( value ) ) +  return ::verify_set( value );    if( !(r_file_stat( value ) && (r_file_stat( value )[ ST_SIZE ] == -2 )))    return ({value+" is not a directory", value }); -  +  if( strlen(value) && value[-1] != '/' ) +  value += "/";    return ::verify_set( value );    }   
842:    static int _current_count = time()*100+(gethrtime()/10000);    void set_from_form(RequestID id)    { -  int rn; +  int rn, do_goto;    array l = query();    mapping vl = get_form_vars(id);    // first do the assign...
862:    foreach( indices(vl), string vv )    if( sscanf( vv, ".up.%d.x%*s", rn ) == 2 )    { +  do_goto = 1;    m_delete( id->variables, path()+vv );    m_delete( vl, vv );    l = l[..rn-2] + l[rn..rn] + l[rn-1..rn-1] + l[rn+1..];    }    else if( sscanf( vv, ".down.%d.x%*s", rn )==2 )    { -  +  do_goto = 1;    m_delete( id->variables, path()+vv );    l = l[..rn-1] + l[rn+1..rn+1] + l[rn..rn] + l[rn+2..];    }    // then the possible add.    if( vl[".new.x"] )    { -  +  do_goto = 1;    m_delete( id->variables, path()+".new.x" );    l += ({ transform_from_form( "" ) });    }
882:    foreach( indices(vl), string vv )    if( sscanf( vv, ".delete.%d.x%*s", rn )==2 )    { +  do_goto = 1;    m_delete( id->variables, path()+vv );    l = l[..rn-1] + l[rn+1..];    } -  +  if( do_goto ) +  { +  id->misc->moreheads = ([ +  "Location":id->raw_url+"?random="+random(4949494)+"#"+path(), +  ]); +  if( id->misc->defines ) +  id->misc->defines[ " _error" ] = 302; +  }    set( l ); // We are done. :-)    }   
895:       _current_count++;    -  string res = "<table>\n" -  "<input type='hidden' name='"+prefix+"count' value='"+_current_count+"' />"; +  string res = "<a name='"+path()+"'>\n</a><table>\n" +  "<input type='hidden' name='"+prefix+"count' value='"+_current_count+"' />\n";       foreach( map(query(), transform_to_form), string val )    { -  res += "<tr><td><font size='-1'>"+ input( prefix+"set."+i, val, width) + "</font></td>"; -  +  res += "<tr>\n<td><font size='-1'>"+ input( prefix+"set."+i, val, width) + "</font></td>\n";   #define BUTTON(X,Y) ("<submit-gbutton2 name='"+X+"'>"+Y+"</submit-gbutton2>")    if( i )    res += "\n<td>"+    BUTTON(prefix+"up."+i, "^")+    "</td>";    else -  res += "<td></td>"; +  res += "\n<td></td>";    if( i != sizeof( query())- 1 )    res += "\n<td>"+    BUTTON(prefix+"down."+i, "v")    +"</td>";    else -  res += "<td></td>"; +  res += "\n<td></td>";    res += "\n<td>"+    BUTTON(prefix+"delete."+i, LOCALE(227, "Delete") )    +"</td>";
922:    i++;    }    res += -  "<tr><td colspan='2'>"+ +  "\n<tr><td colspan='2'>"+    BUTTON(prefix+"new", LOCALE(297, "New row") )+ -  "</td></tr></table>\n"; +  "</td></tr></table>\n\n";       return res;    }
943:    array verify_set( array(string) value )    {    string warn = ""; -  foreach( value, string value ) -  if( !(r_file_stat( value ) && (r_file_stat( value )[ ST_SIZE ] == -2 ))) -  warn += value+" is not a directory\n"; +  foreach( value, string vi ) +  { +  if(!strlen(vi)) // empty +  continue; +  if( !(r_file_stat( vi ) && (r_file_stat( vi )[ ST_SIZE ] == -2 ))) +  warn += vi+" is not a directory\n"; +  if( strlen(vi) && vi[-1] != '/' ) +  value = replace( value, vi, vi+"/" ); +  }    if( strlen( warn ) )    return ({ warn, value }); -  +     return ::verify_set( value );    }   }